GRAIN_REST_WEIGHT

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

GRAIN_REST_WEIGHT

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

Параметр	Тип	Описание
WEIGHT	INTEGER
OPERATIONID	INTEGER
OPERATIONSUBTYPE	INTEGER

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

Параметр	Тип	Описание
RWEIGHT	DOUBLE PRECISION

Описание

Зерно по бух учету и замерам

Определение

CREATE PROCEDURE GRAIN_REST_WEIGHT(
    WEIGHT INTEGER,
    OPERATIONID INTEGER,
    OPERATIONSUBTYPE INTEGER)
RETURNS (
    RWEIGHT DOUBLE PRECISION)
AS
begin
  if (:operationsubtype = 0) then rweight = :weight;
  if (:operationsubtype = 1) then begin
    if (:operationid in (9, 13)) then begin
      if (:weight > 0) then rweight = - :weight;
      else rweight = :weight;
    end
    else rweight = - :weight;
  end
  suspend;
END