//------------- -   㤮 ⠦ -----------------   
${(1. ன )   
// ,  ᪮, ᠭ ᫥⥫쭮 ᨬ,    
// 㤥    祭.   
#Empty(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);   
&bSplitPack(N,2,0)=0; // 1 - 室 ࠧ    窠   
&bTime(N,2,0)=0;      // 1 - 뢠 ⠢襥 ६, 0 - 業 믮 ࠡ   
//  ᯮ!!! &ExcPrint(N,2,0)=0;   // 1 - ⮬᪠ , ᫨ ⮢ १ Excel   
$}(1. ன )   
${(2. )   
  #Regim(N,2,0)=_(7,9,73,15,롥 ० ,  -,  -6-1, ॥);
  $(_EQ(Regim-27))
     $BEG_SCRIPT
       var CurFile=CreateObject("CurPrnFile");
       CurFile.SetFlagBrowse(0);
     $END_SCRIPT
    $
  $_
  $(_EQ(Regim-2))
     &Regim=3;
  $_
  &Excel(N,2,0)=0;
//     $(_EQ(Regim-1))
     $(_NE(Regim-3))
        #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]=4; //⨯ 
  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( 4, Excel, Empty, Regim, ExcPrint, bSplitPack, bTime );
  PrintPF_DL2(array_param);
  UnloadScriptModule("PF\\formpf");

$END_SCRIPT   
$