//-------- ࠢ    ࠡ祣 ६
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(7. ਧ  )
  $(_," "); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
#NPER(N,5,0)=R_Date(3); #KPER(N,5,0)=R_Date(4);
&DPER(N,5,0)=KPER-NPER+1;
&R(V,2,0)=0; #DELIM(C,250,0)=R_String(---------------);
$
&R=R+1; #DELIM=_(-------------,DELIM);
$ (_LE(R-DPER))
&(N,5,0)=0; &OLDTN(N,7,0)=0; &FLUD(N,5,0)=0; &FLHD(N,5,0)=0;
#(N,3,0)=_();             //  ࠭
$                             //     ⠡
$ (_GT(-))
#FIOLS(C,40,0)=_(1,); #TNLS(N,7,0)=_(0,);
$
#FIOLS(C,40,0)=R_String( ); &TNLS(N,7,0)=0;
$_
$ (1-_EQ(OLDTN-TNLS))              //   / 
$ (_GT(OLDTN))                     //  
@DELIM
&R(V,2,0)=0; &HLEN(N,5,0)=15; &TOTIT(N,12,2)=0;
$ (FLUD)
#HDNG(C,250,0)=R_String(| ঠ    |);
$
#HDNG(C,250,0)=R_String(| ᫥   |);
$_
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
#MCUR(C,12,2)=R_Calculat(SIT@R);
&TOTIT=TOTIT+SIT@R
#MHD(C,13,0)=_(MCUR,|);
&HLEN=HLEN+13;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG); #MCUR(C,12,2)=R_Calculat(TOTIT);
#MHD(C,13,0)=_(MCUR,|);
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM

@DELIM
&R=0; #HDNG(C,250,0)=R_String(|  襭 |); &HLEN(N,5,0)=15; &TOTIT(N,12,2)=0;
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
$ (FLUD)
#MCUR(C,12,2)=R_Calculat(NIT@R - SIT@R );
&TOTIT=TOTIT + NIT@R - SIT@R
$
#MCUR(C,12,2)=R_Calculat(SIT@R - NIT@R );
&TOTIT=TOTIT - NIT@R + SIT@R
$_
#MHD(C,13,0)=_(MCUR,|);
&HLEN=HLEN+13;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG); #MCUR(C,12,2)=R_Calculat(TOTIT);
#MHD(C,13,0)=_(MCUR,|);
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM

 @                               @

$ (_GT(-))
$_
$_
$_
$ (_GT(TNLS))                      //  


         ࠢ   ( 뤠 㬬).

         : @FIOLS                                  ( ⠡.  @TNLS   )

&FLUD(N,5,0)=0; &FLOST(N,6,0)=0; &FLDOLG(N,7,0)=0;
&SIT01(N,12,2)=0; &SIT02(N,12,2)=0; &SIT03(N,12,2)=0; &SIT04(N,12,2)=0; &SIT05(N,12,2)=0; &SIT06(N,12,2)=0; &SIT07(N,12,2)=0; &SIT08(N,12,2)=0; &SIT09(N,12,2)=0; &SIT10(N,12,2)=0; &SIT11(N,12,2)=0; &SIT12(N,12,2)=0; &SIT13(N,12,2)=0;
&NIT01(N,12,2)=0; &NIT02(N,12,2)=0; &NIT03(N,12,2)=0; &NIT04(N,12,2)=0; &NIT05(N,12,2)=0; &NIT06(N,12,2)=0; &NIT07(N,12,2)=0; &NIT08(N,12,2)=0; &NIT09(N,12,2)=0; &NIT10(N,12,2)=0; &NIT11(N,12,2)=0; &NIT12(N,12,2)=0; &NIT13(N,12,2)=0;
$_
$_
#=_();                // ਧ  
$()                            //   ப ⠡
#EC(N,3,0)=_(2,);
#NAMEC(C,7,0)=_(EC); #IC(N,3,0)=_(EC);
$ (_EQ(FLUD)*_GE(IC-200))
@DELIM
&R(V,2,0)=0; #HDNG(C,250,0)=R_String(| ᫥   |); &HLEN(N,5,0)=15; &TOTIT(N,12,2)=0;
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
#MCUR(C,12,2)=R_Calculat(SIT@R);
&TOTIT=TOTIT+SIT@R
&NIT@R=SIT@R
&SIT@R=0;
#MHD(C,13,0)=_(MCUR,|);
&HLEN=HLEN+13;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG); #MCUR(C,12,2)=R_Calculat(TOTIT);
#MHD(C,13,0)=_(MCUR,|); &NIT13=TOTIT;
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM

@DELIM
&FLUD(N,5,0)=1;
$_
#SUM13(C,13,0)=R_String( ); &X(V,2,0)=0;
$
&X=X+1;
$ (_LE(X-DPER))
#SUMTMP(C,12,0)=_(3+X,);
#FLMN(N,5,0)=__(0,1003,EC); #FLKS(N,5,0)=__(,1017,EC);
$ (FLMN) // $ (FLMN+FLKS)   // *(1-_EQ(1-IC))
&SIT@X=SIT@X + @SUMTMP
$_
#SUM@X(C,13,0)=_(SUMTMP,|);
$
#SUM@X(C,13,0)=R_String( );
$_
$(_LT(X-12))
&X=DPER+1;
#SUMTMP(C,12,0)=_(17,);
$ (_EQ(IC-1)+_EQ(IC-200))
#SUMTMP(C,12,0)=R_String( ); &FLOST=1;
$_
#SUM@X(C,13,0)=_(SUMTMP,|);
$ (_EQ(IC-1))
&FLHD=1;
@DELIM
$_
$ (FLHD)
| @EC |@NAMEC |@SUM01       @SUM02       @SUM03       @SUM04       @SUM05       @SUM06       @SUM07       @SUM08       @SUM09       @SUM10       @SUM11       @SUM12       @SUM13
$_
$ (_EQ(IC-1)+_EQ(FLHD))
@DELIM
&R(V,2,0)=0; #HDNG(C,250,0)=R_String(| - |.|); &HLEN(N,5,0)=15;
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
#MCUR(C,7,0)=(5,NPER+R-1);
#MHD(C,13,0)=_(     ,MCUR,|);
&HLEN=HLEN+13;
#HDNG=_(HTEK,MHD);
$ (_LT(R-DPER))
#HTEK(C,@HLEN ,0)=R_String(HDNG);#MHD(C,13,0)=R_String(       㬬|);
#HDNG=_(HTEK,MHD);
@HDNG
@DELIM
$ (_EQ(FLHD))
&FLHD=1;
| @EC |@NAMEC |@SUM01       @SUM02       @SUM03       @SUM04       @SUM05       @SUM06       @SUM07       @SUM08       @SUM09       @SUM10       @SUM11       @SUM12       @SUM13
$_
$_
$ (_EQ(IC-200))
@DELIM
$_
$_
&=+1; &OLDTN=TNLS;
#(N,5,0)=_();         // 稪 ப  
$(_GE(+6-)+_EQ(-))
   ${(3.  )
//   ⨬ ਥ 室 ⥪   
   $}(3.  )
   $(_LT(-))
      $_
      ${(2.  )
//   ⨬ ਥ 室 ⥪  
      $}(2.  )
   $_
$_
$(_GT(-+1))
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠
$}(4.  ᯨ᪠)
$LF
