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

QUALITY_SELECT

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

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

Описание

Расширеный выбор качества

Определение

CREATE PROCEDURE QUALITY_SELECT(
    QUALITYID INTEGER)
RETURNS (
    OUTQUALITYID INTEGER,
    CROPID INTEGER,
    CLASSID INTEGER,
    SORTID INTEGER,
    TYPEID INTEGER,
    SUBTYPEID INTEGER,
    ANALYSISDATE DATE,
    SAMPLINGDATE DATE,
    USERID INTEGER,
    CREATETIME TIMESTAMP,
    QUALITYNUMBER INTEGER,
    HUMIDITY NUMERIC(9,2),
    GLUTEN NUMERIC(9,2),
    GLUTENQUALITY INTEGER,
    HARVESTYEAR INTEGER,
    GRAINUNIT INTEGER,
    ACIDITY NUMERIC(9,2),
    STARCH NUMERIC(9,2),
    PROTEIN NUMERIC(9,2),
    PROTEIN_M NUMERIC(9,2),
    ASH NUMERIC(9,2),
    GLASSNESS INTEGER,
    DIRT NUMERIC(9,2),
    SCREENING NUMERIC(9,2),
    POISON NUMERIC(9,2),
    SMALLGRAIN NUMERIC(9,2),
    TURTLEBUG NUMERIC(9,2),
    REGIONID INTEGER,
    INFECTIONID INTEGER,
    PASS NUMERIC(9,2),
    PASS43 NUMERIC(9,2),
    PASS23 NUMERIC(9,2),
    PASS38 NUMERIC(9,2),
    REST NUMERIC(9,2),
    REST45 NUMERIC(9,2),
    REST43 NUMERIC(9,2),
    REST35 NUMERIC(9,2),
    REST27 NUMERIC(9,2),
    VOLUMERECOVERY INTEGER,
    RELATION_H_D NUMERIC(9,2),
    METALMAGNITID INTEGER,
    COLORID INTEGER,
    TASTEID INTEGER,
    SMELLID INTEGER,
    CRUNCHID INTEGER,
    SPOILTNUCLEIID INTEGER,
    SAFEGRAINID INTEGER,
    POTATOESSTICKID INTEGER,
    CLEANNESS NUMERIC(9,2),
    MICROORGANISM NUMERIC(9,2),
    KOLIFORM NUMERIC(9,2),
    MUSHROOMS NUMERIC(9,2),
    WHITENESS NUMERIC(9,2),
    MINERAL NUMERIC(9,2),
    MINERAL_F NUMERIC(9,2),
    DIRTY NUMERIC(9,2),
    BLUEGUZA NUMERIC(9,2),
    SAMPLEWEIGHT INTEGER,
    ACROSPIRE NUMERIC(9,2),
    DROPNUMBER INTEGER,
    INFRALUMGLUTEN INTEGER,
    GRAINROSECOLOR NUMERIC(9,2),
    GRAINSTATE INTEGER,
    PARTYSIMILARITYID INTEGER,
    PARTYINFECTIONID INTEGER,
    TRANSPORTSTATEID INTEGER,
    SESSION INTEGER,
    SEEIVEID INTEGER,
    SAMPLERID INTEGER,
    INFECTION_COUNT INTEGER,
    INFECTION_ACCUMULATION INTEGER,
    SPOILT NUMERIC(9,2),
    SPOILT_F NUMERIC(9,2),
    DEFECTIVE NUMERIC(9,2),
    GLASSNESSFULL INTEGER,
    STATEHUMIDITY INTEGER,
    STATEDIRT INTEGER,
    DIRTSEED NUMERIC(9,2),
    CROPSEED NUMERIC(9,2),
    FUSARIOSE NUMERIC(9,2),
    BRAND NUMERIC(9,2),
    WHEAT NUMERIC(9,2),
    RYE NUMERIC(9,2),
    BARLEY NUMERIC(9,2),
    GLUTENGROUP INTEGER,
    QUALITYSERTIFICATE INTEGER,
    PUNY NUMERIC(9,2),
    BEATEN NUMERIC(9,2),
    OILSEED NUMERIC(9,2),
    QUALITYHUMIDITYID INTEGER,
    PASS1 NUMERIC(9,2),
    PASS1_5 NUMERIC(9,2),
    PASS2_5 NUMERIC(9,2),
    PASS3 NUMERIC(9,2),
    CORRODED NUMERIC(9,2),
    GREEN NUMERIC(9,2),
    GOWL NUMERIC(9,2),
    MAIZE NUMERIC(9,2),
    TRITICALE NUMERIC(9,2),
    PEA NUMERIC(9,2),
    ORGANIC NUMERIC(9,2),
    BRUCUS NUMERIC(9,2),
    OATS NUMERIC(9,2),
    SUNFLOWER NUMERIC(9,2),
    BUCKWHEAT NUMERIC(9,2),
    TEMPERATURE NUMERIC(9,2),
    NAKED NUMERIC(9,2),
    AMBROZIA NUMERIC(9,2),
    EMTY_SEED NUMERIC(9,2),
    SOY NUMERIC(9,2),
    SECHKA NUMERIC(9,2),
    LISTOVERTKA NUMERIC(9,2),
    MOROZOBOINIE NUMERIC(9,2),
    NUT NUMERIC(9,2),
    FASOL NUMERIC(9,2),
    NEDOZRELIE NUMERIC(9,2),
    CAPTURE_FROST NUMERIC(9,2),
    MRAMORNIE NUMERIC(9,2),
    PELUSHKA NUMERIC(9,2),
    ERUKOVA_KISLOTA NUMERIC(9,2),
    GLUKOZINILAT NUMERIC(9,2),
    GORCHIZA NUMERIC(9,2),
    SUREPIZA NUMERIC(9,2),
    RIZHIK NUMERIC(9,2),
    KULT_RAST_DIRT NUMERIC(9,2),
    KULT_RAST_SCREENING NUMERIC(9,2),
    PROSO NUMERIC(9,2),
    BUH_UCHET_PO INTEGER,
    DIRT_EC NUMERIC(9,2),
    SCREENING_EC NUMERIC(9,2),
    BEATEN_EC NUMERIC(9,2),
    ACROSPIRE_EC NUMERIC(9,2),
    GLUTEN_EC NUMERIC(9,2),
    GLUTEN_QUALITY_EC NUMERIC(9,2),
    GOLOVNEVIE NUMERIC(9,2),
    KOEF_MEH_POTER NUMERIC(9,2),
    MASSA_1000_ZEREN NUMERIC(9,2),
    KRUPNOST NUMERIC(9,2),
    DEAD_VREDITEL NUMERIC(9,2),
    MAS_DOL_ZERN_PSHENIZ NUMERIC(9,2),
    KISLOTNOST NUMERIC(9,2),
    SODERGANIE_YADER NUMERIC(9,2),
    SEMENA_KLESHEVINI NUMERIC(9,2),
    W INTEGER,
    NEVYPOLNENNYE NUMERIC(9,2),
    PASS2020 NUMERIC(9,2),
    PASS1920 NUMERIC(9,2),
    POTEMN_ZARODYSH NUMERIC(9,2),
    ZERNA_ZLAK_KULTUR NUMERIC(9,2),
    PASS1020 NUMERIC(9,2),
    VYEDEN_ENDOSPERM NUMERIC(9,2),
    OKRASHENNYE NUMERIC(9,2),
    FORAGECROPID INTEGER,
    FORAGECLASSID INTEGER,
    PASS1220 NUMERIC(9,2),
    RAW_OIL INTEGER,
    RAW_CELLULOSE INTEGER,
    INSOLUBLE_ASHES INTEGER,
    METAL_TOUCH INTEGER,
    OIL_CONTENT NUMERIC(9,2),
    OIL_M NUMERIC(9,2),
    OVSUG NUMERIC(9,2),
    KUKOLI NUMERIC(9,2),
    PASS5 NUMERIC(9,2),
    PASS2 NUMERIC(9,2),
    DIAMETER NUMERIC(9,2),
    LENGTH_ NUMERIC(9,2),
    PROTEIN_ NUMERIC(9,2),
    CELLULOSE NUMERIC(9,2),
    ABORTIVE NUMERIC(9,2),
    SUCROSE NUMERIC(9,2),
    CARBAMIDE NUMERIC(9,2),
    MECHANICAL_IMP NUMERIC(9,2),
    MATALLOMAGNITN_IMP_TO_2 INTEGER,
    MATALLOMAGNITN_IMP_OWER_2 INTEGER,
    NOT_GRANULATED_PRESS NUMERIC(9,2),
    DAMAGED_TURTLEBUG NUMERIC(9,2),
    PAINTED_GERM_8 NUMERIC(9,2),
    PAINTED_GERM_30 NUMERIC(9,2),
    DAVLENNIH NUMERIC(9,2),
    ZER_DRUG_KULT NUMERIC(9,2),
    KRUPNAYA_PRIMES NUMERIC(9,2),
    POVR_RAST_KLOP NUMERIC(9,2),
    DOCUMENTTYPEID INTEGER,
    SPORINI NUMERIC(9,2),
    FORAGEPARTYID INTEGER,
    THEATCARRIER INTEGER,
    TGRAINBEFOREDRYING INTEGER,
    TGRAINEXITHOTCAMERA INTEGER,
    TGRAINEXITCOLDCAMERA INTEGER,
    TASTEANDSMELLID INTEGER,
    TRANSPARENCYID INTEGER,
    COLORNUMBER INTEGER,
    ACIDNUMBER DECIMAL(9,4),
    PEROXIDENUMBER DECIMAL(9,4),
    PHOSPHORUS DECIMAL(9,4),
    NOTFATTY DECIMAL(9,4),
    MOISTURE DECIMAL(9,4),
    FLASH DECIMAL(9,1),
    TRANSPARENCYDEGREE INTEGER,
    IODICNUMBER DECIMAL(9,4),
    SAPONIFICATIONNUMBER DECIMAL(9,4),
    DENSITY DECIMAL(9,4),
    QUALITYACIDNUMBERID INTEGER,
    QUALITYPEROXIDENUMBERID INTEGER,
    CORNFIELDID INTEGER,
    BENZOPYRENE DECIMAL(9,4),
    MINERALOILS DECIMAL(9,4),
    OILTEMPERATURE DECIMAL(9,1),
    ORIGINAL_DOCUMENT INTEGER,
    FRACTURING DECIMAL(9,2),
    GMOPRESENCEID INTEGER)
AS
declare variable QTYPE integer;
declare variable QVALUE numeric(12,4);
begin
  select QUALITY.CROPID, QUALITY.CLASSID, QUALITY.SORTID, QUALITY.ANALYSISDATE,
      QUALITY.SAMPLINGDATE, QUALITY.USERID, QUALITY.CREATETIME,
      QUALITY.QUALITYHUMIDITYID, QUALITY.QUALITYACIDNUMBERID,
      QUALITY.QUALITYPEROXIDENUMBERID
    from QUALITY
    where (QUALITYID = :QUALITYID)
  into :CROPID, :CLASSID, :SORTID, :ANALYSISDATE, :SAMPLINGDATE, :USERID,
       :CREATETIME, :QUALITYHUMIDITYID, :QUALITYACIDNUMBERID, :QUALITYPEROXIDENUMBERID;

  OUTQUALITYID = :QUALITYID;

  for
    select QUALITYTYPEID, QUALITYVALUE
      from QUALITYDATA
      where (QUALITYID = :QUALITYID)
    into :QTYPE, :QVALUE
  do begin
    if (:QTYPE = 1) then QUALITYNUMBER = :QVALUE;
    else if (:QTYPE = 2) then HUMIDITY = :QVALUE;
    else if (:QTYPE = 3) then GLUTEN = :QVALUE;
    else if (:QTYPE = 4) then GLUTENQUALITY = cast(:QVALUE as integer);
    else if (:QTYPE = 5) then GLUTENGROUP = cast(:QVALUE as integer);
    else if (:QTYPE = 6) then HARVESTYEAR = cast(:QVALUE as integer);
    else if (:QTYPE = 7) then GRAINUNIT = cast(:QVALUE as integer);
    else if (:QTYPE = 8) then ACIDITY = :QVALUE;
    else if (:QTYPE = 9) then STARCH = :QVALUE;
    else if (:QTYPE = 10) then PROTEIN = :QVALUE;
    else if (:QTYPE = 11) then ASH = :QVALUE;
    else if (:QTYPE = 12) then GLASSNESS = cast(:QVALUE as integer);
    else if (:QTYPE = 13) then DIRT = :QVALUE;
    else if (:QTYPE = 14) then SCREENING = :QVALUE;
    else if (:QTYPE = 15) then POISON = :QVALUE;
    else if (:QTYPE = 16) then SMALLGRAIN = :QVALUE;
    else if (:QTYPE = 17) then TURTLEBUG = :QVALUE;
    else if (:QTYPE = 18) then REGIONID = cast(:QVALUE as integer);
    else if (:QTYPE = 19) then INFECTIONID = cast(:QVALUE as integer);
    else if (:QTYPE = 22) then VOLUMERECOVERY = cast(:QVALUE as integer);
    else if (:QTYPE = 23) then RELATION_H_D = :QVALUE;
    else if (:QTYPE = 24) then METALMAGNITID = cast(:QVALUE as integer);
    else if (:QTYPE = 25) then COLORID = cast(:QVALUE as integer);
    else if (:QTYPE = 26) then TASTEID = cast(:QVALUE as integer);
    else if (:QTYPE = 27) then SMELLID = cast(:QVALUE as integer);
    else if (:QTYPE = 28) then CRUNCHID = cast(:QVALUE as integer);
    else if (:QTYPE = 29) then SPOILTNUCLEIID = cast(:QVALUE as integer);
    else if (:QTYPE = 30) then SAFEGRAINID = cast(:QVALUE as integer);
    else if (:QTYPE = 34) then POTATOESSTICKID = cast(:QVALUE as integer);
    else if (:QTYPE = 39) then CLEANNESS = :QVALUE;                             -- Чистота
    else if (:QTYPE = 40) then MICROORGANISM = :QVALUE;
    else if (:QTYPE = 41) then KOLIFORM = :QVALUE;
    else if (:QTYPE = 42) then MUSHROOMS = :QVALUE;
    else if (:QTYPE = 43) then WHITENESS = :QVALUE;
    else if (:QTYPE = 46) then MINERAL = :QVALUE;
    else if (:QTYPE = 52) then DIRTY = :QVALUE;
    else if (:QTYPE = 53) then BLUEGUZA = :QVALUE;
    else if (:QTYPE = 54) then SAMPLEWEIGHT = :QVALUE;
    else if (:QTYPE = 56) then ACROSPIRE = :QVALUE;
    else if (:QTYPE = 59) then DROPNUMBER = :QVALUE;
    else if (:QTYPE = 61) then ORGANIC = :QVALUE;
    else if (:QTYPE = 62) then DIRTSEED = :QVALUE;

    else if (:QTYPE = 64) then SPORINI = :QVALUE;                               -- Спорыньи
    else if (:QTYPE = 65) then KUKOLI = :QVALUE;
    else if (:QTYPE = 66) then BEATEN = :QVALUE;
    else if (:QTYPE = 67) then CORRODED = :QVALUE;
    else if (:QTYPE = 68) then PUNY = :QVALUE;
    else if (:QTYPE = 70) then DEFECTIVE = :QVALUE;
    else if (:QTYPE = 71) then WHEAT = :QVALUE;
    else if (:QTYPE = 72) then GREEN = :QVALUE;
    else if (:QTYPE = 73) then BARLEY = :QVALUE;
    else if (:QTYPE = 74) then RYE = :QVALUE;
    else if (:QTYPE = 79) then SPOILT = :QVALUE;
    else if (:QTYPE = 80) then FUSARIOSE = :QVALUE;
    else if (:QTYPE = 81) then MAIZE = :QVALUE;
    else if (:QTYPE = 82) then SUNFLOWER = :QVALUE;
    else if (:QTYPE = 83) then DAVLENNIH = :QVALUE;                             -- Давленных
    else if (:QTYPE = 84) then OVSUG = :QVALUE;
    else if (:QTYPE = 85) then ZER_DRUG_KULT = :QVALUE;                         -- Зерен других культур
    else if (:QTYPE = 86) then SAMPLERID = :QVALUE;
    else if (:QTYPE = 87) then INFRALUMGLUTEN = :QVALUE;
    else if (:QTYPE = 88) then SEEIVEID = :QVALUE;
    else if (:QTYPE = 89) then GRAINSTATE = :QVALUE;
    else if (:QTYPE = 90) then GRAINROSECOLOR = :QVALUE;
    else if (:QTYPE = 92) then PARTYSIMILARITYID = :QVALUE;
    else if (:QTYPE = 94) then PARTYINFECTIONID = :QVALUE;
    else if (:QTYPE = 95) then TRANSPORTSTATEID = :QVALUE;
    else if (:QTYPE = 96) then SESSION = :QVALUE;
    else if (:QTYPE = 97) then QUALITYSERTIFICATE = :QVALUE;
    else if (:QTYPE = 99) then INFECTION_COUNT = :QVALUE;
    else if (:QTYPE = 101) then INFECTION_ACCUMULATION = :QVALUE;
    else if (:QTYPE = 102) then STATEHUMIDITY = :QVALUE;
    else if (:QTYPE = 103) then STATEDIRT = :QVALUE;
    else if (:QTYPE = 104) then GOWL = :QVALUE;

    else if (:QTYPE = 106) then KRUPNAYA_PRIMES = :QVALUE;
    else if (:QTYPE = 107) then GLASSNESSFULL = :QVALUE;
    else if (:QTYPE = 108) then CROPSEED = :QVALUE;
    else if (:QTYPE = 109) then BRAND = :QVALUE;
    else if (:QTYPE = 110) then OILSEED = :QVALUE;
    else if (:QTYPE = 111) then TYPEID = :QVALUE;
    else if (:QTYPE = 112) then SUBTYPEID = :QVALUE;
    else if (:QTYPE = 113) then TRITICALE = :QVALUE;
    else if (:QTYPE = 114) then PEA = :QVALUE;
    else if (:QTYPE = 115) then OATS = :QVALUE;
    else if (:QTYPE = 117) then BUCKWHEAT = :QVALUE;
    else if (:QTYPE = 123) then BRUCUS = :QVALUE;
    else if (:QTYPE = 124) then TEMPERATURE = :QVALUE;
    else if (:QTYPE = 125) then NAKED = :QVALUE;                                -- Голозерные
    else if (:QTYPE = 126) then AMBROZIA = cast(:QVALUE as integer);            -- Амброзия
    else if (:QTYPE = 127) then EMTY_SEED = :QVALUE;                            -- Пустых семян
    else if (:QTYPE = 128) then SOY = :QVALUE;                                  -- Соя
    else if (:QTYPE = 129) then SECHKA = :QVALUE;                               -- Сечка
    else if (:QTYPE = 130) then LISTOVERTKA = :QVALUE;                          -- Листовертка
    else if (:QTYPE = 131) then MOROZOBOINIE = :QVALUE;                         -- Морозобойные
    else if (:QTYPE = 132) then NUT = :QVALUE;                                  -- Нут
    else if (:QTYPE = 133) then FASOL = :QVALUE;                                -- Фасоль
    else if (:QTYPE = 134) then NEDOZRELIE = :QVALUE;                           -- Недозрелые
    else if (:QTYPE = 135) then CAPTURE_FROST = :QVALUE;                        -- Захваченые морозом
    else if (:QTYPE = 136) then MRAMORNIE = :QVALUE;                            -- Мраморные
    else if (:QTYPE = 137) then PELUSHKA = :QVALUE;                             -- Пелюшка
    else if (:QTYPE = 138) then ERUKOVA_KISLOTA = :QVALUE;                      -- Эруковая кислота
    else if (:QTYPE = 139) then GLUKOZINILAT = :QVALUE;                         -- Глюкозинолат
    else if (:QTYPE = 140) then GORCHIZA = :QVALUE;                             -- Горчица
    else if (:QTYPE = 141) then SUREPIZA = :QVALUE;                             -- Сурепица
    else if (:QTYPE = 142) then RIZHIK = :QVALUE;                               -- Рыжик
    else if (:QTYPE = 143) then KULT_RAST_DIRT = :QVALUE;                       -- Культ раст, отнесенные к сорной
    else if (:QTYPE = 144) then KULT_RAST_SCREENING = :QVALUE;                  -- Культ раст, отнесенные к зернов
    else if (:QTYPE = 145) then PROSO = :QVALUE;                                -- Просо

    else if (:QTYPE = 151) then PROTEIN_M = :QVALUE;                            -- Массовая доля белка
    else if (:QTYPE = 152) then OIL_M = :QVALUE;                                -- Массовая доля масла
    else if (:QTYPE = 153) then MINERAL_F = :QVALUE;                            -- Минеральная примесь (фракция)
    else if (:QTYPE = 154) then SPOILT_F = :QVALUE;                             -- Испорченные (фракция)

    else if (:QTYPE = 200) then BUH_UCHET_PO = cast(:QVALUE as integer);        -- Бух. учет по:
    else if (:QTYPE = 201) then DIRT_EC = :QVALUE;                              -- Сорн. прим. ЕС
    else if (:QTYPE = 202) then SCREENING_EC = :QVALUE;                         -- Зенр. прим. ЕС
    else if (:QTYPE = 203) then BEATEN_EC = :QVALUE;                            -- Битые ЕС
    else if (:QTYPE = 204) then ACROSPIRE_EC = :QVALUE;                         -- Проросшие ЕС
    else if (:QTYPE = 205) then GLUTEN_EC = :QVALUE;                            -- Клейковина ЕС
    else if (:QTYPE = 206) then GLUTEN_QUALITY_EC = :QVALUE;                    -- ИДК ЕС
    else if (:QTYPE = 207) then GOLOVNEVIE = :QVALUE;                           -- Головневые
    else if (:QTYPE = 208) then MASSA_1000_ZEREN = :QVALUE;                     -- Масса 1000 зерен
    else if (:QTYPE = 209) then KRUPNOST = :QVALUE;                             -- Крупность
    else if (:QTYPE = 210) then DEAD_VREDITEL = :QVALUE;                        -- Мертвых вредителей
    else if (:QTYPE = 211) then MAS_DOL_ZERN_PSHENIZ = :QVALUE;                 -- Массовая доля зерен пшеницы
    else if (:QTYPE = 212) then KISLOTNOST = :QVALUE;                           -- Кислотность
    else if (:QTYPE = 213) then SODERGANIE_YADER = :QVALUE;                     -- Содержание ядер
    else if (:QTYPE = 214) then SEMENA_KLESHEVINI = :QVALUE;                    -- Семена клещевины
    else if (:QTYPE = 215) then W = :QVALUE;                                    -- W

    else if (:QTYPE = 219) then POVR_RAST_KLOP = :QVALUE;                       -- Поврежденные растительным клопом
    else if (:QTYPE = 220) then DOCUMENTTYPEID = cast(:QVALUE as integer);      -- Тип документа
    else if (:QTYPE = 221) then ORIGINAL_DOCUMENT = cast(:QVALUE as integer);   -- Наличие оригинала документа
    else if (:QTYPE = 222) then FRACTURING = :QVALUE;                           -- Трещиноватость (ломкость)

    else if (:QTYPE = 999) then CORNFIELDID = cast(:QVALUE as integer);         -- Поле

    else if (:QTYPE = 1000) then THEATCARRIER = :QVALUE;                        -- Температура теплоносителя
    else if (:QTYPE = 1001) then TGRAINBEFOREDRYING = :QVALUE;                  -- Температура зерна до сушки
    else if (:QTYPE = 1002) then TGRAINEXITHOTCAMERA = :QVALUE;                 -- Температура зерна на выходе из горячей камеры
    else if (:QTYPE = 1003) then TGRAINEXITCOLDCAMERA = :QVALUE;                -- Температура зерна на выходе из холодной камеры

-- Показатели качества растительного масла
    else if (:QTYPE = 1100) then TASTEANDSMELLID = cast(:QVALUE as integer);    -- Вкус и запах
    else if (:QTYPE = 1101) then TRANSPARENCYID = cast(:QVALUE as integer);     -- Прозрачность
    else if (:QTYPE = 1102) then COLORNUMBER = cast(:QVALUE as integer);        -- Цветное число
    else if (:QTYPE = 1103) then ACIDNUMBER = :QVALUE;                          -- Кислотное число
    else if (:QTYPE = 1104) then PEROXIDENUMBER = :QVALUE;                      -- Перекисное число
    else if (:QTYPE = 1105) then PHOSPHORUS = :QVALUE;                          -- Массовая доля фосфорсодержащих веществ
    else if (:QTYPE = 1106) then NOTFATTY = :QVALUE;                            -- Массовая доля нежировых примесей
    else if (:QTYPE = 1107) then MOISTURE = :QVALUE;                            -- Массовая доля влаги и летучих веществ
    else if (:QTYPE = 1108) then FLASH = cast(:QVALUE as numeric(9,1));         -- Температура вспышки
    else if (:QTYPE = 1109) then TRANSPARENCYDEGREE = cast(:QVALUE as integer); -- Степень прозрачности
    else if (:QTYPE = 1110) then IODICNUMBER = :QVALUE;                         -- Йодное число
    else if (:QTYPE = 1111) then SAPONIFICATIONNUMBER = :QVALUE;                -- Число омыления
    else if (:QTYPE = 1112) then DENSITY = :QVALUE;                             -- Густота
    else if (:QTYPE = 1113) then BENZOPYRENE = :QVALUE;                         -- Содержание бенз(а)пирена
    else if (:QTYPE = 1114) then MINERALOILS = :QVALUE;                         -- Количество минеральных масел
    else if (:QTYPE = 1115) then OILTEMPERATURE = :QVALUE;                      -- Температура масла при поступлении
--

    else if (:QTYPE = 1201) then KOEF_MEH_POTER = :QVALUE;                      -- Коефициент мех потерь

    else if (:QTYPE = 3200) then NEVYPOLNENNYE = :QVALUE;                       -- Невыполненные
    else if (:QTYPE = 3210) then POTEMN_ZARODYSH = :QVALUE;                     -- Зерен с потомневшим зародышем
    else if (:QTYPE = 3211) then ZERNA_ZLAK_KULTUR = :QVALUE;                   -- Зерна злаковых культур
    else if (:QTYPE = 3213) then VYEDEN_ENDOSPERM = :QVALUE;                    -- Зерен с полностью выеденным эндоспермом
    else if (:QTYPE = 3214) then OKRASHENNYE = :QVALUE;                         -- Окрашенные
    else if (:QTYPE = 3220) then FORAGECROPID = :QVALUE;                        -- Отходы к культуре
    else if (:QTYPE = 3222) then FORAGECLASSID = :QVALUE;                       -- Отходы к классу
    else if (:QTYPE = 3223) then FORAGEPARTYID = :QVALUE;                       -- Отходы к партии
    else if (:QTYPE = 3230) then RAW_OIL = :QVALUE;                             -- Сырой жир
    else if (:QTYPE = 3231) then RAW_CELLULOSE = :QVALUE;                       -- Сырая клетчатка
    else if (:QTYPE = 3232) then INSOLUBLE_ASHES = :QVALUE;                     -- Зола нерастворимая в HCL
    else if (:QTYPE = 3233) then METAL_TOUCH = :QVALUE;                         -- Металлопримесь %
    else if (:QTYPE = 3234) then OIL_CONTENT = :QVALUE;                         -- Масличность %

    else if (:QTYPE = 3235) then DIAMETER = :QVALUE;                            -- Диаметр мм
    else if (:QTYPE = 3236) then LENGTH_ = :QVALUE;                             -- Длина мм
    else if (:QTYPE = 3238) then PROTEIN_ = :QVALUE;                            -- Протеин %
    else if (:QTYPE = 3239) then CELLULOSE = :QVALUE;                           -- Клетчатка %
    else if (:QTYPE = 3241) then ABORTIVE = :QVALUE;                            -- Недоразвитый %
    else if (:QTYPE = 3242) then DAMAGED_TURTLEBUG = :QVALUE;                   -- Зерне поврежденных клопом %

    else if (:QTYPE = 3243) then SUCROSE = :QVALUE;                             -- Сахароза %
    else if (:QTYPE = 3244) then CARBAMIDE = :QVALUE;                           -- Карбамид %
    else if (:QTYPE = 3245) then MECHANICAL_IMP = :QVALUE;                      -- Механические примеси %
    else if (:QTYPE = 3246) then MATALLOMAGNITN_IMP_TO_2 = :QVALUE;             -- Металломагнитные примеси размерами до 2 мм включительно мг/кг
    else if (:QTYPE = 3247) then MATALLOMAGNITN_IMP_OWER_2 = :QVALUE;           -- Металломагнитные примеси размером свыше 2 мм и частицы с острыми краями мг/кг
    else if (:QTYPE = 3248) then NOT_GRANULATED_PRESS = :QVALUE;                -- Массовая часть несгранулированного жома %
    else if (:QTYPE = 3249) then PAINTED_GERM_8 = :QVALUE;                      -- Окрашенный зародыш > 8% %
    else if (:QTYPE = 3250) then PAINTED_GERM_30 = :QVALUE;                     -- Окрашенный зародыш > 30% %
    else if (:QTYPE = 3252) then GMOPRESENCEID = :QVALUE;                          -- Наличие ГМО

    else if (:QTYPE = 35) then begin
      PASS43 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 21) then begin
      PASS23 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 36) then begin
      PASS38 = :QVALUE; /* or45 */
      PASS = :QVALUE;
    end
    else if (:QTYPE = 63) then begin
      PASS1_5 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 75) then begin
      PASS1 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 76) then begin
      PASS2_5 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 105) then begin
      PASS3 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 44) then begin
      REST45 = :QVALUE;
      REST = :QVALUE;
    end
    else if (:QTYPE = 20) then begin
      REST43 = :QVALUE;
      REST = :QVALUE;
    end
    else if (:QTYPE = 37) then begin
      REST35 = :QVALUE;
      REST = :QVALUE;
    end
    else if (:QTYPE = 38) then begin
      REST27 = :QVALUE;
      REST = :QVALUE;
    end
    else if (:QTYPE = 3201) then begin
      PASS2020 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 3202) then begin
      PASS1920 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 3212) then begin
      PASS1020 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 3221) then begin
      PASS1220 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 216) then begin
      PASS5 = :QVALUE;
      PASS = :QVALUE;
    end
    else if (:QTYPE = 3237) then begin
      PASS2 = :QVALUE;
      PASS = :QVALUE;
    end
  end

  suspend;
/*  PASS1_5 NUMERIC(9,2),
    SPUR
    corncockle
*/
end