//
${(1.  )
// "  室  ᫥ ࠡ⭨ 䥤ࠫ 㤠⢥ ࣠,
// 㤠⢥ ࣠ ꥪ⮢ ᨩ᪮ 樨"
// (ଠ 14,  0503074)
//
// ਪ 䨭   23.12.2010  179
//
// ਮ筮: 㣮, 9 楢, 
$}(1.  )
//
&rk(N,4,2) = 1.15;  //  樥
&typ(N,2,0) = 1;    // 1-롨 㬬   ᫥; 0-  ਭ
&oks(N,2,0) = 0;    // 0-㬬 㣫  楫; 1-  筮 
&typOtp(N,2,0) = 1; // 1-롨 㬬 ᪠   ᫥; 0-  ਭ
&str020(N,2,0) = 1; // 1- ப 023  020 - 021 - 025; 0- ப 020  021 + 023 + 025
//
#AEND(N,3,0)=_(AEND,0);
//
$BEG_SCRIPT 

 rk = atof(p3get("form14","rk"));
 typ = GetCommonCnfInt("typ","form14");
 oks = GetCommonCnfInt("oks","form14");
 typOtp = GetCommonCnfInt("typOtp","form14");
 str020 = GetCommonCnfInt("str020","form14");
 
$END_SCRIPT 
//
${(2. )
//  । 㬬  ⠡ 1  3 㦭  ⮫ ⠡ 室 
//     ந   ᮮ⢥⢨  ਢ묨  ४ﬨ
//
//  1
//
//  ⮫ 6  ⮫ 4
//
//  ன str020 = 1 ப 020 - 025 뢠 ⠪:
//
// ப 020: 롨 㬬  ᥬ ⬥祭  ( ᨬ 123456789).
//
// ப 021: 㬬   ⬥祭 1 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)   +
//             㬬   ⬥祭 2 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)  
//             ( ⬥祭 ᨬ 2   뢠  ப 022)            +
//              ⠭  ((104,106)+(110,111))/29,4*(140,145   )
//
// ப 022: 㬬   ⬥祭 2 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)    
// 
// ப 023:   023 = 020 - 021 - 025
//
// ப 024: 㬬   ⬥祭 4 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)    
//
// ப 025: 㬬   ⬥祭  (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// ப 026: 㬬   ⬥祭 5 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
// 㬬 ᪭   ⬥祭 ᨬ  ( ᪠ 㪢)
// ⠫  ( ⮬ ᫥  )   ⬥祭 ᨬ 3
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  ன str020 = 0 ப 020  023 뢠 ⠪:
//
// ப 020:   020 = 021 + 023 + 025
//
// ப 023: 㬬   ⬥祭 3 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)   + 
//             㬬   ⬥祭 4 (㬭  ࠩ 樥 1.15) +
//             㬬   ⬥祭  (   㬭  樥)
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  2
//
//  ⮫ 4  5
//
//    ப 200, 210, 220, 280, 290, 300
//  ன 塞 ஢  㦭   "kodpost",   3
// 
//    ப 241-243, 251-253, 261-264, 271-274
//  ன 塞 ஢  㦭   "kodpost1",   3
//
//    ப 311, 312
//  ன 塞 ஢  㦭   "kodpost2",   3
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  3
//
//  ⮫ 3
//
// 㬬 । ᮮ⢥⢥     "kodpost"
// 241-243 ᮮ⢥ 411-413
// 251-253 ᮮ⢥ 421-423
// 261-264 ᮮ⢥ 431-434
// 271-274 ᮮ⢥ 441-444
//
// 㬬 롨ࠥ  ᥬ ᨬ ᨬ ⮫ ⠡ 室   ( ᨬ 123456789)
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  砥 ᫨     ᥩ ࣠樨
//  ᯮ짮 ன  "   樥 " -
//  ⮬ 砥 祭 樥  㤥    .
// ᫨   ன 祣  -  ⢥ 樥  
//  祭  ன " 樥"
//
////////////////////////////////////////////////////////////////////////////////////////////
//
//  ன "oks"   ⮡ 㬬 ⠫    ,
//  㬮砭  楫 .
$}(2. )
//
$BEG_SCRIPT

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

  int np = 5;
  var param[np];

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

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

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

  if ( atoi(AEND) < 324 ) LoadScriptModule("forms\\f14");
  else                    LoadScriptModule("forms\\f14_15");

  f14(param,np);

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

$END_SCRIPT
$