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

FORM36ACOMING

 

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

��������

���

��������

DIRT

NUMERIC(9,2)

 

HUMIDITY

NUMERIC(9,2)

 

OPERATIONID

INTEGER

 

NET

INTEGER

 

CROPID

INTEGER

 

 

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

��������

���

��������

REBILLINGDIRT

NUMERIC(9,2)

 

REBILLINGHUMIDITY

NUMERIC(9,2)

 

REBILLINGNET

INTEGER

 

OUTDIRT

NUMERIC(9,2)

 

OUTHUMIDITY

NUMERIC(9,2)

 

OUTNET

INTEGER

 

 

��������

(��� �������� ��� ��������� FORM36ACOMING)

 

�����������

CREATE PROCEDURE FORM36ACOMING(
    DIRT NUMERIC(9,2),
    HUMIDITY NUMERIC(9,2),
    OPERATIONID INTEGER,
    NET INTEGER,
    CROPID INTEGER)
RETURNS (
    REBILLINGDIRT NUMERIC(9,2),
    REBILLINGHUMIDITY NUMERIC(9,2),
    REBILLINGNET INTEGER,
    OUTDIRT NUMERIC(9,2),
    OUTHUMIDITY NUMERIC(9,2),
    OUTNET INTEGER)
AS
begin
  /* Procedure Text */
  if ((:OPERATIONID in (1,4,18,45)) and (:NET <> 0)) 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

 /* if ( :cropid = 9 and :net > 0 ) then
  Begin
    outnet = :net;
    outhumidity = :humidity;
    outdirt = :dirt;
  end*/
  suspend;
end

 

     Previous topic Chapter index Next topic