${(1.  )     
// ଠ-4       
//   ᫥  㯫祭 客 ᠬ  易⥫쭮 樠쭮      
// 客  砩 ६ 㤮ᯮᮡ   裡  ਭ⢮       
//  易⥫쭮 樠쭮 客   砥  ந⢥        
// ᨮ ,  ⠪  室  믫 客 ᯥ祭     
//     
// ਫ  1  ਪ ࠢࠧ ᨨ  12.03.2012 .  216     
// ॣ஢       
//     
// ।⠢   15- ᫠ ୮ ,      
// ᫥饣   ਮ,  ਠ ࣠     
//  樠쭮 客 ᨩ᪮ 樨     
$}(1.  )     
${(4.  ࣠樨   㤮)     
//   ࣠権 㪠뢠  客⥫ 141,   
//   㤮 㪠뢠  客⥫ 131   
//  ⮣ ⮡  ⠪ ࣠権 뢠 㬬 室  ப 6 ( ࣠樨)   
//  ப 7 ( 㤮) ⠡ 3 㦭   
//  ᭮ ⬠ 258  2011  ᤥ  258  2012 .   
//  ⠫  㪠 祭 ⠢ 0 (),   
// 㡥   ᯥ樠 ன       
//  ன " 室 .  室" ⠢  室.   
//   ன (" 室 .  室")    
//      ⬠ 238   
//   ஬   ⬮ 238 ( ⠢ 338)    ⬮ 258 ( ⠢ 358)   
//  ஢    "業  室" 㪠 業 室    
// 㤥   㫥 ⠢  뢠  ப 6  ப 7 ⠡ 3   
//   
// 㣮 ᯮᮡ  ଠ楢⮢:   
//  ⮬ 砥   祭 ன FARM=1  ࠭  141   
// ଠ楢 ।   ஢  " ⥣ਨ ⥫騪 " -    
//  ଠ楢⮢ 㦭  ᢮  ⬮ 客 ᮢ  ᮮ⢥騬 㪢    
// 騬  ,  ᢮ 業묨 ⠢.   
//  室 ( ) ଠ楢⮢ 뢠  ப 6 ⠡ 3.   
//   
$}(4.  ࣠樨   㤮)     
&PROCINV(N,5,2)=60; // 業  믫   ᫥ ᮢ  ࠢ⨧     
// 뢠  믫   砥  業 PROCINV (.)  .4 ⠡.6     
&STRINV(N,2,0)=0; // 0 - ; 1 -      
&filtrInv(N,2,0)=0; // 1 -     㯯 > 3  ᯨ᮪; 0 -       
// !!!  !!! - ᢠ ६ exeptInv 祭 1  ⮫쪮  砥 ᫨    㯯  > 3 業  믫  ᫥ ᮢ  ࠢ⨧ ࠢ 100     
&exeptInv(N,2,0)=0; // 1 -    㯯 > 3 PROCINV = 100; 0 - 祭 PROCINV    㯯      
//
//----------------------------------------------------------------------------------------------------------
${(2. ன )     
// ன  室  ࠧ "ன","ன ⠡   "
$}(2. ன )     
//----------------------------------------------------------------------------------------------------------
//
&FLV(N,2,0)=0;  // 1 - ਥ  䠩 祭; 0 - ⪫祭     
//  ࣠権      
&OINV(N,2,0)=0; // 1- ⢥ ࣠権  ( ⮬ ᫥ ᮧ   ⢥ ࣠権 )     
//                 2- ࣠権, ⠢ ⠫   ⮨   ⢥ ࣠権      
//                 0-।⨥   ࣠樥      
&FARM(N,2,0)=0; // 1 - 筠 ࣠ (  ⥫騪    ); 0- 筠 ࣠   
&ZN_ROUND_TR(N,2,0)=2; //   ࠢ⨧ 㣫: 0 -  㡫, 2 -       
&ZN_ROUND_SS(N,2,0)=2; //    㣫: 0 -  㡫, 2 -       
&RV_RECALC_BL(N,1,0)=1;// 뢠   "㤠" 쭨, 0 -      
// ᮡ  ⢠ ⥫ ᮡ  1.5      
// 0 - ⥫ = த⥫ (⮣ - ⥫  ப 6  ⫨  㬬 - ⥫  ப     
// 7  8. 1 - ⥫ = ॡ (.. ⮣ ⥫  ப 6 = 㬬 ⥫  ப 7  8     
&TypeCalcCnt1_5(N,2,0)=0;     
// ᮡ  ⢠ ⥫ ᮡ  1.5   ⠡ । ࠡ⪠     
// 0 - ⥫ த⥫, 1 - ⥫ ॡ     
&SrzCnt1_5(N,2,0)=0;     
&TypeRvBl(N,2,0)=1; // ᮡ ᫥   ⠡ ஢ 믫       
// 0 -  ப  ᫥   ᫥     
// 1 -   ॥   ( ⮫쪮   祭 9  2  .2   ᢮)     
&REST(N,2,0)=0; // 1- ॥; 0-      
&FINV(N,2,0)=1; // 1 -    㫥  室  ᯨ᮪ ; 0- ⮫쪮  㫥  室
&ITORG(N,2,0)=0;// 1 - IT ࣠; 0 - ⠫ ࣠樨     
&ATRM(N,2,0)=0; // 1 - ஥  2013  -   ⠡楩 10 ( ࠡ ); 0 - ଠ 2012  (ਪ 216)
// ᮡ  ᫥  ࠢ⨧     
&TM(N,2,0)=1; // 業 : 0 -  㬬   (㣫  5  ᫥ ⮩); 1 -  饩 㬬       
// ᮡ ᫥   ࠢ⨧     
&TRAV(N,2,0)=2; // 0 -  ன 7 .  ᢮     
//                 1 -  ன 254 ⬠     
//                 2 - । ணࠬ     
&MilTr(N,2,0)=1; // 1 - ⮢   뢠  ⠡.9  10 ; 0 - 뢠     
&FADR(N,2,0)=1; // 1-।   e-mail (४ CADDR  EMAIL)  ।  䠩; 0- । (CADDR  EMAIL ४  易⥫)
&CHIT(N,2,0)=0; // ᫥  쭮 
&FP_OKVED(N,2,0)=1; // 0-  ; 1-
//
$BEG_SCRIPT 

 TM = GetCommonCnfInt("TM","fss4");

 FLV = GetCommonCnfInt("FLV","fss4");

 OINV = GetCommonCnfInt("OINV","fss4");
 FARM = GetCommonCnfInt("FARM","fss4");
 FINV = GetCommonCnfInt("FINV","fss4");
 TRAV = GetCommonCnfInt("TRAV","fss4");
 CHIT = GetCommonCnfInt("CHIT","fss4");

 MilTr = GetCommonCnfInt("MilTr","fss4");

 ZN_ROUND_TR = GetCommonCnfInt("ROUND_TR","fss4");
 ZN_ROUND_SS = GetCommonCnfInt("ROUND_SS","fss4");

 RV_RECALC_BL = GetCommonCnfInt("RV_REC_BL","fss4");

 TypeRvBl = GetCommonCnfInt("TypeRvBl","fss4");
 FP_OKVED = GetCommonCnfInt("FP_OKVED","fss4");

$END_SCRIPT 
//
${(3. ⥫ ன)     
&SVC(N,2,0)=0; // 0 -  "" 㬬 客 ᮢ  ⠡.1  㬬
               // 祭 㬭 ⠡.3  ⠢ .
               // 1 -   ⠫
               // 2 -   㬬  砫 
               // 3 -     㣮
&FSKE(N,2,0)=1; // 1-뢠  (ᠬ⥫ 䨪樮 ); 0- 뢠
&FSHC(N,2,0)=0; // 1-᫨ 㣫  楫 祭 ⫨砥  㣫㭭  1 (10.07.2012)
&NREZ(N,2,0)=0; // 1-室 १⮢ 뢠  죮  㬬  ᫥  ࠢ⨧; 0-⪫     
$}(3. ⥫ ன)     
// ᮡ 㣫   
&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    
&PINV(N,2,0)=2; // 2- ⠡ 3.1 ४ .. ⮡ ⮣ 㬬 뫨 ࠢ ᮮ⢥騬 ⥫ ப 5 ⠡ 3   
//                 1-᪠ ४஢ 㫥 祭 ( 2 ४ ⮫쪮 㫥 祭)   
//                 0-ன ⪫祭   
&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);     
&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\\adxmlf4_12");     
  UnloadScriptModule("forms\\sidf4_12");     
     
  try     
  {     
    LoadScriptModule("user\\adxmlf4_12");     
    UnloadScriptModule("user\\adxmlf4_12");     
    FL1 = 1;     
  }     
  catch(...)     
  {     
  }     
     
  try     
  {     
    LoadScriptModule("forms\\sidf4_12");     
    UnloadScriptModule("forms\\sidf4_12");     
    FL2 = 1;     
  }     
  catch(...)     
  {     
  }     
     
  UnloadScriptModule("user\\adxmlf4_12");     
  UnloadScriptModule("forms\\sidf4_12");     
     
  if ( FL1 ) FLV = 1;     
  else if ( FLV && FL2 ) FLV = 1;     
  else FLV = 0;     
     
$END_SCRIPT     
$(_EQ(FF1-1))     
    #Format=_(15,9,70,15,롥 ०,   , ।  䠩 );     
  $(_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))                                                                    
         $     
      $_     
    $_     
  $_     
$_     
//     
#MES(N,4,0)=_(ABDAT,0); 
//
$BEG_SCRIPT     
     
  int np = 30;      
  var param[np];     
     
  param[0] = PROCINV;     
  param[1] = STRINV;     
  param[2] = FINV;     
  param[3] = TM;     
  param[4] = TypeCalcCnt1_5;     
  param[5] = SrzCnt1_5;     
  param[6] = filtrInv;     
  param[7] = exeptInv;     
  param[8] = MilTr;     
  param[9] = TypeRvBl;     
  param[10] = NREZ;     
  param[11] = Format;     
  param[12] = FPRINT;     
  param[13] = SVC;     
  param[14] = REST;     
  param[15] = CHIT;
  param[16] = TRAV;     
  param[17] = OINV;     
  param[18] = SOKR;     
  param[19] = ITORG;     
  param[20] = atoi(FP_OKVED);     
  param[21] = ATRM;     
  param[22] = ZN_ROUND_TR;     
  param[23] = ZN_ROUND_SS;     
  param[24] = RV_RECALC_BL;     
  param[25] = FADR;     
  param[26] = FSKE;     
  param[27] = atoi(RSNG);   
  param[28] = atoi(FSHC);   
  param[29] = atoi(FARM);    
     
  UnloadScriptModule("dmodules");     
  LoadScriptModule("dmodules");     
    UnloadDynamicModules();     
  UnloadScriptModule("dmodules");     
     
  UnloadScriptModule("forms\\fss4_11");     
  UnloadScriptModule("forms\\fss4_12");     
  UnloadScriptModule("forms\\fss4_14");     
  UnloadScriptModule("forms\\fss4_15");     

  LoadScriptModule("forms\\fss4_15");
    fss4(param,np);
  UnloadScriptModule("forms\\fss4_15");
     
$END_SCRIPT     
$