//  "-4" 
${(1. ன ⠡) 
//   ⠫ :
&HowQu(N,1,0)=1; // 0 -  묨  I ⠫, I 㣮,
                 //                          9 楢, 
                 // 1 -  묨 c 砫    ⭮.
//   ⠫  (  HowQu==0):
&WhenQu(N,1,0)=1;// 0 - 뢮  ⮫쪮    ਮ
                 //     (, , ᥭ, )
                 // 1 -    ([,],[,],
                 //                      [ᥭ,],[,])
//   :
&HowPr(N,1,0)=1; // 0 -  㬮砭 (᫨ ᫥ >=15    ,
                 // ᫨ <15   ਮ  砫 ),
                 // 1 -   
                 // 2 - ਮ  砫 
// 㣨 ன :
&DatTel(N,1,0)=0;// 1 - 뢮 ⥫䮭   ⠢, 0 - 
&MesPN(N,1,0)=1; // 1 - 㬬   ਭ, 0 -   ᫥
//
$}(1. ன ⠡) 
${(2. ) 
#What(N,2,0)=_(15,9,70,15,ଠ ,ଠ -4,ଠ -4()); 
$(_EQ(What-27)) 
$BEG_SCRIPT 
  var CurFile=CreateObject("CurPrnFile"); 
  CurFile.SetFlagBrowse(0); 
$END_SCRIPT 
$ 
$_ 
#Format(N,2,0)=_(15,9,70,15,롥 ०, ,।  䠩); 
$(_EQ(Format-27)) 
$BEG_SCRIPT 
  var CurFile=CreateObject("CurPrnFile"); 
  CurFile.SetFlagBrowse(0); 
$END_SCRIPT 
$ 
$_ 
$}(2. ) 
// 
$BEG_SCRIPT 
 
  UnloadScriptModule("dmodules"); 
  LoadScriptModule("dmodules"); 
    UnloadDynamicModules(); 
  UnloadScriptModule("dmodules"); 
 
  var array_param[8]; 
  array_param[0]=static_cast_to_string(7); //⢮ ࠬ஢ 
  array_param[1]=static_cast_to_string(WhenQu); 
  array_param[2]=static_cast_to_string(HowQu); 
  array_param[3]=static_cast_to_string(What); 
  array_param[4]=static_cast_to_string(HowPr); 
  array_param[5]=static_cast_to_string(Format); 
  array_param[6]=static_cast_to_string(DatTel); 
  array_param[7]=static_cast_to_string(MesPN); 
 
  UnloadScriptModule("forms\\p4_XX"); 
  LoadScriptModule("forms\\p4_XX"); 
    p4_20XX(array_param); 
  UnloadScriptModule("forms\\p4_XX"); 
 
$END_SCRIPT 
$