// -1 ࠧ 6
${(1. ன )
&bSplitPack(N,2,0)=0; // 1 - 室 ࠧ    窠
&bTime(N,2,0)=0;      // 1 - 뢠 ⠢襥 ६, 0 - 業 믮 ࠡ
&bExcel(N,2,0)=1;     // 1 -  ᯨ᪮  Excel, 0 - 筠 ⥪⮢ ଠ
&bTipSpLg(N,2,0)=1;   //   ᯨ᪠ 죮⭨: 0 - "㧪" ᯨ᮪, 1 - "ப" ( ஬   砫  ⠬ ਮ)
&bTipSpNe(N,2,0)=0;   //   ᯨ᪠  । ᢥ: 0 -  , 1 -  ᮬ
&bTipPrSp(N,2,0)=1;   //   ᯨ᪠ । ᢥ: 
//          0 - ᠬ ⪨ (, .)
//          1 - , ., 㬬
//          2 - , ., 㬬, 
//          3 - , ., 㬬, ,    ஦
$}(1. ன )
#Empty(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);
//#Regim(N,2,0)=_(15,9,65,15,롥 ० ,  -6-4,  -6-5);
#Regim(N,2,0)=_(7,9,73,15,롥 ० ,  6  -1, ᯨ᪮);
$(_EQ(Regim-27))
  $BEG_SCRIPT
    var CurFile=CreateObject("CurPrnFile");
    CurFile.SetFlagBrowse(0);
	 CurFile.SetFlag_Print(0);
  $END_SCRIPT
$
$_
$(_EQ(Regim-1))
    &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<2 )
  {
    array_param[0]=6; //⢮ ࠬ஢
    array_param[1]=18; //⨯ 
    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]=bExcel;
    array_param[3]=Empty;
    array_param[4]=Regim;
    array_param[5]=bSplitPack;
    array_param[6]=bTime;

    //   ᯨ᪮ । ன 
    //  ⥫  ப (  ᧢4  ᯮ)
    switch(Regim)
    {
       case 3 : array_param[3]=bTipPrSp; break;
       case 4 : array_param[3]=bTipSpNe; break;
       case 5 : array_param[3]=bTipSpLg; break;
    }
  }
  LoadScriptModule("PF\\formpf");
  PrintPF_DL2(array_param);
  UnloadScriptModule("PF\\formpf");

$END_SCRIPT
$