//  ⮪  ࠧ   ஢.     
#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- : - ࠡ⠥  ᢥ ⪮   > 1
&nazv(N,2,0) =  0; // 0-⪮   -, 1- 
//    ନ஢ ப ⪠
&lmes(N,4,0) =  2; //  (祭     2)
&lkod(N,4,0) =  3; //  (祭     3)
&lsrc(N,4,0) =  0; // 筨 䨭஢
&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.稥 ன)     
&vatr(N,4,0) =  0; // 1 -  "ਭ㤨⥫" 㠫 ਡ⮢ (㦭  砥 ᫨ ஢  ਡ  ,    )     
//     
${(4.⥫ ன)     
// ன 浪    
&flCheck(N,4,0) = 1; // 0 -   ஥ ⥬; 1 - ᮡ⢥ ன
//
// 冷 ஢  㡨 ஢ (ᮡ⢥ ன)
&SortSrc(N,4,0) = 0; // 筨 䨭஢
&SortPod(N,4,0) = 1; // ࠧ
&SortCom(N,4,0) = 2; // ᮢ⥫⢮
&SortSub(N,4,0) = 3; // ꥪ
&OrdSort(N,4,0) = 0; // 㡨 ஢
//
&OrdDepth(N,4,0)  = 0; // 㡨 ࠧ ( ⪨)
&tfOrdSort(N,4,0) = 0; // ஢ ࠭祭 㡨 ஢ (OrdSort) 祭 PR_BALANCE (㡨 ࠧ     ४ )
&fitPartCheck(N,4,0) = 0; // 1 -  ⮣   ⪠; 0 -  
&fVedCheck(N,4,0) = 0; // 0 -   㬬    ; 1 -  㬬      ⪠
$}(4.⥫ ன)     
//     
${(5.ਬ砭  . ன)     
// OrdSort >= OrdDepth - 㡨 ࠧ   ॢ 㡨 ஢
//
// OrdDepth ࠭稢 祭 PR_BALANCE (㡨 ࠧ      ஥ ⥬)
//
//  flCheck = 0 ன 稭  SortSrc  OrdSort ⥫쭮 
//
//  OrdDepth > 0  ࠧ ⭮ ⪠     ᪮쪮 ⪮:
//
//     ਡ⠬ 㤥 ஢ ࠧ  :
//   1) 浪 ஢  ⥫ ஥    flCheck = 1
//   2) 浪       ஥ ⥬  flCheck = 0
//
//    砥 ਬ ᮡ⢥ ஥ 浪   (flCheck = 1)
//   㦭 뢠 :
//    ᫥ ஢  ⥬ ਡ⠬    ,  ⮬ 冷
//    易⥫쭮  ᮢ  浪     ஥ ⥬,
//   ..    ⪨ ( ᮮ⢥饩 㬬  )   
//   樨 ਡ⮢      
//
//  OrdSort = OrdDepth  ⪠ ஢  믮. 
//
//  OrdSort > OrdDepth  ⪥ 㤥 믮 ப (㯯஢).   ਡ⠬
// 㤥 믮 ஢   浪 ஢.  ⮬  祭 ⠪ ࠧ 
//  ⪠   ⮣ (fitPartCheck)
//
//  砥 ᫨ ⮪ ⮨   祬  ⥩ ( ஢  ⪠) 
//  㬬      ⥩ ⪠ ( ⮬ 砥  ਡ⠬   뫠 
// 믮 ஢   )  ⮣ 㦨 ன fVedCheck = 1
//
//  砥 ᫨  室  ᪮쪮 㬬    ⪠   ,
//  뫠 믮 ஢  ਡ⠬     , ᫥  
//  㬬    ⮪ fVedCheck = 0
$}(5.ਬ砭  . ன)
//
$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 + 4;     
     
$END_SCRIPT     
$(_,@GORTAB)  //     㬠  ண ⪠     
$BEG_SCRIPT     
     
  int np = 26;     
  int param[np];     
     
  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(vatr);     
  param[15] = atoi(flCheck);     
  param[16] = atoi(SortSrc);     
  param[17] = atoi(SortPod);     
  param[18] = atoi(SortCom);     
  param[19] = atoi(SortSub);     
  param[20] = atoi(OrdSort);     
  param[21] = atoi(OrdDepth);     
  param[22] = atoi(tfOrdSort);     
  param[23] = atoi(prtn);     
  param[24] = atoi(fitPartCheck);     
  param[25] = atoi(fVedCheck);     
     
 UnloadScriptModule("check\\check102");     
 LoadScriptModule("check\\check102");     
  MainCheckPar(param,np);     
 UnloadScriptModule("check\\check102");     
     
//  MainCheck( Param );     
     
$END_SCRIPT     
${(1.㬬  ஢ન /).  㬬  /.     
$  //   ப   㬬  /.     
&FLSUMM(N,4,0)=1;  // 1 -  㬬 筨 믫, 2   㬬     
#(C,160,0)=R_String(2,7,12,13,14); // ᫨  ᪮ 㦭 㬬     
#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.㬬  롮ઠ ⠡.-).   㬬  롮ઠ.     

$     
