// ଠ 4- 2021
${(1. ⥫ ன)     
&FSKE(N,2,0)=1; // 1-뢠  (ᠬ⥫ 䨪樮 ); 0- 뢠
&FSHC(N,2,0)=0; // 1-᫨ 㣫  楫 祭 ⫨砥  㣫㭭  1 (10.07.2012)
&NREZ(N,2,0)=0; // 1-室 १⮢ 뢠  죮  㬬  ᫥  ࠢ⨧; 0-⪫     
$}(1. ⥫ ன)     
//
${(2.   )
//   ࣠樨 㦭 ந   客   ࠢ⨧
//  ࠧ "⪠   㣨 ⠡" - " ⪨"
//  ࠧ    ஬ 60 "客  (ࠢ⨧)"
//  ⪨ 㪠  ࠢ  ।⨨   " ⪨  客 "
// ⪠    ⥬  ஬ (60),  ⮬ 砥 㪠 ࣠ (⮫ )  ன ⭮ ⪠
//
//   ࣠樨 㦭 ந ᢮  客 ᮢ  ࠢ⨧.
//  ன ᮢ,   ࠧ "客     ࠢ⨧"  254
//   ன,  ᯨ᪥ ⬮   㦭 㪠 㪠 ࣠  ⮫ 
//   ன ⬠,  ன  㪠 ᢮  客 ᮢ
// 
//  ன ࠧ (ࠢ筨 - ࠧ)
//   ࠧ 㪠   ࣠樨  ⭮ (⮫ "।")
//
// ------------------------------------------------------------------------------------------
//
//  砩,   ணࠬ  ᪮쪮 ࣠権    ࠧ 客   ࠢ⨧
//  ⮬, ⠡   㦭 (騩  ନ஢  㦭)
//  ନ   ࣠樨 ⤥쭮
//  ࠢ  ९⨨  ⢥ "᭮" 㪠  ࣠  ன ନ,   , 
// 뤥 ࠧ,  ⭮   ࣠樨
//  ⮬ 砥  쭮    "᭮" ࣠樨
//   1 㤥 㪠   ⮩ ࣠樨
//  1.1    ⮬ 砥  㤥
//
$}(2.   )
//
${(3.  筮 䨭஢   )     
//   ன   
//
//  ࠧ "⪠   㣨 ⠡" - " ⪨"
//       ࠧ   ஬ 60 "客  (ࠢ⨧)".
//
// -------------------------------------------------------------------------------------------------------
//
// ਠ 1.    ⭮   ⭮ ⥩.
//
//  ன  ( "ன ⠡   ")  ன:
// "뢠 筨  ⭮ "
// " 뢠 筨  ⭮ "
// " ⪨  䮬  ࠢ⨧  ⭮ "
// ன " ⬠ ᮢ  ࠢ⨧  ⭮ "   㦭!
//
// -------------------------------------------------------------------------------------------------------
//
// ਠ 2.    ⭮   ⭮ ⥩.
//
//  ன 客 ᮢ 㦭    ⭮   ᭮ ⬠ 254.
//     ᢮ .
//  " " ⬠   㪠   ⭮ .
//  "樠 ன   "  ன
// " 筨/ꥪ/." 㪠 筨  ⭮ .
//  ⮫ "" 㪢 ""   祭 ⮫쪮  ᮢ  ⭮ .
//   354  554 㪢 ""  ⮫ "" 㦭 .
//
//  254- ⬠  "樠 ன   "  ன
// " 筨/ꥪ/." 㪠 筨 ⭮ .
// ⢥⢥  " " 㪠    ⭮ .
//   ᮢ  ⭮   ⮫ "" 254- ⬥   .
// 㪢 ""  ⮫ ""    354-  554- .
//
//  ,    254- ⬠ ( 祭 ண 室  ⪥ 60)
// 㤥 ⮡ࠦ  ⠡ 1   ப 5 - 9
//
//  ⠡ 室    ᮢ ⭮ .
//  ᭮  ᮢ  ⭮  ᪮஢ ன   354 ( Ctrl+F4)
//   ᮢ  ⭮   筨 ᪮஢ ன   554 ( Ctrl+F4)
//  ࠬ ⬠    㪠 1,*,1
// 冷 ᭮  ᮢ  ⭮  㪠 ⠪    354- ,
//   ᮢ  筨  㪠 ⠪    554- .
//
//  楢  筨 ⭮    ᮢ  ⭮ .
// ਭ樯 ।    ⠭ -  筨 (⭮ )   筨,
//   (⮣) 筨 ⭮  - ᭮  ᮢ  ⭮ .
//
//  ன  ( "ன ⠡   ")  ன:
// " ⬠ ᮢ  ࠢ⨧  ⭮ "
// " ⪨  䮬  ࠢ⨧  ⭮ "
//
// !!! ன "뢠 筨  ⭮ "  " 뢠 筨  ⭮ "
//   ⮬ 砥 !!!   ⠢ 묨.
//
$}(3.  筮 䨭஢  )
//
&ProcInv(N,5,2)=60; // 業  믫   ᫥ ᮢ  ࠢ⨧     
//
$BEG_SCRIPT     

  if ( (strlen(p3get("fss4","MPropAr01")) || strlen(p3get("fss4","MPropAr02")) )
       && GetCommonCnfInt("TBALG","fss4") ) 
  {
    AmbaMessageBox(" ன   ன   ਠ⮢   .\n  ਢ  ࠢ쭮 ⮡ࠦ .\nᬮ, ,   ଥ  ன   (Ctrl+F9)","!",0,0);
  }   
     
  int np = 4;
  var param[np];     
     
  param[0] = FSKE;     
  param[1] = FSHC;     
  param[2] = NREZ;     
  param[3] = atoi(ProcInv);
     
  UnloadScriptModule("dmodules");     
  LoadScriptModule("dmodules");     
    UnloadDynamicModules();     
  UnloadScriptModule("dmodules");     
     
  UnloadScriptModule("forms\\fss4_21");

  LoadScriptModule("forms\\fss4_21");
    fss4(param,np);
  UnloadScriptModule("forms\\fss4_21");
     
$END_SCRIPT     
$