// -6-4
${(1. ன )
&bSplitPack(N,2,0)=0; // 1 - 室 ࠧ    窠
&bTime(N,2,0)=0;      // 1 - 뢠 ⠢襥 ६, 0 - 業 믮 ࠡ
&ColOnPage(N,6,0)=200;// ⢮ ᥩ   ࠭ (  -6-2)
#Empty(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);
$}(1. ன )
//#Regim(N,2,0)=_(15,9,65,15,롥 ० ,  -6-4,  -6-5);
#Regim(N,2,0)=_(7,9,73,15,롥 ० ,  -6-4,  -6-5, ᯨ᪮);
$(_EQ(Regim-27))
  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
	 CurFile.SetFlag_Print(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)");
    Map.Add("7" ,"窠 ॣ樨  .ᢥ");
//  Map.Add("8" ,"᮪ 죮⭨    (.)");
//  Map.Add("9" ,"᮪ 죮⭨    (ᮡ.)");

    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 )//|| Reg==8 || Reg==9 || Reg==0 )
    {
       var CurFile=CreateObject("CurPrnFile");
       CurFile.SetFlagBrowse(0);
       CurFile.SetFlag_Print(0);
    }
    $END_SCRIPT
    $(_EQ(Reg))
      $
    $
      &Regim = Reg;
    $_
$_
$BEG_SCRIPT
  var array_param[7];
  if( Regim<3 )
  {
    array_param[0]=6; //⢮ ࠬ஢
    array_param[1]=17; //⨯ 
    array_param[2]=1;
    array_param[3]=ColOnPage;
    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
$