//------------- -1  客  -----------------
${(1. ன )
// ,  ᪮, ᠭ ᫥⥫쭮 ᨬ, 
// 㤥    祭.
#Empty(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);
&bSplitPack(N,2,0)=0; // 1 - 室 ࠧ    窠
&bTime(N,2,0)=0;      // 1 - 뢠 ⠢襥 ६, 0 - 業 믮 ࠡ
// ५!!! &bTransf(N,2,0)=0;    // 1 - ।  䠩, १ ਯ, 0 - ⠭⭠ ।
//  ᯮ!!! &ExcPrint(N,2,0)=0;   // 1 - ⮬᪠ , ᫨ ⮢ १ Excel
$}(1. ன )
${(2. )
&NewRegim(N,2,0)=0;
$BEG_SCRIPT 
{
  var Tabl = CreateObject("CurPrnTbl");;
  // ࠬ     ࠡ   ० ⭮
  var ReportParams; 
  int VersionParams = NewRegim = IsNewPFReportInterfaceT(Tabl,ReportParams);
}
$END_SCRIPT 
&Excel(N,2,0)=1;
&Regim(N,2,0)=0;
$(_NE(NewRegim))
   &Regim=0;
   &Excel=1;
$
//  $( _EQ(bTransf-1) )
//     #Regim(N,2,0)=_(8,9,72,15,롥 ०,  -1,  -6-1,।  䠩);
//  $
     #Regim=_(15,9,65,15,롥 ० ,  -1,  -6-1);
//  $_
  $(_EQ(Regim-27))
     $BEG_SCRIPT
       var CurFile=CreateObject("CurPrnFile");
       CurFile.SetFlagBrowse(0);
     $END_SCRIPT
    $
  $_
  $(_NE(Regim-2))
     #Excel=_(15,9,65,15,ଠ ,,१ Excel);
     $(_EQ(Excel-27))
        $BEG_SCRIPT
          var CurFile=CreateObject("CurPrnFile");
          CurFile.SetFlagBrowse(0);
        $END_SCRIPT
        $
     $_
  $_
$_
$}(2. )
$BEG_SCRIPT

  var array_param[7];
  array_param[0]=6; //⢮ ࠬ஢
  array_param[1]=0; //⨯ 
  array_param[2]=Excel;
  array_param[3]=Empty;
  array_param[4]=Regim;
  array_param[5]=bSplitPack;
  array_param[6]=bTime;

  LoadScriptModule("PF\\formpf");
  //PrintPF_DL( 0, Excel, Empty, Regim, ExcPrint, bSplitPack, bTime );
  PrintPF_DL2(array_param);
  UnloadScriptModule("PF\\formpf");

$END_SCRIPT
$