//-- -2 "  客 ⠦  易⥫쭮 ᨮ 客 
//            客   ⠭ 㤮 ᨨ" 
${(1. ன ) 
&bSplitPack(N,2,0)=0; // 1 - 室 ࠧ    窠
&bTime(N,2,0)=0;      // 1 - 뢠 ⠢襥 ६, 0 - 業 믮 ࠡ
#Empty(C,81,0)=R_String(._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._.);
$}(1. ன ) 
&NewRegim(N,2,0)=0;
$BEG_SCRIPT 
{
  var Tabl = CreateObject("CurPrnTbl");;
  // ࠬ     ࠡ   ० ⭮
  var ReportParams; 
  int VersionParams = NewRegim = IsNewPFReportInterfaceT(Tabl,ReportParams);
}
$END_SCRIPT 
&Regim(N,2,0)=0;
&Reg(N,2,0)=0; 
$(_NE(NewRegim))
   &Regim=0;
$
   //#Regim(N,2,0)=_(15,9,65,15,롥 ० ,  -2,  -6-1); 
   #Regim=_(7,9,73,15,롥 ० ,  -2,  -6-1, ᯨ᪮); 
   $(_EQ(Regim-27)) 
     $BEG_SCRIPT 
       var CurFile=CreateObject("CurPrnFile"); 
       CurFile.SetFlagBrowse(0); 
     $END_SCRIPT 
   $ 
   $_ 
   $(_EQ(Regim-2)) 
       $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 
$