//  ⮪  ࠧ   ஢.      
#CLIN(N,4,0)=_(); #SIZL(N,4,0)=_();      
$(_GT(+CLIN+12-SIZL))      
  $LF      
$_      
&GORTAB(N,4,0)=0;      
&obr_ls(N,6,0)=_;      
&vib_ls(N,6,0)=_;      
&obr_kv(N,6,0)=_;      
&vib_kv(N,6,0)=_;      
&month_kv(N,6,0)=_;      
${(3.稥 ன)      
&excel(N,2,0) = 0; // 1 -   Excel, 0 - ⥪
&flpr(N,2,0) =  1; // 1 -    , 0 -  ⤥ 
&podr(N,2,0) =  1; // 1 -   ࠧ, 0 - 
&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) =  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.稥 ன)      
&vatr(N,4,0) =  0; // 1 -  "ਭ㤨⥫" 㠫 ਡ⮢ (㦭  砥 ᫨ ஢  ਡ  ,    )      
//      
${(4.⥫ ன)      
// ன 浪          
&flCheck(N,4,0) = 1; // 0 -   ஥ ⥬; 1 - ᮡ⢥ ன      
//      
// 冷 ஢  㡨 ஢ (ᮡ⢥ ன)      
&SortSrc(N,4,0) = 1; // 筨 䨭஢      
&SortPod(N,4,0) = 0; // ࠧ      
&SortCom(N,4,0) = 2; // ᮢ⥫⢮      
&SortSub(N,4,0) = 3; // ꥪ      
&OrdSort(N,4,0) = 3; // 㡨 ஢      
//      
&OrdDepth(N,4,0)  = 3; // 㡨 ࠧ ( ⪨)      
&tfOrdSort(N,4,0) = 0; // ஢ ࠭祭 㡨 ஢ (OrdSort) 祭 PR_BALANCE (㡨 ࠧ     ४ )      
&fitPartCheck(N,4,0) = 1; // 1 -  ⮣   ⪠; 0 -        
&fVedCheck(N,4,0) = 1; // 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 = 34;      
  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);      
      
  param[26] = atoi(obr_ls);      
  param[27] = atoi(vib_ls);      
  param[28] = atoi(obr_kv);      
  param[29] = atoi(vib_kv);      
  param[30] = atoi(month_kv);      
  param[31] = atoi(excel);      
  param[32] = atoi(podr);      
  param[33] = atoi(flpr);     
     
 UnloadScriptModule("check\\check102");      
 LoadScriptModule("check\\check102");      
  MainCheckPar(param,np);      
 UnloadScriptModule("check\\check102");      
      
//  MainCheck( Param );      
      
$END_SCRIPT      
${(1.㬬  ஢ન /).  㬬  /.      
$  //   ப   㬬  /.      
 &(N,4,0)=2;        // ⠢ &(N,4,0)=2   㬬  
&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.㬬  롮ઠ ⠡.-).   㬬  롮ઠ.      
      
$      
