//-----------㠫 ᢥ  ᨮ 䮭----------------
//------------------ 室 ଠ ----------------------------------
#(N,3,0)=_();                      //  ࠭
#(N,5,0)=_(0);      // ᫮ ᥩ  ⠡
$(_EQ())
  $
$_
#=_(1);
${(1. ਧ  )
$(_,"0"); // " " (஡) -   㫨, "0" - 
&(N,2,0)=1;// 1- ⮣ 㬬 客 ᮢ  㫨,0- 
&(N,2,0)=1;// 1- ⮣ 㬬 ᫥  㫨,0- 
&(N,2,0)=0; // 1-  ,0-⮫쪮 ।  
// ,  ᪮, ᠭ ᫥⥫쭮 ᨬ, 
// 㤥    祭.
#(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);
&MAXST(N,2,0)=12;    // ᨬ쭮 ⢮ ப  㤮 ⠦
$}(1. ਧ  )
${(4. ਧ  )
  &1(N,5,0)=2; // 1=2 -    ᫥, 1=0 -  
  &2(N,5,0)=2; // 2=2 -    ᮢ  , 2=0 -  
$}(4. ਧ  )
${(3. )
  #FLAGPER(C,1,0)=_(FLAGPERED,0);
  #=_(FLAGPER);
  $(_EQ())
       $(",         ");
  $_
  #(N,2,0)=_(8,9,78,15, ?, ࠢ, , ,᮪ 죮⭨);
  $(_EQ(-27))
    $
  $
$}(3. )
#(N,2,0)=_(MonthBeg); #(N,2,0)=_(MonthEnd);
#1(N,2,0)=_(Itogo);     #2(N,2,0)=_(ItogoBl);
#(N,2,0)=_(ItogoPer);    #(N,2,0)=_(ItogoBlPer);
#(N,2,0)=_(NumInPack); #(N,2,0)=_(MonthISum);
#(N,2,0)=_(TypeForm); &(N,5,0)=0;
#13(C,40,0)=R_String(); #(C,14,0)=R_String(); #=_();
$(_EQ())
       #(C,33,0)=R_String(._._._. - ._._._. - ._._._._._._.);
$_
$(_EQ()) //  ࠢ
// ।  㦭  
#(N,2,0)=_(Fio1);         #(N,2,0)=_(Fio2);
#(N,2,0)=_(Fio3);         #(N,2,0)=_(Year);
#(N,2,0)=_(StrahNum);   #(N,2,0)=_(TypeMany);
#3(N,2,0)=_(SumPredp);  #4(N,2,0)=_(SumMan);
#(N,2,0)=_(NumDogov);   #(N,2,0)=_(TypePay);
#(N,2,0)=_(DateDogov); #(N,2,0)=_(KodCatPay);
#(N,2,0)=_(NamCatPay);#(N,2,0)=_(CountStag);
#(N,2,0)=_(DateTransf);
$                      //     ⠡
   #(C,10,0)=_(NumInPack,);
   #(N,10,0)=_();
   #=_();      // ਧ  
   $(_NE()*_NE())
     #01(C,9,0)=_(,);    #02(C,39,0)=_(,);
     #03(C,39,0)=_(,);      #04(C,39,0)=_(,);
     #05(C,9,0) =_(,);    #06(C,7,0)=_(,);
     #07(C,35,0)=_(,);#08(C,40,0)=_(,);
     #(C,14,0)=_(,);    #=_();
     $(_EQ()) // ⮩ ॣ樮 
          #(C,34,0)=R_String(._._._. - ._._._. - ._._._.  ._._.);
     $_
     #(C,10,0)=_(,); #(C,20,0)=_();
     #=_();
     $(_EQ())
         #(C,35,0)=R_String("__"_._._._._._._._. ._._._._. );
     $_
     #=_(,); #(C,20,0)=_();
     #=_();
     $(_EQ())
         #(C,35,0)=R_String("__"_._._._._._._._. ._._._._. );
     $_
// ६   ⮣ 㬬    
     &01(N,14,@1)=0; &02(N,14,@1)=0;
// ।  ⭮ ⠫
     #(N,2,0)=_(,);#(N,2,0)=_(,);
     #(C,39,0)=R_String();
     $(_LE(-1)*_GE(-3))
         #=_(!SPACE,,I [X]);
     $
         #=_(!SPACE,,I [ ]);
     $_
     $(_LE(-4)*_GE(-6))
         #=_(!SPACE,, II [X]);
     $
         #=_(!SPACE,, II [ ]);
     $_
     $(_LE(-7)*_GE(-9))
         #=_(!SPACE,, III [X]);
     $
         #=_(!SPACE,, III [ ]);
     $_
     $(_LE(-10)*_GE(-12))
         #=_(!SPACE,, IV [X]);
     $
         #=_(!SPACE,, IV [ ]);
     $_
     #=_(!SPACE,, . ,05, .);
// 㫨 ⠦
     &T(V,2,0)=1; &I(V,2,0)=1;
     $
#@T(C,2,0)=R_String( );   #@T(C,10,0)=R_String( );   #@T(C,10,0)=R_String( );
#@T(C,4,0)=R_String( ); #@T(C,6,0)=R_String( ); #@T(C,9,0)=R_String( );
#@T(C,9,0)=R_String( );#@T(C,9,0)=R_String( );  #@T(C,7,0)=R_String( );
#@T(C,4,0)=R_String( );
&BIGUSLT@T(N,1,0)=0;
          &T=T+1;
     $(_LE(T-MAXST))
     #(C,4,0)=_(,); #(C,23,0)=_(,);
     #FlagNOt(N,3,0)=_(,);
     #09(C,15,0)=_(,); #10(C,4,0)=_(,);
  $(FlagNOt)  // ᫨ ଠ  ⬥
     // 㬬 客 믫  ।  ࠡ⭨
     #11(N,14,@2)=_(3,); //#12(N,14,@2)=_(4,);
     #(N,2,0)=_(,); #(C,200,0)=_(2,);
     #(C,255,0)=_(1,);
     #14(N,14,@2)=_(TaxBase,);
     #14(N,14,@2)=_(TaxBase1,);
     &14(N,14,@2)=14;//-14;
     &T=1; &I=1;
     $()
     $   // ⠦
         &Index(N,2,0)=I*2;  #(C,200,0)=_(+Index-1,);
         &@T=_Long(I); #DATEPER(C,30,0)=_(,1,2);
         #D(C,10,0)=_(DATEPER,1); #@T=_(2,D);
         #D=_(DATEPER,2);         #@T=_(2,D);
         #GENST(C,100,0)=_(,2,2);
         #@T=_(GENST,1);        #@T=_(GENST,2);
         #@T=_(GENST,3);        #@T=_(GENST,5);
         #TR(C,9,0)=_(GENST,4);    #=_(TR);
         $(_EQ())   // ⥫ ࠬ 㤮 ⠦
           #TR1(C,5,0)=_(GENST,7); #TR2(C,2,0)=_(GENST,8);
           #=_(TR2);
           $()
             #TR=_(!SPACE,TR1,,TR2,);
           $_
         $_
         #@T=R_String(TR);
         #TR1(C,5,0)=_(GENST,9); #TR2(C,2,0)=_(GENST,10);
         #=_(TR2); #@T=R_String( );
         $() // ⥫ ࠬ 㣨 
              #@T=_(!SPACE,TR1,,TR2,);
         $
              #@T=_(!SPACE,TR1, ,TR2);
         $_
         #@T(,4,0)=_(GENST,11);
         #(C,7,0)=R_String(@T);
         #RC0(N,3,0)=_();
         $(_EQ(RC0))
            #@T=R_String(@T);
            #@T=R_String( );
         $_
         #RKST(C,4,0)=_(GENST,12);
         #RC1(N,3,0)=_(RKST);
         #(C,7,0)=R_String(@T);
         #RC0(N,3,0)=_();
         #(C,16,0)=_(GENST,6); #=_();
         &RC(N,3,0)=_NE()+_NE(RC0)+_NE(RC1);
         $(_NE(RC)) //   ᯨ᪠ ᨩ -   ப
           #(C,4,0)=R_String(@T);
           &T=T+1;
           #@T=R_String( );
           #@T=R_String( );
           $(_NE())
             #@T(C,16,0)=R_String();
           $_
           $(_NE(RC0))
             #@T=R_String();
           $_
           $(_NE(RC1))
             #@T=R_String(RKST);
           $_
           &BIGUSLT@T=1;
         $_
         #=_(+Index,); #LG(N,2,0)=_(,1,2);
         $(LG)
           &J(N,2,0)=2;
           $ // 죮 ⠦
             #LGST(C,170,0)=_(,J,2);
             &T=T+1;
             #@T(C,4,0)=R_String( ); #@T(C,6,0)=R_String( ); #@T(C,9,0)=R_String( );
             #@T(C,9,0)=R_String( );#@T(C,9,0)=R_String( );  #@T(C,7,0)=R_String( );
             #@T(C,4,0)=R_String( );
             #@T=_(LGST,11);       #@T=_(LGST,1);
             #@T=_(LGST,5);       #@T=_(LGST,7);
             #TR(C,9,0)=_(LGST,6);    #=_(TR);
             $(_EQ())   // ⥫ ࠬ 㤮 ⠦
               #TR1(C,5,0)=_(LGST,3); #TR2(C,2,0)=_(LGST,4);
               #=_(TR2);
               $()
                 #TR=_(!SPACE,TR1,,TR2,);
               $_
             $_
             #@T=R_String(TR);
             #TR1(C,5,0)=_(LGST,8); #TR2(C,2,0)=_(LGST,9);
             #=_(TR2); #@T=R_String( );
             $() // ⥫ ࠬ 㣨 
               #@T=_(!SPACE,TR1,,TR2,);
             $
               #@T=_(!SPACE,TR1, ,TR2);
             $_
             #@T(,4,0)=_(LGST,10);
             #(C,7,0)=R_String(@T);
             #RC0(N,3,0)=_();
             $(_EQ(RC0))
               #@T=R_String(@T);
               #@T=R_String( );
             $_
             #RKST=_(LGST,12);
             #RC1(N,3,0)=_(RKST);
             #(C,7,0)=R_String(@T);
             #RC0(N,3,0)=_();
             #(C,16,0)=_(LGST,2); #=_();
             &RC(N,3,0)=_NE()+_NE(RC0)+_NE(RC1);
             $(_NE(RC)) //   ᯨ᪠ ᨩ -   ப
               #(C,4,0)=R_String(@T);
               &T=T+1;
               #@T=R_String( );
               #@T=R_String( );
               $(_NE())
                 #@T(C,16,0)=R_String();
               $_
               $(_NE(RC0))
                 #@T=R_String();
               $_
               $(_NE(RC1))
                 #@T=R_String(RKST);
               $_
               &BIGUSLT@T=1;
             $_
             &J=J+1;
           $(_LE(J-LG-1)*_LE(T-MAXST))
         $_
         &I=I+1; &T=T+1;
     $(_LE(I-)*_LE(T-MAXST))
     $_
  $
     // #09(C,15,0)=R_String( ); #10(C,4,0)=R_String( );
     // 㬬 客 믫  ।  ࠡ⭨
     #11(C,14,0)=R_String( ); #12(C,14,0)=R_String( );
     #14(C,14,0)=R_String( );
  $_   // ᫨ ଠ  ⬥
//  客 ᮢ    0.00
     &I=11;
     $
          $(_EQ(@I))
             $(*FlagNOt)
               #@I=R_String(0.00);
             $_
          $_
          &I=I+1;
      $ (_LE(I-12))
      &I=1;
      $
         #=_(@I, , );
         $(_EQ())
            #@I=R_String();
         $_
         &I=I+1;
      $ (_LT(I-15))
${(2. ଠ ࠢ)
䨤樠쭮 ଠ樨 ࠭ ⥫
 ଠ -3                                               ________
                     @01
            㤮 ⠦, ࠡ⪥ (ࠦ), 室
              ᫥    客 
客  @                                   Ŀ
         @02                                   |             |
#=_(,);
$(_EQ())
             @03                                   |[X] 室         |
$
             @03                                   |[ ] 室         |
$_
#=_(,);
$(_EQ())
⢮        @04                                   |[X] ४   |
$
⢮        @04                                   |[ ] ४   |
$_
$(_EQ(FlagNOt))
                                                       |[X] ⬥       |
$
                                                       |[ ] ⬥       |
$_
#=_(,);
$(_EQ())
. ਮ: @                                 |[X] 祭 ᨨ|
$
. ਮ: @                                 |[ ] 祭 ᨨ|
$_
                                                       
  ⥫騪 ᮢ  :  @                 @
樮   @
 (⪮)    @13

  客 :
#=_(10,);
$(_NE())
 ⥣ਨ 客  @10       .  ____
$
 ⥣ਨ 客  ____       .  
$_

㬬  ࠡ⪠  室  砫   @14
㬬 ᫥    c 砫              @11

    ࠡ⪥ (ࠦ), 室 客  
   ਮ, 뢠  祭 ᨨ
      Ŀ
      |     |   ᥣ ᫥     | ⮬ ᫥  ६     |
      |          |                       |㤮ᯮᮡ, ⨯|
      Ĵ
// 塞 㬬   
     &I=1;
#=_(0);
     $
          #Simv(N,2,0)=_(,I); #(C,9,0)=_(I);
          $(Simv*FlagNOt*_GE(I-)*_LE(I-))
             &Ind(N,2,0)=I-+2;
             #01(N,14,@1)=_(,Ind); &01=01+01;
             #02(N,14,@1)=_(,Ind);&02=02+02;
             &01=01;  &02=02;
      | @   |     @01              |       @02                  |
          $
               $()
      | @   |                       |                             |
               $_
          $_
         &I=I+1;
     $(_LE(I-12))
#=_(1);
     &I=1;
     $
          $(_EQ(@I))
             $(*FlagNOt)
               #@I=R_String(          0.00);
             $
               #@I=R_String( );
             $_
          $_
          &I=I+1;
      $ (_LE(I-2))
      Ĵ
      |     |     @01             |       @02                 |
      
    @08
 祭  @             
 믫      @07
⠦ ࠡ   ਮ:
Ŀ
| N|砫    |     |.|ᮡ|塞 .⠦ |   㣠    |
|  |ਮ   |ਮ   |᫮-|᫮.Ĵ
|  |          |          |  |㤠 |᭮|.ᢥ  |᭮|.ᢥ|
|  |..|..|()| ()|  ()  |    |  ()  |  |
Ĵ
  &I=1
  $
#(C,2,0)=R_String(@I);   #(C,10,0)=R_String(@I);   #(C,10,0)=R_String(@I);
#(C,4,0)=R_String(@I); #(C,6,0)=R_String(@I); #(C,9,0)=R_String(@I);
#(C,9,0)=R_String(@I);#(C,9,0)=R_String(@I);  #(C,7,0)=R_String(@I);
#(C,4,0)=R_String(@I);
#RC(N,5,0)=_();
//@      @
//$(_EQ(RC))
//  #=R_String();
//$_
$(BIGUSLT@I)
  #(C,16,0)=R_String(@I);
//  #=R_String();
$_
|@|@        |@        |@ |@  |@     |@      |@    |@    |
  &I=I+1;
  $(_GE(3-I))
$(_GT(MAXST-3)*_GT(T-3))
  &I=4;
  $
#(C,2,0)=R_String(@I);   #(C,10,0)=R_String(@I);   #(C,10,0)=R_String(@I);
#(C,4,0)=R_String(@I); #(C,6,0)=R_String(@I); #(C,9,0)=R_String(@I);
#(C,9,0)=R_String(@I);#(C,9,0)=R_String(@I);  #(C,7,0)=R_String(@I);
#(C,4,0)=R_String(@I);
//@      @
//$(_EQ(RC))
//  #=R_String();
//$_
$(BIGUSLT@I)
  #(C,16,0)=R_String(@I);
//  #=R_String();
$_
|@|@        |@        |@ |@  |@     |@      |@    |@    |
  &I=I+1;
  $(_GE(MAXST-I)*_GE(T-I))
$_

  㪮⥫                ஢ 
@                                                     @
 @                  ..
       $_
$}(2. ଠ ࠢ)
  $_
  &=+1;
$(_GT(-))

//    $       // ᫥ 롮 ० (_EQ()) -  
$_
$(_EQ(-1))
//
//ਮ
    #(N,2,0)=_(MonthBeg,);
    #(N,2,0)=_(MonthEnd,);
    #05(C,9,0)=_(Year,);
    #(C,39,0)=R_String();
    $(_LE(-1)*_GE(-3))
        #=_(!SPACE,,I [X]);
    $
        #=_(!SPACE,,I [ ]);
    $_
    $(_LE(-4)*_GE(-6))
        #=_(!SPACE,, II [X]);
    $
        #=_(!SPACE,, II [ ]);
    $_
    $(_LE(-7)*_GE(-9))
        #=_(!SPACE,, III [X]);
    $
        #=_(!SPACE,, III [ ]);
    $_
    $(_LE(-10)*_GE(-12))
        #=_(!SPACE,, IV [X]);
    $
        #=_(!SPACE,, IV [ ]);
    $_
    #=_(!SPACE,, . ,05, .);
//
#(C,10,0)=_(DateTransf,0);
#(C,20,0)=_();
#(N,2,0)=_(ItogoPer);    #(N,2,0)=_(ItogoBlPer);
#LastPart(C,10,0)=_(,3,-);
#=_(13);
$(_EQ())
     #13=R_String();
$_
#=_(13,44);
#1(C,44,0)=_(0);
$(_GT(-1))
  #2(C,44,0)=_(1);
$
  #2(C,10,0)=R_String(  );
$_
#=_(); #OldNumP(C,5,0)=R_String( );
#01(C,43,0)=R_String(); #02(C,43,0)=R_String();
&01(N,20,@1)=0; &02(N,20,@1)=0; &NoExit(N,1,0)=1; &CountD(N,4,0)=0;
&(N,20,0)=0;
$                                      //     ⠡
 $(_EQ(-))  // ⮡  砭 ᥩ  ⠢ 
   &=; &NoExit=0;
 $_
    #=_();                     // ਧ  
    $(+_EQ(NoExit))
      #NumInPack(C,10,0)=_(,);
      #=_(NumInPack, , );
      $(_NE())
      &=;
      #NumP(C,5,0)=_(NumInPack,1,-);
      #=_(NumP,OldNumP, );
      $((1-_EQ()+_EQ(NoExit))*CountD)  //  ந諠 ᬥ 窨  뢥  ।饩
#NameFile(C,15,0)=_(LastPart,1,6,OldNumP,1,2,.,1,1,OldNumP,3,5,2);
${(5. ଠ  㬥⮢)
 ଠ -6             ________         ________

  㬥⮢, । ࠡ⮤⥫  
Ŀ
|     ࠡ⮤⥫, ।饣 㬥:                  |
| 樮   @                                       |
|  @               @                                |
|           @1                                       |
|                       @2                                       |
|  ਮ: @                                           |

   ਬ砭:  䠩 @NameFile
               @01
               @02

Ŀ
|         室饣 㬥      | ⢮ 㬥⮢ |
|                                              |    |
|                                              |        窥         |
Ĵ
|  客                   |                       |
Ĵ
|    客 ᢨ⥫⢠ |                       |
Ĵ
|   뤠 㡫 客      |                       |
| ᢨ⥫⢠                                |                       |
Ĵ
| 㠫 ᢥ  㤮 ⠦,    |          @CountD      |
| ࠡ⪥ (ࠦ), 室          |                       |
| ᫥ 客             |                       |
Ĵ
|    㬥⮢ -3,     |                       |
| । ࠡ⮤⥫               |                       |
Ĵ
|                                              |                       |
Ĵ
|          ⮣ 㬥⮢  : |          @CountD      |


     窨 㬥⮢, ᮯ஢ 設 ⥫
   (᪥⮩):
  窨 㬥⮢, ᢮ ࠡ⮤⥫:  @OldNumP
  ॣ樨 窨  . ࣠  ._._._._._._./._._._._.

     窨 㬥⮢, ᮤঠ饩 "㠫 ᢥ
    㤮 ⠦, ࠡ⪥ (ࠦ), 室  .
      客 ":
   ࠡ⪥ (ࠦ), 室   ਮ,
 뢠  祭 ᨨ (⮣  窥 㬥⮢):
Ŀ
 ᥣ ᫥           ⮬ ᫥ ᮡ  ६    
                          㤮ᯮᮡ  ⨯      
͵
     @01                            @02                   
;
ᯮ⥫                                     ஢ 
 ________________________________       ______         ________

  㪮⥫             ஢ 
 @                                                 @

  @                        ..
$_
$}(5. ଠ  㬥⮢)
         &CountD=0; &01=0; &02=0;
      $_  //   窨
          #OldNumP=R_String(NumP); &CountD = CountD+1;
#(C,4,0)=_(,); #FlagNOt(N,3,0)=_(,);
          $(_EQ(+1)+_EQ(+1))  // ᫨ 㬬 ⮣  ⠭
#(N,2,0)=_(,); #(N,2,0)=_(,);
#(C,200,0)=_(2,); #(C,255,0)=_(1,);
&I(N,2,0)=;  #(C,23,0)=_(,);
#(C,23,0)=_(,);
               $
                    #Simv(N,1,0)=_(,I); #(C,9,0)=_(I);
                    $(Simv*FlagNOt)
                      &Ind(N,2,0)=I-+2;
                      #01(N,14,@1)=_(,Ind); &01=01+01;
                      #01=_(,Ind);            &02=02+01;
                    $_
                    &I=I+1;
               $(_LE(I-))
           $
             $(FlagNOt)
               #01(N,15,@1)=_(,); &01=01+01;
               #01=_(,);           &02=02+01;
             $_
          $_
    $_  // ਧ  
    $_  // ய  ᥩ
    &=+1;
$(_GE(-)*NoExit)
$_  // ᫥ 롮 ० (_EQ(-1))
//////////////////////////////////////////////////////////////////
$(_EQ(-2))
#2(N,2,0)=_(8,9,78,15, ?, ॥,᪠   客 ஢);
$(_EQ(2))
${(7. ன  ॥)
&_(N,1,0)=1;  // 0 -  , 1 - 
$}(7. ன  ॥)
${(6. ଠ ॥)
#_(N,2,0)=(2);       //  ⥪饣   
#1(N,3,0)=_(MonthBeg,0);  #2(N,3,0)=_(MonthEnd,0);
#1(C,9,0)=_(1); #2(C,9,0)=_(2);
#(N,3,0)=(4, 1-_);  #1(N,3,0)=(4, 2-_);
#(C,27,0)=R_String( );
#(C,4,0)=R_Date(6);
#=_(/, @1, ⠫ ,,   /);
$(_NE(_))
&(N,13,2)=0;
&(N,13,2)=0;
&(N,13,2)=0;
&(N,13,2)=0;
$
  #(C,5,0)=_(NumInPack,);
  #FLAG(N,5,0)=_(, , );
  &=+1;
$(_GT(-)*_EQ(FLAG))
&=0;
               㠫 ᢥ, ।⠢塞
                             ᨮ 䮭
                   ਮ 楢:  @1  @2 @ 
                         @
                               N@
-------------------------------------------------------------------------------------------------------------
|   |                                 |客     |᫥  ᨨ      |      |
|窥    |                                        |         |ᥣ        | 쭨. |ࠡ⮤.   |
-------------------------------------------------------------------------------------------------------------
$
#(C,5,0)=_(NumInPack,);
#FLAG(N,5,0)=_(, , );
$(_NE(FLAG))
#FLAG(N,5,0)=_(,);
#(N,5,0)=_();                   // 稪 ப  
$(_NE(FLAG)+_GE(+6-))
-------------------------------------------------------------------------------------------------------------
$(_NE(FLAG))
|         |                                        |      ⮣:  |@      |@      |@      |
-------------------------------------------------------------------------------------------------------------
$_
$LF


               㠫 ᢥ, ।⠢塞
                             ᨮ 䮭
                   ਮ 楢:  @1  @2 @ 
                         @
                               N@
-------------------------------------------------------------------------------------------------------------
|   |                                 |客     |᫥  ᨨ      |      |
|窥    |                                        |         |ᥣ        | 쭨. |ࠡ⮤.   |
-------------------------------------------------------------------------------------------------------------
#=R_String();
$(_NE(FLAG))
&(N,13,2)=0;
&(N,13,2)=0;
&(N,13,2)=0;
&(N,13,2)=0;
$_
$_
#(C,9,0)=_(NumInPack,);
#(C,40,0)=_(fio1,);
#(C,20,0)=_(fio2,);
#(C,20,0)=_(fio3,);
#=_(!SPACE,, ,, ,);
#(C,14,0)=_(StrahNum,);
  #(C,4,0)=_(,);
  #FlagNOt(N,3,0)=_(,);
  $(FlagNOt)
#(N,13,2)=_(ItogoPer,);
#(N,13,2)=_(ItogoBlPer,);
#(N,13,2)=_(SumMan,);
#(N,13,2)=_(SumPredp,);
   $
      &(N,13,2)=0;
      &(N,13,2)=0;
      &(N,13,2)=0;
      &(N,13,2)=0;
   $_
&(N,13,2)=+;
&(N,13,2)=+;
&(N,13,2)=+;
&(N,13,2)=+;
|@ |@                                    |@        |@       |@       |@      |
$_
&=+1;
$(_GT(-))
-------------------------------------------------------------------------------------------------------------
|         |                                        |      ⮣:  |@      |@      |@      |
-------------------------------------------------------------------------------------------------------------
$
$
  #(C,5,0)=_(NumInPack,);
  #FLAG(N,5,0)=_(, , );
  &=+1;
$(_GT(-)*_EQ(FLAG))
&=0;
               㠫 ᢥ, ।⠢塞
                             ᨮ 䮭
                   ਮ 楢:  @1  @2 @ 
                         @
                               N@
-------------------------------------------------------------------
|   |                                 |客     |
|窥    |                                        |         |
-------------------------------------------------------------------
$
#(C,5,0)=_(NumInPack,);
#FLAG(N,5,0)=_(, , );
$(_NE(FLAG))
#FLAG(N,5,0)=_(,);
#(N,5,0)=_();                   // 稪 ப  
$(_NE(FLAG)+_GE(+6-))
-------------------------------------------------------------------
$LF


               㠫 ᢥ, ।⠢塞
                             ᨮ 䮭
                   ਮ 楢:  @1  @2 @ 
                         @
                               N@
-------------------------------------------------------------------
|   |                                 |客     |
|窥    |                                        |         |
-------------------------------------------------------------------
#=R_String();
$_
#(C,9,0)=_(NumInPack,);
#(C,20,0)=_(fio1,);
#(C,1,0)=_(fio2,);
#(C,1,0)=_(fio3,);
#=_(!SPACE,, ,,.,,.);
#(C,14,0)=_(StrahNum,);
|@ |@                                    |@        |
$_
&=+1;
$(_GT(-))
-------------------------------------------------------------------
$_

⠢⥫:

: ________________  ____________ / ________________

#DATAZ(C,12,0)=_(DateTransf,0);
 : @DATAZ
$}(6. ଠ ॥)
$
${(9.  ॥  ..)
&FlagMes(N,1,0)=0;  // 0 -  ࠧ  栬, 1 -   ࠧ
$}(9.  ॥  ..)
${(8. ଠ ᯨ᪠   客)
  #_(N,2,0)=(2);       //  ⥪饣   
  #1(N,3,0)=_(MonthBeg,0);  #2(N,3,0)=_(MonthEnd,0);
  #1(C,9,0)=_(1); #2(C,9,0)=_(2);
  #(N,3,0)=(4, 1-_);  #1(N,3,0)=(4, 2-_);
  #(C,27,0)=R_String( );
  #(C,4,0)=R_Date(6);
  #=_(/, @1, ⠫ ,,   /);
    &(N,13,2)=0;
    &(N,13,2)=0;
    &(N,13,2)=0;
    &=0;
                    騬 客 
                   ਮ 楢:  @1  @2 @ 
                         @
$(_EQ(FlagMes))
----------------------------------------------------------------------------------------------
|   |                                 |᫥  ᨨ      |      |
|窥    |                                        |ᥣ        | 쭨. |ࠡ⮤.   |
----------------------------------------------------------------------------------------------
$
-------------------------------------------------------------------------------------------------------
|   |                                 |   |᫥  ᨨ      |      |
|窥    |                                        |        |ᥣ        | 쭨. |ࠡ⮤.   |
-------------------------------------------------------------------------------------------------------
$_
    $
      #(C,5,0)=_(NumInPack,);
      #FLAG(N,5,0)=_(, , );
      $(_EQ(FLAG))
        #(N,5,0)=_();                   // 稪 ப  
$(_EQ(FlagMes))
  &SizeBuf(N,2,0)=6;
$
  &SizeBuf(N,2,0)=14;
$_
        $(_GE(+SizeBuf-))
$(_EQ(FlagMes))
----------------------------------------------------------------------------------------------
|         |                         |      ⮣:  |@      |@      |@      |
----------------------------------------------------------------------------------------------
$LF
                    騬 客 
                   ਮ 楢:  @1  @2 @ 
                         @
----------------------------------------------------------------------------------------------
|   |                                 |᫥  ᨨ      |      |
|窥    |                                        |ᥣ        | 쭨. |ࠡ⮤.   |
----------------------------------------------------------------------------------------------
$
|         |                                         ⮣:  |@      |@      |@      |
-------------------------------------------------------------------------------------------------------
$LF
                    騬 客 
                   ਮ 楢:  @1  @2 @ 
                         @
-------------------------------------------------------------------------------------------------------
|   |                                 |   |᫥  ᨨ      |      |
|窥    |                                        |        |ᥣ        | 쭨. |ࠡ⮤.   |
-------------------------------------------------------------------------------------------------------
$_
          #=R_String();
          $(_NE(FLAG))
            &(N,13,2)=0;
            &(N,13,2)=0;
            &(N,13,2)=0;
          $_
        $_
        #(C,40,0)=_(fio1,);
        #(C,20,0)=_(fio2,);
        #(C,20,0)=_(fio3,);
        #=_(!SPACE,, ,, ,);
        #(C,4,0)=_(,);
        #FlagNOt(N,3,0)=_(,);
        #(N,2,0)=_(,);
        &(N,13,2)=0;
        &(N,13,2)=0;
        #(C,250,0)=_(Itogo,);
        #(C,250,0)=_(ItogoBl,);
        #PERN(N,2,0)=_(,1);
        &NOM(N,6,0)=+1;
        &I(N,2,0)=1;
        $
          &I=I+1;
          #(C,8,0)=_(I-2+);
          $(FlagNOt)
             #(N,13,2)=_(,I);
             #(N,13,2)=_(,I);
          $
             &(N,13,2)=0;
             &(N,13,2)=0;
          $_
          &=+;
          &=+;
$(_NE(FlagMes))
&=;
&=;
     $(_LE(I-2))
|@NOM     |@                                    |@  |@        |@       |             |
     $
|         |                                        |@  |@        |@       |             |
     $_
$_
        $(_GE(PERN-I))
        $(FlagNOt)
           #(N,13,2)=_(SumPredp,);
        $
           &(N,13,2)=0;
        $_
        &(N,13,2)=+;
        &(N,13,2)=+;
        &(N,13,2)=+;
$(_EQ(FlagMes))
|@NOM     |@                                    |@       |@       |@      |
$
|         |                                        ----------------------------------------------------
|         |                                                 |@       |@       |@      |
-------------------------------------------------------------------------------------------------------
$_
      $_
      &=+1;
    $(_GT(-))
$(_EQ(FlagMes))
----------------------------------------------------------------------------------------------
|         |                         |      ⮣:  |@      |@      |@      |
----------------------------------------------------------------------------------------------
$
|         |                                         ⮣:  |@      |@      |@      |
-------------------------------------------------------------------------------------------------------
$_

⠢⥫:

: ________________  ____________ / ________________

  #DATAZ(C,12,0)=_(DateTransf,0);
 : @DATAZ
$}(8. ଠ ᯨ᪠   客)
$_
$_  // ᫥ 롮 ० (_EQ(-2))
///////////////////////////////////////////////////////
$(_EQ(-3))
${(7. ᮪ 죮⭨)
#(N,2,0)=_(Fio1);         #(N,2,0)=_(Fio2);
#(N,2,0)=_(Fio3);         #(N,2,0)=_(Year);
#(N,2,0)=_(StrahNum);   #(N,2,0)=_(TypeMany);
#3(N,2,0)=_(SumPredp);
#(N,2,0)=_(NumDogov);   #(N,2,0)=_(TypePay);
#(N,2,0)=_(DateDogov); #(N,2,0)=_(KodCatPay);
#(N,2,0)=_(NamCatPay);#(N,2,0)=_(CountStag);
#(N,2,0)=_(DateTransf);
#(N,2,0)=_(Dolgnost1);
#=_(1,);
#_(N,2,0)=(2);       //  ⥪饣   
#1(N,3,0)=_(MonthBeg,0);  #2(N,3,0)=_(MonthEnd,0);
&(N,3,0)=11-2+1;
#(N,3,0)=(4, 1-_);  #1(N,3,0)=(4, 2-_);
$(_EQ())
  &1=0;
$_
#(C,27,0)=R_String( );
#(C,4,0)=R_Date(6);
#=_(/, @1 , ⠫ ,,   /);
#01(C,9,0)=_(,0);
#=_(01);
$()
  #=_(01,7);
  #0(N,6,0)=_(0);
  &(N,6,0)=0;
$
  &(N,6,0)=0;
$_

      ᮪ ࠡ⭨, ࠡ     祭 
      "祭  ᨩ  ⥩"  ᪠ N 1  N 2,
      .12, .78-82  窥  N @     @

  --------------------------------------------------------------------------------------------------------------------------------
  |N /|    ...               |客     |, |୮    | ᮡ. . 㤠|    |N|-   |
  |     |                         |         | 㤮   |ࠧ  |/ 樨 ᯨ᪠ |㣥  ||砭|
  --------------------------------------------------------------------------------------------------------------------------------
$                     //     ⠡
  #=_();      // ਧ  
  $()
    #01(C,9,0)=_(,);    #02(C,39,0)=_(,);
    #03(C,39,0)=_(,);      #04(C,39,0)=_(,);
    #05(C,9,0) =_(,);    #06(C,7,0)=_(,);
    #07(C,35,0)=_(,);#08(C,35,0)=_(,);
    #(C,14,0)=_(,);    #=_();
    #09(C,15,0)=_(,); #10(C,4,0)=_(,);
    // 㬬 客 믫  ।  ࠡ⭨
    #11(N,14,@2)=_(3,);
    #(N,2,0)=_(,); #(C,200,0)=_(2,);
    #(C,255,0)=_(1,);
    &T(V,2,0)=1; &I(V,2,0)=1;
    //&T=1; &I=1;
    $()
      $   // ⠦
        #@T(C,6,0)=R_String( );
        #@T(C,9,0)=R_String( );
        #@T(C,20,0)=R_String( );
        &Index(N,2,0)=I*2;  #(C,200,0)=_(+Index-1,);
        &@T=_Long(I); #DATEPER(C,30,0)=_(,1,2);
        #@T(C,60,0)=_(+I-1,);
        #GENST(C,100,0)=_(,2,2);
        #@T=_(GENST,2);
        #@T=_(GENST,5);
        #@T=_(GENST,6);
        #=_(+Index,); #LG(N,2,0)=_(,1,2);
        $(LG)
          &J(N,2,0)=2;
          $ // 죮 ⠦
            #LGST(C,170,0)=_(,J,2);
            &T=T+1;
            #@T(C,60,0)=_(+I-1,);
            #@T(C,6,0)=R_String( );
            #@T(C,9,0)=R_String( );
            #@T(C,20,0)=R_String( );
            #@T=_(LGST,1);
            #@T=_(LGST,2);
            #@T=_(LGST,7);
            &J=J+1;
          $(_LE(J-LG-1)*_LE(T-MAXST))
        $_
        &I=I+1; &T=T+1;
      $(_LE(I-)*_LE(T-MAXST))
    $_
    //////////////////////////////////////////////
    &I=1
    $
      #(C,6,0)=R_String(@I);
      #(C,9,0)=R_String(@I);
      #(C,60,0)=R_String(@I);
      #(N,8,0)=_(,21);   // 颥 ᫮ ப
      #1(N,20,0)=_(0);
      #2(N,20,0)=R_String();
      #3(N,20,0)=R_String();
      $(_GT(-1))
        #2(N,20,0)=_(1);
      $_
      $(_GT(-2))
        #3(N,20,0)=_(2);
      $_
      #(C,20,0)=R_String(@I);
      #RC(N,2,0)=_(2,,,,);
      $(_NE(RC)+_EQ(I-1))
      $(_EQ(I-1))
       #(N,6,0)=_(FCpodr,);
       #(C,30,0)=_();
       #(N,8,0)=_(,15);   // 颥 ᫮ ப
       #1(N,15,0)=_(0);
       $(_GT(-1))
         #2(N,15,0)=_(1);
       $
         #2(N,15,0)=R_String( );
       $_
       #(C,25,0)=_(fio1,);
       #(C,25,0)=_(fio2,);
       #(C,25,0)=_(fio3,);
       #1(C,25,0)=_(!SPACE,, ,);
       &(N,5,0)=+1;
       #(C,14,0)=_(StrahNum,);
       #=_(01);
       $()
         #=_(01,7);
         #0(N,3,0)=_(1);
         &(N,3,0)=0;
       $
         &(N,3,0)=0;
       $_
  |@ |@                     |@        |@1             |@1     |@                |@    |@|       |
  |     |@1                     |              |@2             |@2     |@              |         |   |       |
#=_(3);
$()
  |     |                         |              |@3             |               |                    |         |   |       |
$_
      $
  |     |                         |              |@1             |               |@                |@    |   |       |
  |     |                         |              |@2             |               |@              |         |   |       |
#=_(3);
$()
  |     |                         |              |@3             |               |                    |         |   |       |
$_
      $_
      $_
      &I=I+1;
    $(_GE(MAXST-I)*_GT(T-I))
  $_
  ///////////////////////////////////////////
  &=+1;
$(_GT(-))
  --------------------------------------------------------------------------------------------------------------------------------
#(N,3,0)=_(3);
&I(N,3,0)=0;
&TOT(N,3,0)=0;


  ⮣ ப  죮⠬
  -------------------------------------------------------
  |.㤠 |  樨 ᯨ᪠ |  .| -   |
  -------------------------------------------------------
$
  #ST(C,60,0)=_(4,I);
  #NST(N,3,0)=_(5,I);
  #ST1(C,10,0)=_(ST,1);
  #ST2(C,20,0)=_(ST,2);
  #ST3(C,10,0)=_(ST,3);
  |@ST1      |@ST2                |@ST3      |@NST      |
  &I=I+1;
  &TOT=TOT+NST;
$(_GT(-I));
  -------------------------------------------------------
                                    ⮣ :   @TOT

  㪮⥫         ஢ 

                   @              ________      @

#(C,10,0)=_(DateTransf,); #(C,20,0)=_();
  @                         ..
$}(7. ᮪ 죮⭨)
$_  // ᫥ 롮 ० (_EQ(-3))
$_  // ᫥ 롮 ० (_EQ(-27))
$
