//-------- ࠢ    ࠡ祣 ६ 
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡ 
//     
#N1(N,1,0)=0; 
$(_EQ()) 
  $ 
$_ 
${(7. ਧ  ) 
  $(_,"0"); // " " (஡) -   㫨, "0" -  
$}(7. ਧ  ) 
&(N,5,0)=0; &OLDTN(N,7,0)=0; &FLUD(N,5,0)=0; 
#ITS(N,12,2)=0;#ITS1(N,12,2)=0;#ITS2(N,12,2)=0; 
//ନ஢  砫 
#MN(C,10,0)=_(4,); 
#MN1(C,10,0)=(11,MN); 
#MN2(C,4,0)=(2,MN); 
#(N,3,0)=_();             //  ࠭ 
$                             //     ⠡ 
$ (_GT(-)) 
//    
#TNLS(N,6,0)=_(2,); 
//   
#F1(C,50,0)=_(3,); 
//   
#M(C,40,0)=_(1,); 
//   
#R(C,10,0)=_(5,); 
#S(N,12,2)=_(7,); 
//&ITS=ITS+S; 
#S1(N,12,2)=_(8,); 
//&ITS1=ITS1+S1; 
#S2(N,12,2)=_(10,); 
//&ITS2=ITS2+S2; 
$ 
#F1(C,40,0)=R_String( ); #M(C,40,0)=R_String( ); #R(C,40,0)=R_String( ); 
#ITS(N,12,2)=0;#ITS1(N,12,2)=0;#ITS2(N,12,2)=0;#TNLS(N,6,0,)=0; 
$_ 
$ (1-_EQ(OLDTN-TNLS))              //   /  
$ (_GT(OLDTN))                     //   
$(_NE(-)); 
  --------------------------------------------------------------- 
  | ᥣ   |@ITS          |@ITS1       |          |@ITS2       | 
  --------------------------------------------------------------- 
   ⮬ ᫥: 
  㬬 ᫥ ࠡ⭮  ( ࠦ, ᮤঠ, 
   ⢨)  ⮢  ᮮ⢥⢨  ⥫⢮  
    易⥫ ⥦ ⠢: 
#QSUM(C,73,0)=_(ITS,1); 
#PSUM(C,75,0)=_((,1,1,QSUM,1,73,),1,1,1); 
  @PSUM 
  ------------------------------------------------------------------- 
     ᪨  㪠 ਮ 믫祭 㬬: 
#Q1(C,73,0)=_(ITS1,1); 
#P1(C,75,0)=_((,1,1,Q1,1,73,),1,1,1); 
  @P1 
  ------------------------------------------------------------------- 
   ᫥   易⥫ ⥦  㬬: 
#Q2(C,73,0)=_(ITS2,1); 
#P2(C,75,0)=_((,1,1,Q2,1,73,),1,1,1); 
  @P2 
  ------------------------------------------------------------------- 
#DAT(C,10,0)=(6); 
#ITS(N,12,2)=0;#ITS1(N,12,2)=0;#ITS2(N,12,2)=0; 
#NMES(N,5,0)=0; 
   ${(3.  ) 
//   ⨬ ਥ 室 ⥪    
 ਬ砭e:   5 㪠뢠 㬬   易⥫ - 
 ⥦, 㤥ঠ  㬬 䠪᪨ 믫祭 ࠡ⭮  
 ( ࠦ,ᮤঠ, ⢨) ( 3) 
  ਮ, 㪠   4.  ⮬,᢮६ ᫥ 
 , ।ᬮ७ ⥫⢮ ,  㪠 ਮ 
 뢠. 
     뤠   @DAT 
    㪮⥫ ०       _____________ ⪨ .. 
 
     壠             _____________ ﭨ .. 
 
    㪮⥫ ⭮ 㯯 _____________ ७ .. 
 
    壠                     _____________ 
     .. 
   $}(3.  ) 
 $_ 
$ (_GT(-)) 
$_ 
      ${(2.  ) 
//   ⨬ ਥ 室 ⥪  
      " 29 -   "            ___________________________
       ""  .஢        (ਠ ࣠
     / 40603810800080000059                 ___________________________
      4218010999                           樠쭮  ᥫ)

                               ____
               ᫥ ।襢 室,
    饣 ࠢ  祭 筮 ᮡ  ॡ.
      $}(2.  ) 
        @F1                                              , 
   ஦ @R        ,ࠡ饩(ࠡ饬)  ࠧ 
  @M                                           ,  ⮬   ਮ 
#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); 
//   
#MK1(C,2,0)=(6,MFIN); 
#MK2(C,10,0)=(11,MFIN); 
#MK3(C,4,0)=(2,MFIN); 
  믫  1 @MN1      @MN2  @MK1 @MK2      @MK3 뫨 ந 
  ᫥騥 ᫥  㤥ঠ: 
  -------------------------------------------------------------- 
  |  , |  ᫥ |᪨  |ਮ    |㬬       | 
  |      |c㬬       |믫./|믫   |易⥫| 
  |         | |            |          |     | 
  --------------------------------------------------------------- 
 $_ 
 $_ 
$ (_EQ())                      //   
      ${(2.  ) 
//   ⨬ ਥ 室 ⥪  
      " 29 -   "            ___________________________
       ""  .஢        (ਠ ࣠
     / 40603810800080000059                 ___________________________
      4218010999                           樠쭮  ᥫ)

                               ____
               ᫥ ।襢 室,
    饣 ࠢ  祭 筮 ᮡ  ॡ.
       $}(2.  ) 
        @F1                                              , 
   ஦ @R        ,ࠡ饩(ࠡ饬)  ࠧ 
  @M                                           ,  ⮬   ਮ 
#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); 
//   
#MK1(C,2,0)=(6,MFIN); 
#MK2(C,10,0)=(11,MFIN); 
#MK3(C,4,0)=(2,MFIN); 
  믫  1 @MN1      @MN2  @MK1 @MK2      @MK3 뫨 ந 
  ᫥騥 ᫥  㤥ঠ: 
  -------------------------------------------------------------- 
  |  , |  ᫥ |᪨  |ਮ    |㬬       | 
  |      |c㬬       |믫./|믫   |易⥫| 
  |         | |            |          |     | 
  --------------------------------------------------------------- 
&ITSUM(N,12,2)=0; &NMES(N,5,0)=0; 
$_ 
$_ 
#=_();                // ਧ   
$()                            //   ப ⠡ 
#CMES(C,7,0)=_(4,); #S3(N,12,2)=_(7,); 
#S1(N,12,2)=_(8,); 
#S2(N,12,2)=_(10,); 
  | @CMES   |@S3           |@S1         |@CMES     |@S2         | 
&(_EQ()); 
  &ITS=ITS+S3; 
  &ITS1=ITS1+S1; 
  &ITS2=ITS2+S2; 
  &NMES=NMES+1; 
$ 
&(_EQ(OLDTN-TNLS)); 
&ITS=ITS+S3; 
&ITS1=ITS1+S1; 
&ITS2=ITS2+S2; 
&NMES=NMES+1; 
$_ 
  $_ 
  &=+1; 
&OLDTN=TNLS; 
$_ 
#(N,5,0)=_();         // 稪 ப   
//$(_GE(+6-)+_EQ(-)) 
$(_EQ(-)); 
  --------------------------------------------------------------- 
  | ᥣ   |@ITS          |@ITS1       |          |@ITS2       | 
  --------------------------------------------------------------- 
   ⮬ ᫥: 
  㬬 ᫥ ࠡ⭮  ( ࠦ, ᮤঠ, 
   ⢨)  ⮢  ᮮ⢥⢨  ⥫⢮  
    易⥫ ⥦ ⠢: 
#QSUM(C,73,0)=_(ITS,1); 
#PSUM(C,75,0)=_((,1,1,QSUM,1,73,),1,1,1); 
  @PSUM 
  ------------------------------------------------------------------- 
     ᪨  㪠 ਮ 믫祭 㬬: 
#Q1(C,73,0)=_(ITS1,1); 
#P1(C,75,0)=_((,1,1,Q1,1,73,),1,1,1); 
  @P1 
  ------------------------------------------------------------------- 
   ᫥   易⥫ ⥦  㬬: 
#Q2(C,73,0)=_(ITS2,1); 
#P2(C,75,0)=_((,1,1,Q2,1,73,),1,1,1); 
  @P2 
  ------------------------------------------------------------------- 
#DAT(C,10,0)=(6); 
#ITS(N,12,2)=0;#ITS1(N,12,2)=0;#ITS2(N,12,2)=0; 
#NMES(N,5,0)=0; 
   ${(3.  ) 
//   ⨬ ਥ 室 ⥪    
 ਬ砭e:   5 㪠뢠 㬬   易⥫ - 
 ⥦, 㤥ঠ  㬬 䠪᪨ 믫祭 ࠡ⭮  
 ( ࠦ,ᮤঠ, ⢨) ( 3) 
  ਮ, 㪠   4.  ⮬,᢮६ ᫥ 
 , ।ᬮ७ ⥫⢮ ,  㪠 ਮ 
 뢠. 
     뤠   @DAT 
    㪮⥫ ०       _____________ ⪨ .. 
 
     壠             _____________ ﭨ .. 
 
    㪮⥫ ⭮ 㯯 _____________ ७ .. 
 
    壠                     _____________ 
     .. 
   $}(3.  ) 
 $_ 
$_ 
$(_GT(-+1)) 
${(4.  ᯨ᪠) 
//   ⨬ ਥ 室 ⥪   ᯨ᪠ 
$}(4.  ᯨ᪠) 
$LF 
