"localhost:/firebird/data/ILICHEVSK2.FDB". ��������� Previous topic Chapter index Next topic

FORM36AEXPENSE

 

������� ���������

��������

���

��������

OPERATIONID

INTEGER

 

DIRT

NUMERIC(9,2)

 

HUMIDITY

NUMERIC(9,2)

 

NET

INTEGER

 

 

�������� ���������

��������

���

��������

OUTDIRT

NUMERIC(9,2)

 

OUTHUMIDITY

NUMERIC(9,2)

 

OUTNET

INTEGER

 

REBILLINGNET

INTEGER

 

REBILLINGHUMIDITY

NUMERIC(9,2)

 

REBILLINGDIRT

NUMERIC(9,2)

 

 

��������

(��� �������� ��� ��������� 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

 

     Previous topic Chapter index Next topic