//  ⮪  ࠧ   ஢.
#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.㬬  롮ઠ ⠡.-)
${(6.ࠢ ⪮  )
$BEG_SCRIPT
  SendKvitokToEmail();//ࠢ塞  
$END_SCRIPT
$}(6.ࠢ ⪮  )
$