${(1.  )  
// ଠ-4    
//   ᫥  㯫祭 客 ᠬ  易⥫쭮 樠쭮   
// 客  砩 ६ 㤮ᯮᮡ   裡  ਭ⢮    
//  易⥫쭮 樠쭮 客   砥  ந⢥     
// ᨮ ,  ⠪  室  믫 客 ᯥ祭  
//  
// ਫ  1  ਪ ࠢࠧ ᨨ  28.02.2011 .  156  
// ॣ஢    16  2011 . N 20129  
//  
// ।⠢   15- ᫠ ୮ ,   
// ᫥饣   ਮ,  ਠ ࣠  
//  樠쭮 客 ᨩ᪮ 樨  
$}(1.  )  
&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    㯯   
&BLVMEN(N,2,0)=0; // 0 -      믫    ᯮ ᯥ.  (  ⬥ *  *  . ன  );  
                  // 1 -     ᯮ    믫        
${(2. ன )  
&RV_RECALC_BL(N,1,0)=1;// 뢠   "㤠" 쭨, 0 -   
&ZN_ROUND_TR(N,2,0)=0; //   ࠢ⨧ 㣫: 0 -  㡫, 2 -    
&ZN_ROUND_SS(N,2,0)=0; //    㣫: 0 -  㡫, 2 -    
// ᮡ  ᫥  ࠢ⨧  
&TM(N,2,0)=1; // 業 : 0 -  㬬   (㣫  5  ᫥ ⮩); 1 -  饩 㬬    
// ᮡ  ⢠ ⥫ ᮡ  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;  
&MilTr(N,2,0)=1; // 1 - ⮢   뢠  ⠡.9  10 ; 0 - 뢠  
&TypeRvBl(N,2,0)=1; // ᮡ ᫥   ⠡ ஢ 믫    
// 0 -  ப  ᫥   ᫥  
// 1 -   ॥   ( ⮫쪮   祭 9  2  .2   ᢮)  
&NREZ(N,2,0)=0; // 1-室 १⮢ 뢠   ᫥  ࠢ⨧; 0-⪫  
&REST(N,2,0)=0; // 1- ॥; 0-   
#DNPD(C,10,0)=R_String(01.01.1980); //  砫 ⥫쭮 । (㦭  ࠢ쭮 । ⭮ ਮ (  ᫥  ਮ)  砥 ᫨ ।⨥ ࠡ⠥   )  
// ᮡ ᫥   ࠢ⨧  
&TRAV(N,2,0)=2; // 0 -  ன 7 .  ᢮  
//                 1 -  ன 254 ⬠  
//                 2 - । ணࠬ  
//  ࣠権   
&OINV(N,2,0)=0; // 1- ⢥ ࣠権  ( ⮬ ᫥ ᮧ   ⢥ ࣠権 )  
//                 2- ࣠権, ⠢ ⠫   ⮨   ⢥ ࣠権   
//                 0-।⨥   ࣠樥   
&ITORG(N,2,0)=0;// 1 - IT ࣠; 0 - ⠫ ࣠樨  
&FLV(N,2,0)=0;  // 1 - ਥ  䠩 祭; 0 - ⪫祭  
$}(2. ன )  
${(3. ⥫ ன)  
&SVC(N,2,0)=2; // 0 -  "" 㬬 客 ᮢ  ⠡.1  㬬
               // 祭 㬭 ⠡.3  ⠢ .
               // 1 -   ⠫
               // 2 -   㬬  砫 
               // 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-ன ⪫祭
&FADR(N,2,0)=1; // 1-।   e-mail (४ CADDR  EMAIL)  ।  䠩; 0- । (CADDR  EMAIL ४  易⥫)
&FSKE(N,2,0)=1; // 1-뢠  (ᠬ⥫ 䨪樮 ); 0- 뢠
$}(3. ⥫ ன)  
//   - ᫥ 㬬 室   ᯨ᪥  
&OKSI(N,2,0)=0; // 1 - 室    : 室  砫   室  砫   
//                 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");  
  UnloadScriptModule("forms\\sidf4");  
  
  try  
  {  
    LoadScriptModule("user\\adxmlf4");  
    UnloadScriptModule("user\\adxmlf4");  
    FL1 = 1;  
  }  
  catch(...)  
  {  
  }  
  
  try  
  {  
    LoadScriptModule("forms\\sidf4");  
    UnloadScriptModule("forms\\sidf4");  
    FL2 = 1;  
  }  
  catch(...)  
  {  
  }  
  
  UnloadScriptModule("user\\adxmlf4");  
  UnloadScriptModule("forms\\sidf4");  
  
  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))                                                                 
         $  
      $_  
    $_  
  $_  
$_  
//  
$BEG_SCRIPT  
  
  int np = 28;   
  var param[np];  
  
  param[0] = PROCINV;  
  param[1] = STRINV;  
  param[2] = BLVMEN;  
  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] = DNPD;  
  param[16] = TRAV;  
  param[17] = OINV;  
  param[18] = SOKR;  
  param[19] = ITORG;  
  param[20] = PINV;  
  param[21] = OKSI;  
  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);
  
  UnloadScriptModule("dmodules");  
  LoadScriptModule("dmodules");  
    UnloadDynamicModules();  
  UnloadScriptModule("dmodules");  
  
  UnloadScriptModule("forms\\fss4_11");  
  LoadScriptModule("forms\\fss4_11");  
    fss4(param,np);  
  UnloadScriptModule("forms\\fss4_11");  
  
$END_SCRIPT  
$