' 
\trowd \trqc\trgaph108\trleft-108\trkeep 
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx461 
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx1779 
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx2745 
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx6007 
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx6707
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx7907
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx8907
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx9607
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx10807
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx11707
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx12407
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx13107
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx14307
\clbrdrt\brdrs\brdrw15\clbrdrl\brdrs\brdrw15\clbrdrb\brdrs\brdrw15\clbrdrr\brdrs\brdrw15 
\cellx15007
\pard \fs20 \qc\widctlpar\intbl {##\cell } 
\pard \qc\widctlpar\intbl {',,
/*---inv nom 
if v940^v:v991^A or v940^W: v991^B 
then 
(if p(v940) 
 then 
    if &uf('Av991^A#1')<>'' and &uf('+97',&uf('Av991^A#1'))=&uf('+97',v940^v)  or 
       &uf('Av991^B#1')<>'' and &uf('+97',&uf('Av991^B#1'))=&uf('+97',v940^w) 
    then if p(v940^b) then v940^b else v940^h fi '\par ' 
    fi 
 fi),,
fi,,
'\cell } 
\pard \qc\widctlpar\intbl {' 
/*---MHR
if v940^v:v991^A or v940^W: v991^B 
then 
(if p(v940) 
 then 
    if &uf('Av991^A#1')<>'' and &uf('+97',&uf('Av991^A#1'))=&uf('+97',v940^v)  or 
       &uf('Av991^B#1')<>'' and &uf('+97',&uf('Av991^B#1'))=&uf('+97',v940^w) 
    then v940^d '\par ' 
    fi 
 fi),,
fi,,
'\cell } \pard \ql\widctlpar\intbl {' 
/*---BO
if rsum((if'2 7':v910^a then'0;'else|1;|d910 fi/))>0 then 
if v920:'NJ'then ref(l(|I=|v933),mhl,v200^a,". "v923^h,". "v923^k,mpl)," - "v934" г.",
" т."v935,",N "v936 
else mhl,v461^x| |,v461^c," ; "v200^v, 
if p(v200^v) then" : "d200^a fi, 
v700^a," "v700^b," "d700,v200^a, 
if p(v215^a) then". - "v215^a,if p(v215^1) then if v215^1:'=' then ' '&uf('G2='v215^1) else ' 'v215^1 fi fi, 
if a(v215^1) then &unifor('Korg.mnu|4')'.'fi fi 
fi fi,mpl,,,,
'\cell } \pard \qr\widctlpar\intbl {'
/*---Out 
if v940^v:v991^A or v940^w:v991^B 
then 
   f(rsum((
   if p(v940) 
   then 
      if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
         &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
      then 
f(val(v940^x|;|,|1;|n940^x,' 0'),0,0)else '0;'fi fi/)),0,0)fi,'\cell } 
\pard \qr\widctlpar\intbl {' 
/*---SUM
if v940^v:v991^A or v940^W: v991^B 
then 
f(rsum(
(if p(v940) 
 then 
    if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
       &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
    then 
       if p(v940^e)then 
          if p(v940^c)then 
             if &unifor('Kizc.mnu|'v940^c.6)<>''then 
                f(val(f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1;|n940^x,' 0')),0,2)
             else 
                if &unifor('Kizc.mnu|'v940^c.4)<>''then 
                  f(val(f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*val(v940^x,|1;|n940^x,' 0'),0,2)
                else f(val(f(val(v940^e|;|)*val(&unifor('Kizc.mnu|1980')),0,2))*val(v940^x,|1;|n940^x,' 0'),0,2)
             fi fi 
          else f(val(v940^e|;|)*val(v940^x,|1;|n940^x,' 0'),0,2) 
          fi 
       else 
          if p(v940^c) then 
             if &unifor('Kizc.mnu|'v940^c.6)<>'' then 
                f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*val(v940^x,|1;|n940^x,' 0'),0,2)';',
             else 
                if &unifor('Kizc.mnu|'v940^c.4)<>'' then 
                   f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*val(v940^x,|1;|n940^x,' 0'),0,2)';' 
                else 
                   f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980')),0,2))*val(v940^x,|1;|n940^x,' 0'),0,2)';',
             fi fi 
          else f(val(&unifor('Av10^d#1'),' 0')*val(v940^x,|1;|n940^x,' 0'),0,2)';',
       fi fi 
    fi 
 fi/)),0,2),,,
fi,,,
'\cell } \pard \qr\widctlpar\intbl {' 
/*---KSU
v991^A,,,
if v991^A='' and v991^B<>'' and v940^W: v991^B  
then 
   (if p(v940) 
    then 
      if &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
      then v940^V,break 
      fi,,
    fi/)
fi,,,,,,,,,,
'\cell } \pard \qr\widctlpar\intbl {' 
/*---Move - всего передано
if v940^v:v991^A or v940^W: v991^B 
then 
   f( 
      rsum((
      if p(v940) 
      then 
         if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
            &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
         then 
            if v940^a:'6' then if p(v940^w)then'1;'else'0;'fi else'0;'fi fi 
      fi/)) + 
      rsum((
          if p(v940) 
          then 
             if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
                &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
             then 
                 if p(v940^z) then f(val(v940^z|;|,' 0'),0,0)else'0;'fi else '0;'fi 
          fi/)),0,0
      ),,,,,
fi,,,,
'\cell } \pard \qr\widctlpar\intbl {' 
/*---SUM - на сумму передано
if v940^v:v991^A or v940^W: v991^B 
then 
   f(rsum((
      if p(v940) 
      then 
         if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
            &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
         then 
            if v940^a:'6' and p(v940^w)then 
            if p(v940^e) then 
            if p(v940^c) then 
            if &unifor('Kizc.mnu|'v940^c.6)<>'' then 
            f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.6)),0,2)'\par ' 
            else 
               if &unifor('Kizc.mnu|'v940^c.4)<>'' then 
               f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.4)),0,2)'\par ' 
               else 
                  f(val(v940^e|;|)*val(&unifor('Kizc.mnu|1980')),0,2)'\par ' 
               fi fi 
         else f(val(v940^e|;|),0,2)'\par 'fi 
         else 
         if p(v940^c)then 
if &unifor('Kizc.mnu|'v940^c.6)<>''then 
f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6)),0,2)';','\par ' 
else 
if &unifor('Kizc.mnu|'v940^c.4)<>'' then 
f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4)),0,2)';','\par ' 
else 
f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980')),0,2)';','\par ' 
fi fi 
else f(val(&unifor('Av10^d#1'),' 0'),0,2)';','\par 'fi fi fi fi fi/)) + 
rsum((if p(v940^v)
           then 
              if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
                 &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
              then 
                 if v940^a:'6'then else 
if p(v940^e)then if p(v940^c)then if &unifor('Kizc.mnu|'v940^c.6)<>''then 
f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.6))*val(v940^z,' 0'),0,2)'\par ' 
else 
if &unifor('Kizc.mnu|'v940^c.4)<>''then 
f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.4))*val(v940^z,' 0'),0,2)'\par ' 
else 
f(val(v940^e|;|)*val(&unifor('Kizc.mnu|1980'))*val(v940^z,' 0'),0,2)'\par ' 
fi fi 
else 
f(val(v940^e|;|)*val(v940^z,' 0'),0,2)'\par ' fi 
else 
if p(v940^c) then if &unifor('Kizc.mnu|'v940^c.6)<>'' then 
f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6))*val(v940^z,' 0'),0,2)';','\par ', 
else 
if &unifor('Kizc.mnu|'v940^c.4)<>'' then 
f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4))*val(v940^z,' 0'),0,2)';','\par ', 
else 
f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980'))*val(v940^z,' 0'),0,2)';','\par ', 
fi fi 
else 
f(val(&unifor('Av10^d#1'),' 0')*val(v940^z,' 0'),0,2)';','\par ',fi fi fi fi fi/)),0,2)fi,'\cell } 
\pard \qc\widctlpar\intbl {' 
/*---AktMove-n номер акта передачи
v991^B,,,
if v991^B='' and v991^A<>'' and v940^V: v991^A  
then 
   (if p(v940) 
    then 
      if &uf('Av991^A#1')<>'' and &uf('+97',v940^V)=&uf('+97',&uf('Av991^A#1')) 
      then v940^W, 
      fi,,
    fi/),,,
fi,,,,,,,,,,
'\cell } \pard \qr\widctlpar\intbl {' 
/*---New MHR - новое место храненя
if v940^v:v991^A or v940^W: v991^B 
then
  (if p(v940) 
   then 
      if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
         &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
      then 
         if p(v940^m)then v940^m else' 'fi'\par '
   fi fi)fi,'\cell } 
\pard \qr\widctlpar\intbl {' 
if v940^v:v991^A or v940^W: v991^B 
then 
   f(rsum(
      (if p(v940) 
       then 
         if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
            &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
         then 
       if v940^a:'6' and p(v940^w) then else f(val(v940^x,|1|n940^x,' 0')-val(v940^z,|0|n940^z,' 0'),0,0),';' 
 fi fi fi/)),0,0)
fi,,,,
'\cell } \pard \qr\widctlpar\intbl {' 
if v940^v:v991^A or v940^W: v991^B 
then 
   f(rsum(
   (if p(v940) 
    then 
         if &uf('Av991^A#1')<>'' and &uf('+97',v940^v)=&uf('+97',&uf('Av991^A#1')) or 
            &uf('Av991^B#1')<>'' and &uf('+97',v940^w)=&uf('+97',&uf('Av991^B#1')) 
       then 
       if v940^a:'6' and p(v940^w) then 
       else  
          if p(v940^e)then 
             if p(v940^c)then 
                if &unifor('Kizc.mnu|'v940^c.6)<>''then 
                 f(val(f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,' 0')),0,2)'\par '
                else 
                   if &unifor('Kizc.mnu|'v940^c.4)<>''then 
                 f(val(f(val(v940^e|;|)*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,' 0')),0,2)'\par '
                   else f(val(f(val(v940^e|;|)*val(&unifor('Kizc.mnu|1980')),0,2))*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,' 0')),0,2)'\par '
                fi fi 
             else f(val(v940^e|;|)*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,|0;|n940^z,' 0')),0,2)'\par ' 
             fi 
          else 
             if p(v940^c) then 
                if &unifor('Kizc.mnu|'v940^c.6)<>'' then 
                f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.6)),0,2))*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,' 0')),0,2)';',
                else 
                   if &unifor('Kizc.mnu|'v940^c.4)<>'' then 
                f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|'v940^c.4)),0,2))*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,' 0')),0,2)';' 
                   else 
                f(val(f(val(&unifor('Av10^d#1'),' 0')*val(&unifor('Kizc.mnu|1980')),0,2))*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,' 0')),0,2)';',
                fi fi 
             else f(val(&unifor('Av10^d#1'),' 0')*(val(v940^x,|1;|n940^x,' 0')-val(v940^z,|0;|n940^z,' 0')),0,2)';',
 fi fi fi fi fi/)),0,2)'\par ',,
fi,,,,
'\cell } ',,,,,,,,,,,,,,,,,,,,,,,

' \pard \qr\widctlpar\intbl {',,,,
v60+|, |,,,,,
'\cell } ',,,,

,,,,,,,,,,,,,,,,,,,,,,,,'\pard \widctlpar\intbl {\b \row }\pard \qc\widctlpar'