/* старый вариант

if v991^A<>'' and s('!',v991^A,'!'): s('!',v90^A,'!') or 
   v991^A='' 
then 
  if v991^B<>'' and s('!',v991^B,'!'): s('!',v90^O,'!') or 
     v991^B='' 
  then 
    if v991^C<>'' and s('!',v991^C,'!'): s('!',v90^C,'!') or 
       v991^C='' 
    then 
      if v991^D='' or 
         v991^D<>'' and val(v991^D)=val(v90^F) 
      then 
        if rsum((if p(v40) 
                 then 
                   if v40^F: '*****' and val(v40^E)<val(&unifor('3')) 
                   then '1,' 
                   else '0,' 
                   fi 
                 fi))>0 
        then 
          '^A',
          if p(v90^O) 
          then 
            v90^O 
          else '-' 
          fi,
          '^B',
          if p(v90^A) 
          then v90^A 
          else '-' 
          fi,,,
          if v991^A<>'' 
          then '^C',v991^A 
          fi,
          if v991^B<>'' 
          then 
            '^D',v991^B 
          fi 
        fi 
      fi 
    fi 
  fi 
fi,
/* новый вариант

&uf('+7W5#'),,,
if p(v90) 
then 
  (if p(v90) 
   then 
     if &uf('Av991#1')<>'' 
     then
       if &uf('Av991^A#1')<>'' and &uf('+97',&uf('Av991^A#1'))=&uf('+97',v90^A) 
or 
          &uf('Av991^A#1')='' 
       then
         if &uf('Av991^B#1')<>'' and 
&uf('+97',&uf('Av991^B#1'))=&uf('+97',v90^O) or 
            &uf('Av991^B#1')='' 
         then 
           if &uf('Av991^C#1')<>'' and val(&uf('Av991^C#1'))=val(v90^C) or 
              &uf('Av991^C#1')=''  
           then 
             if &uf('Av991^C#1')<>'' and 
&uf('+97',&uf('Av991^C#1'))=&uf('+97',v90^C) or 
                &uf('Av991^C#1')='' 
             then 
               &uf('+7W5#1'),break,
             fi,
           fi,
         fi,
       fi,
     fi,
   fi/),
   if G5<>'' 
   then 
/* прошел отбор
     if rsum((if p(v40) 
              then 
                if v40^F: '*****' and val(v40^E)<val(&unifor('3')) 
                then '1,' 
                else '0,' 
                fi 
              fi))>0 
     then 
       '^A',
       if p(v90^O) then v90^O+|, | else '-' fi,
       '^B',
       if p(v90^A) then v90^A+|, | else '-' fi,,,
       if v991^A<>'' then '^C',v991^A  fi,
       if v991^B<>'' then '^D',v991^B  fi 
     fi 
   fi,
fi
/*------------------------------
&uf('+7W5#'),,,if p(v90) then (if p(v90) then if &uf('Av991#1')<>'' then if &uf('Av991^A#1')<>'' and &uf('+97',&uf('Av991^A#1'))=&uf('+97',v90^A) or &uf('Av991^A#1')='' then if &uf('Av991^B#1')<>'' and &uf('+97',&uf('Av991^B#1'))=&uf('+97',v90^O) or &uf('Av991^B#1')='' then if &uf('Av991^C#1')<>'' and val(&uf('Av991^C#1'))=val(v90^C) or &uf('Av991^C#1')='' then if &uf('Av991^C#1')<>'' and &uf('+97',&uf('Av991^C#1'))=&uf('+97',v90^C) or &uf('Av991^C#1')='' then &uf('+7W5#1'),break,fi,fi,fi,fi,fi,fi/),if G5<>'' then if rsum((if p(v40) then if v40^F: '*****' and val(v40^E)<val(&unifor('3')) then '1,' else '0,' fi fi))>0 then '^A',if p(v90^O) then v90^O+|, | else '-' fi,'^B',if p(v90^A) then v90^A+|, | else '-' fi,,,if v991^A<>'' then '^C',v991^A  fi,if v991^B<>'' then '^D',v991^B  fi fi fi,fi
------------В RdDolg - нескрлько повторений поля 90--------------------------------
mpu,if rsum((if p(v40) 
         then 
           if v40^F: '*****' and val(v40^E)<val(&unifor('3')) 
           then '1,' 
           else '0,' 
           fi 
         fi))>0 
then 
  (if p(v90) 
   then 
     if &uf('Av991^A#1')<>'' and &uf('Av991^A#1')=&uf('+97',v90^A) or 
        &uf('Av991^A#1')='' 
     then 
       if &uf('Av991^B#1')<>'' and &uf('Av991^B#1')=&uf('+97',v90^O) or 
          &uf('Av991^B#1')='' 
       then 
         if &uf('Av991^C#1')<>'' and &uf('Av991^C#1')=&uf('+97',v90^C) or 
            &uf('Av991^C#1')='' 
         then 
// ^A - фо из записи
           '^A',
           if v90^O<>'' then v90^O else '-' fi,     
// ^B - фкультет из записи
           '^B',
           if v90^A<>'' then v90^A else '-' fi,,,
           if &uf('Av991^A#1')<>'' 
           then 
// ^C - фо из опроса
             '^C',&uf('Av991^A#1') 
           fi,
           if &uf('Av991^B#1')<>'' 
           then 
// ^D - факультет из опроса
             '^D',&uf('Av991^B#1') 
           fi 
         fi 
       fi 
     fi 
   fi/),
fi,
--------------------------- 
mpu,if rsum((if p(v40) then if v40^F: '*****' and val(v40^E)<val(&unifor('3')) then '1,' else '0,' fi fi))>0 then (if p(v90) then if &uf('Av991^A#1')<>'' and &uf('Av991^A#1')=&uf('+97',v90^A) or &uf('Av991^A#1')='' then if &uf('Av991^B#1')<>'' and &uf('Av991^B#1')=&uf('+97',v90^O) or &uf('Av991^B#1')='' then if &uf('Av991^C#1')<>'' and &uf('Av991^C#1')=&uf('+97',v90^C) or &uf('Av991^C#1')='' then '^A',if v90^O<>'' then v90^O else '-' fi,'^B',if v90^A<>'' then v90^A else '-' fi,,,if &uf('Av991^A#1')<>'' then '^C',&uf('Av991^A#1') fi,if &uf('Av991^B#1')<>'' then '^D',&uf('Av991^B#1') fi,,,fi fi fi fi/),fi,
------------------
if v1^D='' 
then 
  "ФО-"v1^A,&uf('+7W11#'),&uf('+7W12#',V1),, 
fi,
if v1^C='' 
then " Фак.- "d1^B,&unifor('KFAK.mnu|',v1^B),&uf('+7W11#'),&uf('+7W12#',V1),, 
fi,,,,
------------------------
if v1^D='' then "ФО-"v1^A,&uf('+7W11#'),&uf('+7W12#',V1),,fi,if v1^C='' then " Фак.- "d1^B,&unifor('KFAK.mnu|',v1^B),&uf('+7W11#'),&uf('+7W12#',V1),,fi,,
------------------------