// -1 2010 .
&RESM(N,2,0)=0; //  ॥: 1-; 0- 
${(1. ன )
&REST(N,2,0)=0; // 1- ॥; 0- 
//  客 ᮢ
&UPSV(N,2,0)=0; // 0-  㯫 (.140-144) ணࠬ  
//                 1- ⥫  㯫 ࠢ ᮮ⢥饬 ⥫  ᫥
//                 2-⥫  㯫  祭  ।騩  ᮮ⢥饣 ⥫  ᫥
//  -横, ࠧ 3
&ENIN(N,2,0)=1; // 0-᫨     室    室   頥  ப 350-394, ⠫쭮  300-344
//              // 1- 室 뢠  ப 300-344
//  , ࠧ 4.1 ⮫ 5-8
&SINV(N,2,0)=1; // 1-⠢  㬬 室; 0- 㬬
//  ࣠権 
&OINV(N,2,0)=0; // 1- ⢥ ࣠権  ( ⮬ ᫥ ᮧ   ⢥ ࣠権 )
//                 2- ࣠権, ⠢ ⠫   ⮨   ⢥ ࣠権 
//                 0-।⨥   ࣠樥 
&VERF(N,2,0)=0; // 0-  ଠ
//                 1-  ଠ ("㪠᪮") 13-05-2010
&PRIT(N,2,0)=1; // 0-    -࣠権 (ࠧ 4.3); 1-
$}(1. ன )
${(2. ⥫ ன)
// ᮡ  ப "᫥ 客 ᮢ..."  ࠧ 2  3
&VSTR(N,2,0)=2; // 0-祭 祭  ந ᮮ⢥饩   
//                 1-祭 祭  㬬 ᮢ   
//                 2-   1,   ࠧ 1 頥 㬬 ᮢ ࠧ 2  3
//                 3-  ࠧ 2  3         ࠧ 1
// ᮡ 㣫
&SOKR(N,2,0)=0; // 1-㣫 㬬  , 㬬  ਮ ᪫뢠  㣫 㬬  
//                 0-㬬  ਮ 㣫 ⤥쭮
&VDOK(N,2,0)=2; // 1-客   騬 ⮣,   ਮ 㣫 筮 (SOKR=1;VSTR=3)
//                 2-客   騬 ⮣, 㣫    ਮ (SOKR=0;VSTR=3)
//                 0-ன 祭
&PINV(N,2,0)=2; // 2- ࠧ 4.1 ४ .. ⮡ ⮣ 㬬 뫨 ࠢ ᮮ⢥騬 ⥫ ப 300
//                 1-᪠ ४஢ 㫥 祭 ( 2 ४ ⮫쪮 㫥 祭)
//                 0-ன ⪫祭
&VDOP(N,2,0)=3; // 0-客  ⥫   ⤥쭮
//                 1-᭠砫  ⥫ , 客   㬬  饣 饭  ⥫
//                 2-  饬    㫠 CheckUFA ( 31.08.2010)
//                 3-   㫠 CheckUFA ( 01.09.2010)
$}(2. ⥫ ன)
//   ன VDOK (VDOK ࠢ 1  2)
&JUDG(N,2,0)=0; //  㤥: 1-㣫 믮   , 0-㣫 騥 㬬
&IKRT(N,2,0)=0; // 0--1; 1-㠫쭠 窠
#OKT(C,80,0)=R_String(01); //  ᭮ 
//
&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))
//
  $(_EQ(IKRT))
    #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );
  $
    &Format=0;
  $_
//
  $(_EQ(Format-27))
    $
  $_
//
  $(_EQ(Format))
    #FPRINT=_(15,9,70,15, ,  ନ஢ ,   );
    $(_EQ(FPRINT-27))
      $
    $_
  $_
//
$_
//
$BEG_SCRIPT

  int np = 18;
  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);

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

  UnloadScriptModule("forms\\rsv1_10");
  LoadScriptModule("forms\\rsv1_10");
    rsv1m(param,np);
  UnloadScriptModule("forms\\rsv1_10");

$END_SCRIPT
$