//  ࠢ, ॥  ⮪  ।     
#=_(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)=0;  
  &Format(N,2,0)=27;  
  &NewRegim(N,2,0)=0;
  $BEG_SCRIPT 
    {
      var Tabl = CreateObject("CurPrnTbl");;
      // ࠬ     ࠡ   ० ⭮
      var ReportParams; 
      int VersionParams = NewRegim = IsNewPFReportInterfaceT(Tabl,ReportParams);
      if (VersionParams != 0)
      {
        Fpriznak = (ReportParams.KindAsString == "Ndfl2debt" ? "1 " : "0 ");

        // NewRegim = 0  ० ⭮
        // NewRegim = 1  ० ⭮, ࠢ   
        // NewRegim = 2  ० ⭮, ࠢ  ࠡ⭨ 
        NewRegim = (ReportParams.KindAsString == "Ndfl2ref" ? "2" : "1");
        Format = "0 ";
      }
    }
  $END_SCRIPT  
  &(N,2,0)=0;  
  &Format=0; //  䠩 ।  Alt+F9
//  $(_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;  
$}(2. )  
//  
&retCode(N,2,0)=0;
&regim(N,2,0)=;  
&nKorr(N,2,0)=0;
&fFramework(N,2,0)=0;
&fTipSved(N,2,0)=0;
&fTipSprav(N,2,0)=0;
$BEG_SCRIPT

   if ( IsDotNetExists() == 1 ) 
      fFramework = 1;
   else                         
      fFramework = 0;

   if ( atoi(fFramework) == 1 )
   {
      try
      {
         int retRegim = 0;
         int retFpriznak = Fpriznak;
         string retKorr = "00";
         int retTipSved = 0;
         int retTipSprav = 0;
      
         var Tabl = CreateObject("CurPrnTbl");  // ꥪ   ࠡ  ⥪饩 ⠡楩
         int rec = Tabl.Count_Rcr(); // ᫮ ࠡ ᥩ  ⠡   
         int RecIns = Tabl.GetCountInsertRcr(); // ᫮ 뤥 ᥩ
         int realRec = 0; // ॠ쭮 ⢮ ᥩ
         if ( RecIns ) realRec = RecIns; else realRec = rec;     
         int profitDecl = GetCommonCnfInt("ProfitDecl","2ndfl");

         //retCode = NetDialogs().WpForm2Ndfl(atoi(NewRegim),realRec,retRegim,retFpriznak,retKorr,retTipSved);
         //retTipSprav = NetDialogs().WpForm2Ndfl(atoi(NewRegim),retRegim,retFpriznak,retKorr,retTipSved,realRec,profitDecl);

//-----------------------------------------------------------------------------------------------------------

         int cnt = 8;  
         var params[cnt];  
         
         params[0] = atoi(NewRegim);
         params[1] = retRegim;
         params[2] = retFpriznak;
         params[3] = retKorr;
         params[4] = retTipSved;
         params[5] = realRec;
         params[6] = profitDecl;
         params[7] = retTipSprav;
         
         UnloadScriptModule("forms\\ndfl2panel");  
         LoadScriptModule("forms\\ndfl2panel");  
         StartPanel(params,cnt);
         UnloadScriptModule("forms\\ndfl2panel");  

//-----------------------------------------------------------------------------------------------------------

         retCode = atoi(params[7]); // retTipSprav
         fTipSprav = atoi(params[7]); 

         regim = atoi(params[1]); // retRegim     

         if ( !NewRegim )
         {
            Fpriznak = atoi(params[2]); // retFpriznak;
            nKorr = atoi(params[3]); // atoi(retKorr);
            fTipSved = atoi(params[4]); // atoi(retTipSved);
         }
      }
      catch(...)
      {
         retCode = 27;
      }
   }

$END_SCRIPT
//
$(_EQ(retCode-27))  
  $BEG_SCRIPT  
    var CurFile=CreateObject("CurPrnFile");  
    CurFile.SetFlagBrowse(0);  
    CurFile.SetFlag_Print(0);  
  $END_SCRIPT  
  $  
$_  
//
$(_EQ(fFramework))  
  $(_EQ(NewRegim))  
    #Fpriznak=_(15,9,70,15, 㬥, ࢨ, );  
    $(_EQ(Fpriznak-27))  
      $BEG_SCRIPT  
        var CurFile=CreateObject("CurPrnFile");  
        CurFile.SetFlagBrowse(0);  
        CurFile.SetFlag_Print(0);  
      $END_SCRIPT  
      $  
    $_  
  $_  
#regim=_(15,9,70,15, ?, ࠢ, , ⮪,  ࠢ);  
$(_EQ(-27))  
  $BEG_SCRIPT      
    var CurFile=CreateObject("CurPrnFile");      
    CurFile.SetFlagBrowse(0);      
    CurFile.SetFlag_Print(0);  
  $END_SCRIPT      
  $      
$_      
$_  
//
$(_EQ(regim-4))      
  #dSprav(C,10,0)=_(D_DOC);
  $BEG_SCRIPT      
    // ନ஢ ਫ 2 樨  ਡ
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0); 
    CurFile.SetFlag_Print(0);

    UnloadScriptModule("forms\\ndfl2PrDecl");
    LoadScriptModule("forms\\ndfl2PrDecl");
      Attachment2_MakeFile(dSprav);    
    UnloadScriptModule("forms\\ndfl2PrDecl");
  $END_SCRIPT      
  $      
$_      
//
$(_NE(fp))      
  &kop(N,4,0)=;  
  &kop1(N,5,0)=1;  
  &kop2(N,5,0)=2;  
  $BEG_SCRIPT      

    char NomerKorr[10]; sprintf(NomerKorr,"%02d",atoi(nKorr));
  
    int np = 19;  
    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); 
    param[15] = to_string(NomerKorr); 
    param[16] = atoi(NewRegim); 
    param[17] = atoi(fTipSved); 
    param[18] = atoi(fTipSprav);

    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,    ⬮ 210
//      冷 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. ஢ )  
${(10. 㬬  )  
//  #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,);  
$}(10. 㬬  )  
${(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)  
$  
