//-----------㠫 ᢥ  ᨮ 䮭----------------
//------------------ 室 ଠ ----------------------------------
#(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. )
  #(C,10,0)=_(NumInPack,0);
  #=_();
  $(_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);  #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);
$                      //     ⠡
   #=_();      // ਧ  
   $()
     #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)=_(,);    #=_();
     $(_EQ()) // ⮩ ॣ樮 
          #(C,34,0)=R_String(._._._. - ._._._. - ._._._.  ._._.);
     $_
     #(C,10,0)=_(,); #(C,20,0)=_();
     #=_();
     $(_EQ())
         #(C,30,0)=R_String("__"_._._._._._._._.20__ );
     $_
     #=_(,); #(C,20,0)=_();
     #=_();
     $(_EQ())
         #(C,30,0)=R_String("__"_._._._._._._._.20__ );
     $_
// ६   ⮣ 㬬    
     &01(N,14,@1)=0; &02(N,14,@1)=0;
// ।  ⭮ ⠫
     #(N,2,0)=_(,);#(N,2,0)=_(,);
     &(N,2,0)=_Long((-1)/3)+1;
     $(_GT(--8)) // -8 稫  -+1-9
         #(C,25,0)=_(!SPACE,0, ,, ,05, ,);
     $
         #(C,25,0)=_(!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)=_(,);
  $(FlagNOt)  // ᫨ ଠ  ⬥
     #09(C,15,0)=_(,); #10(C,4,0)=_(,);
     // 㬬 客 믫  ।  ࠡ⭨
     #11(N,14,@2)=_(3,); #12(N,14,@2)=_(4,);
     #(N,2,0)=_(,); #(C,200,0)=_(2,);
     #(C,255,0)=_(1,);
     &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( );
  $_   // ᫨ ଠ  ⬥
//  客 ᮢ    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-14))
${(2. ଠ ࠢ)
䨤樠쭮 ଠ樨 ࠭ ⥫
 ଠ -1                                               ________
                           @01
            㤮 ⠦, ࠡ⪥ (ࠦ), 室
            ᫥ 客  客 
客  @                                   Ŀ
         @02                                   |             |
#=_(,);
$(_EQ())
             @03                                   |[X] 室         |
$
             @03                                   |[ ] 室         |
$_
#=_(,);
$(_EQ())
⢮        @04                                   |[X] ४   |
$
⢮        @04                                   |[ ] ४   |
$_
$(_EQ(FlagNOt))
                                                       |[X] ⬥       |
$
                                                       |[ ] ⬥       |
$_
#=_(,);
$(_EQ())
 ਮ:  @                              |[X] 祭 ᨨ|
$
 ਮ:  @                              |[ ] 祭 ᨨ|
$_
                                                       
  ࠡ⮤⥫
樮  @
          @13

⥣ ⥫騪 客 ᮢ:  @10  @09
  㬬 ᫥  客 ᮢ:
    㯫稢 ࠡ⮤⥫:                     @11              @06
    㯫稢  ࠡ⪠ 客 : @12              @06
    ࠡ⪥ (ࠦ), 室   ਮ
      Ŀ
      |     | 騥 ᫥, 뢠  祭 ᨨ |
      |          Ĵ
      |          |        ᥣ          | ⮬ ᫥  .⠬  |
      Ĵ
// 塞 㬬   
     &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))
#(C,20,0)=(61);
#(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;
$                                      //     ⠡
 $(_EQ(-))  // ⮡  砭 ᥩ  ⠢ 
   &=0; &NoExit=0;
 $_
    #=_();                     // ਧ  
    $(+_EQ(NoExit))
      #NumInPack(C,10,0)=_(,);
      #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      |
| ࠡ⪥ (ࠦ), 室          |                       |
| ᫥ 客                 |                       |
Ĵ
|                                              |                       |
Ĵ
|          ⮣ 㬥⮢  : |          @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))
${(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,10,2)=0;
&(N,10,2)=0;
&(N,10,2)=0;
&(N,10,2)=0;
#(C,5,0)=_(NumInPack,);
               㠫 ᢥ, ।⠢塞
                             ᨮ 䮭
                   ਮ 楢:  @1  @2 @ 
                         @
                               N@
---------------------------------------------------------------------------------------------------------------
|   |                                 |客     |.  ᨨ   |   |   |
|窥    |                                        |         |ᥣ     | . |ࠡ⭨ |ࠡ⮤.|
---------------------------------------------------------------------------------------------------------------
$
#(C,5,0)=_(NumInPack,);
#FLAG(N,5,0)=_(,);
#(N,5,0)=_();                   // 稪 ப  
$(_NE(FLAG)+_GE(+6-))
---------------------------------------------------------------------------------------------------------------
$(_NE(FLAG))
|         |                                        |      ⮣:  |@   |@   |@   |@   |
---------------------------------------------------------------------------------------------------------------
$_
$LF


               㠫 ᢥ, ।⠢塞
                             ᨮ 䮭
                   ਮ 楢:  @1  @2 @ 
                         @
                               N@
---------------------------------------------------------------------------------------------------------------
|   |                                 |客     |.  ᨨ   |   |   |
|窥    |                                        |         |ᥣ     | .  |ࠡ⭨ |ࠡ⮤.|
---------------------------------------------------------------------------------------------------------------
#=R_String();
$(_NE(FLAG))
&(N,10,2)=0;
&(N,10,2)=0;
&(N,10,2)=0;
&(N,10,2)=0;
$_
$_
#(C,9,0)=_(NumInPack,);
#(C,40,0)=_(fio1,);
#(C,20,0)=_(fio2,);
#(C,20,0)=_(fio3,);
#=_(!SPACE,, ,, ,);
#(C,14,0)=_(StrahNum,);
#(N,10,2)=_(ItogoPer,);
#(N,10,2)=_(ItogoBlPer,);
#(N,10,2)=_(SumMan,);
#(N,10,2)=_(SumPredp,);
&(N,10,2)=+;
&(N,10,2)=+;
&(N,10,2)=+;
&(N,10,2)=+;
|@ |@                                    |@        |@    |@    |@    |@   |
&=+1;
$(_GT(-))
---------------------------------------------------------------------------------------------------------------
|         |                                        |      ⮣:  |@   |@   |@   |@   |
---------------------------------------------------------------------------------------------------------------
$
#(C,5,0)=_(NumInPack,);
               㠫 ᢥ, ।⠢塞
                             ᨮ 䮭
                   ਮ 楢:  @1  @2 @ 
                         @
                               N@
-------------------------------------------------------------------
|   |                                 |客     |
|窥    |                                        |         |
-------------------------------------------------------------------
$
#(C,5,0)=_(NumInPack,);
#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. ଠ ॥)
$_  // ᫥ 롮 ० (_EQ(-2))
///////////////////////////////////////////////////////
$_  // ᫥ 롮 ० (_EQ(-27))
$