//
${(1.  )
// "  室  ᫥ ࠡ⭨ ࣠ ⭮ ᠬࠢ
// ⥫ ᨩ  㭨樯 ࠧ
// (ଠ 14-,  0503075)
//
// ਪ 䨭   04.12.2014  143 ( ।樨 ਪ 䨭  16.06.2016  86)
// ਪ 䨭   28.12.2017  259 (   2017 )
//
// ਮ筮: 㣮, 9 楢, 
$}(1.  )
//
&rk(N,4,2) = 1.15;  //  樥
&typ(N,2,0) = 1;    // 1-롨 㬬   ᫥; 0-  ਭ
&oks(N,2,0) = 0;    // 0-㬬 㣫  楫; 1-  筮 
&chisl(N,2,0) = 0;  // ।ᯨ筠 ᫥: 0- 楫 ᫠; 1-   
&staff(N,2,0) = 0;  // ᫮    ⭮ 
//
#AEND(N,3,0)=_(AEND,0);
//
$BEG_SCRIPT

 rk = atof(p3get("form14mo","rk"));
 typ = GetCommonCnfInt("typ","form14mo");
 oks = GetCommonCnfInt("oks","form14mo");
 chisl = GetCommonCnfInt("CHISL","form14mo");
 staff = GetCommonCnfInt("STAFF","form14mo");

$END_SCRIPT
//
${(2. )
//  । 㬬  ⠡ 1  3 㦭  ⮫ ⠡ 室
//     ந   ᮮ⢥⢨  ਢ묨  ४ﬨ
//
//  1
//
//   4  6
//
//  ப 010, 020, 030  040
// ᮮ⢥⢨  ⥣ਨ  ப   ⪥ 626 "  室 0503075"
//
// ப 010: 㬬 ப 011  012
//
// ப 011: 㬬   ⬥祭 1 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)   +
//             㬬   ⬥祭 2 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)   +
//             㬬   ⬥祭 3 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 012: 㬬   ⬥祭 4 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 020: 㬬 ப 021, 022  024
//
// ப 021: 㬬   ⬥祭 1 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 022: 㬬   ⬥祭 2 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)   +
//             㬬   ⬥祭 3 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)    
//
// ப 023: 㬬   ⬥祭 3 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)    
//
// ப 024: 㬬   ⬥祭 4 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 030: 㬬   ⬥祭 1,2,3,4 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭 ,,, (   㬭  樥)
//
// ப 040: 㬬   ⬥祭 1,2,3,4 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭 ,,, (   㬭  樥)
//
//
// ப 050: 㬬 ப 010, 020, 030, 040
//
// ப 060: 㬬   ⬥祭  (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥) +
//             㬬 ப 061, 062, 065
//
// ப 062: 㬬 ப 063, 064
// ப 065: 㬬 ப 066, 067
//
// ப 061: 㬬   ⬥祭 5 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
// 
// ப 063: 㬬   ⬥祭 6 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 064: 㬬   ⬥祭 7 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 066: 㬬   ⬥祭 8 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 067: 㬬   ⬥祭 9 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 070: 㬬   ⬥祭  (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥) +
//             㬬  ப 071
//
// ப 071: 㬬   ⬥祭  (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 080: 㬬 ப 050 + 060 + 070
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  2
//
//   4  5, 7  8
//
//    ப 200, 220, 230, 240, 250, 260, 270, 280                     
//  ன 塞 ஢         CodePost,   3
// 祭 ⮣  ।   ப 㤥 ⥭  .
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  3
//
//   3  4
//
// 㬬 । ᮮ⢥⢥     CodePost
// 220-260 ᮮ⢥ 410-450
//
// 㬬 롨ࠥ  ⥬  ᨬ    ⠡ 2
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//         ன 塞 ஢   
//   StafUnit,   5
// ᫨  ன   "   ⭮ "  ,  祭 1
//   㪠  
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  砥 ᫨     ᥩ ࣠樨
//  ᯮ짮 ன  "   樥 " -
//  ⮬ 砥 祭 樥  㤥    .
// ᫨   ன 祣  -  ⢥ 樥 
//  祭  ன " 樥"
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  ன "oks"   ⮡ 㬬 ⠫    ,
//  㬮砭  楫 .
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  ।   㦭   ஢   .
// ᥢ  㪠뢠  ன   "ன ⠡   "
//
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  ன     ॥.
// ⤥쭮 ⠥ ॥  ࠧ 1   ࠧ 3
//
$}(2. )
//
$BEG_SCRIPT

  int np = 5;
  var param[np];

  param[0] = atof(rk);
  param[1] = atoi(typ);
  param[2] = atoi(oks);
  param[3] = atoi(chisl);
  param[4] = atoi(staff);

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

  UnloadScriptModule("forms\\f14");
  UnloadScriptModule("forms\\f14_15");
  UnloadScriptModule("forms\\f14mo");

  LoadScriptModule("forms\\f14mo");

  f14mo(param,np);

  UnloadScriptModule("forms\\f14mo");

$END_SCRIPT
$