Procedura-init_float

Popis:
Vrací číslo na vstupu, v případě null vrací defaultní hodnotu ze vstupu, pokud je i ta null, tak nulu. Používá se interně v některých procedurách.

Parametry:

NázevPopisDatový typ
IN_NUMBERDouble(0, 0)
IN_DEFAULT_VALUEDouble(0, 0)

Návratové hodnoty:

NázevPopisDatový typ
OUT_NUMBERDouble(0, 0)

Tělo:

BEGIN
  IF (IN_NUMBER IS NULL) THEN BEGIN
    IF (IN_DEFAULT_VALUE IS NULL) THEN BEGIN
      OUT_NUMBER = 0;
    END
    ELSE BEGIN
      OUT_NUMBER = IN_DEFAULT_VALUE;
    END
  END
  ELSE BEGIN
    OUT_NUMBER = IN_NUMBER;
  END
END;

Generated by ABRA Software a.s. 27.10.2021 16:34:16