"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