//-------- ࠢ   c ࠡ稬 ६
// !!! ⮢ ଠ   ॠ    ⠡ ⮫ Combine 
//   ࠧ  ᯮ塞  !!!
${(1. ன)
&LongNameCode(N,2,0)=0;
// 0 - ⪮   
// 1 -  
$}(1. ன)
${(2. )
&Excel(N,2,0)=1;
//#Excel(N,2,0)=_(15,9,65,15,ଠ ,,१ Excel);
$(_EQ(Excel-27))
  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
  $END_SCRIPT
  $
$_
$ (Excel)
  $BEG_SCRIPT
     var array_param[3];
     array_param[0]=2; //⢮ ࠬ஢
     array_param[1]=3;
     array_param[2]=LongNameCode;
     LoadScriptModule("forms\\sp_ls");
     sprav_ls(array_param);
     UnloadScriptModule("forms\\sp_ls");
  $END_SCRIPT
  $
$
$_
$}(2. )
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(7. ਧ  )
  $(_," "); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
#NPER(N,5,0)=_(29,0); #KPER(N,5,0)=_(28,0);
&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)=_();             //  ࠭
#NOMP(N,3,0)=_(NU);
$                             //     ⠡
$ (_GT(-))
#FNU(N,1,0)=_(NOMP,);
#FIOLS(C,40,0)=_(1,); #TNLS(N,7,0)=_(0,);
$
&FNU(N,1,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;
$ (_EQ(FLUD))
#HDNG(C,250,0)=R_String(| ᫥   |);
$
#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
#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))                      //  
#S(C,2,0)=_(35,0);
#RES(N,4,0)=_(S,* );
#1(C,40,0)=NameSrc(S);


         ࠢ  .
$ (1-_EQ(RES))
         筨 䨭஢: @1
$_

         : @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)*_EQ(FNU))
@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( ); #RUM13(C,13,0)=R_String( ); &X(V,2,0)=0;
$
&X=X+1;
$ (_LE(X-DPER))
#SUMTMP(C,12,0)=_(2+X+X,); #RUMTMP(N,12,2)=_(3+X+X,);
#FLMN(N,5,0)=__(0,1003,EC);
$(_EQ(FLMN))
  #KS(C,4,0)=_(*,EC);
$
  #KS(C,4,0)=_( ,EC);
$_
$ ((1-_EQ(1-IC))*(1-_EQ(200-IC))*FLMN)
&SIT@X=SIT@X + @SUMTMP;
$_
#SUM@X(C,13,0)=_(SUMTMP,|); #RUMTMP=(RUMTMP);
#RUM@X(C,13,0)=_(RUMTMP,|);
$
#SUM@X(C,13,0)=R_String( ); #RUM@X(C,13,0)=R_String( );
$_
$(_LT(X-12))
&X=DPER+1;
#SUMTMP(C,12,0)=_(30,); #RUMTMP(N,12,2)=_(31,);
$ (_EQ(IC-1)+_EQ(IC-200))
#SUMTMP(C,12,0)=R_String( ); #RUMTMP(N,12,2)=R_String( ); &FLOST=1;
$_
#SUM@X(C,13,0)=_(SUMTMP,|); #RUMTMP=(RUMTMP);
#RUM@X(C,13,0)=_(RUMTMP,|);
$ (_EQ(IC-1))
&FLHD=1;
@DELIM
$_
$ (FLHD)
$ (1-_EQ(RUMTMP))
|             |@RUM01       @RUM02       @RUM03       @RUM04       @RUM05       @RUM06       @RUM07       @RUM08       @RUM09       @RUM10       @RUM11       @RUM12       @RUM13
$_
|@KS  |@NAMEC |@SUM01       @SUM02       @SUM03       @SUM04       @SUM05       @SUM06       @SUM07       @SUM08       @SUM09       @SUM10       @SUM11       @SUM12       @SUM13
@DELIM
$_
$ (_EQ(IC-1)+_EQ(FLHD))
$ (_EQ(FLHD))
@DELIM
$_
&R(V,2,0)=0; #HDNG(C,250,0)=R_String(| - |.|); &HLEN(N,5,0)=15;
&AMV(N,3,0)=0;
$BEG_SCRIPT
  // ।塞 .       ⥪饣
  char MVed[256],YVed[256];
  CallFuncReceive("(8)",MVed,255,2); FreeSpaceString(MVed,2,"");
  CallFuncReceive("(9)",YVed,255,2); FreeSpaceString(YVed,2,"");
  var MAbsVed = CreateObject("KMonth");
  MAbsVed.SetMonthYear(atoi(MVed),atoi(YVed));
  AMV = MAbsVed.GetAbs();
$END_SCRIPT
$
&R=R+1;
#HTEK(C,@HLEN ,0)=R_String(HDNG);
#MCUR(C,7,0)=(5,AMV+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;
$ (1-_EQ(RUMTMP))
|             |@RUM01       @RUM02       @RUM03       @RUM04       @RUM05       @RUM06       @RUM07       @RUM08       @RUM09       @RUM10       @RUM11       @RUM12       @RUM13
$_
|@KS  |@NAMEC |@SUM01       @SUM02       @SUM03       @SUM04       @SUM05       @SUM06       @SUM07       @SUM08       @SUM09       @SUM10       @SUM11       @SUM12       @SUM13
@DELIM
$_
$_
$ (_EQ(IC-200))
//@DELIM
$_
$_
&=+1; &OLDTN=TNLS;
#(N,5,0)=_();         // 稪 ப  
$(_GE(+6-)+_EQ(-))
   ${(3.  )
//   ⨬ ਥ 室 ⥪   
   $}(3.  )
   $(_LT(-))
      $_
      ${(2.  )
//   ⨬ ਥ 室 ⥪  
      $}(2.  )
   $_
$_
$(_GT(-+1))
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠
$}(4.  ᯨ᪠)
$LF
$