// ଠ  ⭮ ⪠    .
#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) =  0; // 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) =  7; //  
&l_rv(N,4,0) =  7; // ࠡ祥 ६
&lsum(N,4,0) = 10; // 㬬
&lmni(N,4,0) =  1; // 
&sh(N,4,0)   =  0; //   ப ⪠ (᫨ 0 - 塞)
&l_tn(N,4,0) =  7; // ࠧ   ⠡쭮 
&lkat(N,4,0) =  2; // ࠧ   ⥣ਨ
$}(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.㬬  롮ઠ ⠡.-).   㬬  롮ઠ.

$
