&RVZN(N,2,0)=2; // 1 - 뢠 客   ଥ; 0 -    (᫥ 祭)
//                 2 - ᫨ ࠧ ᮢ     ⠭  ଥ  100 
//                     ६ ⠭ ,  -   (᫥)
&UVMD(N,2,0)=0; // 1-  뢠; 0-ன ⪫祭
&TEST(N,2,0)=0; // 1-饬    ࠧ  祭 客 ᮢ  祭 *   祭 TEST (.. TEST   ⥫쭮 ᫮); 0-ன ⪫祭
${(1.  )  
// ଠ -1   
// 
//   ᫥  㯫祭 客 ᠬ  易⥫쭮 ᨮ 客
//  ᨮ 䮭 ᨩ᪮ 樨, 客 ᠬ  易⥫쭮 樭᪮
// 客  ࠫ 䮭 易⥫쭮 樭᪮ 客
// ⥫騪 客 ᮢ,
// ந騬 믫   ࠦ 䨧᪨ 栬
// 
// ਫ  ਪ ࠢࠧ ᨨ  15  2012 .  232
// ॣ஢    23  2012 . N 23588
//  
// ⠢  ।⠢ ⠫쭮 (騬 ⮣)  15- ᫠
// ண ୮ , ᫥饣   ਮ,  ਠ
// ࣠ ᨮ 䮭 ᨩ᪮ 樨 ( - )   ॣ樨
// ( ᮮ⢥⢨  㭪⮬ 1  9  15 ࠫ쭮  212-  24.07.2009  ।. ࠫ쭮   08.12.2010 N 339-)
$}(1.  )  
${(3.  室) 
//  室,  ࣠樨,  㤮, 뤥 
//
//  砥 ᫨   뤥  室 १ 業    - 㣨 ᯮᮡ,
//  ⠪  砥 室 뤥  ⤥ ࠧ 2 室 ଠ楢⮢   㤮
// 室 뢠 ᫥饥:
//
//       ⢮   ⬠ 251, 252, 259 
// ( ⠢    351, 352, 359)
//  "樠 ன  "    ப 
// " 室 .   室" -  ⮬ ᫥   ⬮ 241, 242  239 
// ( ⠢    341, 342, 339)
//    室 ⬥ ᨬ "*" (窠  祪)  ⮫  ன 
//   ⬥祭 ᨬ "9"  ⮫ 24 ᯥ樠쭮 ⠡ 室
//
//  뤥  ⤥ ࠧ 2 ᫥    ஬   "01" ⬥ 
//   "52"  "53"  "11"  "15"  ᨬ  뤥塞  室.
//
//  砥 ᫨  ࣠樨   室  ᮮ⢥⢥    - 52   - 53
//    㦭 ⬥   52  53
//  ⮬ 砥 室 ࠧ ᫥騬 ᯮᮡ -  室  뢠 
// 客 ᮢ 341, 342  339 㤥 ⭥ᥭ    52,
// 室  뢠  351, 352  359    53.
// ᫨ 㦭 ⮡ 뫮 , ⠭ ன ENVD = 2
//
// 㣮 ᯮᮡ  ଠ楢⮢:
//  ⮬ 砥   祭 ன FARM=1  ࠭   11
// ⥫쭮    11  롨 ⠪  01, 52  53.
// ଠ楢 ।   ஢  " ⥣ਨ ⥫騪 " - 
//  ଠ楢⮢ 㦭  ᢮  ⬮ 客 ᮢ  ᮮ⢥騬 㪢 
// 騬  ,  ᢮ 業묨 ⠢.
//  室 ଠ楢⮢     11.
// 室  ଠ楢⮢   ࠧ    01-53, 52-53
// 
$}(3.  室) 
//
${(4.  3.5 - ) 
//   ࠧ 3.5 㦭 뢠 ᫥饥:
// - 㪠뢠   浪;
// -  ⮫ "  ᪮ ⥫쭮  㪠  "
//   㪠  , ⥬ १ ஡   ᪮ ⥫쭮, 
//   ਬ, 
//   92.20 ⥫쭮   ࠤ頭  ⥫
$}(4.  3.5 - ) 
//
${(2. ன ) 
&VERF(N,2,0)=0; // 1-   ࠧ 3; 2-   1    ࠧ 2; 0-ன ⪫祭
//  , ࠧ 3.1 ⮫ 5-8 
&SINV(N,2,0)=1; // 1-⠢  㬬 室; 0- 㬬 
//  ࣠権  
&OINV(N,2,0)=0; // 1- ⢥ ࣠権  ( ⮬ ᫥ ᮧ   ⢥ ࣠権 ) 
//                 2- ࣠権, ⠢ ⠫   ⮨   ⢥ ࣠権  
//                 0-।⨥   ࣠樥  
&INSP(N,2,0)=1; // 0-    ப  ᯨ᪥; 1-    ᯨ᪥ ⮫쪮 ப ᪮쪮 ࠢ  ⭮ ਮ; -1  ப   祫    ᫥ ࠢ (᫨  ᪮쪮  ਮ)
&SplitInvFromSpec(N,2,0)=0; // ⤥ (1)   ࣠樨  ᯥ.०   .  (OINV > 0)   (0)
&ENVD(N,2,0)=0; // 1-뤥   ⤥ ࠧ 2 -  ⮣    㦭 ⬥  52  53 (⥫쭮  01)
//                 0-ன ⪫祭
#DNPD(C,10,0)=R_String(01.01.1980); //  砫 ⥫쭮 । (㦭  ࠢ쭮 । ⭮ ਮ (  ᫥  ਮ)  砥 ᫨ ।⨥ ࠡ⠥   ) 
&REST(N,2,0)=0; // 1- ॥; 0-  
&FARM(N,2,0)=0; // 1-筠 ࣠ (  ⥫騪    ); 0- 筠 ࣠
&FLV(N,2,0)=0;  // 1 - ਥ  䠩 祭; 0 - ⪫祭
$}(2. ன ) 
//  客 ᮢ 
&UPSV(N,2,0)=0; // 0-  㯫 (.140-144) ணࠬ   
//                 1- ⥫  㯫 ࠢ ᮮ⢥饬 ⥫  ᫥ 
//                 2-⥫  㯫  祭  ।騩  ᮮ⢥饣 ⥫  ᫥ 
&ITORG(N,2,0)=0;// 1 - IT ࣠; 0 - ⠫ ࣠樨 
&PINV(N,2,0)=2; // 2- ࠧ 4.1 ४ .. ⮡ ⮣ 㬬 뫨 ࠢ ᮮ⢥騬 ⥫ ப 300
//                 1-᪠ ४஢ 㫥 祭 ( 2 ४ ⮫쪮 㫥 祭)
//                 0-ன ⪫祭
// ᮡ 㣫
&SOKR(N,2,0)=2; // 0-㬬  ਮ 㣫 ⤥쭮
//                 1-㣫 㬬  , 㬬  ਮ ᪫뢠  㣫 㬬  
//                 2-㬬  ਮ 㣫 ⤥쭮, 㬬  ᫥     㬬  ⠫, ࠧ ⭮  ᫥ 㫥  (騩 室 砥  㬬 㣫 祭 , ॢ襭  죮)
//                 3-    2  ᪫祭 ⮣  塞 祭 (   ⭮ 訡 㣫 -  砥 2  騩 室)  ॢ襭, ᫨  ॢ襭 - 죮, ᫨  ॢ襭  죮 - 騩 室
&RSNG(N,2,0)=0; // 1-㣫 室 騬 ⮣  砫   2011 ; 0-㣫 ⠪ ᯮᮡ  2012 
//                  RSNG=1  祭 SOKR ஬ SOKR=3 
&VDOP(N,2,0)=3; // 0-客  ⥫   ⤥쭮
//                 1-᭠砫  ⥫ , 客   㬬  饣 饭  ⥫
//                 2-  饬    㫠 CheckUFA ( 31.08.2010)
//                 3-   㫠 CheckUFA ( 01.09.2010)
// ᮡ  ப "᫥ 客 ᮢ..."  ࠧ 2  3
&VSTR(N,2,0)=2; // 0-祭 祭  ந ᮮ⢥饩   
//                 1-祭 祭  㬬 ᮢ   
//                 2-   1,   ࠧ 1 頥 㬬 ᮢ ࠧ 2  3
//                 3-  ࠧ 2  3         ࠧ 1
&VDOK(N,2,0)=2; // 1-客   騬 ⮣,   ਮ 㣫 筮 (SOKR=1;VSTR=3)
//                 2-客   騬 ⮣, 㣫    ਮ (SOKR=0;VSTR=3)
//                 0-ன 祭
&JUDG(N,2,0)=0; //  㤥: 1-㣫 믮   , 0-㣫 騥 㬬 
&IKRT(N,2,0)=0; // 0--1; 1-㠫쭠 窠 
#OKT(C,80,0)=R_String(01); //  ᭮  
//  -横, ࠧ 3 
&ENIN(N,2,0)=1; // 0-᫨     室    室   頥  ப 350-394, ⠫쭮  300-344 
//              // 1- 室 뢠  ப 300-344 
// 
&Format(N,2,0)=0; 
&FPRINT(N,2,0)=1; 
&PKRT(N,2,0)=0; // 1-  롮  ; 0-⪫ ( 㠫쭮 窨) 
#FF1(N,3,0)=_(FFIRST,0); 
#FN1(C,256,0)=_(FNAME1,0); 
#FN2(C,256,0)=_(FNAME2,0); 
&FL1(N,2,0)=0;
&FL2(N,2,0)=0;
$BEG_SCRIPT 
  var CurFile=CreateObject("CurPrnFile"); 
  CurFile.SetFlagBrowse(0); 
  CurFile.SetFlag_Print(0);  
  FreeSpaceString(FN1,3,""); FreeSpaceString(FN2,3,""); 
  string FN = FN1 + FN2; 
  if ( access(FN,0) ) FF1 = 0; 

  UnloadScriptModule("user\\adxmlr1");
  UnloadScriptModule("forms\\sidr1");
  UnloadScriptModule("forms\\sidr1_12");

  try
  {
    LoadScriptModule("user\\adxmlr1");
    UnloadScriptModule("user\\adxmlr1");
    FL1 = 1;
  }
  catch(...)
  {
  }

  try
  {
    LoadScriptModule("forms\\sidr1_12");
    UnloadScriptModule("forms\\sidr1_12");
    FL2 = 1;
  }
  catch(...)
  {
  }

  UnloadScriptModule("user\\adxmlr1");
  UnloadScriptModule("forms\\sidr1");
  UnloadScriptModule("forms\\sidr1_12");

  if ( FL1 ) FLV = 1;
  else if ( FLV && FL2 ) FLV = 1;
  else FLV = 0;

$END_SCRIPT 
$(_EQ(FF1-1)) 
// 
  $(_EQ(IKRT)) 
    #Format=_(15,9,70,15,롥 ०,   , ।  䠩 ); 
  $ 
    &Format=0; 
  $_ 
// 
  $(_EQ(Format-27)) 
    $ 
  $_ 
// 
  $(_EQ(FLV))
    $(_EQ(Format)) 
      #FPRINT=_(15,9,70,15, ,  ନ஢ ,   ); 
      $(_EQ(FPRINT-27)) 
        $ 
      $_ 
    $_ 
  $
    $(_EQ(Format))
      #FPRINT=_(6,9,80,15, ,  ନ஢ ,   , ਥ  xml-䠩 );
      $(_EQ(FPRINT-27))
         $
      $_
    $_
  $_
// 
$_ 
// 
$BEG_SCRIPT 
 
  int np = 27; 
  var param[np]; 
 
  param[0]  = atoi(Format); 
  param[1]  = atoi(FPRINT); 
  param[2]  = atoi(OINV); 
  param[3]  = atoi(SINV); 
  param[4]  = static_cast_to_string(OKT); 
  param[5]  = atoi(ENIN); 
  param[6]  = atoi(SOKR); 
  param[7]  = atoi(JUDG); 
  param[8]  = atoi(VSTR); 
  param[9]  = atoi(REST); 
  param[10] = atoi(IKRT); 
  param[11] = atoi(VDOK); 
  param[12] = atoi(PINV); 
  param[13] = atoi(VDOP); 
  param[14] = atoi(UPSV); 
  param[15] = atoi(VERF); 
  param[16] = atoi(RVZN);
  param[17] = atoi(FARM); 
  param[18] = static_cast_to_string(DNPD); 
  param[19] = atoi(ITORG); 
  param[20] = atoi(UVMD); 
  param[21] = atoi(ENVD); 
  param[22] = atoi(PKRT); 
  param[23] = atoi(INSP); 
  param[24] = atoi(SplitInvFromSpec); 
  param[25] = atoi(RSNG);
  param[26] = atoi(TEST);
 
  UnloadScriptModule("dmodules"); 
  LoadScriptModule("dmodules"); 
    UnloadDynamicModules(); 
  UnloadScriptModule("dmodules"); 
 
  UnloadScriptModule("forms\\rsv1_11"); 
  UnloadScriptModule("forms\\rsv1_12"); 
  LoadScriptModule("forms\\rsv1_12"); 
    rsv1m(param,np); 
  UnloadScriptModule("forms\\rsv1_12"); 
 
$END_SCRIPT 
$