/* в запись кладутся поля: /* 1001 - признак полугодия 0 или 9 /* 1002 - признак отбора /* 1003 - код филиала /* 1004 - код выделенного фонда вместе с идентификатором подполя /* 1005 - код выделенного фонда вместе с идентификатором подполя для остальных-общих /* 1006 - признак = 1 НЕЗАОЧНИКИ /* 1007 - признак 3 - точное совпадение специальностей /* 2 - совпадение 4-х цифр, если 5-я и 6-я 00 /* 1 или пусто - совпадение 6-ти цифр /* 1008 - признак НЕ учитывания вида обучения (0 или пусто - не учитывать) /* 1009 - признак НЕ учитывания форму обучения (0 или пусто- не учитывать) /* 1010 - признак НЕ учитывания семестр (0 или пусто - не учитывать) /* 1011 - признак НЕ учитывания специальность (0 или пусто - не учитывать) /* 1012 - признак НЕ учитывания направление (0 или пусто - не учитывать) /* 1013 - признак НЕ учитывания факультет (0 или пусто - не учитывать) /* 1015 - O - если для основной; D - если для дополнительной /* 1020 - признак задания элементов связки 1008,1009,1010,1011,1012,1013 /* не задан 1020 - учет всех параметров if val(v1020)=0 then &uf('+7W1008#1'),&uf('+7W1009#1'),&uf('+7W1010#1'),&uf('+7W1011#1'),&uf('+7W1012#1'),&uf('+7W1013#1'), else &uf('+7W1008#',v1008),&uf('+7W1009#',v1009),&uf('+7W1010#',v1010),&uf('+7W1011#',v1011),&uf('+7W1012#',v1012),&uf('+7W1013#',v1013),,, fi,,,,,,,,,,,, &uf('+7W5#', (if p(v691) and a(v691^U) then /* вместо 691^V использую G8 и т.д. &uf('+7W8#',if val(&uf('Ag1008#1'))=1 then v691^V fi),,, &uf('+7W9#',if val(&uf('Ag1009#1'))=1 then v691^O fi),,, &uf('+7W10#',if val(&uf('Ag1010#1'))=1 then v691^F fi),,, &uf('+7W11#',if val(&uf('Ag1011#1'))=1 then v691^C fi),,, &uf('+7W12#',if val(&uf('Ag1012#1'))=1 then v691^N fi),,, &uf('+7W13#',if val(&uf('Ag1013#1'))=1 then v691^A fi),,, /* учет языка if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi, if &uf('AG7#1')<>'' then '"JZ=',&uf('AG7#1'),'"',,,,,,' * ' fi, if &uf('Av1004#1')='' and &uf('Av1005#1')='' then if &uf('Av1003#1')='' and a(v691^L) then /* не филиал if &uf('Av1002#1')='' or s(|!^A|v691^A|!|,,|!^V|v691^V|!|,,|!^O|v691^O|!|,,|!^N|v691^N|!|,,|!^C|v691^C|!|,,|!^F|v691^F|!|,,|!^I|v691^I|!|,,|!^S|v691^S|!|,,|!^B|v691^B|!|,,): s('!',&uf('Av1002#1'),'!') then /* отбор пройден if ( &uf('Ag1010#1')='' ) or ( &uf('Ag1010#1')='0' ) or s( if &uf('Ksemv.mnu|'v691^f)<>'' then '9' else if &uf('Ksemo.mnu|'v691^f)<>'' then '0' fi fi )=&uf('Av1001#1') then /* семестр пройден if &uf('Av1015#1')='' or &uf('Av1015#1')='O' and v691^G: 'осн' or &uf('Av1015#1')='D' and v691^G: 'доп' then /* тип литературы /* студенты НЕ филиала НЕ выделенной кат if &uf('Av1006#1')='' then /* студенты вместе с заочниками if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(&uf('Ag11#1'),&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,, if p(v691^C) then if ( &uf('Ag1011#1')='1' ) then if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,, fi, if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi, if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi, if s(&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi, fi,,,, fi, if ( &uf('Ag1012#1')='1' ) then if p(v691^N) then |"NAPR=|v691^N|"|,if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,,,, if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"| if s(&uf('Ag8#1'),,&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,, if ( &uf('Ag1008#1')='1' ) then if p(v691^v) then '"VO=',,v691^v,,'"',if s(&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi, else if &uf('+97',v691^O)='З/О' then else /* студенты незаочники if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi, if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(&uf('Ag11#1'),&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,, if p(v691^C) then if ( &uf('Ag1011#1')='1' ) then if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,, fi, if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi, if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi, if s(&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi, fi,,,, fi, if ( &uf('Ag1012#1')='1' ) then if p(v691^N) then |"NAPR=|v691^N|"|,if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,,, if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi, fi, fi, fi, fi, fi, else if &uf('Av1003#1')<>'' then if &uf('+97',v691^L)=&uf('Av1003#1') then /* для филиала if &uf('Av1002#1')='' or s(|!^A|v691^A|!|,,|!^V|v691^V|!|,,|!^O|v691^O|!|,,|!^N|v691^N|!|,,|!^C|v691^C|!|,,|!^F|v691^F|!|,,|!^I|v691^I|!|,,|!^S|v691^S|!|,,|!^B|v691^B|!|,,): s('!',&uf('Av1002#1'),'!') then if ( &uf('Ag1010#1')='' ) or ( &uf('Ag1010#1')='0' ) or s( if &uf('Ksemv.mnu|'v691^f)<>'' then '9' else if &uf('Ksemo.mnu|'v691^f)<>'' then '0' fi fi )=&uf('Av1001#1') then /* семестр пройден if &uf('Av1015#1')='' or &uf('Av1015#1')='O' and v691^G: 'осн' or &uf('Av1015#1')='D' and v691^G: 'доп' then /* тип литературы /* студенты филиала НЕ фонда if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi, if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(&uf('Ag11#1'),&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,, if p(v691^C) then if ( &uf('Ag1011#1')='1' ) then if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,, fi, if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi, if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi, if s(&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi, fi,,, fi, if ( &uf('Ag1012#1')='1' ) then if p(v691^N) then |"NAPR=|v691^N|"|,if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,,, if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi, fi, fi, fi, fi, fi, fi, else /* студенты выделенной категории if &uf('Av1003#1')='' then if &uf('Av1002#1')='' or s(|!^A|v691^A|!|,,|!^V|v691^V|!|,,|!^O|v691^O|!|,,|!^N|v691^N|!|,,|!^C|v691^C|!|,,|!^F|v691^F|!|,,|!^I|v691^I|!|,,|!^S|v691^S|!|,,|!^B|v691^B|!|,,): s('!',&uf('Av1002#1'),'!') then if ( &uf('Ag1010#1')='' ) or ( &uf('Ag1010#1')='0' ) or s( if &uf('Ksemv.mnu|'v691^f)<>'' then '9' else if &uf('Ksemo.mnu|'v691^f)<>'' then '0' fi fi )=&uf('Av1001#1') then /* семестр пройден if &uf('Av1015#1')='' or &uf('Av1015#1')='O' and v691^G: 'осн' or &uf('Av1015#1')='D' and v691^G: 'доп' then /* тип литературы if &uf('Av1004#1')<>'' and v691: &uf('Av1004#1') then /* студенты фонда НЕ филиала if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi, if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(&uf('Ag11#1'),&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,, if p(v691^C) then if ( &uf('Ag1011#1')='1' ) then if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,, fi, if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi, if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi, if s(&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi, fi,, fi, if ( &uf('Ag1012#1')='1' ) then if p(v691^N) then |"NAPR=|v691^N|"|,if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,,, if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi, else if &uf('Av1004#1')='' then if &uf('Av1005#1')<>'' and v691: &uf('Av1005#1') then else /* студенты НЕ фонда остальные или общие if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi, if ( &uf('Ag1013#1')='1' ) then if p(v691^A) then |"FAK=|v691^A|"|,if s(&uf('Ag11#1'),&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,, if p(v691^C) then if ( &uf('Ag1011#1')='1' ) then if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then if v691^C: '.' then |"SPEC=|v691^C|"| else '"SPEC=',,,&uf('G0.',v691^C),,'$"' fi,, fi, if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"SPEC=',v691^C.4,'$"' else '"SPEC=',v691^C.6,'$"' fi fi, if val(&uf('Av1007#1'))=3 then |"SPEC=|v691^C|"| fi, if s(&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi, fi,,, fi, if ( &uf('Ag1012#1')='1' ) then if p(v691^N) then |"NAPR=|v691^N|"|,if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,,, if ( &uf('Ag1009#1')='1' ) then if p(v691^O) then |"FO=|v691^O|"|,if s(&uf('Ag8#1'),&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi,, if ( &uf('Ag1008#1')='1' ) then if p(v691^V) then '"VO=',v691^v,'"',if s(&uf('Ag10#1') )<>'' then ' (F) ' fi fi fi, if ( &uf('Ag1010#1')='1' ) then if v691^F<>'' then '"SEM=',,,v691^F,'"' fi fi, fi, fi, fi, fi, fi, fi, fi, fi, fi/)), &uf('+7G5'),,,,,,, (if g5<>'' then if g5<>s('"JZ=',&uf('AG7#1'),'"',,,,,,' * ') then G5 fi fi/)