//-------- ࠢ    ࠡ祣 ६  
#(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"                          ___________________________
      .㧭檠                       (ਠ ࣠
     / 40701810600003000001                 ___________________________
      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"                          ___________________________
      .㧭檠                       (ਠ ࣠
     / 40701810600003000001                 ___________________________
      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  
