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

FORM36ACOMING

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

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

Описание

(Нет описания для процедуры 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