/*-----Версия 2015, проверка создания новой записи

if val(&uf('IMAIN,LinkGroup,0'))=1 
then 
/*-------это условие отвергнутого варианта пео группам
   if &unifor('Av932^E#1')<>'' and val(&unifor('JVUZ,VGR=',&unifor('Av932^E#1')))<=0 
   then 
      '1' 
   else 
   fi,,
else 
/*---------есть ли в словаре термин на данный контингент?
   if val(&unifor('JVUZ,?',
                    if &unifor('Av932^a#1')<>'' then &unifor('Av932^a#1'),'-' fi,,
                    if &unifor('Av932^n#1')<>'' then &unifor('Av932^n#1'),'-' fi,,
                    if &unifor('Av932^c#1')<>'' then &unifor('Av932^c#1'),'-' fi,,
                    if &unifor('Av932^v#1')<>'' then &unifor('Av932^v#1'),'-' fi,,
                    if &unifor('Av932^o#1')<>'' then &unifor('Av932^o#1'),'-' fi,,
                    if &unifor('Av932^f#1')<>'' then &unifor('Av932^f#1'),'-' fi))<=0 
   then  
/*---------термина нет, поэтому 1 - создание новой записи 
      '1' 
   else 
/*--------термин есть, но возможен вариант: полеA-12345-полеV-полеO-полеF. Непонятно, 12345 - это направление или специальность?
/*--------поэтому в G10 кладу все поля 68
       &uf('+7W10#',
             &uf('7VUZ,!?',
                  if &unifor('Av932^a#1')<>'' then &unifor('Av932^a#1'),'-' fi,,
                  if &unifor('Av932^n#1')<>'' then &unifor('Av932^n#1'),'-' fi,,
                  if &unifor('Av932^c#1')<>'' then &unifor('Av932^c#1'),'-' fi,,
                  if &unifor('Av932^v#1')<>'' then &unifor('Av932^v#1'),'-' fi,,
                  if &unifor('Av932^o#1')<>'' then &unifor('Av932^o#1'),'-' fi,,
                  if &unifor('Av932^f#1')<>'' then &unifor('Av932^f#1'),'-' fi,,'!,mpu,(v68/)')
          ),,,,,
/*-------потом проверяю их на принадлежность полю N или C
          if rsum((if p(G10) 
                   then 
                     if ( G10^A=&uf('Av932^A#1') or s(G10^A,&uf('Av932^A#1'))='' ) and 
                        ( G10^N=&uf('Av932^N#1') or s(G10^N,&uf('Av932^N#1'))='' ) and 
                        ( G10^C=&uf('Av932^C#1') or s(G10^C,&uf('Av932^C#1'))='' ) and 
                        ( G10^O=&uf('Av932^O#1') or s(G10^O,&uf('Av932^O#1'))='' ) and 
                        ( G10^V=&uf('Av932^V#1') or s(G10^V,&uf('Av932^V#1'))='' ) and 
                        ( val(G10^F)=val(&uf('Av932^F#1')) or s(G10^F,&uf('Av932^F#1'))='' )  
                     then 
                        '1,' fi fi))=0 
          then 
/*-------- результирующее условие - новую запись создавать
            '1' 
          fi,,,,,,,
   fi 
fi