/* запрос на кол-во студентов по БД VUZ
/* 1001 - признак полугодия 0 или 9
/* 1002 - признак отбора
/* 1003 - код филиала
/* 1004 - код выделенного фонда вместе с идентификатором подполя 
/* 1005 - код выделенного фонда вместе с идентификатором подполя для остальных-общих
/* 1007 - признак 3 - точное совпадение специальностей
/*                2  - совпадение 4-х цифр, если 5-я и 6-я 00
/*                1 или пусто - совпадение 6-ти цифр
/* 1008 - признак НЕ учитывания вида обучения (1 - не учитывать)
/* 1015 - O - если для основной; D - если для дополнительной

&uf('+7W5#',
(if p(v691) and a(v691^U)  
 then 
/* вместо 691^V использую G8
   &uf('+7W8#',if val(&uf('Av1008#1'))=1 then else v691^V fi),,,
   if &uf('Av1004#1')='' and &uf('Av1005#1')='' 
   then 
     if &uf('Av1003#1')='' and a(v691^L) 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') then 
/* студенты НЕ филиала НЕ выделенной кат 
           if &uf('Av1015#1')='' or &uf('Av1015#1')='O' and v691^G: 'осн' or &uf('Av1015#1')='D' and v691^G: 'доп' 
           then 
             if p(v691^A) then |"VFAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
             if p(v691^C) 
             then 
               if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then '"VSPEC=',v691^C.6,'$"' fi,
               if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"VSPEC=',v691^C.4,'$"' else '"VSPEC=',v691^C.6,'$"' fi fi,
               if val(&uf('Av1007#1'))=3 then |"VSPEC=|v691^C|"| fi,               
               if s(v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi 
             fi,
             if a(v691^C) and p(v691^n) then |"VNAPR=|v691^N|"|,if s(v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
             if p(v691^O) then |"VFO=|v691^O|"|,if s(&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
             if &uf('Ag8#1')<>'' then |"VVO=|v691^V|"|,if s(v691^f)<>'' then ' (F) ' fi fi,
             if p(v691^F) then |"VSEM=|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') then 
/* студенты филиала НЕ фонда             
               if &uf('Av1015#1')='' or &uf('Av1015#1')='O' and v691^G: 'осн' or &uf('Av1015#1')='D' and v691^G: 'доп' 
               then 
                 if p(v691^A) then |"VFAKF=|v691^A|"|,if s(v691^C,v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
                 if p(v691^C) 
                 then 
                   if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then '"VSPEC=',v691^C.6,'$"' fi,
                   if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"VSPEC=',v691^C.4,'$"' else '"VSPEC=',v691^C.6,'$"' fi fi,
                   if val(&uf('Av1007#1'))=3 then |"VSPEC=|v691^C|"| fi,               
                   if s(v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi 
                 fi,
                 if a(v691^C) and p(v691^n) then |"VNAPR=|v691^N|"|,if s(v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
                 if p(v691^O) then |"VFO=|v691^O|"|,if s(&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
                 if &uf('Ag8#1')<>'' then |"VVO=|v691^V|"|,if s(v691^f)<>'' then ' (F) ' fi fi,   
                 if p(v691^F) then |"VSEM=|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') then 
           if &uf('Av1004#1')<>'' and v691: &uf('Av1004#1') then 
/* студенты фонда НЕ филиала   
             if &uf('Av1015#1')='' or &uf('Av1015#1')='O' and v691^G: 'осн' or &uf('Av1015#1')='D' and v691^G: 'доп' 
             then 
               if p(v691^A) then |"VFAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
               if p(v691^C) 
               then 
                 if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then '"VSPEC=',v691^C.6,'$"' fi,
                 if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"VSPEC=',v691^C.4,'$"' else '"VSPEC=',v691^C.6,'$"' fi fi,
                 if val(&uf('Av1007#1'))=3 then |"VSPEC=|v691^C|"| fi,               
                 if s(v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi 
               fi,
               if a(v691^C) and p(v691^n) then |"VNAPR=|v691^N|"|,if s(v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
               if p(v691^O) then |"VFO=|v691^O|"|,if s(&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
               if &uf('Ag8#1')<>'' then |"VVO=|v691^V|"|,if s(v691^f)<>'' then ' (F) ' fi fi,
               if p(v691^F) then |"VSEM=|v691^F|"| fi,
             fi,  
           else 
             if &uf('Av1004#1')='' 
             then 
               if &uf('Av1005#1')<>'' and v691: &uf('Av1005#1') then else 
/* студенты НЕ фонда остальные или общие
                 if &uf('Av1015#1')='' or &uf('Av1015#1')='O' and v691^G: 'осн' or &uf('Av1015#1')='D' and v691^G: 'доп' 
                 then 
                   if p(v691^A) then |"VFAK=|v691^A|"|,if s(v691^C,v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
                   if p(v691^C) 
                   then 
                     if val(&uf('Av1007#1'))=1 or val(&uf('Av1007#1'))=0 then '"VSPEC=',v691^C.6,'$"' fi,
                     if val(&uf('Av1007#1'))=2 then if v691^C*4.2='00' then '"VSPEC=',v691^C.4,'$"' else '"VSPEC=',v691^C.6,'$"' fi fi,
                     if val(&uf('Av1007#1'))=3 then |"VSPEC=|v691^C|"| fi,               
                     if s(v691^n,v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi 
                   fi,
                   if a(v691^C) and p(v691^n) then |"VNAPR=|v691^N|"|,if s(v691^o,&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
                   if p(v691^O) then |"VFO=|v691^O|"|,if s(&uf('Ag8#1'),v691^f)<>'' then ' (F) ' fi fi,
                   if &uf('Ag8#1')<>'' then |"VVO=|v691^V|"|,if s(v691^f)<>'' then ' (F) ' fi fi,
                   if p(v691^F) then |"VSEM=|v691^F|"| fi,
                 fi,   
               fi,
             fi,
           fi,
         fi, 
       fi,    
     fi,  
   fi,
 fi/)),
&uf('+7W6#',G5+| + |),mhu,G6/