//  "-4"
${(1. ன ⠡)
// ன  室  ࠧ "ன","ன ⠡   "
$}(1. ன ⠡)
//   :
&HowPr(N,1,0)=0; // 0 -  㬮砭 (᫨ ᫥ >=15    ,
                 // ᫨ <15   ਮ  砫 ),
                 // 1 -   
                 // 2 - ਮ  砫 
//   ⠫ :
&HowQu(N,1,0)=1; // 0 -  묨  I ⠫, I 㣮,
                 //                          9 楢, 
                 // 1 -  묨 c 砫    ⭮.
//   ⠫  (  HowQu==0):
&WhenQu(N,1,0)=1;// 0 - 뢮  ⮫쪮    ਮ
                 //     (, , ᥭ, )
                 // 1 -    ([,],[,],
                 //                      [ᥭ,],[,])
&MesPN(N,1,0)=1; // 1 - 㬬   ਭ, 0 -   ᫥
//                  ᫨ ᪭  뢠   ਭ
//                   ᮮ⢥騥  ᫥   ⬥祭 
//                  ᨬ ''  ⮫   ஬ 믮 롮ઠ
// 㣨 ன :
&DatTel(N,1,0)=0;// 1 - 뢮 ⥫䮭   ⠢, 0 - 
//
&Format(N,2,0)=0;  
&FPRINT(N,2,0)=1;  
#FF(N,3,0)=1;
//
$BEG_SCRIPT

   MesPN = GetCommonCnfInt("MesPN","p4");
   HowPr = GetCommonCnfInt("HowPr","p4");
   HowQu = GetCommonCnfInt("HowQu","p4");
   WhenQu = GetCommonCnfInt("WhenQu","p4");
   DatTel = GetCommonCnfInt("DatTel","p4");

   var CurFile=CreateObject("CurPrnFile");
   CurFile.SetFlagBrowse(0);

   var CTabl = CreateObject("CurPrnTbl");
   var KeyValueRef = CTabl.GetKeyValueCollections(true);
   string commonPart = GetAmbaResourceWorkDir();
   string formPart = TrimN(KeyValueRef.GetValue("__AdditionalFiles/xls"));
   string fullXlsName = commonPart + formPart;

   int acc = access(to_string(fullXlsName),0);
   if ( acc || !strlen(formPart) ) 
      FF = 0;
   else
      FF = 1;

$END_SCRIPT
//
$(_EQ(FF-1))
   #FPRINT=_(15,9,70,15,  ,  ନ஢ , ᮧ );
   $(_EQ(FPRINT-27))
      $
   $_
$_
//
$BEG_SCRIPT

  UnloadScriptModule("dmodules");
  LoadScriptModule("dmodules");
    UnloadDynamicModules();
  UnloadScriptModule("dmodules");

  int np = 7; 
  var param[np]; 
 
  param[0] = atoi(FPRINT);
  param[1] = atoi(Format);
  param[2] = atoi(HowQu);
  param[3] = atoi(HowPr);
  param[4] = atoi(WhenQu);
  param[5] = atoi(DatTel);
  param[6] = atoi(MesPN);

  UnloadScriptModule("forms\\p4_25");
  LoadScriptModule("forms\\p4_25");
    p4(param,np);
  UnloadScriptModule("forms\\p4_25");

$END_SCRIPT
$