//  "-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;  
&YEAR(N,4,0)=2014; 
#GOD(N,4,0)=_(god,0); 
#FF1(N,3,0)=0;  
//
$BEG_SCRIPT

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

  WhenQu = GetCommonCnfInt("WhenQu","p4");
  DatTel = GetCommonCnfInt("DatTel","p4");

$END_SCRIPT
//
${(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
$
$_
//
$(_EQ(What))
  #NF1(N,3,0)=_(FFIRST,0);  
  #FN1(C,256,0)=_(FNAME1,0);  
  #FN2(C,256,0)=_(FNAME2,0);  
  //
  $BEG_SCRIPT 
    var CurFile=CreateObject("CurPrnFile"); 
    CurFile.SetFlagBrowse(0); 
    FreeSpaceString(FN1,3,""); FreeSpaceString(FN2,3,""); 
    string FN = FN1 + FN2; 
    if ( access(FN,0) ) NF1 = 0; 
    FF1 = NF1;
  $END_SCRIPT 
$
  #NF1(N,3,0)=_(NFIRST,0);  
  #FN1(C,256,0)=_(NNAME1,0);  
  #FN2(C,256,0)=_(NNAME2,0);  
  //
  $BEG_SCRIPT 
    var CurFile=CreateObject("CurPrnFile"); 
    CurFile.SetFlagBrowse(0); 
    FreeSpaceString(FN1,3,""); FreeSpaceString(FN2,3,""); 
    string FN = FN1 + FN2; 
    if ( access(FN,0) ) NF1 = 0; 
    FF1 = NF1;
  $END_SCRIPT 
$_ 
//
//$(_EQ(What)*_EQ(GOD-YEAR))
//$(_EQ(GOD-YEAR))
// ᫨ ࠭ 4   ࠢ YEAR
$(_GE(GOD-YEAR))
// ᫨ ࠭ 4     ࠢ YEAR
  $(_EQ(FF1-1)) 
    #Format=_(15,9,70,15,롥 ०,   , ।  䠩 ); 
    $(_EQ(Format-27)) 
      $ 
    $_ 
    $(_EQ(Format)) 
      #FPRINT=_(15,9,70,15, ,  ନ஢ ,   ); 
      $(_EQ(FPRINT-27)) 
        $ 
      $_ 
    $_ 
  $_ 
//
$
  #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");

//if ( !atoi(What) && atoi(GOD) == atoi(YEAR) )
if ( atoi(GOD) >= atoi(YEAR) )
{
  int np = 8; 
  var param[np]; 
 
  param[0] = atoi(FPRINT);
  param[1] = atoi(WhenQu);
  param[2] = atoi(HowQu);
  param[3] = atoi(What);
  param[4] = atoi(HowPr);
  param[5] = atoi(Format);
  param[6] = atoi(DatTel);
  param[7] = atoi(MesPN);

  UnloadScriptModule("forms\\p4_14");
  LoadScriptModule("forms\\p4_14");
    p4(param,np);
  UnloadScriptModule("forms\\p4_14");
}
else
{
  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
$