${(1.  )
//   ᫥   㤠 ࠡ⭨ ࣠ 㤠⢥  
//  ⭮ ᠬࠢ  ⥣ c
//
// ਪ   31.05.2011  260
// ਪ   24.07.2012  407
// ਪ   24.09.2014  580
// ⠫쭠
//      ⠫ 2012 
// ப ।⠢ -  15  ᫥ ⭮ ਮ
$}(1.  )
${(2. )
//  ⠡ 㬬 롨   ⮫ ⠡ 室   ਭ
//   믫   ⬥祭  ⮬ ⮫ । ᨬ (㪢 - 訥 ᪨)
// 1 -  ⭮ 
// 2 -    稭
// 3 -    
// 4 -   ᮡ ᫮ 㦡
// 5 -   ࠡ  ᢥﬨ ⠢騬 㤠⢥ ⠩
// 6 - 筮  ७
// 7 - ६
// 8 - ਠ쭠 
// 9 - 믫  ࠩ 樥
//  -  믫
//  - 믫 樠쭮 ࠪ
//
//  ࠡ⭨  ⥣
// -----------------------------------
//  1 - 㤠⢥  ᨩ᪮ 樨, ꥪ⮢ ᨩ᪮ 樨, 㭨樯  ( ப 01, ࠧ 1)
//
//  㤠⢥ ࠦ᪮ (㭨樯쭮) 㦡 ( ப 02, ࠧ 1),  ⮬ ᫥
//  㤠⢥ ࠦ᪮ 㦡,  ⮬ ᫥
//  2 - 㪮⥫ ( ப 201, ࠧ 2)
//  3 - 魨 (ᮢ⭨) ( ப 202, ࠧ 2)
//  4 - ᯥ樠 ( ப 203, ࠧ 2)
//  5 - ᯥ稢騥 ᯥ樠 ( ப 204, ࠧ 2)
//  㭨樯쭮 㦡,  ⮬ ᫥
//  6 - 訥  ( ப 206, ࠧ 2)
//  7 -  ( ப 207, ࠧ 2)
//  8 - 騥 ( ப 208, ࠧ 2)
//  9 - 訥 ( ப 209, ࠧ 2)
// 10 - 訥 ( ப 210, ࠧ 2)
//
// 11 -    䥤ࠫ쭮 㤠⢥ 㦡 -  ࠢ࠭⥫쭮 㦡 (㤭) ( ப 03, ࠧ 1)
// 12 - 㣮 ᮭ, 騩   ࣠樨 ( ப 04, ࠧ 1)
//
//  ।  ப   ᨬ   ⥣ਨ  
//  㬮砭 ᮮ⢥⢨ ᤥ  ᯨ ਢ , ..    ⥣ਨ 1   ப 01  ..
//  ⭮ ࣠樨 㦭 믮 ன ᮮ⢥⢨  ⥣ਨ ப .
//   ᤥ ᪠  㭪 "3.  ⥣ਨ - ப "
//
$}(2. )
${(3.  ⥣ਨ - ப )
//  ⮣ ⮡   ।묨  ⥣ਨ   ᮮ⢥騥 ப 
// 室 믮 ᫥騥 ⢨:
//
//  㭪樨 稭  SysIs01(kod)  SysIs04(kod) ⥫쭮  
// (室  㫥 statfn.s ⠫ SCRIPT\FORMS)
//     㫥 ⠫ SCRIPT\USER, ਬ  usinit.s
//  २  ᮮ⢥⢥  UserIs01(kod) ... UserIs04(kod)
// ..    㭪樨 ᨬ "Sys"  "User"
//
//   㭪樨 ( ⠢ User) 㦭 㤥 ᪮४஢, ਬ
// ᫨ 㦭 ⮡  ப 01      ⥣ਨ 5, 7  12
// 㭪 UserIs01(kod) 㤥 룫拉 ⠪:
//
// UserIs01(kod)   
// {                 
//   if ( 5 == kod ||
//        7 == kod ||
//       12 == kod ) 
//     return 1;     
//   else            
//     return 0;     
// }                 
//
//  砥 ᫨  ப 206      ⥣ਨ 9 
// 㭪 UserIs206(kod) 㤥 룫拉 ⠪:
//
// UserIs206(kod)      
// {                 
//   if ( 9 == kod ) 
//     return 1;     
//   else            
//     return 0;     
// }                 
//
//  ⠪    ப
//
//  砥 ᫨  ࣠樨      ⭥ᥭ  - ப 
//  ᮮ⢥ 㭪   0 ()
// ਬ ᫨  ࣠樨   ⭮  ப 03 ࠧ 1
// ᮮ⢥ ⮩ ப 㭪 㤥 룫拉 ⠪:
//
// UserIs03(kod)      
// {                  
//   return 0;      
// }                  
$}(3.  ⥣ਨ - ப )
//
&Format(N,2,0)=0; 
&FPRINT(N,2,0)=1; 
#FF1(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) ) FF1 = 0; 
$END_SCRIPT 
$(_EQ(FF1-1)) 
// 
  #Format=_(15,9,70,15,롥 ०,   , ।  䠩 ); 
// 
  $(_EQ(Format-27)) 
    $ 
  $_ 
// 
  $(_EQ(Format)) 
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   ); 
    $(_EQ(FPRINT-27)) 
      $ 
    $_ 
  $_ 
// 
$_ 
//
$BEG_SCRIPT

  int np = 2;
  var param[np];

  param[0]  = atoi(Format); 
  param[1]  = atoi(FPRINT); 

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

  UnloadScriptModule("forms\\t1_gms");
  LoadScriptModule("forms\\t1_gms");
    t1_gms(param,np);
  UnloadScriptModule("forms\\t1_gms");

$END_SCRIPT
$