//-------- ࠢ    ࠡ祣 ६
#(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,);
#F1_(C,50,0)=_(F1,3,POL);
//  
#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.  )
//   ⨬ ਥ 室 ⥪  
          ᪠                          ___________________________
     652644 .᪮                             (ਠ ࣠
     .ࣥ᪠, 21                      ___________________________
     / 40204810400000000024                   樠쭮  ᥫ)
      4231001520

                               ____
         室  । ࠢ  祭 ᨤ

      $}(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.  )
//   ⨬ ਥ 室 ⥪  
          ᪠                          ___________________________
     652644 .᪮                             (ਠ ࣠
     .ࣥ᪠, 21                      ___________________________
     / 40204810400000000024                   樠쭮  ᥫ)
      4231001520

                               ____
         室  । ࠢ  祭 ᨤ

       $}(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

--
#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

 ᯨ᪠)
$LF

 ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠
$}(4.  ᯨ᪠)
$LF




