&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. ⭮ ⪠).  ଫ 蠯.
$(_,72)  //     㬠  ண ⪠
$(_, );    //   ।⠢ 㫥 ࠡ祣 ६
#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();
&QQQ(N,4,0)=1; &SEAC(N,5,0)=0;
--------------------------------------------------------------------
     .            㬬 |    㤥.      㬬
&(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,41,0)=R_String( ); #(C,29,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;
#Y(C,2,0)=R_String( ); #Z(C,2,0)=R_String( );
#PPP(N, 6, 0)=R_String( ); #CM(C, 3, 0)=R_String( );
&RCN(N,4,0)=0; &RCU(N,4,0)=0; //  ⥫
#FSZ(N,3,0)=W_CommonSrc(23,1,0); #FSZ1(N,4,0)=R_CommonSrc(9); #FSZ2(N,4,0)=R_CommonSrc(10);
#FSZ3(N,4,0)=W_CommonSrc(9,@FSZ2);
$FPT$
$                                   //     ⠡
    #O(N,2,0)=_(,,,,,,,Y,RCN); #Q(N,2,0)= _(,,,,,,,Z,RCU);
    #=R_String(                                        |); //  ப
    $ (_LE(-1))                                   // 㬬
      #=R_String(@Y    @ @ @  @    @     @);
    $_
    #=R_String(                           );          //  ப
    $ (_LE(-1))                                   // 㬬
      #=R_String(@Z@ @ @  @     @);
    $_
    &RCN=RCN+1; &RCU=RCU+1;
$ (_LE(-1)+_LE(-1))
@                                    @
$_
$ (_LE(-1)+_LE(-1))
--------------------------------------------------------------------
#FSZ(N,3,0)=W_CommonSrc(23,2,0);
$
#SRC(N,4,0)=_(SL,QQQ,1);
$ (_GT(SRC))
#SEAC=SetPrintSrc(SRC);
#NSRC(C,16,0)=NameSrc(SRC,2);
$FPT$
#TEMPSUM(N,12,@)=R_Face(ved1);
&SUMOTPUV=SUMOTPUV+TEMPSUM;
&RCN(N,4,0)=0; &RCU(N,4,0)=0; &=0; &=0; //  ⥫
$                                   //     ⠡
  &0=; &0=;
  #O(N,2,0)=_(,,,,,,,Y,PPP,CM,RCN); #Q(N,2,0)= _(,,,,,,,Z,RCU);
  $ (_GE(+-4)*_LT(0+0-4))
    $ (RCN+RCU)
--------------------------------------------------------------------
    $_
  $_
  $ ((1-_EQ(-3))*_GT(-))             // ନ㥬 ப ᫥
    #=R_String(                                        |); //  ப
  $
    $ (_EQ(-3))                                   // ⮣
      #O(N,2,0)=_(,,,,,,,Y,RCN);
      #=R_String(  @NSRC                @     @); &RCN=RCN+1;
    $_
    $ (_LT(-3))                                   // 㬬
      #=R_String(@Y@CM @ @ @  @    @     @); &RCN=RCN+1;
    $_
  $_                              // ନ㥬 ப 㤥ঠ
  $ (_GE(-2)*_LT(-2)+_GE(-7)*_LT(-7))
    #=R_String(                           );          //  ப
  $
    $ (_EQ(-3))                                   // ⮣
      #Q(N,2,0)= _(,,,,,,,Z,RCU);
      #=R_String(  ( @Z)    @     );        &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(@Z@ @ @  @     @);      &RCU=RCU+1;
    $_
  $_
  $ (_LT(-7)+_LT(-7))
@                                    @
  $_
$ (_LT(-7)+_LT(-7))
$_
&QQQ=QQQ+1;
$ (_GT(SRC))
$ (RCN+RCU)
--------------------------------------------------------------------
$_
#O(N,2,0)=_(,,,,,,,Y,RCN); #Q(N,2,0)= _(,,,,1,,,Z,RCU); #W_CommonSrc(5,0,0);
&RCN=RCN+1; &RCU=RCU+1;
#=(1); #1=(2);
  ᫥        @          | 㤥ঠ       @1
--------------------------------------------------------------------
#O(N,2,0)=_(,,,,,,,Y,RCN);
&RCN=RCN+1;                            //  , ⮪, 
#O(N,2,0)=_(,,,,1,,,Y,RCN); #Q(N,2,0)= _(,,,,2,,,Z,RCU);
#=R_String( );
$ (_LE(QQQ-3))
   $ (_GT(1))
     #=R_String( ⮪        @1     );
   $_
   $ (_GT(2))
     #=R_String(            @2     );
   $_
   $ (_EQ())
      #=CashSumm(0,998,0,0,35,CSRC);
   $_
  .          @           @
$
   &QQQ=1;
    
   $
      #SRC(N,4,0)=_(SL,QQQ,1); #=R_String( );
      $ (_GT(SRC))
         #NAMESRC(C,23,0)=NameSrc(SRC,2); #FSZ2(N,2,0)=W_CommonSrc(23,@SRC,0); #CSRC(C,4,0)=R_CommonSrc(23);
         #=GetVved(0,CSRC);
         $ (_EQ())
            #=CashSumm(0,998,0,0,35,CSRC);
         $_
         #1=CashSumm(0,101,1,1,35,CSRC); #2=CashSumm(0,300,1,1,35,CSRC);
         $ (_GT(1))
           #=R_String( ⮪        @1     );
         $_
         $ (_GT(2))
           #=R_String(            @2     );
         $_
 @NAMESRC               @           @
      $_
      &QQQ=QQQ+1;
   $(_GT(SRC))
$_
//      
$ (_EQ(flagTabelComb))      
#TABEL(C,40,0)=R_Caln(0);                    // ⠡

 : @TABEL
$      
//     
#SLC(C, 250, 0)=CombList();      
&QQQC(N,4,0)=1;      
$      
#COMB(N,10,0)=_(SLC,QQQC,1);      
$ (_GT(COMB))      
#SEAC(N,5,0)=SetPrintCombine(COMB);      
&QQQC=QQQC+1;      
$_ //(_GT(COMB))      
$ (_GT(COMB))      
//     
#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. ⪠  㢮쭥).   㬬  㢮쭥.
$_
#FSZ(N,3,0)=W_CommonSrc(23,0,0); #FSZ2(N,4,0)=W_CommonSrc(9,@FSZ1,0);
${(6.ࠢ ⪮  )
$BEG_SCRIPT
  SendKvitokToEmail();//ࠢ塞  
$END_SCRIPT
$}(6.ࠢ ⪮  )
$