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

GETLABSUMMARYJOURNAL

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

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

Описание

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

Определение

CREATE PROCEDURE GETLABSUMMARYJOURNAL(
    BEGDATE DATE,
    ENDDATE DATE,
    STORAGEID INTEGER,
    STORING INTEGER)
RETURNS (
    REGDATE DATE,
    SESSION INTEGER,
    WEIGHT INTEGER,
    HUMIDITY NUMERIC(4,2),
    ASH NUMERIC(4,2),
    GRAINUNIT INTEGER,
    DIRT NUMERIC(4,2),
    SCREENING NUMERIC(4,2),
    SMALLGRAIN NUMERIC(4,2),
    POISON NUMERIC(4,2),
    GLASSNESS INTEGER,
    GLUTEN NUMERIC(4,2),
    GLUTENQUALITY INTEGER,
    HUMIDITYAFTER NUMERIC(4,2),
    ASHAFTER NUMERIC(4,2),
    DIRTAFTER NUMERIC(4,2),
    MINERALAFTER NUMERIC(4,2))
AS
begin
/*
  regdate = :begdate;
  while (:regdate <= :enddate) do begin
    for
      select
        UWOUTACTS.weight, QUALITY.gluten, QUALITY.glutenquality,
        QUALITY.humidity, QUALITY.ash, QUALITY.grainunit, QUALITY.dirt,
        QUALITY.screening, QUALITY.smallgrain, QUALITY.poison, QUALITY.glassness
      from UWOUTACTS
        left join QUALITY on (UWOUTACTS.afterqualityid = QUALITY.QUALITYID)
        left join recipes on (recipes.recipeid = UWOUTACTS.recipeid)
        left join storage on (recipes.storageid = storage.storageid)
      where
        UWOUTACTS.workingdate = :regdate and recipes.storageid = :storageid
      into :weight, :gluten, :glutenquality, :humidity, :ash, :grainunit, :dirt,
           :screening, :smallgrain, :poison, :glassness
    do weight = :weight;


    suspend;
    regdate = :regdate + 1;
  end
*/
end