//-------- ࠢ    ࠡ祣 ६     
#(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;#ITS3(N,9,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;     
#S3(N,12,2)=_(11,);     
$     
#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;#ITS3(N,9,2)=0;#TNLS(N,6,0,)=0;     
$_     
$ (1-_EQ(OLDTN-TNLS))              //   /      
$ (_GT(OLDTN))                     //       
$(_NE(-));     
  ------------------------------------------------------------------------     
  | ᥣ   |@ITS          |@ITS1       |          |@ITS2       |@ITS3    |     
  ------------------------------------------------------------------------     
   ⮬ ᫥:     
  㬬 ᫥ ࠡ⭮  ( ࠦ, ᮤঠ,     
   ⢨)  ⮢  ᮮ⢥⢨  ⥫⢮      
    易⥫ ⥦ ⠢:     
#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     
  -------------------------------------------------------------------     
   ᫥ 㬬  ⠬:     
#Q3(C,73,0)=_(ITS3,1);     
#P3(C,75,0)=_((,1,1,Q3,1,73,),1,1,1);     
  @P3     
  ------------------------------------------------------------------     
#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.  )     
//   ⨬ ਥ 室 ⥪      
     뤠   @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㬬    |     
  |      |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㬬    |     
  |      |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,);     
#S3(N,9,2)=_(11,);     
  | @CMES   |@S            |@S1         |@CMES     |@S2         |@S3      |     
&(_EQ());     
  &ITS=ITS+S;     
  &ITS1=ITS1+S1;     
  &ITS2=ITS2+S2;     
  &ITS3=ITS3+S3;     
  &NMES=NMES+1;     
$     
&(_EQ(OLDTN-TNLS));     
&ITS=ITS+S3;     
&ITS1=ITS1+S1;     
&ITS2=ITS2+S2;     
&ITS3=ITS3+S3;     
&NMES=NMES+1;     
$_     
  $_     
  &=+1;     
&OLDTN=TNLS;     
$_     
#(N,5,0)=_();         // 稪 ப       
//$(_GE(+6-)+_EQ(-))     
$(_EQ(-));     
  ------------------------------------------------------------------------     
  | ᥣ   |@ITS          |@ITS1       |          |@ITS2       |@ITS3    |     
  ------------------------------------------------------------------------     
   ⮬ ᫥:     
  㬬 ᫥ ࠡ⭮  ( ࠦ, ᮤঠ,     
   ⢨)  ⮢  ᮮ⢥⢨  ⥫⢮      
    易⥫ ⥦ ⠢:     
#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     
  -------------------------------------------------------------------     
   ᫥ 㬬  ⠬:     
#Q3(C,73,0)=_(ITS3,1);     
#P3(C,75,0)=_((,1,1,Q3,1,73,),1,1,1);     
  @P3     
  ------------------------------------------------------------------     
#DAT(C,10,0)=(6);     
#ITS(N,12,2)=0;#ITS1(N,12,2)=0;#ITS2(N,12,2)=0;#ITS3(N,9,2)=0;     
#NMES(N,5,0)=0;     
   ${(3.  )     
//   ⨬ ਥ 室 ⥪      
     뤠   @DAT   
    㪮⥫ ०       _____________ ⪨ ..   
   
     壠             _____________ ﭨ ..   
   
    㪮⥫ ⭮ 㯯 _____________ 类 ..   
   
    壠                     _____________   
     ..   
   $}(3.  )     
 $_     
$_     
$(_GT(-+1))     
${(4.  ᯨ᪠)     
//   ⨬ ਥ 室 ⥪   ᯨ᪠     
$}(4.  ᯨ᪠)     
$LF     
