//-------- ࠢ    ࠡ祣 ६
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(1. ன)
&RKV(N,2,0)=0; // 1-  , ᪨ ४  ⥫䮭; 0- 
$}(1. ன)
${(7. ਧ  )
  $(_,"0"); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
&(N,5,0)=0; &OLDTN(N,7,0)=0; &FLUD(N,5,0)=0;  &SUM(N,12,2)=0; &ASUMSR(N,12,2)=0; &Count(N,12,2)=0;
&SUMPODR(N,12,2)=0; &ASUMSRPODR(N,12,2)=0; &CountPODR(N,12,2)=0; &PODRLSOLD(N,6,0)=0;
#(N,3,0)=_();             //  ࠭
$                             //     ⠡
$ (_GT(-))
#FIOLS(C,40,0)=_(2,); #TNLS(N,6,0)=_(0,); #PODRLS(N,6,0)=_(1,);
$
#FIOLS(C,40,0)=R_String( ); &TNLS(N,6,0)=0; &PODRLS(N,6,0)=0;
$_
$ (1-_EQ(OLDTN-TNLS))              //   / 
$ (_GT(OLDTN))                     //  
#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);
$ (_LE(NMES))
&ASUM(N,12,2)=0;
$
$(_EQ(PODRLSOLD))
&PODRLSOLD = PODRLS;
$_
&ASUM(N,12,2)=ITSUM/NMES;
&SUM= SUM + ITSUM;
&Count = Count + 1;
&ASUMSR = ASUM + ASUMSR;
$_
#QSUMSR(C,73,0)=_(ASUMSR,1);
#PSUMSR(C,75,0)=_((,1,1,QSUMSR,1,73,),1,1,1);
$(_EQ(PODRLSOLD-PODRLS))
// ।  ࠧ
&CountPODR = CountPODR +1;
&ASUMSRPODR = ASUMSRPODR + ASUM;
$
&CountPODR = CountPODR +1;
&ASUMSRPODR = ASUMSRPODR + ASUM;
&SUMPODR = ASUMSRPODR / CountPODR;
⮣  ࠧ @PODRLSOLD - @SUMPODR
&CountPODR = 0;
&ASUMSRPODR = 0;
&PODRLSOLD = PODRLS;
//뢮  ண ࠧ  ᢠ 
$_
//         ------------------------
//         | ᥣ   |@SUM        |
//         ------------------------
//
//     ਮ 믫  @MBEG    @MFIN
//
//     । ࠡ⮪  ਮ: @ASUMSR
//     @PSUMSR
//
//
//     ࠢ   । ____________________________
//
//
//     @                                  @
//
//     @                               @
//
$ (_GT(-))
//$_
$_
$_
$ (_GT(TNLS))                      //  
#SCOM(C,1,0)=R_String(,);
#LSTR(C,30,0)=_(TNLS,1,6,SCOM,1,1, .,1,6, ,1,1,PODRLS,1,6,),1,1,1);
#S(C,2,0)=_(3,0);
#RES(N,4,0)=_(S,* );
#1(C,40,0)=NameSrc(S);
//
//
//                                   
//
//          ।: @
//$ (1-_EQ(RES))
//         筨 䨭஢ : @1
//$_
//$ (1-_EQ(RKV))
//          ।            @
//                   @
//         .             @
//           । @
//         䮭                    @
//$_
//
//         ------------------------
//         |    |   㬬    |
//         |      |   室   |
//         ------------------------
&ITSUM(N,12,2)=0; &NMES(N,5,0)=0;
$_
$_
#=_();                // ਧ  
$()                            //   ப ⠡
#CMES(C,7,0)=_(4,); #CSUM(N,12,2)=_(5,);
//@PODRLS         | @CMES   |@CSUM       |
&ITSUM=ITSUM+CSUM; &NMES=NMES+1;
$_
&=+1; &OLDTN=TNLS;
#(N,5,0)=_();         // 稪 ப  
$(_GE(+6-)+_EQ(-))
   ${(3.  )
//   ⨬ ਥ 室 ⥪   
   $}(3.  )
   $(_LT(-))
      $_
      ${(2.  )
      $}(2.  )
   $_
$_
$(_GT(-+1))
${(4.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪   ᯨ᪠
&ASUMSR = ASUMSR/Count;
#QSUMSR(C,73,0)=_(ASUMSR,1);
#PSUMSR(C,75,0)=_((,1,1,QSUMSR,1,73,),1,1,1);

     ਮ 믫  @MBEG    @MFIN

     । ࠡ⮪  ਮ: @ASUMSR
     @PSUMSR
$}(4.  ᯨ᪠)
$LF
$