//-- -1 " ᢥ  ᫥, 㯫祭 客  
//            客 ⠦  易⥫쭮 ᨮ 客 
//            客   ⠭ 㤮 ᨨ"
${(1. ன )
&bSplitPack(N,2,0)=0; // 1 - 室 ࠧ    窠
&bTime(N,2,0)=0;      // 1 - 뢠 ⠢襥 ६, 0 - 業 믮 ࠡ
#Empty(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);
$}(1. ன )
//#Regim(N,2,0)=_(15,9,65,15,롥 ० ,  -1,  -6-3);
#Regim(N,2,0)=_(7,9,73,15,롥 ० ,  -1,  -6-3, ᯨ᪮);
$(_EQ(Regim-27))
  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
  $END_SCRIPT
$
$_
$(_EQ(Regim-2))
    &Reg(N,2,0)=0;
    $BEG_SCRIPT

    var Map = CreateObject("MapString");
    Map.Add("3" ,"᮪ । ᢥ");
    Map.Add("4" ,"᮪  । ᢥ");
    Map.Add("5" ,"᮪ 죮⭨");
    Map.Add("6" ,"᮪ 죮⭨ (।  DBF)");
  
    string Title = "롥  ᯨ᪠:";
    var MapRez = CreateObject("MapString");
    if ( PanelValueFromMap(Map,MapRez,1,Title) == ESC ) Reg = 0;
    if ( !MapRez.InitIterator() ) Reg = 0;
    Reg = atoi(MapRez.GetCurKey());
    if ( Reg==7 || Reg==6 )
    {
       var CurFile=CreateObject("CurPrnFile");
       CurFile.SetFlagBrowse(0);
    }
    $END_SCRIPT 
    $(_EQ(Reg))
      $
    $
      &Regim = Reg;
    $_
$_
$BEG_SCRIPT

  var array_param[7];
  if( Regim<3 ) 
  {
    array_param[0]=6; //⢮ ࠬ஢
    array_param[1]=13; //⨯ 
    array_param[2]=1;
    array_param[3]=0;
    array_param[4]=Regim;
    array_param[5]=bSplitPack;
    array_param[6]=bTime;
  }
  else
  {
    array_param[0]=6; //⢮ ࠬ஢
    array_param[1]=6; //⨯ 
    array_param[2]=0;
    array_param[3]=Empty;
    array_param[4]=Regim;
    array_param[5]=bSplitPack;
    array_param[6]=bTime;
  }

  LoadScriptModule("PF\\formpf");
  PrintPF_DL2(array_param);
  UnloadScriptModule("PF\\formpf");

$END_SCRIPT
$