//-----------㠫 ᢥ  ᨮ 䮭----------------
//------------------ 室 ଠ ----------------------------------
#(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)=_(15,9,65,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);
#(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; 
    $ 
      #(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; 
          $_ 
        $_ 
        #(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)=_(SumPredp,); 
        $ 
           &(N,13,2)=0; 
           &(N,13,2)=0; 
           &(N,13,2)=0; 
        $_ 
        &(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(-27)) 
$ 
