// Ôîðìà ïå÷àòè ðàñ÷åòíîãî ëèñòêà äëÿ ðàñ÷åòà çà ìåñÿö.  
#CLIN(N,4,0)=Ñ×ÅÒ×ÈÊ_ÑÒÐÎÊ(); #SIZL(N,4,0)=ÐÀÇÌ_ËÈÑÒÀ();  
$ÅÑËÈ(_GT(ÑÒÐÎÊ+CLIN+12-SIZL))  
  $LF  
$ÊÎÍÅÖ_ÅÑËÈ  
${ÇÎÍÀ(7. Ïðèçíàê ïå÷àòè êîïååê)  
 &ÊÎÏ(N,4,0)=2;        // Ïîñòàâüòå &ÊÎÏ(N,4,0)=2 äëÿ ïå÷àòè ñóìì ñ êîïåéêàìè  
$}ÇÎÍÀ(7. Ïðèçíàê ïå÷àòè êîïååê)  
${ÇÎÍÀ(3.Øàïêà ðàñ÷åòíîãî ëèñòêà). ÍÀ×ÀËÎ îôîðìëåíèÿ øàïêè.  
$ÓÑÒÀÍ(ÃÎÐÈÇ_ÒÀÁ,68)  // Îòñòóï îò ëåâîãî êðàÿ áóìàãè äëÿ âòîðîãî êâèòêà  
$ÓÑÒÀÍ(ÍÓËÜ_ÐÂ, );    // Ñèìâîë äëÿ ïðåäñòàâëåíèÿ íóëåâîãî ðàáî÷åãî âðåìåíè  
#F(C,31,0)=R_Name(2); // Ïîñòàâüòå R_Name(1), åñëè õîòèòå ïîëíîå ÔÈÎ â øàïêå  
&ÄÐÌÅÑ(N,6,0)=0;  // Ïîñòàâüòå &ÄÐÌÅÑ(N,6,0)=1 äëÿ âûäåëåíèÿ ñóìì äð.ìåñÿöåâ  
#S(C,2,0)=R_String(  ); #OFICE(C,42,0)=R_String(ÈÌßÏ); #PODR(C,7,0)=R_Face(podr); #T0(N,7,0)=R_Face(tn);  
&TN(N,7,0)=T0; #KAT(N,2,0)=R_Face(kat);  
&K(N,2,0)=KAT; #GOD(N,4,0)=ÄÀÒÛ(5); #MES(N,2,0)=ÄÀÒÛ(2); #MRASCH(C,8,0)=ÊÀËÅÍÄ_ÌÅÑ(MES);  
@OFICE                                      @MRASCH  @GOD ã.  
Ïîäð-å:@PODR   @TN    (@K): @F  
------------------------------------------------------------  
$}ÇÎÍÀ(3.Øàïêà ðàñ÷åòíîãî ëèñòêà). ÊÎÍÅÖ îôîðìëåíèÿ øàïêè.  
&Ì(N,2,0)=0; &ÊÍ(N,3,0)=0; #ÍÀÇÂÍ(C,7,0)=R_String( ); &ÐÂÍ(N,7,2)=0; &ÑÓÌÍ(N,10,@ÊÎÏ )=0; #Í(C,2,0)=R_String( ); &ÇÍ(N,3,0)=0; #ÑÒÐÍ(C,35,0)=R_String( ); #ÑÒÐÓ(C,27,0)=R_String( ); &ÑÓÌÈÒ2(N,11,@ÊÎÏ )=0;  
&Å(N,2,0)=0; &ÊÓ(N,3,0)=0; #ÍÀÇÂÓ(C,7,0)=R_String( ); &ÐÂÓ(N,6,2)=0; &ÑÓÌÓ(N,10,@ÊÎÏ )=0; #Ó(C,2,0)=R_String( ); &ÇÓ(N,3,0)=0; &ÑÓÌÈÒ(N,11,@ÊÎÏ )=0;  &ÇÍ0(N,3,0)=99; &ÇÓ0(N,3,0)=99; &ÑÓÌÈÒ1(N,11,@ÊÎÏ )=0;  
&RCN(N,4,0)=0; &RCU(N,4,0)=0; // Ïå÷àòü òåëà  
$ÏÎÂÒÎÐßÒÜ                                   // Öèêë  ïî çàïèñÿì òàáëèöû  
  &ÇÍ0=ÇÍ; &ÇÓ0=ÇÓ;  
  #O(N,2,0)=ÑÒÐÎÊÀ_ÍÀ×(Ì,ÊÍ,ÍÀÇÂÍ,ÐÂÍ,ÑÓÌÍ,Í,ÇÍ,RCN); #Q(N,2,0)= ÑÒÐÎÊÀ_ÓÄ(Å,ÊÓ,ÍÀÇÂÓ,ÐÂÓ,ÑÓÌÓ,Ó,ÇÓ,RCU);  
  $ÅÑËÈ (_GE(ÇÍ+ÇÓ-4)*_LT(ÇÍ0+ÇÓ0-4))  
    $ÅÑËÈ (RCN+RCU)  
------------------------------------------------------------  
    $ÊÎÍÅÖ_ÅÑËÈ  
 Ì êîä íà÷èñë.    ðâ        ñóììà | Ì êîä óäåðæ.      ñóììà  
  $ÊÎÍÅÖ_ÅÑËÈ  
  $ÅÑËÈ ((1-_EQ(ÇÍ-3))*_GT(ÇÍ-ÇÓ))             // ôîðìèðóåì ñòðîêó íà÷èñëåíèé  
    #ÑÒÐÍ=R_String(                                  |); // ïóñòàÿ ñòðîêà  
  $ÈÍÀ×Å  
    $ÅÑËÈ (_EQ(ÇÍ-3))                                   // èòîãè  
      #O(N,2,0)=ÑÒÐÎÊÀ_ÍÀ×(Ì,ÊÍ,ÍÀÇÂÍ,ÐÂÍ,ÑÓÌÈÒ,Í,ÇÍ,RCN);  
      #ÑÒÐÍ=R_String( ÈÒÎÃÎ                @ÑÓÌÈÒ     @Í); &RCN=RCN+1;  
    $ÊÎÍÅÖ_ÅÑËÈ  
    $ÅÑËÈ (_LT(ÇÍ-3))                                   // ñóììà  
      #ÑÒÐÍ=R_String(@Ì @ÊÍ @ÍÀÇÂÍ  @ÐÂÍ    @ÑÓÌÍ     @Í); &RCN=RCN+1;  
    $ÊÎÍÅÖ_ÅÑËÈ  
  $ÊÎÍÅÖ_ÅÑËÈ                              // ôîðìèðóåì ñòðîêó óäåðæàíèé  
  $ÅÑËÈ (_GE(ÇÓ-2)*_LT(ÇÍ-2)+_GE(ÇÓ-7)*_LT(ÇÍ-7))  
    #ÑÒÐÓ=R_String(                         );          // ïóñòàÿ ñòðîêà  
  $ÈÍÀ×Å  
    $ÅÑËÈ (_EQ(ÇÓ-3))                                   // èòîãè  
      #Q(N,2,0)= ÑÒÐÎÊÀ_ÓÄ(Å,ÊÓ,ÍÀÇÂÓ,ÐÂÓ,ÑÓÌÈÒ,Ó,ÇÓ,RCU);  
      #ÑÒÐÓ=R_String( ÈÒÎÃÎ        @ÑÓÌÈÒ     );        &RCU=RCU+1;  
    $ÊÎÍÅÖ_ÅÑËÈ  
    $ÅÑËÈ (_EQ(ÇÓ-4)) // êîììåíòàðèé ê ìåæðàñ÷åòíûì âûïëàòàì, ñòðîêà 1  
      #ÑÒÐÓ=R_String(                         );        &RCU=RCU+1;  
    $ÊÎÍÅÖ_ÅÑËÈ  
    $ÅÑËÈ (_EQ(ÇÓ-5)) // êîììåíòàðèé ê ìåæðàñ÷åòíûì âûïëàòàì, ñòðîêà 2  
      #ÑÒÐÓ=R_String( Ìåæðàñ÷åòíûå âûïëàòû:   );        &RCU=RCU+1;  
    $ÊÎÍÅÖ_ÅÑËÈ  
    $ÅÑËÈ (_LT(ÇÓ-3)+_EQ(ÇÓ-6))                         // ñóììà  
      #ÑÒÐÓ=R_String(@Å @ÊÓ @ÍÀÇÂÓ  @ÑÓÌÓ     @Ó);      &RCU=RCU+1;  
    $ÊÎÍÅÖ_ÅÑËÈ  
  $ÊÎÍÅÖ_ÅÑËÈ  
  $ÅÑËÈ (_LT(ÇÍ-7)+_LT(ÇÓ-7))  
@ÑÒÐÍ                              @ÑÒÐÓ  
  $ÊÎÍÅÖ_ÅÑËÈ  
$ÏÎÊÀ (_LT(ÇÍ-7)+_LT(ÇÓ-7))  
$ÅÑËÈ (RCN+RCU)  
------------------------------------------------------------  
$ÊÎÍÅÖ_ÅÑËÈ  
#O(N,2,0)=ÑÒÐÎÊÀ_ÍÀ×(Ì,ÊÍ,ÍÀÇÂÍ,ÐÂÍ,ÑÓÌÈÒ,Í,ÇÍ,RCN); #Q(N,2,0)= ÑÒÐÎÊÀ_ÓÄ(Å,ÊÓ,ÍÀÇÂÓ,ÐÂÓ,ÑÓÌÈÒ1,Ó,ÇÓ,RCU);  
&RCN=RCN+1; &RCU=RCU+1;  
 ÂÑÅÃÎ íà÷èñëåíî      @ÑÓÌÈÒ      | óäåðæàíî     @ÑÓÌÈÒ1  
------------------------------------------------------------  
#O(N,2,0)=ÑÒÐÎÊÀ_ÍÀ×(Ì,ÊÍ,ÍÀÇÂÍ,ÐÂÍ,ÑÓÌÈÒ,Í,ÇÍ,RCN);  
&RCN=RCN+1;                            // â âåäîìîñòü, îñòàòîê, äîëã  
#O(N,2,0)=ÑÒÐÎÊÀ_ÍÀ×(Ì,ÊÍ,ÍÀÇÂÍ,ÐÂÍ,ÑÓÌÈÒ1,Í,ÇÍ,RCN); #Q(N,2,0)= ÑÒÐÎÊÀ_ÓÄ(Å,ÊÓ,ÍÀÇÂÓ,ÐÂÓ,ÑÓÌÈÒ2,Ó,ÇÓ,RCU);  
#ÑÒÐÓ=R_String( );  
$ÅÑËÈ (_GT(ÑÓÌÈÒ1))  
  #ÑÒÐÓ=R_String( îñòàòîê      @ÑÓÌÈÒ1     );  
$ÊÎÍÅÖ_ÅÑËÈ  
$ÅÑËÈ (_GT(ÑÓÌÈÒ2))  
  #ÑÒÐÓ=R_String( äîëã         @ÑÓÌÈÒ2     );  
$ÊÎÍÅÖ_ÅÑËÈ  
$ÅÑËÈ (_GT(ÑÓÌÈÒ))  
 â âåä. çà ìåñÿö      @ÑÓÌÈÒ       @ÑÒÐÓ  
$ÈÍÀ×Å  
 Ê ó÷åòó â ñëåäóþùåì ìåñÿöå        @ÑÒÐÓ  
$ÊÎÍÅÖ_ÅÑËÈ  
#TABEL(C,40,0)=R_Caln(0);                    // òàáåëü  
  
 Òàáåëü: @TABEL  
${ÇÎÍÀ(1.Ñóììû äëÿ ïðîâåðêè Ï/íàëîãà). ÍÀ×ÀËÎ ñóìì äëÿ Ï/íàëîãà.  
//ÑËÈ  // Çàêîììåíòèðóéòå ýòó ñòðîêó äëÿ ïå÷àòè ñóìì ïî ï/íàëîãó. 
&FLSUMM(N,4,0)=1;  // 1 - ïå÷àòü ñóìì èñòî÷íèêà âûïëàòû, 2 ïå÷àòü îáùèõ ñóìì 
#ÑÓÌÌÛ(C,160,0)=R_String(1,14,15,16); // ïåðå÷èñëèòå â ñêîáêàõ íóæíûå ñóììû 
#REM001(C,35,0)=R_String(Ïîëíûé äîõîä áåç ó÷åòà ñêèäîê);            // 1 
#REM002(C,35,0)=R_String(Îñíîâíîé äîõîä áåç ó÷åòà ñêèäîê);          // 2 
#REM003(C,35,0)=R_String(Äîõîä ïî ð/ê áåç ó÷åòà ñêèäîê);            // 3 
#REM007(C,35,0)=R_String(Íàëîã ñ ïîëíîé ñóììû);                     // 7 
#REM008(C,35,0)=R_String(Íàëîã ñ îñíîâíîé ñóììû);                   // 8 
#REM009(C,35,0)=R_String(Íàëîã ñ ñóììû ð/ê);                        // 9 
#REM011(C,35,0)=R_String(Íàëîã, ïåðåäàííûé ê âçûñêàíèþ â ÍÈ);       // 11 
#REM012(C,35,0)=R_String(Íàëîã,óäåðæàííûé â ïåðèîäå)                // 12 
#REM013(C,35,0)=R_String(Íàëîã,óäåðæàííûé â ñ÷åò ïåðèîäà)           // 13 
#REM014(C,35,0)=R_String(Ñóììà âû÷åòîâ);                            // 14 
#REM015(C,35,0)=R_String(Ïåðñîíàëüíûå âû÷åòû);                      // 15 
#REM016(C,35,0)=R_String(Âû÷åòû íà èæäèâåíöåâ);                     // 16 
#REM032(C,35,0)=R_String(Ïðîöåíò îáëîæåíèÿ íàëîãîì);                // 32 
#REM033(C,35,0)=R_String(Ñóììà ñêèäîê ïî äîõîäó);                   // 33 
#REM034(C,35,0)=R_String(Ñóììà âûãîäû);                             // 34 
#REM035(C,35,0)=R_String(Îáëàãàåìàÿ ñóììà ïî âûãîäå);               // 35 
#REM036(C,35,0)=R_String(Ñóììà íàëîãà ïî âûãîäå);                   // 36 
#REM037(C,35,0)=R_String(Ñóììà âû÷åòîâ ïî äîõîäó);                  // 37 
#REM038(C,35,0)=R_String(Ñóììà âû÷åòîâ ïî ð/ê);                     // 38 
#REM039(C,35,0)=R_String(Ñóììà âû÷åòîâ ïî âûãîäå);                  // 39 
#REM041(C,35,0)=R_String(Ïîëíûé äîõîä ñ ó÷åòîì ñêèäîê);             // 41 
#REM042(C,35,0)=R_String(Îñíîâíîé äîõîä ñ ó÷åòîì ñêèäîê);           // 42 
#REM043(C,35,0)=R_String(Äîõîä ïî p/ê ñ ó÷åòîì ñêèäîê);             // 43 
#REM044(C,35,0)=R_String(Äîõîä ïî âûãîäå áåç ó÷åòà ñêèäîê);         // 44 
#REM045(C,35,0)=R_String(Îáëàãàåìàÿ ñóììà îñíîâíîãî äîõîäà);        // 45 
#REM046(C,35,0)=R_String(Îáëàãàåìàÿ ñóììà ð/ê);                     // 46 
#REM047(C,35,0)=R_String(Îáëàãàåìàÿ ñóììà âûãîäû);                  // 47 
#REM048(C,35,0)=R_String(Îáùàÿ îáëàãàåìàÿ ñóììà);                   // 48 
#REM050(C,35,0)=R_String(Äîõîä äëÿ ðàñ÷åòà âû÷åòîâ);                // 50 
#REM063(C,35,0)=R_String(Ñêèäêè ïî îñíîâíîìó äîõîäó);               // 63 
#REM064(C,35,0)=R_String(Ñêèäêè ïî Ð/Ê);                            // 64 
#REM065(C,35,0)=R_String(Ñêèäêè ïî âûãîäå);                         // 65 
#REM300(C,35,0)=R_String(Ìàòåðèàëüíàÿ ïîìîùü);                      // 300 
#REM301(C,35,0)=R_String(Ñêèäêà ïî ìàòåðèàëüíîé ïîìîùè);            // 301 
#REM302(C,35,0)=R_String(Ïîäàðêè);                                  // 302 
#REM303(C,35,0)=R_String(Ñêèäêà ïî ïîäàðêàì);                       // 303 
#REM304(C,35,0)=R_String(Ïðèçû);                                    // 304 
#REM305(C,35,0)=R_String(Ñêèäêà ïî ïðèçàì);                         // 305 
#REM306(C,35,0)=R_String(Âû÷åò â ÏÔ ñ îñíîâíîãî äîõîäà);            // 306 
#REM307(C,35,0)=R_String(Âû÷åò â ÏÔ ñ ð/ê);                         // 307 
#REM308(C,35,0)=R_String(Âû÷åò â ÏÔ ñ äîõîäà ñîâìåñòèòåëåé);        // 308 
#REM309(C,35,0)=R_String(Âû÷åò â ÏÔ ñ ð/ê ñîâìåñòèòåëåé);           // 309 
#REM310(C,35,0)=R_String(Çàòðàòû íà ñòðîèòåëüñòâî);                 // 310 
#REM507(C,35,0)=R_String(Íàëîã ñ ïîëíîé ñóììû â ÁÔ);                // 507 
#REM508(C,35,0)=R_String(Íàëîã ñ îñíîâíîé ñóììû â ÁÔ);              // 508 
#REM509(C,35,0)=R_String(Íàëîã ñ ñóììû p/ê â ÁÔ);                   // 509 
#REM511(C,35,0)=R_String(Íàëîã ê âçûñêàíèþ â ÍÈ â ÁÔ);              // 511 
#REM512(C,35,0)=R_String(Óäåðæàíî íàëîãà â ïåðèîäå â ÁÔ);           // 512 
#REM513(C,35,0)=R_String(Óäåðæàíî íàëîãà â ñ÷åò ïåðèîäà â ÁÔ);      // 513 
  ñóììû äëÿ ïðîâåðêè ï/íàëîãà       çà òåê.ìåñ.  ñ íà÷.ãîäà 
$}ÇÎÍÀ(1.Ñóììû äëÿ ïðîâåðêè Ï/íàëîãà).  ÊÎÍÅÖ ñóìì äëÿ Ï/íàëîãà.  
// ñèñòåìíàÿ ÷àñòü çîíû ñóìì ïî ï/íàëîãó  
$ÅÑËÈ (_EQ(FLSUMM-1))  
  #ÑÓÌÍÃÎÄ001(N,11,@ÊÎÏ )=R_Tax(1,1,g,0,Èñòî÷íèê âûïëàòû,*,Í);  
$ÈÍÀ×Å  
  #ÑÓÌÍÃÎÄ001(N,11,@ÊÎÏ )=R_Tax(1,1,g,0,*,*,Í);  
$ÊÎÍÅÖ_ÅÑËÈ  
#ÑÓÌÍÃÎÄ002(N,11,@ÊÎÏ )=R_Tax(2);   #ÑÓÌÍÃÎÄ003(N,11,@ÊÎÏ )=R_Tax(3);  
#ÑÓÌÍÃÎÄ007(N,11,@ÊÎÏ )=R_Tax(7);   #ÑÓÌÍÃÎÄ008(N,11,@ÊÎÏ )=R_Tax(8);  
#ÑÓÌÍÃÎÄ009(N,11,@ÊÎÏ )=R_Tax(9);   #ÑÓÌÍÃÎÄ011(N,11,@ÊÎÏ )=R_Tax(11);  
#ÑÓÌÍÃÎÄ012(N,11,@ÊÎÏ )=R_Tax(12);  
#ÑÓÌÍÃÎÄ013(N,11,@ÊÎÏ )=R_Tax(13);  #ÑÓÌÍÃÎÄ014(N,11,@ÊÎÏ )=R_Tax(14);  
#ÑÓÌÍÃÎÄ015(N,11,@ÊÎÏ )=R_Tax(15);  #ÑÓÌÍÃÎÄ016(N,11,@ÊÎÏ )=R_Tax(16);  
#ÑÓÌÍÃÎÄ032(N,11,@ÊÎÏ )=R_Tax(32);  #ÑÓÌÍÃÎÄ033(N,11,@ÊÎÏ )=R_Tax(33);  
#ÑÓÌÍÃÎÄ034(N,11,@ÊÎÏ )=R_Tax(34);  #ÑÓÌÍÃÎÄ035(N,11,@ÊÎÏ )=R_Tax(35);  
#ÑÓÌÍÃÎÄ036(N,11,@ÊÎÏ )=R_Tax(36);  #ÑÓÌÍÃÎÄ037(N,11,@ÊÎÏ )=R_Tax(37);  
#ÑÓÌÍÃÎÄ038(N,11,@ÊÎÏ )=R_Tax(38);  #ÑÓÌÍÃÎÄ039(N,11,@ÊÎÏ )=R_Tax(39);  
#ÑÓÌÍÃÎÄ041(N,11,@ÊÎÏ )=R_Tax(41);  #ÑÓÌÍÃÎÄ042(N,11,@ÊÎÏ )=R_Tax(42);  
#ÑÓÌÍÃÎÄ043(N,11,@ÊÎÏ )=R_Tax(43);  #ÑÓÌÍÃÎÄ044(N,11,@ÊÎÏ )=R_Tax(44);  
#ÑÓÌÍÃÎÄ045(N,11,@ÊÎÏ )=R_Tax(45);  #ÑÓÌÍÃÎÄ046(N,11,@ÊÎÏ )=R_Tax(46);  
#ÑÓÌÍÃÎÄ047(N,11,@ÊÎÏ )=R_Tax(47);  #ÑÓÌÍÃÎÄ048(N,11,@ÊÎÏ )=R_Tax(48);  
#ÑÓÌÍÃÎÄ050(N,11,@ÊÎÏ )=R_Tax(50);  #ÑÓÌÍÃÎÄ063(N,11,@ÊÎÏ )=R_Tax(63);  
#ÑÓÌÍÃÎÄ064(N,11,@ÊÎÏ )=R_Tax(64);  #ÑÓÌÍÃÎÄ065(N,11,@ÊÎÏ )=R_Tax(65);  
#ÑÓÌÍÃÎÄ300(N,11,@ÊÎÏ )=R_Tax(list,Summa,3100,0,2,1," ");  
#ÑÓÌÍÃÎÄ301(N,11,@ÊÎÏ )=R_Tax(list,RealDiscount,3100,0,2,1," ");  
#ÑÓÌÍÃÎÄ302(N,11,@ÊÎÏ )=R_Tax(list,Summa,3200,0,2,1," ");  
#ÑÓÌÍÃÎÄ303(N,11,@ÊÎÏ )=R_Tax(list,RealDiscount,3200,0,2,1," ");  
#ÑÓÌÍÃÎÄ304(N,11,@ÊÎÏ )=R_Tax(list,Summa,3200,0,2,1," ");  
#ÑÓÌÍÃÎÄ305(N,11,@ÊÎÏ )=R_Tax(list,RealDiscount,3300,0,2,1," ");  
#ÑÓÌÍÃÎÄ306(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,10,0,1," ");  
#ÑÓÌÍÃÎÄ307(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,11,0,2," ");  
#ÑÓÌÍÃÎÄ308(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,10,0,1,"0");  
#ÑÓÌÍÃÎÄ309(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,11,0,2,"0");  
#ÑÓÌÍÃÎÄ310(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,42,5,1," ");  
$ÅÑËÈ (_EQ(FLSUMM-1))  
  #ÑÓÌÍÃÎÄ507(N,11,@ÊÎÏ )=R_Tax(7,1,g,0,Èñòî÷íèê âûïëàòû,*,Ô);  
$ÈÍÀ×Å  
  #ÑÓÌÍÃÎÄ507(N,11,@ÊÎÏ )=R_Tax(7,1,g,0,*,*,Ô);  
$ÊÎÍÅÖ_ÅÑËÈ  
#ÑÓÌÍÃÎÄ508(N,11,@ÊÎÏ )=R_Tax(8);   #ÑÓÌÍÃÎÄ509(N,11,@ÊÎÏ )=R_Tax(9);  
#ÑÓÌÍÃÎÄ511(N,11,@ÊÎÏ )=R_Tax(11);  #ÑÓÌÍÃÎÄ512(N,11,@ÊÎÏ )=R_Tax(12);  
#ÑÓÌÍÃÎÄ513(N,11,@ÊÎÏ )=R_Tax(13);  
$ÅÑËÈ (_EQ(FLSUMM-1))  
  #ÑÓÌÌÅÑ001(N,11,@ÊÎÏ )=R_Tax(1,1,0,0,Èñòî÷íèê âûïëàòû,*,Í);  
$ÈÍÀ×Å  
  #ÑÓÌÌÅÑ001(N,11,@ÊÎÏ )=R_Tax(1,1,0,0,*,*,Í);  
$ÊÎÍÅÖ_ÅÑËÈ  
#ÑÓÌÌÅÑ002(N,11,@ÊÎÏ )=R_Tax(2);    #ÑÓÌÌÅÑ003(N,11,@ÊÎÏ )=R_Tax(3);  
#ÑÓÌÌÅÑ007(N,11,@ÊÎÏ )=R_Tax(7);    #ÑÓÌÌÅÑ008(N,11,@ÊÎÏ )=R_Tax(8);  
#ÑÓÌÌÅÑ009(N,11,@ÊÎÏ )=R_Tax(9);    #ÑÓÌÌÅÑ011(N,11,@ÊÎÏ )=R_Tax(11);  
#ÑÓÌÌÅÑ012(N,11,@ÊÎÏ )=R_Tax(12);  
#ÑÓÌÌÅÑ013(N,11,@ÊÎÏ )=R_Tax(13);   #ÑÓÌÌÅÑ014(N,11,@ÊÎÏ )=R_Tax(14);  
#ÑÓÌÌÅÑ015(N,11,@ÊÎÏ )=R_Tax(15);   #ÑÓÌÌÅÑ016(N,11,@ÊÎÏ )=R_Tax(16);  
#ÑÓÌÌÅÑ032(N,11,@ÊÎÏ )=R_Tax(32);   #ÑÓÌÌÅÑ033(N,11,@ÊÎÏ )=R_Tax(33);  
#ÑÓÌÌÅÑ034(N,11,@ÊÎÏ )=R_Tax(34);   #ÑÓÌÌÅÑ035(N,11,@ÊÎÏ )=R_Tax(35);  
#ÑÓÌÌÅÑ036(N,11,@ÊÎÏ )=R_Tax(36);   #ÑÓÌÌÅÑ037(N,11,@ÊÎÏ )=R_Tax(37);  
#ÑÓÌÌÅÑ038(N,11,@ÊÎÏ )=R_Tax(38);   #ÑÓÌÌÅÑ039(N,11,@ÊÎÏ )=R_Tax(39);  
#ÑÓÌÌÅÑ041(N,11,@ÊÎÏ )=R_Tax(41);   #ÑÓÌÌÅÑ042(N,11,@ÊÎÏ )=R_Tax(42);  
#ÑÓÌÌÅÑ043(N,11,@ÊÎÏ )=R_Tax(43);   #ÑÓÌÌÅÑ044(N,11,@ÊÎÏ )=R_Tax(44);  
#ÑÓÌÌÅÑ045(N,11,@ÊÎÏ )=R_Tax(45);   #ÑÓÌÌÅÑ046(N,11,@ÊÎÏ )=R_Tax(46);  
#ÑÓÌÌÅÑ047(N,11,@ÊÎÏ )=R_Tax(47);   #ÑÓÌÌÅÑ048(N,11,@ÊÎÏ )=R_Tax(48);  
#ÑÓÌÌÅÑ050(N,11,@ÊÎÏ )=R_Tax(50);   #ÑÓÌÌÅÑ063(N,11,@ÊÎÏ )=R_Tax(63);  
#ÑÓÌÌÅÑ064(N,11,@ÊÎÏ )=R_Tax(64);   #ÑÓÌÌÅÑ065(N,11,@ÊÎÏ )=R_Tax(65);  
#ÑÓÌÌÅÑ300(N,11,@ÊÎÏ )=R_Tax(list,Summa,3100,0,2,1," ");  
#ÑÓÌÌÅÑ301(N,11,@ÊÎÏ )=R_Tax(list,RealDiscount,3100,0,2,1," ");  
#ÑÓÌÌÅÑ302(N,11,@ÊÎÏ )=R_Tax(list,Summa,3200,0,2,1," ");  
#ÑÓÌÌÅÑ303(N,11,@ÊÎÏ )=R_Tax(list,RealDiscount,3200,0,2,1," ");  
#ÑÓÌÌÅÑ304(N,11,@ÊÎÏ )=R_Tax(list,Summa,3300,0,2,1," ");  
#ÑÓÌÌÅÑ305(N,11,@ÊÎÏ )=R_Tax(list,RealDiscount,3300,0,2,1," ");  
#ÑÓÌÌÅÑ306(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,10,0,1," ");  
#ÑÓÌÌÅÑ307(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,11,0,2," ");  
#ÑÓÌÌÅÑ308(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,10,0,1,"0");  
#ÑÓÌÌÅÑ309(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,11,0,2,"0");  
#ÑÓÌÌÅÑ310(N,11,@ÊÎÏ )=R_Tax(list,Summa,0,42,5,1," ");  
$ÅÑËÈ (_EQ(FLSUMM-1))  
  #ÑÓÌÌÅÑ507(N,11,@ÊÎÏ )=R_Tax(7,1,0,0,Èñòî÷íèê âûïëàòû,*,Ô);  
$ÈÍÀ×Å  
  #ÑÓÌÌÅÑ507(N,11,@ÊÎÏ )=R_Tax(7,1,0,0,*,*,Ô);  
$ÊÎÍÅÖ_ÅÑËÈ  
#ÑÓÌÌÅÑ508(N,11,@ÊÎÏ )=R_Tax(8);   #ÑÓÌÌÅÑ509(N,11,@ÊÎÏ )=R_Tax(9);  
#ÑÓÌÌÅÑ511(N,11,@ÊÎÏ )=R_Tax(11);  #ÑÓÌÌÅÑ512(N,11,@ÊÎÏ )=R_Tax(12);  
#ÑÓÌÌÅÑ513(N,11,@ÊÎÏ )=R_Tax(13);  
  &CNT(N,4,0)=1;  
  $ÏÎÂÒÎÐßÒÜ  
    #N(V,3,0)=ÝËÅÌ_ÌÀÑÑÈÂÀ(ÑÓÌÌÛ,CNT);  
    $ÅÑËÈ (_GT(N))  
      #ÒÅÊÑÒ(C,35,0)=R_String(REM@N );  
      &ÑÓÌÍÃÎÄ(N,11,@ÊÎÏ )=ÑÓÌÍÃÎÄ@N;  
      &ÑÓÌÌÅÑ(N,11,@ÊÎÏ )=ÑÓÌÌÅÑ@N;  
 @ÒÅÊÑÒ                             @ÑÓÌÌÅÑ     @ÑÓÌÍÃÎÄ  
    $ÊÎÍÅÖ_ÅÑËÈ  
    &CNT=CNT+1;  
  $ÏÎÊÀ (_GT(N))  
$ÊÎÍÅÖ_ÅÑËÈ                  // êîíåö ñèñòåíîé ÷àñòè ñóìì ïî ï/íàëîãó  
${ÇÎÍÀ(2.Ñóììû ïî âûáîðêàì òàáë.âõ-òè). ÍÀ×ÀËÎ ñóìì ïî âûáîðêàì.  
//#ÑÓÌÔÇÏ(N,11,@ÊÎÏ )=R_Col_S("1","*",15,0,0);  
//#ÑÓÌÔÌÏ(N,11,@ÊÎÏ )=R_Col_S("2","*",15,0,0);  
// Ñóììà ê îòïóñêó ÔÇÏ                @ÑÓÌÔÇÏ  
// Ñóììà ê îòïóñêó ÔÌÏ                @ÑÓÌÔÌÏ  
$}ÇÎÍÀ(2.Ñóììû ïî âûáîðêàì òàáë.âõ-òè).  ÊÎÍÅÖ ñóìì ïî âûáîðêàì.  
$ÅÑËÈ (_EQ(ÄÐÌÅÑ-1))  
${ÇÎÍÀ(6. Ñóììû çà äðóãèå ìåñÿöû). ÍÀ×ÀËÎ ñóìì çà äðóãèå ìåñÿöû.  
#ÑÓÌÌÓ(N,12,@ÊÎÏ )=R_Col_S(1,=ò,0,-14,-1); #ÑÓÌÌÁ(N,12,@ÊÎÏ )=R_Col_S(1,=ò,0,1,6);  
$ÅÑËÈ (1-_EQ(ÑÓÌÌÓ))  
Âûïë. çà ïðîøëûå ìåñÿöû â ðàñ÷åò òåêóùåãî    @ÑÓÌÌÓ  
$ÊÎÍÅÖ_ÅÑËÈ  
$ÅÑËÈ (1-_EQ(ÑÓÌÌÁ))  
Âûïë. çà áóäóùèå ìåñÿöû â ðàñ÷åò òåêóùåãî    @ÑÓÌÌÁ  
$ÊÎÍÅÖ_ÅÑËÈ  
$}ÇÎÍÀ(6. Ñóììû çà äðóãèå ìåñÿöû). ÊÎÍÅÖ ñóìì çà äðóãèå ìåñÿöû.  
$ÊÎÍÅÖ_ÅÑËÈ  
#ÒÈÏ(N,4,0)=ÒÈÏ_ÊÂÈÒÊÀ("Î");  
$ÅÑËÈ (_EQ(ÒÈÏ-1))  
${ÇÎÍÀ(4.Äëÿ êâèòêà ê îòïóñêó). ÍÀ×ÀËÎ ñóììû ê îòïóñêó.  
#ÑÓÌÌÓ(N,12,@ÊÎÏ )=R_Face(ved1);  
Ñóììà ê îòïóñêó    @ÑÓÌÌÓ  
$}ÇÎÍÀ(4.Äëÿ êâèòêà ê îòïóñêó). ÊÎÍÅÖ ñóììû ê îòïóñêó.  
$ÊÎÍÅÖ_ÅÑËÈ  
#ÒÈÏ(N,4,0)=ÒÈÏ_ÊÂÈÒÊÀ("Ó");  
$ÅÑËÈ (_EQ(ÒÈÏ-1))  
${ÇÎÍÀ(5.Äëÿ êâèòêà ê óâîëüíåíèþ). ÍÀ×ÀËÎ ñóììû ê óâîëüíåíèþ.  
#ÑÓÌÌÓ(N,12,@ÊÎÏ )=R_Face(ved1);  
Ñóììà ê óâîëüíåíèþ @ÑÓÌÌÓ  
$}ÇÎÍÀ(5.Äëÿ êâèòêà ê óâîëüíåíèþ). ÊÎÍÅÖ  ñóììû ê óâîëüíåíèþ.  
$ÊÎÍÅÖ_ÅÑËÈ