${(1.  )  
// ଠ -1   
// 
//   ᫥  㯫祭 客 ᠬ  易⥫쭮 ᨮ 客
//  ᨮ 䮭 ᨩ᪮ 樨, 客 ᠬ  易⥫쭮 樭᪮
// 客  ࠫ 䮭 易⥫쭮 樭᪮ 客  ਠ
// 䮭 易⥫쭮 樭᪮ 客 ⥫騪 客 ᮢ,
// ந騬 믫   ࠦ 䨧᪨ 栬
// 
// ਫ  ਪ ࠢࠧ ᨨ  12.11.2009  894
// ( ।. ਪ ࠢࠧ   20.12.2010  1135,  31.01.2011  54) 
//  
// ⠢  ।⠢ ⠫쭮 (騬 ⮣)  15- ᫠
// ண ୮ , ᫥饣   ਮ,  ਠ
// ࣠ ᨮ 䮭 ᨩ᪮ 樨 ( - )   ॣ樨
// ( ᮮ⢥⢨  㭪⮬ 1  9  15 ࠫ쭮  212-  24.07.2009  ।. ࠫ쭮   08.12.2010 N 339-)
$}(1.  )  
&RESM(N,2,0)=0; //  ॥: 1-; 0-  
${(2. ன ) 
&REST(N,2,0)=0; // 1- ॥; 0-  
//  客 ᮢ 
&UPSV(N,2,0)=0; // 0-  㯫 (.140-144) ணࠬ   
//                 1- ⥫  㯫 ࠢ ᮮ⢥饬 ⥫  ᫥ 
//                 2-⥫  㯫  祭  ।騩  ᮮ⢥饣 ⥫  ᫥ 
//  , ࠧ 4.1 ⮫ 5-8 
&SINV(N,2,0)=1; // 1-⠢  㬬 室; 0- 㬬 
//  ࣠権  
&OINV(N,2,0)=0; // 1- ⢥ ࣠権  ( ⮬ ᫥ ᮧ   ⢥ ࣠権 ) 
//                 2- ࣠権, ⠢ ⠫   ⮨   ⢥ ࣠権  
//                 0-।⨥   ࣠樥  
&ITORG(N,2,0)=0;// 1 - IT ࣠; 0 - ⠫ ࣠樨 
#DNPD(C,10,0)=R_String(01.01.1980); //  砫 ⥫쭮 । (㦭  ࠢ쭮 । ⭮ ਮ (  ᫥  ਮ)  砥 ᫨ ।⨥ ࠡ⠥   ) 
&FLV(N,2,0)=0;  // 1 - ਥ  䠩 祭; 0 - ⪫祭
$}(2. ன ) 
${(3. ⥫ ன) 
&PINV(N,2,0)=2; // 2- ࠧ 4.1 ४ .. ⮡ ⮣ 㬬 뫨 ࠢ ᮮ⢥騬 ⥫ ப 300
//                 1-᪠ ४஢ 㫥 祭 ( 2 ४ ⮫쪮 㫥 祭)
//                 0-ன ⪫祭
&ENVD(N,2,0)=0; // 0- ।  䠩 ࠧ  ;  稨     (351,352)  㬬    ஬ ࠧ
//                 1-।  䠩;  稨     (351,352) 뤥 㬬  ⨩ ࠧ (   ன)
&INSP(N,2,0)=1; // 0-    ப  ᯨ᪥; 1-    ᯨ᪥ ⮫쪮 ப ᪮쪮 ࠢ  ⭮ ਮ; -1  ப   祫    ᫥ ࠢ (᫨  ᪮쪮  ਮ)
&SplitInvFromSpec(N,2,0)=0; // ⤥ (1)   ࣠樨  ᯥ.०   .  (OINV > 0)   (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 
$}(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-ன 祭
//   ன VDOK (VDOK ࠢ 1  2) 
&VERF(N,2,0)=0; // 0-  ଠ 
//                 1-  ଠ ("㪠᪮") 13-05-2010 
&JUDG(N,2,0)=0; //  㤥: 1-㣫 믮   , 0-㣫 騥 㬬 
&IKRT(N,2,0)=0; // 0--1; 1-㠫쭠 窠 
#OKT(C,80,0)=R_String(01); //  ᭮  
&PRIT(N,2,0)=1; // 0-    -࣠権 (ࠧ 4.3); 1- 
&TSET(N,2,0)=1; // 0-15  ਠ 
//                 1-10  ਠ 
//  -横, ࠧ 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");

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

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

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

  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 = 26; 
  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(RESM); 
  param[17] = atoi(PRIT); 
  param[18] = static_cast_to_string(DNPD); 
  param[19] = atoi(ITORG); 
  param[20] = atoi(TSET); 
  param[21] = atoi(ENVD); 
  param[22] = atoi(PKRT); 
  param[23] = atoi(INSP); 
  param[24] = atoi(SplitInvFromSpec); 
  param[25] = atoi(RSNG);
 
  UnloadScriptModule("dmodules"); 
  LoadScriptModule("dmodules"); 
    UnloadDynamicModules(); 
  UnloadScriptModule("dmodules"); 
 
  UnloadScriptModule("forms\\rsv1_11"); 
  LoadScriptModule("forms\\rsv1_11"); 
    rsv1m(param,np); 
  UnloadScriptModule("forms\\rsv1_11"); 
 
$END_SCRIPT 
$