//  ࠢ, ॥  ⮪  ।    
#=_(0); 
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
${(1. ன ) 
// ன  ७ᥭ  "ன ⠡   "
$}(1. ன ) 
  &ns(N,2,0)=1;             // 1 -   㫨, 0 - 
  &opr(N,2,0)=1;            // 冷  㬬  ࠧ 3: 1- ⮫栬, 0- ப
  &(N,4,0)=2;            // ⠢ &(N,4,0)=2   㬬  
  &1(N,5,0)=2;           // ⠢ &1(N,5,0)=2    㬬  
  &2(N,5,0)=0;           // ⠢ &2(N,5,0)=2     
  &eng(N,2,0)=0;            // 1 -  . 2-, 0 - 筠
  &ruk(N,2,0)=0;            // 1 -    㪮⥫, 0 - 
  $(__,0); // 0 (1,...) - ⢮ ய᪮ ப
  $(_,"-");     // ᨬ  મ: "-" ( .ᨬ)
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ 
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)
  &pay(N,2,0)=0;            // 1-㯫   ; 0-㯫祭 ࠢ 㤥ঠ
  #nump(N,2,0)=(TypeNumPck,2ndfl,0); // 1- 䨪樮  XML-䠩 ᯮ짮 GUID; 0-筠 㬥 (1,2  ..)
  &retit(N,2,0)=0;          // 1- ॥   ।祩  䠩; 0-ன ⪫祭
${(2. ) 
  #Fpriznak(N,2,0)=_(15,9,70,15, 㬥, ࢨ, ); 
  $(_EQ(Fpriznak-27)) 
    $BEG_SCRIPT 
      var CurFile=CreateObject("CurPrnFile"); 
      CurFile.SetFlagBrowse(0); 
      CurFile.SetFlag_Print(0); 
    $END_SCRIPT 
    $ 
  $_ 
  #Format(N,2,0)=_(15,9,70,15,롥 ०,  , ।  䠩); 
  $(_EQ(Format-27)) 
    $BEG_SCRIPT 
      var CurFile=CreateObject("CurPrnFile"); 
      CurFile.SetFlagBrowse(0); 
      CurFile.SetFlag_Print(0); 
    $END_SCRIPT 
    $ 
  $_ 
  &(N,2,0)=0; 
  $(_EQ(Format)) 
  #=_(15,9,70,15, ?, ࠢ, , ⮪,  ࠢ); 
  $(_EQ(-27)) 
    $BEG_SCRIPT 
      var CurFile=CreateObject("CurPrnFile"); 
      CurFile.SetFlagBrowse(0); 
      CurFile.SetFlag_Print(0); 
    $END_SCRIPT 
    $ 
  $_ 
  $_ 
  // 
  &fp(N,2,0)=1; 
//  #fp(N,2,0)=_(15,9,65,15,ଠ :,⮢,Excel);     
//  $(_EQ(fp-27))     
//    $BEG_SCRIPT     
//      var CurFile=CreateObject("CurPrnFile");     
//      CurFile.SetFlagBrowse(0);     
//      CurFile.SetFlag_Print(0); 
//    $END_SCRIPT     
//    $     
//  $_     
$}(2. ) 
// 
$(_NE(fp))     
  &regim(N,2,0)=; 
  &kop(N,4,0)=; 
  &kop1(N,5,0)=1; 
  &kop2(N,5,0)=2; 
  $BEG_SCRIPT     
 
    int np = 15; 
    var param[np]; 
 
    param[0] = regim; 
    param[1] = kop; 
    param[2] = kop1; 
    param[3] = kop2; 
    param[4] = ns; 
    param[5] = opr; 
    param[6] = Format; 
    param[7]  = 2012; 
    param[8] = eng; 
    param[9] = ruk; 
    param[10]  = 3; 
    param[11] = atoi(Fpriznak); 
    param[12] = atoi(pay); 
    param[13] = atoi(retit);
    param[14] = atoi(nump);
 
    UnloadScriptModule("dmodules"); 
    LoadScriptModule("dmodules"); 
      UnloadDynamicModules(); 
    UnloadScriptModule("dmodules"); 
 
    LoadScriptModule("forms\\ndfl2_05"); 
      ndfl2_par(param,np); 
    UnloadScriptModule("forms\\ndfl2_05"); 
 
  $END_SCRIPT     
  $     
$_     
// 
${(3.   ) 
// . DOCAMBA\ndfl_okato.txt
$}(3.   ) 
//${(3.  ।) 
  #(C,6,0)=(,,,,); 
  #(N,2,0)=_(,63);   // 頥 ᫮ ப 
  #1(N,63,0)=_(0); 
  $(_GT(-1)) 
    #2(N,63,0)=_(1); 
  $ 
    #2(N,63,0)=R_String(); 
  $_ 
  $(_GT(-2)) 
    #3(N,63,0)=_(2); 
  $ 
    #3(N,63,0)=R_String(); 
  $_ 
  #=_(); 
  #(C,2,0)=R_String();    //   ᨬ   ᯥ樨 
  #(C,45,0)=(,,,,); 
  #(C,35,0)=(,,,,); 
  #(C,35,0)=(,,,,); 
  #(C,45,0)=(,,,,); 
  #(C,8,0)=(,,,,); 
  #(C,8,0)=(,,,,); 
  #(C,8,0)=(,-,,,); 
//$}(3.  ।) 
  $(_EQ()) //   ࠢ 
    &(N,5,0)=0; 
    $                                      //     ⠡ 
      #=_();                       // ਧ   
      $() 
${(4.   ⠢ 15%) 
//  ⮣ ⮡  १⮢      ⠢ 15%  
// 뢠  ࠢ 2-, 室 ᫥饥:
// 
// 1)  ⠡ 室 뤥  㤥ঠ   15%,
//      "" 㪠 210 ( ⬠),   "" 㪠 冷 - 
//    祭    祬     ⬮ 207, ਬ,
//     ⠢   307 "৤" -   冷 153,    ⬮ 207
//      冷 152 ( )
// 
// 2)  ன   室 䨧᪨     ᮮ⢥騩 ,
//     "  .  15%",  ⬠ ( "") 210, 
//    㪢  ⬠ ( )  ( ᪠ 㪢).
// 
// 3)  㦭 믮 ன  ⬠:
//    -  ࠢ筨   ,  ⠡ ,  ⠡ 2
//      㪠  " 15%",    ⠡ 2  㪠 業 
//      ⮫ " %" - 15.00
//    -  ᯨ᪥   ⠢  室 ⮫쪮   , 
//        "N⠡"   㪠 2,
//       ⮫ "" ᨬ "-" (,  祪)
//    -  ""  ⮫ ""   ⮫쪮     ண 㤥
//      㪠  .
// 
// 4)  ⬠ 207 㦭 믮 ᫥饥:
//    -  ࠢ筨   ,  ⠡ ,  ⠡ 2
//      㪠  " 15%",    ⠡ 2  㪠 業 
//      ⮫ " %" - 15.00
//    -  ᯨ᪥     "N⠡"   㪠 2
//    -     ⬮ 210  ⮫ "" ⠢ "" ( ᪠ 㪢  祪)
// 
// 5)       ⢮    ⬮ 207 ( ⠢ 307 "৤") 
//      ⬮ 210
$}(4.   ⠢ 15%) 
//${(4. ஢ ) 
        #(C,20,0)=_(INNFL,);      //  䨧᪮  
        #(C,10,0)=_(NI_FL,);    //   䨧᪮  
        #I0(C,19,0)=_(F,);       #I1(C,13,0)=_(I,); 
        #I2(C,15,0)=_(O,);       #(C,4,0)=_(COUNTRY,); 
        #(C,6,0)=_(INDEX,);    #(C,2,0)=_(REGION,); 
        #(C,40,0)=_(RAION,);  #(C,30,0)=_(GOROD,); 
        #(C,35,0)=_(NASP,);  #(C,40,0)=_(UL,); 
        #(C,4,0)=_(DOM,);     #(C,4,0)=_(KORP,); 
        #(C,8,0)=_(KVART,);   #(C,3,0)=_(DOC_CODE,); 
        #(C,8,0)=_(SER_PS,);  #(C,20,0)=_(NOM_PS,); 
        #DB(C,10,0)=_(B_DATE,);  #CIT(C,3,0)=_(FCcitizen,); 
        #FULLFIO1(C,79, 0)=_(FULLFIO,); 
        #(C,4,0)=_(DB,1,.);#(C,4,0)=_(DB,2,.); 
        #(C,4,0)=_(DB,3,.); 
        #(N,3,0)=_(STATUS,);   #(N,3,0)=_(MR,); 
        #SIM(C,12,0)=_(PERIOD,); #STRAHN(C,14,0)=_(STRAHN,); 
        #PER(C,35,0)=_(010203040506070809101112,@SIM        ,,*,2); 
//$}(4. ஢ ) 
${(9. 㬬  ) 
//  #STRAHN(C,14,0)=_(FCstrah_n,); 
//  #PFBASE(N,14,2)=_(PFBASE,); 
//  #PFTAX(N,14,2)=_(PFTAX,); 
//  #SSBASE(N,14,2)=_(SSBASE,); 
//  #SSTAX(N,14,2)=_(SSTAX,); 
//  #MSBASE(N,14,2)=_(MSBASE,); 
//  #MSTAX(N,14,2)=_(MSTAX,); 
//  #TMSBASE(N,14,2)=_(TMSBASE,); 
//  #TMSTAX(N,14,2)=_(TMSTAX,); 
$}(9. 㬬  ) 
${(6.  6- ࠧ ࠢ) 
        // ᭮ 室  --------------------------------------------------- 
        #PRIM(N,13,@)=_(PRIM,);     // ᭮ 室   ᪨ 
        #PRIMS(N,13,@1)=_(PRIMS,);  //  㬬 室 
        #PRIMTF(N,11,@2)=_(PRIMTF,);    //   ᭮ 室    (᫥) 
        #PRIMFF(N,11,@2)=_(PRIMFF,);    //   ᭮ 室    (㤥ঠ) 
        // / ---------------------------------------------------------------- 
        #RK(N,13,@)=_(RK,);         // 㬬 /   ᪨ 
        #RKS(N,13,@1)=_(RKS,);          //  㬬 / 
        #RKTF(N,11,@2)=_(RKTF,);        //   /           (᫥) 
        #RKFF(N,11,@2)=_(RKFF,);        //   /           (㤥ঠ) 
        // 룮  ------------------------------------------------------------ 
        #PROFIT(N,13,@)=_(PROFIT,); // 㬬 룮   ᪨ 
        #PROFITS(N,13,@1)=_(PROFITS,);  //  㬬 룮 
        #PROFITTF(N,11,@2)=_(PROFITTF,);//   룮        (᫥) 
        #PROFITFF(N,11,@2)=_(PROFITFF,);//   룮        (㤥ঠ) 
        // ঠ     ᪠ ----------------------------- 
        #TAXDEBTF(N,11,@2)=_(TAXDEBTF,);   // , ।  ᪠     
        #TAXREPF(N,11,@2)=_(TAXREPF,);     // , 饭     
        #RECKONING(N,11,@2)=_(RG,); //      
        #UPREDTAX(N,11,@2)=_(U_PREDTAX,); //       
        #ZPREDTAX(N,11,@2)=_(Z_PREDTAX,); //       
        &TAXTF(N,11,@2)=PRIMTF+RKTF+PROFITTF-RECKONING;   //VIB 
        &TAXFF(N,11,@2)=PRIMFF+RKFF+PROFITFF; 
        $(_GT(TAXTF-TAXFF)) 
          &DEBN(N,11,@2)=TAXTF-TAXFF;   //   ⥫騪 
          &DEBA(N,11,@2)=0; 
        $ 
          &DEBA(N,11,@2)=TAXFF-TAXTF;   //   ⮬ 
          &DEBN(N,11,@2)=0; 
        $_ 
        //-------------------------------------------------------------------- 
        #PROFITDIV(N,13,@)=0; 
        #PRFDIV1(N,11,@2)=0; 
        #PRFDIV2(N,11,@2)=0; 
        #PROFITNR(N,13,@)=0; 
        #PROFITTFNR(N,11,@2)=0; 
        #PROFITFFNR(N,11,@2)=0; 
        #DIVOBL(N,11,@2)=0; 
        $(_EQ(-2.)) 
          &PROFITNR=PROFITS;      //VIB 3.2.1.1 
          &PROFITTFNR=PROFITTF; 
          &PROFITFFNR=PROFITFF; 
        $ 
          &PROFITDIV=PROFIT; 
          &DIVOBL=PROFITS; 
          &PRFDIV1=PROFITTF; 
          &PRFDIV2=PROFITFF; 
        $_ 
$}(6.  6- ࠧ ࠢ) 
${(5.  3,4,5- ࠧ ࠢ) 
        #ME1(N,2,0)=_(EndMonth,); 
        #ME2(N,2,0)=(0,ME1);//   ਮ 
        #MONTHINC(C,255,0)=_(MONTHINC,); 
        &Z(V,2,0)=1; 
        $ 
          #SFD@Z(N,10,@)=_(MONTHINC,Z); 
          &Z=Z+1; 
        $ (_GE(12-Z)) 
        #(C,178,0)=_(NEDV,); 
        #(N,2,0)=_(,70); 
        #1(N,70,0)=_(0); 
        $(_GT(-1)) 
          #2(N,70,0)=_(1); 
        $ 
          #2(N,70,0)=R_String(); 
        $_ 
        #=_(); 
        &Y(V,2,0)=0; 
        $ 
          &C@Y(N,4,0)=0;      &E@Y(N,4,0)=0;        &D@Y(N,4,0)=0;  &TT@Y(N,4,0)=0; 
          &IS@Y(N,12,@)=0; &DISS@Y(N,7,@)=0;  &DED@Y(N,8,@)=0; 
          &E@Y(N,4,0)=0;      &C7@Y(N,4,0)=0; 
          &A@Y(N,4,0)=0;      &AS2@Y(N,11,@)=0; 
          &B@Y(N,4,0)=0;      &BS2@Y(N,11,@)=0; 
          &F@Y(N,4,0)=0;      &DIS2@Y(N,7,@)=0; 
          &I@Y(N,4,0)=0;      &IS@Y(N,11,@)=0;   &IS7@Y(N,11,@)=0; 
          &J@Y(N,4,0)=0;      &JS@Y(N,11,@)=0; 
          &K@Y(N,4,0)=0;      &KS@Y(N,7,@)=0; 
          &L@Y(N,4,0)=0;      &LS@Y(N,11,@)=0; 
          &Y=Y+1; 
        $ (_GE(16-Y))      //  横 
        &DW(N,10,@)=0.; 
        &X(V,2,0)=0; 
        &Y=0; &Z(V,2,0)=0; 
        #INCCODE(C,255,0)=_(INCCODE,); 
        $ 
          #(C,255,0)=_(INCCODE,Z+1,2); 
          #C(N,4,0)=_(,1);        //  室 
          #IS(N,12,@)=_(,2);   // 㬬 室 
          #D(N,4,0)=_(,3);        //  ᪨ 
          #DISS(N,7,@)=_(,4); // 㬬 ᪨ 
          $(_NE(4600-C)*_NE(3010-C)*_NE(2800-C)*_NE(1530-C)*_NE(1520-C)*_NE(1510-C)*_NE(4000-C)+_NE(D)) 
           &C@X=C;                  //  室 
           $ (1-_EQ(C)) 
             &C@X(V,4,0)=C; 
           $_ 
           &D@X=D;                  //  ᪨ 
           $ (1-_EQ(D)) 
             &D@X(V,3,0)=D; 
           $_ 
           &IS@X=IS;                // 㬬 室 
           &DISS@X=DISS;            // 㬬 ᪨ 
           $ (_EQ(D)*(1-_EQ(C))) 
             #D@X(C,4,0)=R_String(-);              //  ᪨  㫥  
             #DISS@X(C,7,0)=R_String(       -  ); // 㬬 室   㫥  
           $_ 
           &X=X+1; 
          $ 
           &C7@Y=C;                  //  室 
           $ (1-_EQ(C)) 
             &C7@Y(V,4,0)=C; 
           $_ 
           &IS7@Y=IS;                // 㬬 室 
           &Y=Y+1; 
          $_ 
          &Z=Z+1; 
        $ (_GT(8-X)*_GT(8-Y)) 
        &X(V,2,0)=0; 
        #DEDUCTION(C,255,0)=_(DEDUCTION,); 
        $ 
          #(C,255,0)=_(DEDUCTION,X+1,2); 
          #E(N,4,0)=_(,1);           //   
          #DISS(N,7,@)=_(,2);    // 㬬 ᪨ 
          &DED@X=DISS; 
          &E@X=E;                  //   
          $ (1-_EQ(E)) 
            &E@X(V,3,0)=E; 
          $_ 
          &X=X+1; 
        $ (_GT(9-X)) 
        //  室  ⮢  ⠡ N2 
        &X(V,2,0)=0; 
        #INCCODE2(C,255,0)=_(INCCODE2,); 
        $ 
          #(C,255,0)=_(INCCODE2,X+1,2); 
          #A(N,4,0)=_(,1);         //  室 
          #AS2(N,10,@)=_(,2);   // 㬬 室 
          &A@X=A;                                //  室 
          $ (1-_EQ(A)) 
            &A@X(V,4,0)=A; 
          $_ 
          &AS2@X(N,11,@)=AS2;                            // 㬬 室 
          &X=X+1; 
        $ (_GT(8-X)) 
        //  室  ⠬  ⠡ N2 
        &X(V,2,0)=0; 
        #INCCODE2D(C,255,0)=_(INCCODE2D,); 
        $ 
          #(C,255,0)=_(INCCODE2D,X+1,2); 
          #B(N,4,0)=_(,1);        //  室 
          #BS2(N,10,@)=_(,2);  // 㬬 室 
          #F(N,4,0)=_(,3);        //  ᪨ 
          #DIS2(N,7,@)=_(,4); // 㬬 ᪨ 
          &B@X=B;                  //  室 
          $ (1-_EQ(B)) 
            &B@X(V,4,0)=B; 
          $_ 
          &F@X=F;                  //  ᪨ 
          $ (1-_EQ(F)) 
            &F@X(V,3,0)=F; 
          $_ 
          &BS2@X=BS2;                // 㬬 室 
          &DIS2@X=DIS2;          // 㬬 ᪨ 
          &X=X+1; 
        $ (_GT(8-X)) 
        $(_EQ(-2)) 
          //  室  ⮢  ⠡ N3 
          &X(V,2,0)=0; 
          #INCCODENR(C,255,0)=_(INCCODENR,); 
          $ 
            #(C,255,0)=_(INCCODENR,X+1,2); 
            #L(N,4,0)=_(,1);         //  室 
            #LS(N,10,@)=_(,2);    // 㬬 室 
            &L@X=L;                                //  室 
            $ (1-_EQ(L)) 
              &L@X(V,4,0)=L; 
            $_ 
            &LS@X(N,11,@)=LS;                   // 㬬 室 
            &X=X+1; 
          $ (_GT(8-X)) 
          //  室  ⠬  ⠡ N3 
          &X(V,2,0)=0; 
          #INCCODENRD(C,255,0)=_(INCCODENRD,); 
          $ 
            #(C,255,0)=_(INCCODENRD,X+1,2); 
            #J(N,4,0)=_(,1);       //  室 
            #JS(N,10,@)=_(,2);  // 㬬 室 
            #K(N,4,0)=_(,3);       //  ᪨ 
            #KS(N,7,@)=_(,4);   // 㬬 ᪨ 
            &J@X=J;                              //  室 
            $ (1-_EQ(J)) 
              &J@X(V,4,0)=J; 
            $_ 
            &K@X=K;                              //  ᪨ 
            $ (1-_EQ(K)) 
              &K@X(V,3,0)=K; 
            $_ 
            &JS@X=JS;                            // 㬬 室 
            &KS@X=KS;                            // 㬬 ᪨ 
            &X=X+1; 
          $ (_GT(8-X)) 
        $_ 
        &X(V,2,0)=1; &Y(V,2,0)=1; &Z(V,2,0)=1; &W(V,2,0)=0; 
        $ //    㬬 室  ᪨ 
          &Z=1; &CDI@Y(N,4,0)=0; &UD(N,4,0)=0; 
          $ 
            &SDI@Y@Z(N,10,@)=0.; 
            &ZDI01@Z(N,10,@)=0.; 
            &Z=Z+1; 
          $(_LE(Z-13)) 
          &Y=Y+1; 
        $(_LE(Y-10)) 
        &X=1; &Y=1; &FLAGUD(V,2,0)=0; 
$}(5.  3,4,5- ࠧ ࠢ) 
        #DOCDATE(C,255,0)=_(DOCDATE,); 
        #YEAR(C,4,0)=_(YEAR,); 
        #(V,2,0)=_(DOCDATE,1,.);#(V,2,0)=_(DOCDATE,2,.); 
        #(V,4,0)=_(DOCDATE,3,.); 
        #FREETAX(C,1,0)=_(FREETAX,); 
        #DOCNUM(C,8,0)=_(DOCNUM,); 
${(7. ଠ ࠢ. ) 
                                                                   ଠ 2- 
         @YEAR   @DOCNUM     @ 
1.    (筨 室) 
1.1. / ( 䨧᪨  ⮫쪮 ) @                /@ 
1.2. ⠪ ⥫䮭 @            1.3.   @ 
1.4.  ࣠樨 /, , ⢮ 㠫쭮 
।ਭ⥫  @1 
#SS(C, 80, 0)=R_String(  @2                                                                        ); 
#=_(SS); 
$(1-_EQ()) 
@SS 
$_ 
#SS(C, 80, 0)=R_String(  @3                                                                        ); 
#=_(SS); 
$(1-_EQ()) 
@SS 
$_ 
2.   䨧᪮  - ⥫ 室  2.1.  @ 
2.2.  客 ᢨ⥫⢠  @STRAHN 
2.3.  @(1-१, 2-१)    2.4. , , ⢮ 
 @FULLFIO1 
2.5. *  㬥, 㤮⮢饣 筮 @ 
2.6. ,  㬥 @     @ 
2.7.  ஦ @DB        .    2.8. ࠦ⢮ (* ࠭) @CIT 
2.9.  ﭭ  ⥫⢠:   * ࠭ @ 
⮢  @    * ॣ @   @ 
த @ 
ᥫ 㭪 @ 
 @                                       @  @  @ 
3. 室,    ⠢ 13% (30%)    3.1. 室   
 *   㬬       *  㬬     *  㬬 室  *  㬬  
室 室                      室               
@C00   @IS00        @D00  @DISS00         @C01  @IS01         @D01  @DISS01 
#SS(C, 80, 0)=R_String(@C02   @IS02        @D02  @DISS02         @C03  @IS03         @D03  @DISS03     ); 
#=_(SS); 
$(1-_EQ()) 
@SS 
$_ 
#SS(C, 80, 0)=R_String(@C04   @IS04        @D04  @DISS04         @C05  @IS05         @D05  @DISS05     ); 
#=_(SS); 
$(1-_EQ()) 
@SS 
$_ 
3.2. 室  栬 
    @SFD01         ࠫ  @SFD02              @SFD03 
 ५   @SFD04               @SFD05              @SFD06 
      @SFD07            @SFD08          @SFD09 
   @SFD10            @SFD11           @SFD12 
3.3. ⠭  
*  㬬   *  㬬    *  㬬    *  㬬  
@E00  @DED00        @E01  @DED01         @E02  @DED02         @E03  @DED03 
#SS(C, 80, 0)=R_String(@E04  @DED04        @E05  @DED05         @E06  @DED06         @E07  @DED07      ); 
#=_(SS); 
$(1-_EQ()) 
@SS 
$_ 
3.4. 㬬 室 @PRIM          3.5. 㬬 室 @PRIMS 
3.6.㬬  ᫥ @PRIMTF     3.7.㬬  㤥ঠ @PRIMFF 
4. : 
4.1.  㬬 室 @PROFITDIV     4.2.  㬬 室 @DIVOBL 
4.3.㬬  ᫥ @PRFDIV1    4.4.㬬  㤥ঠ @PRFDIV2 
5. 室,    ⠢ 35%        5.1. 室   
*   㬬 室  *  㬬    *  㬬 室  *  㬬  
室                             室               
@B00  @BS200         @F00  @DIS200       @B01  @BS201         @F01  @DIS201 
#SS(C, 80, 0)=R_String(@B02  @BS202         @F02  @DIS202       @B03  @BS203         @F03  @DIS203     ); 
#=_(SS); 
$(1-_EQ()) 
@SS 
$_ 
5.2. 㬬 室 @RK            5.3. 㬬 室 @RKS 
5.4.㬬  ᫥ @RKTF       5.5.㬬  㤥ঠ @RKFF 
6. 㬬   室  ⮣  ਮ 
6.1. 㬬  ᫥ @TAXTF 
6.2. 㬬  㤥ঠ  @TAXFF 
6.3.㬬      室   @UPREDTAX 
6.4.㬬, ⥭  㯫     室   
 @ZPREDTAX      6.5.     ⥫騪 @DEBN 
6.6.      ⮬ @DEBA 
6.7. 㬬 , ।  ᪠   ࣠ @TAXDEBTF 
7. 室  த ⢠ 
 *  㬬 室     *  㬬 室     *  㬬 室 
@C700  @IS700          @C701  @IS701          @C702  @IS702 
#SS(C, 80, 0)=R_String(@C703  @IS703          @C704  @IS704          @C705  @IS705           ); 
#=_(SS); 
$(1-_EQ()) 
@SS 
$_ 
#(C,18,0)=R_String(); 
@          ___________________ @           ⠢ @DOCDATE   . 
                      ()      () 
               .. 
 
* 祭 ४⮢ 롨  ࠢ筨 
$LF 
//$(_EQ(1-FLAGUD)) 
$(_EQ(1)) 
&Z(V,2,0)=0; 
$ 
  &Z=Z+1; 
  &CDI@Z=0; 
  &SDI01@Z=0; 
$(_GT(12-Z)) 
$_ 
//$_ 
$}(7. ଠ ࠢ. ) 
      $_            //  ஢ન 롮  
    &=+1; 
    $(_GT(-)) 
    $ //   ࠢ,  ᭮      ⮪  05.11.98 16:18 Suetov 
  $_          // _EQ()  ஢ન ०  ࠢ. 
${(8. . ) 
// 
//         
// 
  $(_EQ(-1))  // ஢ઠ, ࠭  ०  ॥. 
    #(N,2,0)=_(,50);   // 颥 ᫮ ப 
    #1(N,50,0)=_(0); 
    $(_GT(-1)) 
      #2(N,50,0)=_(1); 
    $ 
      #2(N,50,0)=R_String(); 
    $_ 
    $(_GT(-2)) 
      #3(N,50,0)=_(2); 
    $ 
      #3(N,50,0)=R_String(); 
    $_ 
    #=_(); 
    #(N,2,0)=_(,50);   // 颥 ᫮ ப 
    #1(N,50,0)=_(0); 
    $(_GT(-1)) 
      #2(N,50,0)=_(1); 
    $ 
      #2(N,50,0)=R_String(); 
    $_ 
    $(_GT(-2)) 
      #3(N,50,0)=_(2); 
    $ 
      #3(N,50,0)=R_String(); 
    $_ 
    #=_(); 
    #YEAR(C,4,0)=_(YEAR,0); 
    #DOCDATE(C,10,0)=_(DOCDATE,); 
    // 
    &(N,5,0)=0;                                  // 稪 ᥩ 
    &(N,5,0)=0; 
    $ 
      #=_(); 
      $() 
        &=+1; 
      $_ 
      &=+1; 
    $(_GT(-)) 
                                 
                   @YEAR  
 
                @DOCDATE    @ 
 
   : 
  @1 
  @2 
  @3 
 
    : @                /@ 
 
   ⢥⢥ : @ 
 
  ⢮ ।⠢ 㬥⮢ (ࠢ  室 ): @ 
 
  
    &(N,5,0)=0;                                  // 稪 ᥩ 
    &(N,5,0)=1;                                 // 稪 ࠭ 
    #(N,3,0)=_();                      //  ࠭ 
    &(N,5,0)=1; 
    $ 
      #=_(); 
      $() 
        $() 
          #=_(,,)           //   
          #=_(__);               //  㬬   
          &(N,5,0)=0; 
        $_ 
        #=_(_,,)  //   ப ⠡ 
      $_ 
      &=+1; 
      #(N,5,0)=_();                 // 稪 ப   
      $(_GE(+6-)+_EQ(-)) 
        #=_(,_);            //  ⮣  . 
        #=_(__);            //  ⮣  . 
        $(_LT(-)) 
          $_ 
          &(N,5,0)=1; 
        $_ 
      $_ 
    $(_GT(-)) 
    #=_(_,); 
    $(_GE(+12-)) 
      $_ 
    $_ 
 
       ____________________________ 
 
 
         
 
 
      ।⠢   ࣠ "____"__________"20__. 
 
      ਭ   ࣠      "____"__________"20__. 
 
      ࠡ⭨  ࣠   _______________ 
 
    $ 
  $_ 
$}(8. . ) 
${(9. ⮪. ) 
// 
//        ....  N 11 
// 
  $(_EQ(-2))  // ࠭ ०  ⮪ (ਫ N 11) 
    #(N,2,0)=_(,50);   // 颥 ᫮ ப 
    #1(N,50,0)=_(0); 
    $(_GT(-1)) 
      #2(N,50,0)=_(1); 
    $ 
      #2(N,50,0)=R_String(); 
    $_ 
    $(_GT(-2)) 
      #3(N,50,0)=_(2); 
    $ 
      #3(N,50,0)=R_String(); 
    $_ 
    #=_(); 
    #(N,2,0)=_(,50);   // 颥 ᫮ ப 
    #1(N,50,0)=_(0); 
    $(_GT(-1)) 
      #2(N,50,0)=_(1); 
    $ 
      #2(N,50,0)=R_String(); 
    $_ 
    $(_GT(-2)) 
      #3(N,50,0)=_(2); 
    $ 
      #3(N,50,0)=R_String(); 
    $_ 
    #=_(); 
    #YEAR(C,4,0)=_(YEAR,0); 
             @YEAR  
        
 
    ________  __.______.20__ . 
 
  /: @                /@ 
 
   : 
  @1 
  @2 
  @3 
 
  : @ 
 
    : @ 
 
    : @ 
 
    &(N,5,0)=0;                                  // 稪 ᥩ 
    &(N,5,0)=1;                                 // 稪 ࠭ 
    #(N,3,0)=_();                      //  ࠭ 
    &(N,5,0)=0; 
    &(N,5,0)=1; 
    $ 
      #=_(); 
      $() 
        &=+1; 
      $_ 
      &=+1; 
    $(_GT(-)) 
 
    ___  "__" _______________ 20__  
 
   ,   : @ 
 
      : _____ 
 
       : 
 
    
    
    
    
    
    
    
    
    
    
    
    
 
     _________________________ 
 
 
     .. 
 
      ________________ 
 
 
    $_ 
    $ 
  $_  // _EQ(-2) 
$}(9. ⮪. ) 
  $(_EQ(-3)) //   ᢮ ࠢ 
    $BEG_SCRIPT     
      AmbaMessageBox("⮢ ଠ  ᢮ ࠢ   ॠ.","",0,0); 
      var CurFile=CreateObject("CurPrnFile");     
      CurFile.SetFlagBrowse(0);     
      CurFile.SetFlag_Print(0); 
    $END_SCRIPT     
  $_  // _EQ(-3) 
$ 
