//-------- ࠢ    ࠡ祣 ६ 
#DAT(C,10,0)=(6); 
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡ 
$(_EQ()) 
  $ 
$_ 
#M1(N,2,0)=R_Date(1); #G1(N,4,0)=R_Date(5); #M2(N,2,0)=R_Date(2); #G2(N,4,0)=R_Date(6); 
&M1=M1+0; &M2=M2+0; 
#MBEG(C,7,0)=_(M1,.,G1); #MFIN(C,7,0)=_(M2,.,G2); 
&ITSUM(N,12,2)=0; &NMES(N,5,0)=0; 
&ITSUM1(N,12,2)=0; 
&ITSUM2(N,12,2)=0; 
&ITSUM3(N,12,2)=0; 
&ITSUM4(N,12,2)=0;  &NS(N,4,0)=1; 
&ITSUM5(N,10,2)=0; 
&ITSUM6(N,10,2)=0; 
&ITSUM7(N,10,2)=0; 
&ITSUM8(N,10,2)=0; 
&ITSUM9(N,10,2)=0; 
&ITSUM10(N,10,2)=0; 
&ITSUM11(N,10,2)=0; 
&ITSUM12(N,10,2)=0; 
&ITSUM13(N,10,2)=0; 
 
${(1.  ᯨ᪠) 
                                                      @G1   . 
                                                                                                         @NS 
___________________________________________________________________________________________________________________________________________________________________________________________________________________________ 
                     |           |   |   ᥣ    |         |     |         |      |.ꥬ|⪮. | |.|ᯠ |  | ࠡ. |ࠡ.    | ࠡ. | 
                        |                    |        |            |            |            |            |            |           |          |          |          |          |          |।.. |.     |ᥫ.| 
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
$}(1. ᯨ᪠) 
${(7. ਧ  ) 
  $(_,"0"); // " " (஡) -   㫨, "0" -  
$}(7. ਧ  ) 
&(N,5,0)=0; &OLDTN(N,7,0)=0; &FLUD(N,5,0)=0; &OLDPODR(N,6,0,)=0; 
#(N,3,0)=_();             //  ࠭ 
$                             //     ⠡ 
$ (_GT(-)) 
#FIOLS(C,24,0)=_(FIO,); #TNLS(N,6,0)=_(C_FIO,); #PODRLS(N,6,0)=_(FCpodr,);#DOLG(C,20,0)=_(FCdolgnost,); 
#IPOD(C,25,0)=_(PODRLS); 
$ 
#FIOLS(C,24,0)=R_String( ); &TNLS(N,6,0)=0; &PODRLS(N,6,0)=0; 
$_ 
$ (_EQ())                     //   ࠧ 
                                          @IPOD 
                                          ____________________________ 
#FIO(C,24,0)=_(FIO,); 
$_ 
$ (1-_EQ(OLDTN-TNLS))              //   /  
$ (_GT(OLDTN)) 
//$EC (_GT(OLDTN))                     //   
#M1(N,2,0)=R_Date(1); #G1(N,4,0)=R_Date(5); #M2(N,2,0)=R_Date(2); #G2(N,4,0)=R_Date(6); 
&M1=M1+0; &M2=M2+0; 
$ (_LE(NMES)) 
&ASUM(N,12,2)=0; 
&ASUM1(N,12,2)=0; 
&ASUM2(N,12,2)=0; 
&ASUM3(N,12,2)=0; 
&ASUM4(N,12,2)=0; 
&ASUM5(N,10,2)=0; 
&ASUM6(N,10,2)=0; 
&ASUM7(N,10,2)=0; 
&ASUM8(N,10,2)=0; 
&ASUM9(N,10,2)=0; 
&ASUM10(N,10,2)=0; 
&ASUM11(N,10,2)=0; 
&ASUM12(N,10,2)=0; 
&ASUM13(N,10,2)=0; 
$ 
&ASUM1(N,12,2)=ITSUM1/NMES; 
&ASUM2(N,12,2)=ITSUM2/NMES; 
&ASUM3(N,12,2)=ITSUM3/NMES; 
&ASUM(N,12,2)=ITSUM/NMES; 
&ASUM4(N,12,2)=ITSUM4/NMES; 
&ASUM5(N,10,2)=ITSUM5/NMES; 
&ASUM6(N,10,2)=ITSUM6/NMES; 
&ASUM7(N,10,2)=ITSUM7/NMES; 
&ASUM8(N,10,2)=ITSUM8/NMES; 
&ASUM9(N,10,2)=ITSUM9/NMES; 
&ASUM10(N,10,2)=ITSUM10/NMES; 
&ASUM11(N,10,2)=ITSUM11/NMES; 
&ASUM12(N,10,2)=ITSUM12/NMES; 
&ASUM13(N,10,2)=ITSUM13/NMES; 
$_ 
$ (_NE(ASUM)) 
___________________________________________________________________________________________________________________________________________________________________________________________________________________________ 
                         /  @NMES  .|@ASUM       |@ASUM1      |@ASUM2      |@ASUM3      |@ASUM4      |@ASUM5     |@ASUM6    |@ASUM7    |@ASUM8    |@ASUM9    |@ASUM10   |@ASUM11   |@ASUM12   |@ASUM13   | 
@FIO                         @MBEG       @MFIN     |            |            |            |            |            |           |          |          |          |          |          |          |          |          | 
______________________________________________________|____________|____________|____________|____________|____________|___________|__________|__________|__________|__________|__________|__________|__________|__________| 
$_ 
#FIO(C,24,0)=_(FIO,); 
$ (_GT(-)) 
$ (_NE()) 
$ (_NE(OLDPODR-PODRLS)) 
                                          @IPOD 
                                          __________________________ 
$_ 
$_ 
$_ 
$ (_GT(TNLS))                      //   
&ITSUM(N,12,2)=0; &NMES(N,5,0)=0; 
&ITSUM1(N,12,2)=0; 
&ITSUM2(N,12,2)=0; 
&ITSUM3(N,12,2)=0; 
&ITSUM4(N,12,2)=0; 
&ITSUM5(N,10,2)=0; 
&ITSUM6(N,10,2)=0; 
&ITSUM7(N,10,2)=0; 
&ITSUM8(N,10,2)=0; 
&ITSUM9(N,10,2)=0; 
&ITSUM10(N,10,2)=0; 
&ITSUM11(N,10,2)=0; 
&ITSUM12(N,10,2)=0; 
&ITSUM13(N,10,2)=0; 
$_ 
$_ 
$_ 
#=_();                // ਧ   
$()                            //   ப ⠡ 
#CMES(C,7,0)=_(Month,); #CSUM(N,12,2)=_(Sum,); 
#CSUM1(N,12,2)=_(Sum1,); 
#CSUM2(N,12,2)=_(Sum2,); 
#CSUM3(N,12,2)=_(Sum3,); 
#CSUM4(N,12,2)=_(Sum4,); 
#CSUM5(N,10,2)=_(Sum5,); 
#CSUM6(N,10,2)=_(Sum6,); 
#CSUM7(N,10,2)=_(Sum7,); 
#CSUM8(N,10,2)=_(Sum8,); 
#CSUM9(N,10,2)=_(Sum9,); 
#CSUM10(N,10,2)=_(Sum10,); 
#CSUM11(N,10,2)=_(Sum11,); 
#CSUM12(N,10,2)=_(Sum12,); 
#CSUM13(N,10,2)=_(Sum13,); 
#CSUM14(N,10,2)=_(Sum14,); 
   $ (_LE(CSUM14)) 
@FIOLS                  |@DOLG               |@CMES   |@CSUM       |@CSUM1      |@CSUM2      |@CSUM3      |@CSUM4      |@CSUM5     |@CSUM6    |@CSUM7    |@CSUM8    |@CSUM9    |@CSUM10   |@CSUM11   |@CSUM12   |@CSUM13   | 
&ITSUM=ITSUM+CSUM; &NMES=NMES+1; 
&ITSUM1=ITSUM1+CSUM1; 
&ITSUM2=ITSUM2+CSUM2; 
&ITSUM3=ITSUM3+CSUM3; 
&ITSUM4=ITSUM4+CSUM4; 
&ITSUM5=ITSUM5+CSUM5; 
&ITSUM6=ITSUM6+CSUM6; 
&ITSUM7=ITSUM7+CSUM7; 
&ITSUM8=ITSUM8+CSUM8; 
&ITSUM9=ITSUM9+CSUM9; 
&ITSUM10=ITSUM10+CSUM10; 
&ITSUM11=ITSUM11+CSUM11; 
&ITSUM12=ITSUM12+CSUM12; 
&ITSUM13=ITSUM13+CSUM13; 
   $_; 
$_ 
&=+1; &OLDTN=TNLS;&OLDPODR=PODRLS; 
#(N,5,0)=_();         // 稪 ப   
$(_GE(+6-)+_EQ(-)) 
   ${(3.  ) 
//   ⨬ ਥ 室 ⥪    
   $}(3.  ) 
   $(_LT(-)) 
      $_ 
      ${(2.  ) 
//   ⨬ ਥ 室 ⥪   
#M1(N,2,0)=R_Date(1); #G1(N,4,0)=R_Date(5); #M2(N,2,0)=R_Date(2); #G2(N,4,0)=R_Date(6); 
&M1=M1+0; &M2=M2+0; 
#MBEG(C,7,0)=_(M1,.,G1); #MFIN(C,7,0)=_(M2,.,G2); 
 
                                                      @G1   . 
                                                                                                @NS 
___________________________________________________________________________________________________________________________________________________________________________________________________________________________ 
                     |           |   |   ᥣ    |         |     |         |      |.ꥬ|⪮. | |.|ᯠ |  | ࠡ. |ࠡ.    | ࠡ. | 
                        |                    |        |            |            |            |            |            |           |          |          |          |          |          |।.. |.     |ᥫ.| 
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 
      &NS=NS+1 
      $}(2.  ) 
   $_ 
$_ 
$(_GT(-+1)) 
${(4.  ᯨ᪠) 
//   ⨬ ਥ 室 ⥪   ᯨ᪠

//   壠             ___________  ﭨ ..

    㪮⥫ ⭮ 㯯 ___________  类 ..

    壠                     ___________

     뤠 @DAT
$}(4.  ᯨ᪠) 
$LF 
