&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)=_;
${(8. ன).  ன.
&flagTabelComb(N,2,0)=0; // 0-  ᭮ ; 1-  ᮢ⥫
$}(8. ன).  ன.
// ଠ  ⭮ ⪠    .
//  ࠧ  .䨭஢   ᮢ⥫⢠
#CLIN(N,4,0)=_(); #SIZL(N,4,0)=_();
$(_GT(+CLIN+12-SIZL))
  $LF
$_
${(7. ਧ  )
 &(N,4,0)=2;        // ⠢ &(N,4,0)=2   㬬  
$}(7. ਧ  )
${(3. ⭮ ⪠).  ଫ 蠯.
$(_,68)  //     㬠  ண ⪠
$(_, );    //   ।⠢ 㫥 ࠡ祣 ६
#F(C,31,0)=R_Name(2); // ⠢ R_Name(1), ᫨     蠯
&(N,6,0)=0;  // ⠢ &(N,6,0)=1  뤥 㬬 .楢
#S(C,2,0)=R_String(  ); #OFICE(C,42,0)=R_String(); #PODR(C,7,0)=R_Face(podr); #T0(N,7,0)=R_Face(tn);
&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);
@OFICE                                      @MRASCH  @GOD .
-:@PODR   @TN    (@K): @F
$}(3. ⭮ ⪠).  ଫ 蠯.
#SL(C,200,0)=SrcList();
#SLC(C, 250, 0)=CombList();
&QQQC(N,4,0)=1; &SEAC(N,5,0)=0;
$
#COMB(N,10,0)=_(SLC,QQQC,1);
$ (_GT(COMB))
#SEAC=SetPrintCombine(COMB);
#NAMECOMB(C, 45, 0)=NameCombine(COMB,2);
&QQQ(N,4,0)=1; 
$
#SRC(N,3,0)=_(SL,QQQ,1);
#SRCFLAG(N, 3, 0)=_(SL,2,1); //  ⮬᪨ 몫  筨 ᫨    
$ (_GT(SRC))
#SEAC=SetPrintSrc(SRC);
#NAMESRC(C,35,0)=NameSrc(SRC,2);

@NAMECOMB                                    @NAMESRC
$FPT$
------------------------------------------------------------
&(N,2,0)=0; &(N,3,0)=0; #(C,7,0)=R_String( ); &(N,7,2)=0; &(N,10,@ )=0; #(C,2,0)=R_String( ); &(N,3,0)=0; #(C,35,0)=R_String( ); #(C,27,0)=R_String( ); &2(N,11,@ )=0;
&(N,2,0)=0; &(N,3,0)=0; #(C,7,0)=R_String( ); &(N,6,2)=0; &(N,10,@ )=0; #(C,2,0)=R_String( ); &(N,3,0)=0; &(N,11,@ )=0;  &0(N,3,0)=99; &0(N,3,0)=99; &1(N,11,@ )=0;
#TEMPSUM(N,12,@)=R_Face(ved1);
&SUMOTPUV=SUMOTPUV+TEMPSUM;
&RCN(N,4,0)=0; &RCU(N,4,0)=0; //  ⥫
$                                   //     ⠡
  &0=; &0=;
  #O(N,2,0)=_(,,,,,,,RCN); #Q(N,2,0)= _(,,,,,,,RCU);
  $ (_GE(+-4)*_LT(0+0-4))
    $ (RCN+RCU)
------------------------------------------------------------
    $_
   .            㬬 |   㤥.      㬬
  $_
  $ ((1-_EQ(-3))*_GT(-))             // ନ㥬 ப ᫥
    #=R_String(                                  |); //  ப
  $
    $ (_EQ(-3))                                   // ⮣
      #O(N,2,0)=_(,,,,,,,RCN);
      #=R_String(                 @     @); &RCN=RCN+1;
    $_
    $ (_LT(-3))                                   // 㬬
      #=R_String(@ @ @  @    @     @); &RCN=RCN+1;
    $_
  $_                              // ନ㥬 ப 㤥ঠ
  $ (_GE(-2)*_LT(-2)+_GE(-7)*_LT(-7))
    #=R_String(                         );          //  ப
  $
    $ (_EQ(-3))                                   // ⮣
      #Q(N,2,0)= _(,,,,,,,RCU);
      #=R_String(         @     );        &RCU=RCU+1;
    $_
    $ (_EQ(-4)) // ਩   믫⠬, ப 1
      #=R_String(                         );        &RCU=RCU+1;
    $_
    $ (_EQ(-5)) // ਩   믫⠬, ப 2
      #=R_String(  믫:   );        &RCU=RCU+1;
    $_
    $ (_LT(-3)+_EQ(-6))                         // 㬬
      #=R_String(@ @ @  @     @);      &RCU=RCU+1;
    $_
  $_
  $ (_LT(-7)+_LT(-7))
@                              @
  $_
$ (_LT(-7)+_LT(-7))
$ (RCN+RCU)
------------------------------------------------------------
$_
#O(N,2,0)=_(,,,,,,,RCN); #Q(N,2,0)= _(,,,,1,,,RCU);
&RCN=RCN+1; &RCU=RCU+1;
  ᫥      @      | 㤥ঠ     @1
------------------------------------------------------------
#O(N,2,0)=_(,,,,,,,RCN);
&RCN=RCN+1;                            //  , ⮪, 
#O(N,2,0)=_(,,,,1,,,RCN); #Q(N,2,0)= _(,,,,2,,,RCU);
#=R_String( );
$ (_GT(1))
  #=R_String( ⮪      @1     );
$_
$ (_GT(2))
  #=R_String(          @2     );
$_
$ (_GT())
  .        @       @
$
$ (_GT(1)+_GT(2))
    ᫥饬         @
$
&T1(N,5,@)=0;
    ᫥饬         @T1
$_
$_
&QQQ=QQQ+1;
$_ //(_GT(SRC))
$ (_GT(SRC))
&QQQC=QQQC+1;
$_ //(_GT(COMB))
$ (_GT(COMB))
//
$ (_EQ(flagTabelComb))
#TABEL(C,40,0)=R_Caln(0);                    // ⠡

 : @TABEL
$
#SLC1(C, 250, 0)=CombList();
&QQQC1(N,4,0)=1;
$
#COMB1(N,10,0)=_(SLC1,QQQC1,1);
$ (_GT(COMB1))
//$ (_EQ(COMB1))
#SEAC1(N,5,0)=SetPrintCombine(COMB1);
#NAMECOMB1(C, 45, 0)=NameCombine(COMB1,2);
#TABEL(C,40,0)=R_Caln(0);                    // ⠡

 $ (_GT(QQQC-2)) // ᫨   ᮢ⥫⢠ - ⠥ 
 @NAMECOMB1
 $_ //(_GT(QQQC-2))
 : @TABEL
&QQQC1=QQQC1+1;
$_ //(_GT(COMB1))
$ (_GT(COMB1))
$_ //(_EQ(flagTabelComb))
//
${(1.㬬  ஢ન /).  㬬  /.
$  //   ப   㬬  /.
&FLSUMM(N,4,0)=1;  // 1 -  㬬 筨 믫, 2   㬬
#(C,160,0)=R_String(2,3,8,9,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))
  #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," ");
  &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.㬬  롮ઠ ⠡.-).   㬬  롮ઠ.
$ (_EQ(-1))
${(6. 㬬  㣨 ).  㬬  㣨 .
#(N,12,@ )=R_Col_S(1,=,0,-14,-1); #(N,12,@ )=R_Col_S(1,=,0,1,6);
$ (1-_EQ())
믫.      ⥪饣    @
$_
$ (1-_EQ())
믫.  騥    ⥪饣    @
$_
$}(6. 㬬  㣨 ).  㬬  㣨 .
$_
#(N,4,0)=_("");
$ (_EQ(-1))
${(4. ⪠  ).  㬬  .
//#(N,12,@ )=R_Face(ved1);
㬬      @SUMOTPUV
$}(4. ⪠  ).  㬬  .
$_
#(N,4,0)=_("");
$ (_EQ(-1))
${(5. ⪠  㢮쭥).  㬬  㢮쭥.
//#(N,12,@ )=R_Face(ved1);
㬬  㢮쭥 @SUMOTPUV
$}(5. ⪠  㢮쭥).   㬬  㢮쭥.
$_
${(6.ࠢ ⪮  )
$BEG_SCRIPT
  SendKvitokToEmail();//ࠢ塞  
$END_SCRIPT
$}(6.ࠢ ⪮  )
$