//  "-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)=0; // 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);
  CurFile.SetFlag_Print(0);
$END_SCRIPT
$
$_
#Format(N,2,0)=_(15,9,70,15,롥 ०, ,।  䠩);
$(_EQ(Format-27))
$BEG_SCRIPT
  var CurFile=CreateObject("CurPrnFile");
  CurFile.SetFlagBrowse(0);
  CurFile.SetFlag_Print(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
$