${(1.  )     
//       
//   28  2016 . N 585
// 
//   뤥 室 ।  믫 客 ᯥ祭
// ࠢ-, ।⠢塞  饭  뤥 ।  믫 客 ᯥ祭
// ஢ 室  楫 易⥫쭮 樠쭮 客  室, ⢫塞    ࠭⮢    
$}(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    㯯      
//
//----------------------------------------------------------------------------------------------------------
${(2. ன )     
// ன  室  ࠧ "ன","ன ⠡   "
&Claim(N,2,0)=2; // 2-⪫    ନ஢ ࠢ; 1-뢠   4-
$}(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;     

  int acc = access(FN,0);

//------------------------------------------------------------------------------

  if ( acc && strlen(FN) )
  {
     var sp = CreateObject("ParamFuncRW");
     sp.IInitial1(to_string(FN),"\\",100);
     // ⠥  䠩
     int cnt = sp.Count();
     if ( cnt )
     {
        char way[512];
        GetCurrentDirectory(511,way); // ࠡ稩 ⠫ 

        if ( !IsLocalZPL() )
        {
           if ( IsCommonResource(NameCommonDir()) == 2 )
           {
              GetCommonZPL(way,511);
           }
        }

        var Tabl = CreateObject("CurPrnTbl");

        string KodOP = "";
        string Year = SubStr(to_string(Tabl.TextS("EDAT",0)),3,4);

        int mk = atoi(Tabl.TextS("ENDKVL",0));

        if ( mk == 1 ) KodOP = "03";
        if ( mk == 2 ) KodOP = "06";
        if ( mk == 3 ) KodOP = "09";
        if ( mk == 4 ) KodOP = "12";

        way += "\\" + NameCommonDir() + "\\FSS4\\" + Year + "_" + KodOP + "\\";

        fullpath(way,way,511);
        mkdirAll(way);
        way += sp.Get(cnt-1);

        acc = access(to_string(way),0); //  ࠧ ஢塞   䠩  ࠢ 

        if ( !acc )
        {
           FN = way;

           string fn1 = SubStr(way,0,250);
           string fn2 = SubStr(way,250,250);

           int idx1 = Tabl.Find_Name_Fld("FNAME1");
           int idx2 = Tabl.Find_Name_Fld("FNAME2");
           int idxf = Tabl.Find_Name_Fld("FFIRST");

           int cr = Tabl.Count_Rcr();  // ᫮ ࠡ aᥩ  ⠡   
           
           for ( int zap = 0; zap < cr; zap++ )
           {
              Tabl.SText(idx1,zap,fn1);
              Tabl.SText(idx2,zap,fn2);
              Tabl.SText(idxf,zap,"1");
           }

           Tabl.Rewrite();
        }
     }
  }

//------------------------------------------------------------------------------

  if ( access(FN,0) ) FF1 = 0;     

$END_SCRIPT     
$(_EQ(FF1-1))     
  #FPRINT=_(15,9,70,15, ,  ନ஢ ,   );     
  $(_EQ(FPRINT-27))     
     $     
  $_     
$_     
//     
#MES(N,4,0)=_(ABDAT,0); 
//
$BEG_SCRIPT     

  if ( atoi(Claim) < 1 ) Claim = 1;
  if ( atoi(Claim) > 2 ) Claim = 2;
     
  int np = 31;
  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);    
  param[30] = atoi(Claim); // 0- -4 (1- )
     
  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     
$