/* 1001 - признак полугодия 0 или 9
/* 1002 - признак отбора
/* 1012 - в чем искать признак отбора
/* 1003 - код филиала
/* 1004 - код выделенного фонда вместе с идентификатором подполя 
/* 1005 - код выделенного фонда вместе с идентификатором подполя для остальных-общих
/* 1007 - признак 3 - точное совпадение специальностей
/*                2  - совпадение 4-х цифр, если 5-я и 6-я 00
/*                1 или пусто - совпадение 6-ти цифр
/* 1008 - признак НЕ учитывания вида обучения (0 - не учитывать)
/* 1009 - признак НЕ учитывания формы обучения (0 - не учитывать)
/* 1010 - признак НЕ учитывания семестра (0 - не учитывать)
/* 1011 - признак НЕ учитывания специальности (0 - не учитывать)
/* 1012 - признак НЕ учитывания направления (0 - не учитывать)
/* 1013 - признак НЕ учитывания факультета (0 - не учитывать)
/* 1014 - признак НЕ учитывания группы (0 - не учитывать)

&uf('+7W5#',
(if p(v691) and a(v691^U) 
 then 
/* учет языка 
   if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi, 
   if &uf('AG7#1')<>'' then '"JZ=',&uf('AG7#1'),'"',,,,,,' * ' fi,   
/* вместо полей гл. переменные, 691^V - G8
   &uf('+7W8#',if &uf('Av1008#1')='' or val(&uf('Av1008#1'))=1 then v691^V fi),,,
   &uf('+7W9#',if &uf('Av1009#1')='' or val(&uf('Av1009#1'))=1 then v691^O fi),,,
   &uf('+7W10#',if &uf('Av1010#1')='' or val(&uf('Av1010#1'))=1 then v691^F fi),,,
   &uf('+7W11#',if &uf('Av1011#1')='' or val(&uf('Av1011#1'))=1 then v691^C fi),,,
   &uf('+7W12#',if &uf('Av1012#1')='' or val(&uf('Av1012#1'))=1 then v691^N fi),,,
   &uf('+7W13#',if &uf('Av1013#1')='' or val(&uf('Av1013#1'))=1 then v691^A fi),,,
   &uf('+7W14#',if &uf('Av1014#1')<>'' and val(&uf('Av1014#1'))=1 then v691^E 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,): &uf('Av1002#1') 
       then 
/* выполнено условие отбора
         if s(if val(v691^F)=0 or f(val(f((val(v691^F) / 2),0,0))-val(f((val(v691^F) / 2),0,2)),0,2)<>'' then '0' else '9' fi)=&uf('Av1001#1') or 
            &uf('AG10#1')='' 
         then 
/* то полугодие
             if &uf('Ag14#1')<>''  
             then 
/* для связи номер группы
               |"GR=|v691^E|"|,,
             else 
               if &uf('Ag13#1')<>''  
               then |"FAK=|v691^A|"|,
                 if s(&uf('Ag11#1'),&uf('Ag12#1'),&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10
3#1'))<>'' 
                 then ' (F) ' 
               fi fi,
               if &uf('Ag11#1')<>''  
               then 
                 if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then '"SPEC=',v691^C.6,'$"' 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,
               if a(v691^C) and p(v691^n) and &uf('Ag12#1')<>'' 
               then 
                 |"NAPR=|v691^N|"|,
                 if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1'))<>'' then ' (F) ' 
               fi fi,
               if &uf('Ag9#1')<>''  
               then 
                 |"FO=|v691^O|"|,if s(&uf('Ag8#1'),&uf('Ag10#1'))<>'' then ' (F) ' 
               fi fi,
               if &uf('Ag8#1')<>''  
               then 
                 |"VO=|v691^V|"|,if &uf('Ag10#1')<>'' then ' (F) ' 
               fi fi,
               if &uf('Ag10#1')<>'' then |"SEM=|v691^F|"| fi,
             fi,    
         fi, 
       fi, 
     else 
       if &uf('Av1003#1')<>'' then 
/* филиал
         if &uf('+97',v691^L)=&uf('Av1003#1') 
         then 
           if &uf('Av1002#1')='' or v691: &uf('Av1002#1') 
           then 
             if s(if f(val(f((val(v691^F) / 2),0,0))-val(f((val(v691^F) / 2),0,2)),0,2)<>'' then '0' else '9' fi)=&uf('Av1001#1') or 
                &uf('AG10#1')='' 
             then 
/* студенты филиала НЕ фонда             
               if &uf('Ag14#1')<>''  
               then 
/* для связи номер группы
                 |"GR=|v691^E|"|,,
               else 
                 if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi,
                 if &uf('Ag13#1')<>''  
                 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,
                 if &uf('Ag11#1')<>''  
                 then 
                   if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then '"SPEC=',v691^C.6,'$"' 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,
                 if &uf('Ag12#1')<>'' and a(v691^C) and p(v691^n) 
                 then 
                   |"NAPR=|v691^N|"|,
                   if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1'))<>'' then ' (F) ' 
                 fi fi,
                 if &uf('Ag9#1')<>''  
                 then 
                   |"FO=|v691^O|"|,
                   if s(&uf('Ag8#1'),&uf('Ag10#1'))<>'' then ' (F) ' 
                 fi fi,
                 if &uf('Ag8#1')<>''  
                 then 
                   |"VO=|v691^V|"|,
                   if &uf('Ag10#1')<>'' then ' (F) ' 
                 fi fi,   
                 if &uf('Ag10#1')<>'' then |"SEM=|v691^F|"| fi,
               fi,
             fi,
           fi,
         fi,  
       fi,
     fi,  
   else 
/* студенты выделенной категории    
     if &uf('Av1003#1')='' 
     then 
       if &uf('Av1002#1')='' or v691: &uf('Av1002#1') 
       then 
         if s(if f(val(f((val(v691^F) / 2),0,0))-val(f((val(v691^F) / 2),0,2)),0,2)<>'' then '0' else '9' fi)=&uf('Av1001#1') or 
            &uf('AG10#1')='' 
         then 
           if &uf('Av1004#1')<>'' and v691: &uf('Av1004#1') 
           then 
/* студенты фонда НЕ филиала   
             if &uf('Ag14#1')<>''  
             then 
/* для связи номер группы
               |"GR=|v691^E|"|,,
             else 
               if v691^I: ':' then &uf('+7W7#',&uf('G2:',v691^I)) else &uf('+7W7#') fi,
               if &uf('Ag13#1')<>''  
               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,
               if &uf('Ag11#1')<>''  
               then 
                 if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then '"SPEC=',v691^C.6,'$"' 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,
               if &uf('Ag12#1')<>'' and a(v691^C) and p(v691^n) 
               then 
                 |"NAPR=|v691^N|"|,
                 if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1'))<>'' 
                 then ' (F) ' 
               fi fi,
               if &uf('Ag9#1')<>''  
               then 
                 |"FO=|v691^O|"|,
                 if s(&uf('Ag8#1'),&uf('Ag10#1'))<>'' then ' (F) ' 
               fi fi,
               if &uf('Ag8#1')<>''  
               then 
                 |"VO=|v691^V|"|,
                 if s(&uf('Ag10#1'))<>'' then ' (F) ' 
               fi fi,
               if &uf('Ag10#1')<>'' then |"SEM=|v691^F|"| fi,
             fi,
           else 
             if &uf('Av1004#1')='' 
             then 
               if &uf('Av1005#1')<>'' and v691: &uf('Av1005#1') 
               then 
               else 
/* студенты НЕ фонда остальные или общие
                 if &uf('Ag14#1')<>''  
                 then 
/* для связи номер группы
                   |"GR=|v691^E|"|,,
                 else 
                   if v691^I: ':' 
                   then &uf('+7W7#',&uf('G2:',v691^I)) 
                   else &uf('+7W7#') 
                   fi,
                   if &uf('Ag13#1')<>''  
                   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,
                   if &uf('Ag11#1')<>''  
                   then 
                     if val(&uf('Av1007#1'))=1 or 
                        val(&uf('Av1007#1'))=0 
                     then  '"SPEC=',v691^C.6,'$"' 
                     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,
                   if &uf('Ag12#1')<>'' and a(v691^C) and p(v691^n) 
                   then |"NAPR=|v691^N|"|,
                     if s(&uf('Ag9#1'),&uf('Ag8#1'),&uf('Ag10#1'))<>'' 
                     then ' (F) ' 
                   fi fi,
                   if &uf('Ag9#1')<>''  
                   then 
                     |"FO=|v691^O|"|,
                     if s(&uf('Ag8#1'),&uf('Ag10#1'))<>'' 
                     then ' (F) ' 
                   fi fi,
                   if &uf('Ag8#1')<>''  
                   then 
                     |"VO=|v691^V|"|,
                     if  &uf('Ag10#1')<>'' then ' (F) ' 
                   fi fi,
                   if &uf('Ag10#1')<>'' then |"SEM=|v691^F|"| fi,
                 fi,
               fi,
             fi,
           fi,
         fi, 
       fi,    
     fi,  
   fi,
 fi/)),
&uf('+7G5'),,,,,,,,,(G5/)