/* Формат полного представления документов в 6 базах данных публикаций. Версия от 17.12.2020 13:00



&uf('+7W14#'), /* g14 - все повторения 899^i где есть обмен (^7) - ДП (i - 14-ая буква лат. алфавита)
&uf('+7W140#'),
&uf('+7U9821#'),
(if p(v982^7) and v982^7<>'' then,

        &uf('+7U14#', 
        

        
         if val(&uf('+95', v899^n))=4 then v899^n.2 '-'
           if val(&uf('+961*0.2#', v899^n))>21 then '19' else '20' fi
          &uf('+961*0.2#', v899^n)
         
           else if val(&uf('+95', v899^n))=3 then v899^n.1 '-' 
            if val(&uf('+961*0.2#', v899^n))>21 then '19' else '20' fi
            &uf('+961*0.2#', v899^n) else v899^n  fi fi
        /*v899^n   
        
            
        )


fi ),



,

,
&uf('+7W140#', 

(if p(v982) then &uf('Ag14#1') fi /

))



,



/*&uf('S0')
/*&uf('S', &uf('+N982')),

&uf('+7W3#') 


'{' 
&uf('+7W6#'), /* Чистим глоб.переменную g6

 (

''



if p(v982) then

&uf('+7U3#', &uf('+N982')) /* кол-во повторений 982

''if val(g3)>1 then  

'\par   '

 '\fs22\b# ' &uf('+90') 

 '   ------------------------------------------------------------------------------'  '\par' fi 

if a(v982^6) then,
&uf('+7U6#0')
else
&uf('+7U6#', v982^6) /* G6 - признак НП в тек. повторении 982
fi,

if p(v982^0) then
'\fi0\fs22\b0Вид патентного документа: \fs22\b' &uf('KVPATU.MNU\'v982^0) '\par\fs24\b0'
fi,


if p(v982^9) then

 '\fs22\b0Номер: \fs24\b ' v982^9  '\par'

fi,

if p(v982^s) then 
/*v982^s
        '\fi0\fs22\b0Страна: \fs22\b'  &uf('KSTR.MNU!'v982^s)  '\par\fi0'
fi,

if &uf('+D')='PUBLEA' then,
        &uf('+7U9821#', &UF('+9I!many_!//',V982^P)  )
fi,

if val(g6)<1 then ''
/*if v982:'many' then '1ssssssssssssss' else '0' fi,
if (not &uf('+D')='PUBLEA' and v982:'many') then,

if val(&uf('+95',v982^p))=8 then ''
/*        v982^p
     '\fi0\fs22\b0Дата публикации: \fs22\b ' v982^p*6.2 '.' v982^p*4.2 '.' v982^p.4  '\par'
else if p(v982^p) then
  /*   'Документ не опубликован' /
 '\fs22\b' if v982^p.5 <> 'error' then 
    v982^p fi,    '\par'
      fi,
fi, 
else ,


 '\fi0\fs22\b0Несколько дат публикации: \fs22\b  ', 
 &UF('+9I!many_!//',V982^P) ,   '\par'  /* !!! тупит со вложенными форматами &uf('6...') в формате полного представления!      &uf('6EA_many_dates') /
/* &UF('+9I!many_!//',V982^P) &uf('EA_many_dates')  
/* &uf('6EA_many_dates'), g9822
 

fi,


fi
,



if val(g6)=1then '\fs22\fi0\b'   'Не подлежит публикации'
/*g6_'g6'_'

'\par' 
fi,



if p(v463) and val(g6)=0 then

 '\fi0\fs22\b0Бюллетень публикации: '  '\fs22\b '  v463^v '-'  v463^j '\fs22\par'
fi 
,

if &uf('+D')='PUBLEA' and p(v982^m) then


'\fi0\fs22\b0Бюллетень публикации: \fs22\b ' if not(v982:'many') then  v982^m '-' v982^p.4 else &uf('+9I!many_!//',v982^m)    fi '\par'


fi,



if p(v982^7) AND v982^7<>'' then /* v982^7<>'' необходимо ввиду некорректного переноса Л.Н. поля v982^7, когда оно вместо отсутствия метки сделано с её присутствием и пустым полем
      '\fs22\bДо ' g140 ' - ' &uf('Kvpatu.mnu\', v982^7) ' СССР'/ '\par'
fi
''


fi,

''



if p(v982^i) and  v982^i<>'' then 
        '\par'
        '\fi0\fs22\b0'  v982^k '\fs22\b : ' v982^i
        '\par'
fi 

)

'\pard\li000'
if p(v300) then '\par'
 '\fs22\b0'  'Извещения:''\par\fi0' ( '    \fs22\b\fi0 ' v300  '\par')

fi &uf('+7W6#') &uf('+7W3#') &uf('+7W14#') &uf('+7W140#')
'}'

&UF('6TEST'), /* Если эту строку убрать, открывается нормально. Это вызов простого формата 'TEST'. В каталогизаторе Format Error 1