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

FORM37A

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

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

Описание

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

Определение

CREATE PROCEDURE FORM37A(
    NET INTEGER,
    OPERATIONID INTEGER,
    BEGDATE DATE,
    ENDDATE DATE,
    REGDATE DATE,
    CROPID INTEGER)
RETURNS (
    EXPNET INTEGER,
    COMNET INTEGER,
    RESTNET INTEGER)
AS
begin
  if (:cropid <> 9) then
  begin
    if (regdate < begdate) then
    begin
      if (:operationid in (1,4,45)) then restnet = :net;
      else if (:operationid in (5,22,46) )  then restnet = :net*(-1);
      else if (:operationid = 17) then restnet = :net;
      else if (:operationid = 70) then restnet = :net*(-1);
    end
    if (regdate between :begdate and :enddate) then
    begin
      if (:operationid in (1,4)) then comnet = :net;
      else if (:operationid in (5, 22, 70)) then expnet = :net;
    end
  END

  suspend;
end