// ଠ  ⭮ ⪠    . 
#CLIN(N,4,0)=_(); #SIZL(N,4,0)=_(); 
$(_GT(+CLIN+12-SIZL)) 
  $LF 
$_ 
&GORTAB(N,4,0)=0; 
${(3.稥 ன) 
&prtn(N,2,0) =  0; // 0-       ⪠  , 1-
&nazv(N,2,0) =  1; // 0-⪮   -, 1- 
//    ନ஢ ப ⪠
&lmes(N,4,0) =  2; //  (祭     2)
&lkod(N,4,0) =  3; //  (祭     3)
&lsrc(N,4,0) =  1; // 筨 䨭஢
&lpod(N,4,0) =  0; // ࠧ
&lcom(N,4,0) =  0; // ᮢ⥫⢮
&lsub(N,4,0) =  0; // ꥪ
&lnaz(N,4,0) =  8; //  
&l_rv(N,4,0) =  7; // ࠡ祥 ६
&lsum(N,4,0) = 9; // 㬬
&lmni(N,4,0) =  1; // 
&sh(N,4,0)   =  0; //   ப ⪠ (᫨ 0 - 塞)
&l_tn(N,4,0) =  6; // ࠧ   ⠡쭮 
&lkat(N,4,0) =  2; // ࠧ   ⥣ਨ

$(_,68)  //     㬠  ண ⪠
$(_, );    //   ।⠢ 㫥 ࠡ祣 ६
#F(C,31,0)=R_Name(1); // ⠢ R_Name(1), ᫨     蠯
&(N,6,0)=0;  // ⠢ &(N,6,0)=1  뤥 㬬 .楢
#S(C,2,0)=R_String(  ); #OFICE(C,42,0)=R_String(); #PODR(N,7,0)=R_Face(podr); #NPodr(C,30,0)=_(PODR);
#T0(N,7,0)=R_Face(tn);
#DOLG(C,30,0)=R_Face(dolgnost);
&TN(N,7,0)=T0; #KAT(N,2,0)=R_Face(kat); &SUMOTPUV(N,12,@)=0;
&K(N,2,0)=KAT; #GOD(N,4,0)=(5); #MES(N,2,0)=(2); #MRASCH(C,8,0)=_(MES);
&1(N,9,@)=0;
&1(N,6,2)=0.00;
&2(N,9,@)=0;
&2(N,6,2)=0.00;
#1(N,9,@)=R_Summ(**,894);
#1(N,6,2)=R_Time("",894);
#2(N,9,@)=R_Summ(**,896);
#2(N,2,0)=R_Time("",896);
&(N,9,@)=0;
&(N,6,2)=0.00;
&(N,9,@)=2//1+2;
&(N,6,2)=2//1+2;
 ⮪
@2                                      @MRASCH  @GOD .
ࠧ:@PODR   @NPodr
: @F
  (⥣): @TN    (@K)
: @DOLG
          @                 ଠ   @
$}(3.稥 ன) 
// 
$BEG_SCRIPT 
 
int _sh = atoi(sh); 
 
if ( !_sh ) // 塞 ⮫쪮  ⮬ 砥, ᫨ sh   , .. ࠢ  
{ 
  int cProb = 0; 
 
  if ( lmes ) { _sh += lmes; cProb++; } 
  if ( lkod ) { _sh += lkod; cProb++; } 
  if ( lsrc ) { _sh += lsrc; cProb++; } 
  if ( lpod ) { _sh += lpod; cProb++; } 
  if ( lcom ) { _sh += lcom; cProb++; } 
  if ( lsub ) { _sh += lsub; cProb++; } 
  if ( l_rv ) { _sh += l_rv; cProb++; } 
  if ( lnaz ) { _sh += lnaz; } // ᫥   ஡ 
  if ( lsum ) { _sh += lsum; } // ᫥ 㬬  ஡ 
  if ( lmni ) { _sh += lmni; } // ᫥   ஡ 
 
  sh = _sh; 
  sh = sh + cProb; 
} 
 
GORTAB = sh * 2 + 1 -3; 
// ⠢  + 4 -3 
$END_SCRIPT 
$(_,@GORTAB)  //     㬠  ண ⪠ 
$BEG_SCRIPT 
 
  int Param[15]; 
 
  Param[0]  = atoi(lmes); 
  Param[1]  = atoi(lkod); 
  Param[2]  = atoi(lsrc); 
  Param[3]  = atoi(lpod); 
  Param[4]  = atoi(lcom); 
  Param[5]  = atoi(lsub); 
  Param[6]  = atoi(lnaz); 
  Param[7]  = atoi(l_rv); 
  Param[8]  = atoi(lsum); 
  Param[9]  = atoi(lmni); 
  Param[10] = atoi(sh); 
  Param[11] = atoi(l_tn); 
  Param[12] = atoi(lkat); 
  Param[13] = atoi(nazv); 
  Param[14] = atoi(prtn); 
 
 UnloadScriptModule("user\\check101"); 
 LoadScriptModule("user\\check101"); 
  MainCheck( Param ); 
 UnloadScriptModule("user\\check101"); 
 
$END_SCRIPT 
${(1.㬬  ஢ન /).  㬬  /. 
//$  //   ப   㬬  /. 
&FLSUMM(N,4,0)=1;  // 1 -  㬬 筨 믫, 2   㬬 
#(C,160,0)=R_String(1,7,15,16,301); // ᫨  ᪮ 㦭 㬬 
#REM001(C,35,0)=R_String( 室   ᪨);            // 1 
#REM002(C,35,0)=R_String(᭮ 室   ᪨);          // 2 
#REM003(C,35,0)=R_String(室  2- ⠡   ᪨);    // 3 
#REM007(C,35,0)=R_String(   㬬);                     // 7 
#REM008(C,35,0)=R_String(  ᭮ 㬬);                   // 8 
#REM009(C,35,0)=R_String(  㬬  2- ⠡);             // 9 
#REM011(C,35,0)=R_String(, ।  ᪠  );       // 11 
#REM012(C,35,0)=R_String(,㤥ঠ  ਮ)                // 12 
#REM013(C,35,0)=R_String(,㤥ঠ   ਮ)           // 13 
#REM014(C,35,0)=R_String(㬬 ⮢);                            // 14 
#REM015(C,35,0)=R_String(ᮭ );                      // 15 
#REM016(C,35,0)=R_String(  楢);                     // 16 
#REM032(C,35,0)=R_String(業  );                // 32 
#REM033(C,35,0)=R_String(㬬 ᪨  室);                   // 33 
#REM034(C,35,0)=R_String(㬬  3- ⠡);                     // 34 
#REM035(C,35,0)=R_String( 㬬  3- ⠡);          // 35 
#REM036(C,35,0)=R_String(㬬   3- ⠡);              // 36 
#REM037(C,35,0)=R_String(㬬 ⮢  室);                  // 37 
#REM038(C,35,0)=R_String(㬬 ⮢  2- ⠡);             // 38 
#REM039(C,35,0)=R_String(㬬 ⮢  3- ⠡);             // 39 
#REM041(C,35,0)=R_String( 室  ⮬ ᪨);             // 41 
#REM042(C,35,0)=R_String(᭮ 室  ⮬ ᪨);           // 42 
#REM043(C,35,0)=R_String(室  2- ⠡  ⮬ ᪨);     // 43 
#REM044(C,35,0)=R_String(室  3- ⠡  ⮬ ᪨);     // 44 
#REM045(C,35,0)=R_String( 㬬 ᭮ 室);        // 45 
#REM046(C,35,0)=R_String( 㬬  2- ⠡);          // 46 
#REM047(C,35,0)=R_String( 㬬  3- ⠡);          // 47 
#REM048(C,35,0)=R_String(  㬬);                   // 48 
#REM050(C,35,0)=R_String(室   ⮢);                // 50 
#REM063(C,35,0)=R_String(  ᭮ 室);               // 63 
#REM064(C,35,0)=R_String(  2- ⠡);                    // 64 
#REM065(C,35,0)=R_String(  3- ⠡);                    // 65 
#REM300(C,35,0)=R_String(ਠ쭠 );                      // 300 
#REM301(C,35,0)=R_String(  ਠ쭮 );            // 301 
#REM302(C,35,0)=R_String(ન);                                  // 302 
#REM303(C,35,0)=R_String(  ઠ);                       // 303 
#REM304(C,35,0)=R_String(ਧ);                                    // 304 
#REM305(C,35,0)=R_String(  ਧ);                         // 305 
#REM306(C,35,0)=R_String(    ᭮ 室);            // 306 
#REM307(C,35,0)=R_String(    /);                         // 307 
#REM308(C,35,0)=R_String(    室 ᮢ⥫);        // 308 
#REM309(C,35,0)=R_String(    / ᮢ⥫);           // 309 
#REM310(C,35,0)=R_String(  ந⥫⢮);                 // 310 
#REM507(C,35,0)=R_String(   㬬  );                // 507 
#REM508(C,35,0)=R_String(  ᭮ 㬬  );              // 508 
#REM509(C,35,0)=R_String(  㬬 p/  );                   // 509 
#REM511(C,35,0)=R_String(  ᪠    );              // 511 
#REM512(C,35,0)=R_String(ঠ   ਮ  );           // 512 
#REM513(C,35,0)=R_String(ঠ    ਮ  );      // 513 
  㬬  ஢ન /        ⥪..   . 
$}(1.㬬  ஢ન /).   㬬  /. 
// ⥬   㬬  / 
$ (_EQ(FLSUMM-1)) 
  #001(N,11,@ )=R_Tax(1,1,g,0,筨 믫,*,); 
$ 
  #001(N,11,@ )=R_Tax(1,1,g,0,*,*,); 
$_ 
#002(N,11,@ )=R_Tax(2);   #003(N,11,@ )=R_Tax(3); 
#007(N,11,@ )=R_Tax(7);   #008(N,11,@ )=R_Tax(8); 
#009(N,11,@ )=R_Tax(9);   #011(N,11,@ )=R_Tax(11); 
#012(N,11,@ )=R_Tax(12); 
#013(N,11,@ )=R_Tax(13);  #014(N,11,@ )=R_Tax(14); 
#015(N,11,@ )=R_Tax(15);  #016(N,11,@ )=R_Tax(16); 
#032(N,11,@ )=R_Tax(32);  #033(N,11,@ )=R_Tax(33); 
#034(N,11,@ )=R_Tax(34);  #035(N,11,@ )=R_Tax(35); 
#036(N,11,@ )=R_Tax(36);  #037(N,11,@ )=R_Tax(37); 
#038(N,11,@ )=R_Tax(38);  #039(N,11,@ )=R_Tax(39); 
#041(N,11,@ )=R_Tax(41);  #042(N,11,@ )=R_Tax(42); 
#043(N,11,@ )=R_Tax(43);  #044(N,11,@ )=R_Tax(44); 
#045(N,11,@ )=R_Tax(45);  #046(N,11,@ )=R_Tax(46); 
#047(N,11,@ )=R_Tax(47);  #048(N,11,@ )=R_Tax(48); 
#050(N,11,@ )=R_Tax(50);  #063(N,11,@ )=R_Tax(63); 
#064(N,11,@ )=R_Tax(64);  #065(N,11,@ )=R_Tax(65); 
#300(N,11,@ )=R_Tax(list,Summa,2760,0,503,1," "); 
#301(N,11,@ )=R_Tax(list,RealDiscount,2760,0,503,1," "); 
#302(N,11,@ )=R_Tax(list,Summa,2720,0,501,1," "); 
#303(N,11,@ )=R_Tax(list,RealDiscount,2720,0,501,1," "); 
#304(N,11,@ )=R_Tax(list,Summa,2730,0,502,1," "); 
#305(N,11,@ )=R_Tax(list,RealDiscount,2730,0,502,1," "); 
#306(N,11,@ )=R_Tax(list,Summa,0,10,0,1," "); 
#307(N,11,@ )=R_Tax(list,Summa,0,11,0,2," "); 
#308(N,11,@ )=R_Tax(list,Summa,0,10,0,1,"0"); 
#309(N,11,@ )=R_Tax(list,Summa,0,11,0,2,"0"); 
#310(N,11,@ )=R_Tax(list,Summa,0,42,5,1," "); 
$ (_EQ(FLSUMM-1)) 
  #507(N,11,@ )=R_Tax(7,1,g,0,筨 믫,*,); 
$ 
  #507(N,11,@ )=R_Tax(7,1,g,0,*,*,); 
$_ 
#508(N,11,@ )=R_Tax(8);   #509(N,11,@ )=R_Tax(9); 
#511(N,11,@ )=R_Tax(11);  #512(N,11,@ )=R_Tax(12); 
#513(N,11,@ )=R_Tax(13); 
$ (_EQ(FLSUMM-1)) 
  #001(N,11,@ )=R_Tax(1,1,0,0,筨 믫,*,); 
$ 
  #001(N,11,@ )=R_Tax(1,1,0,0,*,*,); 
$_ 
#002(N,11,@ )=R_Tax(2);    #003(N,11,@ )=R_Tax(3); 
#007(N,11,@ )=R_Tax(7);    #008(N,11,@ )=R_Tax(8); 
#009(N,11,@ )=R_Tax(9);    #011(N,11,@ )=R_Tax(11); 
#012(N,11,@ )=R_Tax(12); 
#013(N,11,@ )=R_Tax(13);   #014(N,11,@ )=R_Tax(14); 
#015(N,11,@ )=R_Tax(15);   #016(N,11,@ )=R_Tax(16); 
#032(N,11,@ )=R_Tax(32);   #033(N,11,@ )=R_Tax(33); 
#034(N,11,@ )=R_Tax(34);   #035(N,11,@ )=R_Tax(35); 
#036(N,11,@ )=R_Tax(36);   #037(N,11,@ )=R_Tax(37); 
#038(N,11,@ )=R_Tax(38);   #039(N,11,@ )=R_Tax(39); 
#041(N,11,@ )=R_Tax(41);   #042(N,11,@ )=R_Tax(42); 
#043(N,11,@ )=R_Tax(43);   #044(N,11,@ )=R_Tax(44); 
#045(N,11,@ )=R_Tax(45);   #046(N,11,@ )=R_Tax(46); 
#047(N,11,@ )=R_Tax(47);   #048(N,11,@ )=R_Tax(48); 
#050(N,11,@ )=R_Tax(50);   #063(N,11,@ )=R_Tax(63); 
#064(N,11,@ )=R_Tax(64);   #065(N,11,@ )=R_Tax(65); 
#300(N,11,@ )=R_Tax(list,Summa,2760,0,503,1," "); 
#301(N,11,@ )=R_Tax(list,RealDiscount,2760,0,503,1," "); 
#302(N,11,@ )=R_Tax(list,Summa,2720,0,501,1," "); 
#303(N,11,@ )=R_Tax(list,RealDiscount,2720,0,501,1," "); 
#304(N,11,@ )=R_Tax(list,Summa,2730,0,502,1," "); 
#305(N,11,@ )=R_Tax(list,RealDiscount,2730,0,502,1," "); 
#306(N,11,@ )=R_Tax(list,Summa,0,10,0,1," "); 
#307(N,11,@ )=R_Tax(list,Summa,0,11,0,2," "); 
#308(N,11,@ )=R_Tax(list,Summa,0,10,0,1,"0"); 
#309(N,11,@ )=R_Tax(list,Summa,0,11,0,2,"0"); 
#310(N,11,@ )=R_Tax(list,Summa,0,42,5,1," "); 
$ (_EQ(FLSUMM-1)) 
  #507(N,11,@ )=R_Tax(7,1,0,0,筨 믫,*,); 
$ 
  #507(N,11,@ )=R_Tax(7,1,0,0,*,*,); 
$_ 
#508(N,11,@ )=R_Tax(8);   #509(N,11,@ )=R_Tax(9); 
#511(N,11,@ )=R_Tax(11);  #512(N,11,@ )=R_Tax(12); 
#513(N,11,@ )=R_Tax(13); 
  &CNT(N,4,0)=1; 
  $ 
    #N(V,3,0)=_(,CNT); 
    $ (_GT(N)) 
      #(C,35,0)=R_String(REM@N ); 
      &(N,11,@ )=@N; 
      &(N,11,@ )=@N; 
 @                             @     @ 
    $_ 
    &CNT=CNT+1; 
  $ (_GT(N)) 
$_                  //  ⥭  㬬  / 
${(2.㬬  롮ઠ ⠡.-).  㬬  롮ઠ. 
//#(N,11,@ )=R_Col_S("1","*",15,0,0); 
//#(N,11,@ )=R_Col_S("2","*",15,0,0); 
// 㬬                   @ 
// 㬬                   @ 
$}(2.㬬  롮ઠ ⠡.-).   㬬  롮ઠ. 
//㬬  .  
 
#M(N,2,0)=(2); 
&M=M-1; 
#SCH(N,10,2)=R_Col_S("*","⥪",15,-11,0,); 
#SCHN(N,10,2)=R_Col_S_MV("*","",15,-M,0,); 
//  㬬 㯭                 ⥪..   . 
//                                    @SCH         @SCHN 
 
 
$ 
 
