"localhost:/firebird/data/ILICHEVSK2.FDB". Процедуры

FORM36AEXPENSE

Входные параметры

Выходные параметры

Описание

(Нет описания для процедуры FORM36AEXPENSE)

Определение

CREATE PROCEDURE FORM36AEXPENSE(
    OPERATIONID INTEGER,
    DIRT NUMERIC(9,2),
    HUMIDITY NUMERIC(9,2),
    NET INTEGER)
RETURNS (
    OUTDIRT NUMERIC(9,2),
    OUTHUMIDITY NUMERIC(9,2),
    OUTNET INTEGER,
    REBILLINGNET INTEGER,
    REBILLINGHUMIDITY NUMERIC(9,2),
    REBILLINGDIRT NUMERIC(9,2))
AS
begin
  /* Procedure Text */
  if (:OPERATIONID in (5,7,9,13,19,22,23,24,46,70,71,72)) then begin
    OUTNET = :NET;

    if (:OPERATIONID not in (72)) then begin
      OUTHUMIDITY = :HUMIDITY;
      OUTDIRT = :DIRT;
    end
    else begin
      OUTHUMIDITY = null;
      OUTDIRT = null;
    end
  end

  if (:OPERATIONID in (64,65)) then begin
    OUTNET = -:NET;
    OUTHUMIDITY = :HUMIDITY;
    OUTDIRT = :DIRT;
  end

  if ((:OPERATIONID = 17) and (:NET < 0)) then begin
    OUTNET = -:NET;
    OUTHUMIDITY = :HUMIDITY;
    OUTDIRT = :DIRT;
    REBILLINGNET = -:NET;
    REBILLINGHUMIDITY = :HUMIDITY;
    REBILLINGDIRT = :DIRT;
  end

  suspend;
end