//-------------------------------------------------------
&PrintExcel(N,2,0) = 0;   // 1 -    Excel, 0 - ⥪⮢
#GOD(N,4,0)=(1);
#MES(C,9,0)=(1,0);
$BEG_SCRIPT
   PrintExcel = GetCommonCnfInt("EXCEL_BL","");  
   if( PrintExcel )
   {
     UnloadScriptModule("forms\\formbl");
     LoadScriptModule("forms\\formbl");
     PrintFormBL2(DATBEG,FLSEV,FLDOP,FLDOP1,IdxTabl,MES,GOD);
     UnloadScriptModule("forms\\formbl");
   }
$END_SCRIPT
$(_EQ(PrintExcel-1))
  $
$_
//
#(N,5,0)=_(0);        // ᫮ ࠡ ᥩ  ⠡
$(_EQ())
  $
$_
${(5. ⥫ ப ᯨ᪠)
  $(__,0);  // 0 (1,...) - ⢮ ய᪮ ப
  $(_,"-");      // ᨬ  મ: "-" ( .ᨬ)
$}(5. ⥫ ப ᯨ᪠)
${(6. ⥫ ⮫殢 ᯨ᪠)
  $(__,1); // 1,2,...-᫮ ᨬ  ࠧ 
  $(_,"|");     // ᨬ-ࠧ⥫  (|  ||  ..)
$}(6. ⥫ ⮫殢 ᯨ᪠)
${(7. ਧ  )
  $(_," "); // " " (஡) -   㫨, "0" - 
$}(7. ਧ  )
${(1.  ᯨ᪠)
//   ⨬ ਥ 室 ⥪  ᯨ᪠
                       ⠥ ᮡ
$}(1.  ᯨ᪠)
&SumDop2(N,15,2)=0;
#FldDop2(N,10,0)=_(SUMM_BLDSR);
$(_GE(FldDop2))
   #SumDop2=_(FldDop2,0);
$BEG_SCRIPT
   var Tabl = CreateObject("CurPrnTbl");
   int Fld = atoi(FldDop2);
   if ( Fld>=0 && atof(SumDop2)>0.001 )
     Tabl.SetFlagPrintFld(Fld,"+");
$END_SCRIPT
$_
&(N,5,0)=0;
&(N,5,0)=1;                                 // 稪 ࠭
#(N,3,0)=_();                      //  ࠭
//
#FldPer(N,10,0)=_(PERIOD_BL);
#PeriodBL(C,256,0)=R_String();
//
//${( ⠡)
  #=_(,,)             //  
  #=_(__);                 //  㬬  
//$}( ⠡)
$                                             //     ⠡
  //${(ப )
    #=_();                         // ਧ  
    $()
      #=_(_,,)  //   ப ⠡
      #STR(C,40,0)=_(FldPer,);
      #PeriodBL=_(!SPACE,PeriodBL,|,STR);
    $_
  //$}(ப )
  &=+1;
  #(N,5,0)=_();                 // 稪 ப  
  $(_GE(+6-)+_EQ(-))
    //${(⮣ )
      #=_();                       //  ⮣  .
      #=_(__);            //  ⮣  .
    //$}(⮣ )
    ${(3.  )
//   ⨬ ਥ 室 ⥪   
    $}(3.  )
    $(_LT(-))
      $_
      ${(2.  )
//   ⨬ ਥ 室 ⥪  

      $}(2.  )
      //${( ⠡).   .
        #=_(,,)             //  
        #=_(__);                 //  㬬
      //$}( ⠡).   .
    $_
  $_
$(_GT(-))
${(4.  ᯨ᪠)
&(N,12,2)=0;
////////////////////////////////////////////////////////
#(N,10,0)=_(SUMM_BLDOP);
$(_GE())
   #=_(,0);
$_
// ᫨ 㬬 ࠢ   ᥢ ਠ,   
// ᬮ ।騩 ⮫ 
#FD(N,1,0)=R_C(_NE(FLSEV)*_NE(FLDOP));
$(_EQ(IdxTabl-2))
   #FD=R_C(_NE(FLSEV)*_NE(FLDOP1));
$_
$(_EQ()+FD)
   #=_(SUMM_BL);
   $(_GE())
      #1(N,12,2)=_(,0);
   $_
   $(_EQ(FD) )       // ᫨ ਠ  ᥢ    뤥 
      &=1;
   $                //  ᥢ୮ ਠ ᪫뢠 / .  
      &=+1;
   $_
$_
# = R_C(+SumDop2);
///////////////////////
&_(N,12,2)=0;
&_(N,12,2)=0;
&SUM_SS(N,12,2)=0;
&SUM_R(N,12,2)=0;
&SUM_DOPL(N,12,2)=0;
&SUM_OSN(N,12,2)=0;
$BEG_SCRIPT
   UnloadScriptModule("forms\\blreestr_2");
   UnloadScriptModule("forms\\blreestr_1");
   LoadScriptModule("forms\\blreestr_2");
   LoadScriptModule("forms\\blreestr_1");
   GetAllSummBL(DATBEG,SUM_R,SUM_OSN,SUM_SS,SUM_DOPL,IdxTabl-1,PeriodBL);
   UnloadScriptModule("forms\\blreestr_2");
   UnloadScriptModule("forms\\blreestr_1");
$END_SCRIPT
&_=SUM_SS;
&_=SUM_R;
//&=SUM_OSN+SUM_DOPL;
//
#(C,160,0)=_(_);
#(N,8,0)=_(,66);   // 頥 ᫮ ப
$(_GT())
#(N,66,0)=_(0);
  । ࠡ⮤⥫: 
@
$
  । ࠡ⮤⥫: 
@
$_
$(_GT(-1))
  &(N,8,0)=1;
  $
    #(N,66,0)=_();
 @
    &=+1;
  $(_LT(-))
  #=_();
$_
$(_GT())
&(N,15,0)=_Long(_); &(V,2,0)=(_-)*100;
#(,15,0)=DIVIDER_INSERT();
 (@            @ )
$_
//
#(C,160,0)=_(_);
#(N,8,0)=_(,66);   // 頥 ᫮ ப
$(_GT())
#(N,66,0)=_(0);
  ।  樠쭮 客 ᨩ᪮ 樨: 
@
$
  ।  樠쭮 客 ᨩ᪮ 樨: 
@
$_
$(_GT(-1))
  &(N,8,0)=1;
  $
    #(N,66,0)=_();
 @
    &=+1;
  $(_LT(-))
  #=_();
$_
$(_GT())
&(N,15,0)=_Long(_); &(V,2,0)=(_-)*100;
#(,15,0)=DIVIDER_INSERT();
 (@            @ )
$_
//
$(_GT(SUM_DOPL))
#(C,160,0)=_(SUM_DOPL);
#(N,8,0)=_(,66);   // 頥 ᫮ ப
$(_GT())
#(N,66,0)=_(0);
 ᢥ    । ࠡ⮤⥫: 
@
$
 ᢥ    । ࠡ⮤⥫: 
@
$_
$(_GT(-1))
  &(N,8,0)=1;
  $
    #(N,66,0)=_();
 @
    &=+1;
  $(_LT(-))
  #=_();
$_
$(_GT())
&(N,15,0)=_Long(SUM_DOPL); &(V,2,0)=(SUM_DOPL-)*100;
#(,15,0)=DIVIDER_INSERT();
 (@            @ )
$_
$_
//////////////////////////////////
#(C,160,0)=_();
#(N,8,0)=_(,66);   // 頥 ᫮ ப
$(_GT())
#(N,66,0)=_(0);
ᥣ: @
$
ᥣ: @
$_
$(_GT(-1))
  &(N,8,0)=1;
  $
    #(N,66,0)=_();
 @
    &=+1;
  $(_LT(-))
  #=_();
$_
$(_GT())
&(N,15,0)=_Long(); &(V,2,0)=(-)*100;
#(,15,0)=DIVIDER_INSERT();
 (@            @ )
$_
祭  ⥦   @MES        @GOD .
  
 (襣) 壠 ............ / @                 /

$}(4.  ᯨ᪠)
$
