////////////////////////////////////////////////////////////////////////////
// ╠юфєы№ фы  тёяюьюурЄхы№э√ї ЇєэъЎшщ (т юёэютэюь фы  ЄрсышЎ ш ЇюЁь яхўрЄш)
// (яхЁт√щ Єръющ ьюфєы№ - funcrw.s
////////////////////////////////////////////////////////////////////////////
R_BZ_Script(mes,tip,ExtCod)
//Єрсышўэр  Ї-Ўш !!
//ёъЁшяЄют√щ рэрыюу R_BZ(ьхё Ў, Єшя, тэх°эшщ_ъюф)
//юёэютэюх юЄышўшх - юЄЁрсрЄ√трхЄ Їшы№ЄЁ фы  т√сюЁюъ(CMN_SRC_REFS)  
{
  try
  {
    var ts = CreateObject("TempCommonSrc");
    ts.TempCommonSrcInitial(CMN_SRC_COUNT_LS);
    SetCommonProp(CMN_SRC_COUNT_LS,GetCommonProp(CMN_SRC_REFS));
    double rez=0.;
    poiskbzm(Extern_To_InternE(atof(ExtCod)),atoi(mes),rez,atoi(tip));
    return rez;
  }
  catch(object err)
  //юсЁрсюЄър шёъы■ўхэшщ
  {
    SayError(err);                  //т√тюфшь ёююс∙хэшх ю ю°шсъх
    return 0.;                  
  }
  catch(...)
  //юсЁрсюЄър шёъы■ўхэшщ
  {
    SayUndefinedScriptError();
    return 0.;
  }  
}

GetDateVP(ExtCod,m,mv)
{
   double Cod = Extern_To_InternE(ExtCod);
   var Dat = CreateObject("KDate");
   Dat.SetDateD(GetDateFromFuncRWScript(m));
   int mabs = Dat.GetAbs();
   Dat.SetDateD(GetDateFromFuncRWScript(mv));
   int mvabs = Dat.GetAbs();
   var LS = CreateObject("LS");
   LS.GetGlobalLS();
   var MatrLS = LS.MatrLS();
   var Prop = CreateObject("APropBE");
   var SumElem = MatrLS.CollectSumm(Cod, mabs, mvabs, CL_EXACT|CL_M|CL_MV,Prop);
   return SumElem.Date.GetStr();
}

CalcTableAfterCreate(__AdrTable)
{
   var Tabl = CreateObject("CurPrnTbl");
   Tabl.Initial(__AdrTable);
   Tabl.Fill_Bottom_Text_2();
   // с 17.02.2017 не надо, запись сделает сам код "приема ЛС" в таблицу
   // Tabl.Rewrite();
   return 0;
}

Correct_Address_Razn(&addrOEM, sz, what, how, tn, kchfld, date, param)
// addrOEM - ЁхфръЄшЁєхь√щ рфЁхё (т OEM ъюфшЁютъх)
// sz - ЁрчьхЁ сєЇхЁр
// what - ъръє■ ўрёЄ№ рфЁхёр їюўхЄё  яюыєўшЄ№ эр т√їюфх (ёь. 2-щ ярЁрьхЄЁ ЇєэъЎшш └─╨┼╤)
// how - эрфю ыш яЁхюсЁрчютрЄ№ Ёхчєы№ЄрЄ (ёь. 3-щ ярЁрьхЄЁ ЇєэъЎшш └─╨┼╤)
// tn - ╥═, ъєфр Ёрчэюёшь Ёхчєы№ЄрЄ яЁш ёюїЁрэхэшш (хёыш 0 - эх Ёрчэюёшь)
// kchfld - яёхтфюэшь яюы  ╩╫, ъєфр Ёрчэюёшь
// date - фрЄр, ё ъюЄюЁющ ЁрчэхёЄш
// param - ЁрчэюёшЄ№ ё чряЁюёюь (1)/схч чряЁюёр (0),  +2 - яЁхюсЁрчютрЄ№ рфЁхё т тхЁїэшщ ЁхушёЄЁ
{
   int res=Correct_Address(addrOEM,sz,what,how);  

   if (res && tn>0 && !razovnum && strlen(kchfld)>0 && 
       ( (param&1)==0 || AmbaMessageBox("Разнести изменения адресных данных в ЛС?","Контур-Зарплата",MB_YESNO|MB_ICONQUESTION,0)==IDYES) 
      )
   {
      int R_C = LSRead(tn,2); //2 - тхё№ Їрщы, эю схч ёьхэ√ ърыхэфрЁ 
      if ( R_C==1 ) 
         {
            var objDate=CreateObject("KDate");
            objDate.SetDate(static_cast_to_string(date));
            SetKchValue(kchfld, addrOEM, objDate);
            lswrite(ls,0);
         }
      }

   if (param&2) UpperString(addrOEM);
   return addrOEM;
}

CompareIndexWithKLADR(addrOEM)
{
   if (Str_Cmp(static_cast_to_string(addrOEM)," "," ,.-0")==0) return " ";
   var kadres=CreateObject("Adres");
   kadres.Initial(static_cast_to_string(addrOEM),0);
   int index=kadres.GetIndex();
   int indexKLADR=GetIndex(addrOEM);
   if (index==indexKLADR) return " ";
   switch (indexKLADR)
   {
      case 0: return "Индекс не найден";
      case 1: return "Регион не указан, или отсутствует в справочнике";
      case 2: return "Район отсутствует в справочнике";
      case 3: return "Город отсутствует в справочнике";
      case 4: return "Населенный пункт отсутствует в справочнике";
      case 5: return "Улица отсутствует в справочнике";   
      case 9: return "Страна отличается от России - контроль адреса не возможен";
   } 
   char buf[15];
   sprintf(buf,indexKLADR);
   return buf;
}

Change_Index_Razn(addrOEM, indexStr, kchfld, date)
// addrOEM - рфЁхё уфх эрфю яюьхэ Є№ шэфхъё (т OEM ъюфшЁютъх)
// indexStr - шэфхъё, эр ъюЄюЁ√щ ьхэ хь
// kchfld - яёхтфюэшь яюы  ╩╫, ъєфр Ёрчэюёшь
// date - фрЄр, ё ъюЄюЁющ ЁрчэхёЄш
{
   int index=atoi(static_cast_to_string(indexStr));
   if (Str_Cmp(static_cast_to_string(addrOEM)," "," ,.-0")==0) return;
   if (!index) return addrOEM;
   var kadres=CreateObject("Adres");
   kadres.Initial(static_cast_to_string(addrOEM),0);
   kadres.SetIndex(index);
   string param=kchfld;
   param+=",1,";
   param+=date;   
   return W_Face(param,kadres.GetAdres("П_АДРЕС","ПРОСТО"),255,0);
}

GetNameGroopUdForm425()
{
  UnLoadScriptModule("forms\\CommonPartOfVacationForms");
  LoadScriptModule("forms\\CommonPartOfVacationForms");
  ZaprosNameGroupUd("425");
  UnLoadScriptModule("forms\\CommonPartOfVacationForms");
}

GetNameGroupUdForm(nameForm)
{
  UnLoadScriptModule("forms\\CommonPartOfVacationForms");
  LoadScriptModule("forms\\CommonPartOfVacationForms");
  ZaprosNameGroupUd(nameForm);
  UnLoadScriptModule("forms\\CommonPartOfVacationForms");
}

IsMedCategory(kat)
{
   char s[256];
   GetCommonCnf("MedCat","egisz",s,255);
   if (!Str_Cmp(s," "," ")) return 1;
   var FuncParam =  CreateObject("ParamFuncRW");
   FuncParam.IInitial(static_cast_to_string(s),",",CatCount());
   int paramCount=FuncParam.Count();
   for (int param=0; param<paramCount; param++) 
     if (atoi(FuncParam.Get(param))==kat) return 1;
   return 0;
}

// яюыєўшЄ№ чэрўхэшх шч яюы  ╩╫, єърчрээюую т эрёЄЁющъх cnfName т ЄрсышЎх cnfTable эр фрЄє dateStart
// хёыш decodeID==true, Єю ёўшЄрхЄё , ўЄю т яюых ╩╫ ID ш эрфю фюёЄрЄ№ чэрўхэшх шч ёяЁртюўэшър ё яюью∙№■ GetKchValByIdFromRef
R_FaceCnfFld(cnfName, cnfTable, dateStart, decodeID)
{
   char name[256],s[256];
   GetCommonCnf(cnfName,cnfTable,name,255);
   FreeSpaceString(name,3,"");
   if (strlen(name)>0) 
   {
      R_Face(name+", "+dateStart,s,255,0);
      int num=kch_num_sys(name);
      if (decodeID && num>=0) 
         return GetKchValByIdFromRef(name,s,-1);
      return s;
   }
   else return "";
}

IsLSAttestWholePeriod()
{
  int len = 256;

  char ts[len], 
       arg[len], 
       str[len];

  var m1 = CreateObject("KMonth");
  var m2 = CreateObject("KMonth");

  m1.SetDate(static_cast_to_string(Str_Date_0));
  m2.SetDate(static_cast_to_string(Str_Date_1));

  var mes_rb = CreateObject("KMonth");
  var mes_uv = CreateObject("KMonth");

  kch_from("data_rb",str); FreeSpaceString(str,3,""); mes_rb.SetDate(static_cast_to_string(str));
  kch_from("data_uv",str); FreeSpaceString(str,3,""); mes_uv.SetDate(static_cast_to_string(str));

  int ames_rb = mes_rb.GetAbs();
  int ames_uv = mes_uv.GetAbs();

  int mbeg = m1.GetAbs(),
      mend = m2.GetAbs();

  int fatt = 1;

  //if ( !mes_uv.IsEqI(INVALID_MONTH_VALUE) ) if ( ames_uv < ames_rb ) fatt = 0;

  var mb = CreateObject("KMonth");

  if ( !mes_rb.IsEqI(INVALID_MONTH_VALUE) ) if ( ames_rb > mbeg ) mbeg = ames_rb;
  if ( !mes_uv.IsEqI(INVALID_MONTH_VALUE) ) if ( ames_uv < mend ) mend = ames_uv;

  for ( int mes = mbeg; mes <= mend; mes++ )
  { // Ўшъы яю ьхё Ўрь
    mb.SetMonth(mes);
    sprintf(ts,"%04d%02d.%02d", mb.GetYear(), mb.GetMonth(), mb.CountDay()); // яюёыхфэшщ фхэ№ ьхё Ўр
    arg = "attest," + ts;
    //sprintf(arg,"attest,%s", ts);
    if ( 0 == atoi(R_Face(arg,str,14,0)) ) fatt = 0;
  }

  return fatt;
}

var GlobalInfoForBLFromLS=GetNothing();

YearPeriods896(FirstCall)
{
   GlobalInfoForBLFromLS=GetNothing();
   GlobalInfoForBLFromLS=CreateObject("KOtherEnterpriseReferenceBL");
   var Periods = CreateObject("KDatePeriods");
   Periods.Clear();
   var kcp = CreateObject("KPeriodsIterations");
   kcp.ClearAll();
   string sd0=Str_Date_0, sd1=Str_Date_1;
   if ( FirstCall && AskPeriod(0x144,"Укажите период лет для сверки")==ESC ) 
      BreakTableReceive();
   var Month = CreateObject("KMonth");
   Month.SetDate(SysStrDateOneScript);
   int Year1 = Month.GetYear();
   Month.SetDate(SysStrDateTwoScript);
   int Year2 = Month.GetYear();
   for ( int Year=Year1; Year<=Year2; ++Year )
   {
       string strYear = static_cast_to_string(Year);
       string D1 = "01.01."+strYear;
       string D2 = "31.12."+strYear;
       kcp.AddPeriod(strYear,D1,D2);
       Periods.Update(D1,D2);
   }
   GlobalInfoForBLFromLS.WorkPeriods()=Periods;
   GlobalInfoForBLFromLS.CollectFromLS("01.01."+to_string(Year1),"31.12."+to_string(Year2));
   Str_Date_0=sd0, Str_Date_1=sd1;
}

GetSumm896LS(Year) { return IsNothing(GlobalInfoForBLFromLS)?0.:GlobalInfoForBLFromLS.GetYearInfo(atoi(to_string(Year))).Summa; }
GetRv896LS(Year)   { return IsNothing(GlobalInfoForBLFromLS)?0.:GlobalInfoForBLFromLS.GetYearInfo(atoi(to_string(Year))).ExcludeDays; }

GetSumm896(Year) { return GetSummRv896(Year,0); }
GetRv896(Year)   { return GetSummRv896(Year,2); }

GetSummRv896(Year,FlagRv)
{
  char Buf[256];
  GetCommonCnf("LST_NU_DRO","блист",Buf,255);
  var ArrayNU;
  int cntNU=ListNUToSafeArray(Buf,' ',ArrayNU);
  var Month = CreateObject("KMonth");
  Month.SetMonthYear(1,static_cast_to_int(Year));
  int absm1=Month.GetAbs();
  Month.SetMonthYear(12,static_cast_to_int(Year));
  int absm2=Month.GetAbs();
  double Sum=0.;
  int Flag = 32+64+FlagRv;
  for ( int i=0; i<cntNU; ++i )
     Sum+=CashSumm(0,ArrayNU[i],absm1,absm2,Flag,CL_M,0);
  return Sum;
}

GetSumm896Spr(Year)
{
   var OtherReferences=CreateObject("KOtherEnterprisesCollectionReferences");
   OtherReferences.LoadFromLS();
   return OtherReferences.CollectInfoBLByYear(static_cast_to_int(Year)).Summa();
}

GetRv896Spr(Year)
{
   var OtherReferences=CreateObject("KOtherEnterprisesCollectionReferences");
   OtherReferences.LoadFromLS();
   return OtherReferences.CollectInfoBLByYear(static_cast_to_int(Year)).ExcludeDays();
}

ExcludedDaysForBL(Year,DateSp)
{
   string StrBegYear = "01.01."+static_cast_to_string(Year);
   string StrEndYear = "31.12."+static_cast_to_string(Year);
   int Holidays=0, MinusH=0, All=0;
   var ExclPeriods=CalcMinusDni(StrBegYear,StrEndYear,"блист",to_string(DateSp),Holidays,MinusH,1,0,All);
   return ExclPeriods.CountDays();
}

SaveInfoForBLAsSprav(Rcr)
{
   var Tbl=CreateObject("CurPrnTbl");
   int FldTN=Tbl.Find_Name_Fld("C_FIO");
   if ( FldTN==-1 ) return 0;
   int TN=atoi(Tbl.Text(FldTN,Rcr));

   var OneRefBL= CreateObject("KOtherEnterpriseReferenceBL");
   // var Periods = CreateObject("KDatePeriods");
   // Periods.Clear();
   // Periods.Update(static_cast_to_string(D1),static_cast_to_string(D2));
   // OneRefBL.WorkPeriods()=Periods;
   // OneRefBL.CollectFromLS(static_cast_to_string(D1),static_cast_to_string(D2));
   string NumSpr = Tbl.TextS("NumSp",Rcr); FreeSpaceString(NumSpr,2,"");
   OneRefBL.NumCertificate()=NumSpr;
   string DSpr = Tbl.TextS("DateSp",Rcr); FreeSpaceString(DSpr,2,"");
   OneRefBL.DateCertificate()=DSpr;

   
   int FldYear=Tbl.Find_Name_Fld("Year1");
   int FldSum=Tbl.Find_Name_Fld("Summ1");
   int FldRv = Tbl.Find_Name_Fld("Exclude1");
   // int FldRv = Tbl.Find_Name_Fld("Rv");
   for ( int idxYear=0; idxYear<10; ++idxYear )
   {
      int Year = atoi(Tbl.Text(FldYear+idxYear,Rcr));
      if ( Year<1 ) break;
      var OneYear = CreateObject("KOtherEnterpriseInfoBLOneYear");
      OneYear.Summa()=atof(Tbl.Text(FldSum+idxYear*3,Rcr));
      if ( FldRv==-1 )
         OneYear.ExcludeDays=0;
      else
      {
         int Rv = atoi(Tbl.Text(FldRv+idxYear,Rcr));
         if ( Rv<0 ) Rv=0;
         OneYear.ExcludeDays=Rv;
      }
      OneYear.ChangeYear(Year);
      OneRefBL.AddYearInfo(OneYear);
   }

   var OtherReferences=CreateObject("KOtherEnterprisesCollectionReferences");
   OtherReferences.LoadFromLS();
   OtherReferences.InsertBLReference(OneRefBL);
   OtherReferences.SaveToLS();
}

var MapTnDone896;
SaveDiff896Spr(__Rcr,NumSpr,DSpr)
{
   int Rcr = static_cast_to_int(__Rcr);
   if ( !Rcr )
   {
      MapTnDone896 = CreateObject("MapString");
      MapTnDone896.Clear();
   }
   var Tbl=CreateObject("CurPrnTbl");
   int FldTN=Tbl.Find_Name_Fld("C_FIO");
   int CurTN = FldTN!=-1?atoi(Tbl.Text(FldTN,Rcr)):0;
   if ( MapTnDone896.IsExist(static_cast_to_string(CurTN)) ) return 0;
   MapTnDone896.Add(static_cast_to_string(CurTN),static_cast_to_string(Rcr));

   var OneRefBL= CreateObject("KOtherEnterpriseReferenceBL");
   // var Periods = CreateObject("KDatePeriods");
   // Periods.Clear();
   // Periods.Update(static_cast_to_string(D1),static_cast_to_string(D2));
   // OneRefBL.WorkPeriods()=Periods;
   // OneRefBL.CollectFromLS(static_cast_to_string(D1),static_cast_to_string(D2));
   OneRefBL.NumCertificate()=static_cast_to_string(NumSpr);
   OneRefBL.DateCertificate()=static_cast_to_string(DSpr);

   
   int FldYear=Tbl.Find_Name_Fld("Year");
   int FldSum=Tbl.Find_Name_Fld("Summa");
   int FldRv = Tbl.Find_Name_Fld("Rv");
   for ( int iRcr=Rcr; iRcr<Tbl.Count_Rcr(); ++iRcr )
   {
      int TN = FldTN!=-1?atoi(Tbl.Text(FldTN,iRcr)):0;
      if ( TN!=CurTN ) continue;

      var OneYear = CreateObject("KOtherEnterpriseInfoBLOneYear");
      OneYear.Summa()=FldSum!=-1?atof(Tbl.Text(FldSum,iRcr)):0.;
      int Rv = FldRv!=-1?atoi(Tbl.Text(FldRv,iRcr)):0;
      if ( Rv<0 ) Rv=0;
      OneYear.ExcludeDays=Rv;
      OneYear.ChangeYear(FldYear!=-1?atoi(Tbl.Text(FldYear,iRcr)):0);
      OneRefBL.AddYearInfo(OneYear);
   }

   var OtherReferences=CreateObject("KOtherEnterprisesCollectionReferences");
   OtherReferences.LoadFromLS();
   OtherReferences.InsertBLReference(OneRefBL);
   OtherReferences.SaveToLS();
   return 0;
}

p3getCol(psev,pole)
{
  char str[1024];
  GetCommonCnf(pole,psev,str,20);
  FreeSpaceString(str,3,"");
  // получим столбец в "пользовательской" нумерации (нумерация с 1).
  // Для использования надо: 
  // 1) проверить на нулевость (если ноль - столбец не задан)
  // 2) при подстановке в скриптовые функции вычесть 1 (т.к. в коде нумерация с нуля).
  int Col = GetCnfCol(str,-1) + 1;

  return Col;
}

TVHColFromCnf(cnfTable, cnfName)
{
   return p3getCol(cnfTable, cnfName);
}

getSummOtchet(arg,FlagCalc)
//FlagCalc==1 - расчет R_Tax, иначе возвращаем ранее рассчитанное
//arg - строка аргументов для R_tax:
/*
1   - тип значения (что хотим получить). Возможные значения:
  "База"
  "БазаСверхПредельной"
  "БазаОграниченнаяПредельной"
  "НеоблагаемыеВыплаты"
  "ВсегоНачислено"
2,3 - период выборки
4   - символ налога
5   - дата, на которую получаем значения настроек налога 
*/
{
  //1 параметр - тип значения
  var Param = CreateObject("ParamFuncRW");     // создаем объекта класса ParamFuncRW 
  Param.IInitial(to_string(arg),",",9);
  char What[256];What=Param.Get(0);FreeSpaceString(What,3,"");
  if (!strlen(What)) return 0.0;
  
  //2 и 3 параметр - месяцы выборки
  int mb,me;mb=me=0;   //месяц начала/окончания (относительный)
  var dat = CreateObject("KDate");  
  if (Param.Count()>1) 
  {
    dat.SetDateD(GetDateFromFuncRWScript(Param.Get(1)));
    me=mb=dat.GetAbs()-mtek;
  }
  if (Param.Count()>2) 
  {
    dat.SetDateD(GetDateFromFuncRWScript(Param.Get(2)));
    me=dat.GetAbs()-mtek;
  }
  //4 параметр - символ налога
  char SimNal='А';
  if (Param.Count()>3) 
  {
    char s[256]; s=Param.Get(3);
    SimNal=s[0];
  }
  
  //5 параметр -дата, на которую получаем значения настроек налога  
  dat.SetDateII(1,mb+mtek);//Дата, на которую получаем значения настроек налога 
  if (Param.Count()>4) dat.SetDate(Param.Get(4));
  
  char Arg[256],Str[256];
  sprintf(Arg,"4,1,%d,%d,*,*,%c,DateTaxCnf=%s",mb,me,SimNal,dat.GetStr());
  R_Tax(Arg,Str,14,2);
  
  if (What=="База")
    return atof(RTSx(4,14,2))
          +atof(RTSx(80,14,2));

  if (What=="БазаСверхПредельной")
  return atof(RTSx(160,14,2))
        +atof(RTSx(161,14,2));

  if (What=="БазаОграниченнаяПредельной")
  return  atof(RTSx(4,14,2))
         +atof(RTSx(80,14,2))
         -atof(RTSx(160,14,2))
         -atof(RTSx(161,14,2));
        
  if (What=="НеоблагаемыеВыплаты")
    return atof(res2("2200",14,2))
          +atof(res2("2100",14,2))
          +atof(RTSx(71,14,2))
          -atof(RTSx(80,14,2));
  
  if (What=="ВсегоНачислено")
  return atof(RTSx(4,14,2))
        +atof(res2("2200",14,2))
        +atof(res2("2100",14,2))
        +atof(RTSx(71,14,2));
  return 0.0;
}
SendKvitokToEmail()
{
  try
  {
    int sendEmail=GetCommonCnfInt("sendEmail","квиток");
    //если настрока не нулевая
    if (sendEmail)
    {
      int obr_kv=atoi(GetVarValue("ОБРАБОТАНО_КВИТКОВ")); 
      int vib_kv=atoi(GetVarValue("ВСЕГО_КВИТКОВ")); 

      //если в настройке 1 - при обработке 1го квитка выдаем запрос
      if (atoi(obr_kv)==0)
      {
        bool askAboutSend=GetCommonCnfInt("sendEmail","квиток") & 0x01;
        ReLoadScriptModule("Check\\checksToEmail");
        if ( !askAboutSend || askAboutSend && AmbaMessageBox("Отправить квитки по почте?","",MB_YESNO|MB_ICONQUESTION|MB_DEFBUTTON2, 0)==IDYES ) 
        {
          kvitokToEmail=1;
          InitOffsets(vib_kv);  
        }
     }
     //отправляем квитки
     if(kvitokToEmail)
     {
         CountOffsetsForKvitokToEmail++;                                 //кол-во смещений(квитков)
         var CFile=CreateObject("CurPrnFile");
         OffsetsForKvitokToEmail[CountOffsetsForKvitokToEmail]=CFile.GetCountByte(); //запоминаем конечную позицию квитка
         
         char tmp[256];kch_from("e_mail",tmp);FreeSpaceString(tmp,3,"");
         EmailsForKvitokToEmail [CountOffsetsForKvitokToEmail]=tmp;//запоминаем почтовый адрес
         //фио
         kch_from("f",tmp); FreeSpaceString(tmp,3,"");
         string FIO=tmp+" ";
         kch_from("i",tmp); FreeSpaceString(tmp,3,"");
         FIO+=tmp+" ";
         kch_from("o",tmp); FreeSpaceString(tmp,3,"");
         FIO+=tmp; 
         
         kch_from("tn",tmp);FreeSpaceString(tmp,3,"");
         TnFioForKvitokToEmail  [CountOffsetsForKvitokToEmail]=to_string(tmp)+";"+FIO;//запоминаем ТН и ФИО
         
         CheckMonthForKvitokToEmail[CountOffsetsForKvitokToEmail]=atoi(GetVarValue("МЕСЯЦ_КВИТКА"));
         //если обработали все ЛС,
         if (atoi(obr_kv)+1==atoi(vib_kv))
             Send_Checks();     //отправляем квитки по почте
      }
      if (atoi(obr_kv)+1==atoi(vib_kv))
         UnloadScriptModule("Check\\checksToEmail");//выгружаем модуль
    }
  }
  catch(...)
  {
    SayUndefinedScriptError();
    UnloadScriptModule("Check\\checksToEmail");//выгружаем модуль
    return; 
  }
}
var checkManager;
PrintNetChecks(param)
{
  return PriorityCall("UserPrintNetChecks","SysPrintNetChecks",param);
}
SysPrintNetChecks(param)
{

  int checksProcessed=atoi(param.GetValue("ChecksProcessed"));  
  int checksCount=atoi(param.GetValue("ChecksCount"));  
  var modules=GetArray("check\\comcheck","check\\comprint");
  try
  {
    if (checksProcessed==0)
    {
      var CFile=CreateObject("CurPrnFile"); // объект класса для работы с текущим файлом печати
      CFile.SetFlagBrowse(0);               // запрещаем просмотр
      CFile.SetFlag_Print(0);               // текстовая печать не нужна
      ReLoadSMs(modules);
      checkManager=NetDialogs().GetCheckManager();
      checkManager.Init(param);
    }
    month_kv=atoi(param.GetValue("CheckMonth"));   
    int month=month_kv;   //в нэт код глобальные переменные не передаются :( 
    checkManager.PrintCheck(month);
    //путь до файла с квитком Excel
    var filePath=checkManager.GetCheckFilePath();
    //Конвертировать Excel->Html
    if (IsCheckAsHtml())
    {
      var htmlFilePath=ConvertExcelToHtml(filePath);
      if(!StringIsEmpty(htmlFilePath))
        filePath=htmlFilePath;
    }
    //отправляем квиток
    if( param.IsExist("ExcelPrintMode") && atoi(param.GetValue("ExcelPrintMode"))==2 &&
        param.IsExist("CheckSaveOptions") && atoi(param.GetValue("CheckSaveOptions")) & 0x01 || atoi(param.GetValue("CheckSaveOptions")) & 0x02)
      SendNetCheck(filePath);
    if (checksProcessed+1>=atoi(checksCount))
    {
      UnLoadSMs(modules);
      checkManager.EndPrint();
    }
  } 
  catch(...)  
  {
    SayUndefinedScriptError();
    UnLoadSMs(modules);
  }
}
IsCheckAsHtml()
{
  return GetCommonCnfInt("prExcel","квиток") == 2;
}
ConvertExcelToHtml(excelFilePath)
{
  try
  {
    //открываем xls
    tPrepereOfficeForWork(); // определяем работать на Excel или на Calc (определяем какой из офисов (MS Office или OpenOffice) установлен и какой предпочтительнее)
    tOpenXlsObjects(excelFilePath,(""));//открываем сформированный квиток
    tGetWshByIndex(1); // получаем ссылку на лист (worksheet)
    tWshSelect();
    string htmlFilePath=ChangeFileExt(excelFilePath,"htm");
    if(!StringIsEmpty(htmlFilePath))
    {
      //сохраняем Excel в HTM
      _XlsObj.ActiveWorkbook.PublishObjects.Add(1,htmlFilePath,_XlsObj.ActiveSheet.name);
      _XlsObj.ActiveWorkbook.PublishObjects(1).Publish(true);
      _XlsObj.ActiveWorkbook.PublishObjects(1).AutoRepublish=false;
      //закрываем Excel
      tEndXlsWork(0);
      //возвращаем имя htm файла
      return htmlFilePath;  
    }
  } 
  catch(...)   
  {
    tEndXlsWork(0);
    return "";  
  } 
}
ChangeFileExt(filePath,newExt)
{
  var fileInfo = CreateObject("FileInfo");
  fileInfo.Init(to_string(filePath));
  
  var  currentExt=fileInfo.Extension();
  if(strlen(currentExt))
    return fileInfo.Directory()+fileInfo.Name()+"."+newExt;
  
  return filePath;
}
SendNetCheck(filePath)
{
  //в настройках указано не отправлять квитки
  if( GetCommonCnfInt("sendEmail","квиток")==0 )
    return;
    
  //после печати первого квитка выдаем запрос на отправку квитков
  if( 0==atoi(GetVarValue("ОБРАБОТАНО_КВИТКОВ")) )  
  {
    ReLoadScriptModule("Check\\checksToEmail");
    bool askAboutSend=GetCommonCnfInt("sendEmail","квиток") & 0x01;
    if ( !askAboutSend || askAboutSend && AmbaMessageBox("Отправить квитки по почте?","",MB_YESNO|MB_ICONQUESTION|MB_DEFBUTTON2, 0)==IDYES ) 
    {         
      kvitokToEmail=1;
      InitOffsets(0);
    }
  }
  //отказались от отправки
  if( !kvitokToEmail)
    return;
  
  string from="";//адрес отправителя возьмем из панельки  
  string email= kch_from_safe("e_mail");  
  var kd=KDateFromInt(atoi(GetVarValue("МЕСЯЦ_КВИТКА")));
  string subject ="Квиток за " + kd.NameMonth();   //Тема сообщения
  bool sendStatus=false; 
  if( IsCheckAsHtml() )
  {
    var htmlBody=ReadBodyFromHtml(filePath);
    sendStatus=NetDialogs().SendMailHtml(from,email,OemToAnsi(subject),htmlBody);   
  }
  else
    sendStatus=NetDialogs().SendMailExcel(from,email,OemToAnsi(subject),OemToAnsi(subject),filePath);    
  var htmlBody=ReadBodyFromHtml(filePath);
  var infoForLog=MakeLogInfo(to_string(kch_from_safe("tn")),to_string(GetFioFromKch()),email,sendStatus);
  AddLogFile(fileNameForLog,infoForLog);
  if ( atoi(GetVarValue("ОБРАБОТАНО_КВИТКОВ"))+1==atoi(GetVarValue("ВСЕГО_КВИТКОВ")) )
  {
    AskAndShowLogChecks();
    UnloadScriptModule("Check\\checksToEmail");//выгружаем модуль
  } 
}
ReadBodyFromHtml(filePath)
{
  unsigned long lpNumberOfBytesRead=0;
  int hf;
  char tmp[999999];
  // открываем файл для чтения
  if ((hf=CreateFile(filePath,-2147483648,1,0,3,128,0))!=-1)
  {
    double FileSize=SetFilePointer(hf,0,0,2);
    SetFilePointer(hf,0,0,0);
    ReadFile(hf,tmp,FileSize,lpNumberOfBytesRead,0);
  }
  CloseHandle(hf);
  return RTrimS(tmp);
}
CheckSumForTaxExist(strDatB,strDatE,&Arr)
{   
   return PriorityCall("UsrCheckSumForTaxExist","SysCheckSumForTaxExist",strDatB,strDatE,Arr);
}

SysCheckSumForTaxExist(strDatB,strDatE,&Arr)
{
   char Arg[256],Str[256];
   var DatB = CreateObject("KDate");
   var DatE = CreateObject("KDate");
   DatB.SetDateD(GetDateFromFuncRWScript(strDatB));
   DatE.SetDateD(GetDateFromFuncRWScript(strDatE));
   sprintf(Arg,"7,1,%d,%d,*,*,%d,DateTaxCnf=%s",DatB.GetRel(),DatE.GetRel(),Arr[0],DatB.GetStr());
   R_Tax(Arg,Str,14,2);

   double Sum=atof(RTSx(4,14,2));
   // atof(RTSx(160,14,2))+atof(RTSx(161,14,2)); // превышение
   // необлагаемые
   string str1=Str_Date_0;
   string str2=Str_Date_1;
   Str_Date_0=strDatB;//DatB.GetStr();
   Str_Date_1=strDatE;//DatE.GetStr();
   Sum+=atof(res2("2200",14,2))+atof(res2("2100",14,2))+atof(RTSx(71,14,2));
   Str_Date_0=str1;
   Str_Date_1=str2;
   return Sum;
}
GetListPeriodsFromTabel(d1,d2,strSim)
//возвращает список вида  "дата начала"-"дата окончания"-"количество дней";"дата начала"-"дата окончания"-"количество дней"; и т.д.
{
  string rez="";
  //т.к. нас интересует только табель и указанные символы - заменим значение настроек MINUS_DNI и MinusRV 
  //предварительно сохраним текущие значения
  string oldMinusDni=GetCommonCnfStr("MINUS_DNI","отпуск");
  string oldMinusRv=GetCommonCnfStr("MinusRV","отпуск");
  try
  {
    SetCommonCnfInMem("MINUS_DNI",to_string(strSim),"отпуск",'C',strlen(strSim),0);
    SetCommonCnfInMem("MinusRV","1","отпуск",'C',1,0);
    
    int Holidays=0, MinusH=0, All=0;
    var ExclPeriods=CalcMinusDni(d1.GetStr(),d2.GetStr(),"отпуск",d2.GetStr(),Holidays,MinusH,1,0,All);
    int cntPer = ExclPeriods.Count();
    //цикл по периодам
    for ( ExclPeriods.SetBegin(); !ExclPeriods.End(); ExclPeriods.Next())
    {
      string DBeg = (cntPer>0)?ExclPeriods.GetCurBeg().GetStr():"-";
      string DEnd = (cntPer>0)?ExclPeriods.GetCurEnd().GetStr():"-";
      int cntDays = (cntPer>0)?(ExclPeriods.GetCurEnd().Diff(ExclPeriods.GetCurBeg())+1):0;
      // Пишем период
      char tmp[256];
      sprintf(tmp,"%s-%s-%s;",DBeg,DEnd,to_string(cntDays));   
      rez+=tmp;
    }
  }
  catch(...)
  {
    ;
  }
  //восстанавливаем значения
  SetCommonCnfInMem("MINUS_DNI",oldMinusDni,"отпуск",'C',strlen(oldMinusDni),0);
  SetCommonCnfInMem("MinusRV",oldMinusRv,"отпуск",'C',strlen(oldMinusRv),0);
  return rez;
}
AddCountToTableName(__AdrTable,__AdrMainTable,__MainTableRcr,text)
{
 try
  {
    if ( __AdrMainTable ) 
    {
      var Tabl = CreateObject("CurPrnTbl");
      Tabl.Initial(__AdrTable);
      int count=Tabl.Count_Rcr();

      var TablMain=CreateObject("CurPrnTbl");
      TablMain.Initial(__AdrMainTable);
      if ( __MainTableRcr>=0 && __MainTableRcr<TablMain.Count_Rcr() )
      {
        int Fld = TablMain.Find_Name_Fld("Descriptor");
        if ( Fld==-1 ) return;
        char caption[256],tmp[256];;
        caption = TablMain.Text(Fld,__MainTableRcr); FreeSpaceString(caption,3,"");
        sprintf(tmp,"%s (%s: %d)",caption,text,count);
        TablMain.SText(Fld,__MainTableRcr,to_string(tmp));
        TablMain.Rewrite();
      }
    }
  }
  catch(...)
  {
    ;
  } 
}
AddSummToTableName(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text)
{
  PriorityCall("UserAddSummToTableName","SysAddSummToTableName",__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text);
}

AddSrednSummToTableName(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text)
{
  PriorityCall("UserAddSrednSummToTableName","SysAddSrednSummToTableName",__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text);
}

SysAddSummToTableName(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text)
{
   return SysAddSummToTableNameEx(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text,0);
}

SysAddSrednSummToTableName(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text)
{
   return SysAddSummToTableNameEx(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text,1);
}

SysAddSummToTableNameEx(__AdrTable,__AdrMainTable,__MainTableRcr,nameFld,text,Type)
{
  try
  {
    if ( __AdrMainTable ) 
    {
      var Tabl = CreateObject("CurPrnTbl");
      Tabl.Initial(__AdrTable);
      int FldSumm = Tabl.Find_Name_Fld(nameFld);
      if(FldSumm==-1) return;
      int Acc=Tabl.Accurasy_Fld(FldSumm);

      Tabl.Fill_Bottom_Text_1();
      double Sum = atof(Tabl.Get_Bottom_Text(FldSumm));
      if ( Type==1 && Tabl.Count_Rcr() ) Sum /= Tabl.Count_Rcr();

      var TablMain=CreateObject("CurPrnTbl");
      TablMain.Initial(__AdrMainTable);
      if ( __MainTableRcr>=0 && __MainTableRcr<TablMain.Count_Rcr() )
      {
        char tmp[256];;
        int Fld = TablMain.Find_Name_Fld("Sum");
        if ( Fld!=-1 )
        {
           Double_Text(tmp,Sum,TablMain.Accurasy_Fld(Fld), TablMain.Width_Fld(Fld));
           TablMain.SText(Fld,__MainTableRcr,to_string(tmp));
        }
        else
        {
           Fld = TablMain.Find_Name_Fld("Descriptor");
           if ( Fld==-1 ) return;
           char caption[256];
           caption = TablMain.Text(Fld,__MainTableRcr); FreeSpaceString(caption,3,"");
              sprintf(tmp,"%s (%s: %.*f)",caption,text,Acc,Sum);
           TablMain.SText(Fld,__MainTableRcr,to_string(tmp));
        }
        TablMain.Rewrite();
      }
    }
  }
  catch(...)
  {
    ;
  }  
}

kch_from_safe(kchField)
{
  char value[256];
  if(Str_Cmp(kchField," "," ")==0||kch_num_sys(kchField)==-1)
    value="";
  else
    kch_from(kchField,value);
  FreeSpaceString(value,3,"");
  return value;
}

Get_CardNumber(kchPseudo,dateAsString)
{
  return PriorityCall("UserGet_CardNumber","SysGet_CardNumber",kchPseudo,dateAsString);
}
SysGet_CardNumber(kchPseudo,dateAsString)
{
  char str[256];
  GetKchValue(kchPseudo,str,255,KDateFromStr(dateAsString));
  
  //порядковый номер зарплатного проекта
  //int zpProjectNumber=atoi(GetElementFromString(1,str,"^"));
  //допустим, что  у Сбербанка номер зп проекта==1 -> если у текущего ЛС номер проекта!=1 - возвращаем пустую строку
  //if(zpProjectNumber!=1 && __BankTemplateNumber==137)
  //  return "";
  
  //Для зарплатных проектов надо вернуть первый элемент
  return GetElementFromString(0,str,"^");
}
int flagShowWarn_CardNumber=0; //показывать сообщение?
GetAndCheckNotNull_CardNumber(kchField)
{
  var value=kch_from_safe(kchField);
  if(strlen(value)<1 && !flagShowWarn_CardNumber) 
  {
    char message[256];
    sprintf(message,"У сотрудника \"%s\" не указан номер пластиковой карты!",GetFioFromKch()); 
    char caption[256];
    sprintf(caption,"Внимание! Псевдоним поля \"%s\"",kchField); 
    MsgBoxCheck(OemToAnsi(message),OemToAnsi(caption),MB_OK|MB_ICONERROR,OemToAnsi("Больше не показывать это сообщение"),flagShowWarn_CardNumber);      
  }
  //Для зарплатных проектов надо вернуть первый элемент
  return GetElementFromString(0,value,"^");
}

GetFioFromKch()
{
  char tmp[256],fio[256];
  kch_from("f",tmp); FreeSpaceString(tmp,3,"");  fio=tmp;
  kch_from("i",tmp); FreeSpaceString(tmp,3,"");  fio+=" "+tmp;
  kch_from("o",tmp); FreeSpaceString(tmp,3,"");  fio+=" "+tmp;
  return fio;

}

GetMestoRogd(version)
{
  switch (atoi(version))
  {
    default: // город,район,область,страна
    {
      char tmp[256],str[256];
      kch_from("gorod_r",tmp) ; FreeSpaceString(tmp,3,""); str=tmp;
      kch_from("rajon_r",tmp) ; FreeSpaceString(tmp,3,""); if ( tmp!="" ) str += ", "+tmp;
      kch_from("oblast_r",tmp); FreeSpaceString(tmp,3,""); if ( tmp!="" ) str += ", "+tmp;
      kch_from("strana_r",tmp); FreeSpaceString(tmp,3,""); if ( tmp!="" ) str += ", "+tmp;
      return to_string(str);
    }
  }  
}
//путь для передачи из списка таблиц
GetDirTransf(AdrCListTabl,RcrInList)
{
  //определим номер таблицы в списке шаблонов
  var ListTabl = CreateObject("CurPrnTbl");  ListTabl.Initial(AdrCListTabl);
  int fld = ListTabl.Find_Name_Fld("KindForm");
  if( fld==-1 ) return "";
  int tableNum=atoi(ListTabl.Text(fld,RcrInList));//номер шаблона
  return GetValueFromShablonList(tableNum,"DbfPath");
}
GetValueFromShablonList(tableNum,FieldName)
{
  //определим путь до Db_Main.Sum (с учетом "сетевого варианта")
  char zplPath[256]; //путь до zpl
  if (!IsLocalZPL()&& IsCommonResource(NameCommonDir()))
  GetCommonZPL(zplPath,255);
  else
  GetCurrentDirectory(255,zplPath);
  FreeSpaceString(zplPath,3,"");      
  string dbMainPath=zplPath+"\\"+NameCommonDir()+"\\Db_Main.Sum";
  
  //получим значение из колонки "Путь и имя файла для передачи информации из таблиц"
  var ShablonList = CreateObject("CurPrnTbl");  ShablonList.InitialNameFile(dbMainPath);
  int fldShablonNum = ShablonList.Find_Name_Fld("TableNum");
  int fldValue=ShablonList.Find_Name_Fld(to_string(FieldName));
  if( fldShablonNum==-1 || fldValue==-1 ) return "";
  for(int i=0;i<ShablonList.Count_Rcr();i++)
  {
    int curTableNum=atoi(ShablonList.Text(fldShablonNum,i));
    if (curTableNum==tableNum) //нашли таблицу с нужным номером
    {
      char s[256];s=ShablonList.Text(fldValue,i); FreeSpaceString(s,3,"");
      return s;
    }
  }
  return "";
}

AskForDates(dateBeg,dateEnd,comment)
{
   string saveStrDate0=Str_Date_0;
   string saveStrDate1=Str_Date_1;

   FreeSpaceString(dateEnd,3,"");
   int period=strlen(dateEnd)>0 ? 4 : 0;

   sprintf(Str_Date_0,"%.10s",dateBeg);
   sprintf(Str_Date_1,"%.10s",dateEnd);
   if (AskPeriod(512+256+2+period,comment)==0) return ESC; 
   dateBeg=Str_Date_0;
   dateEnd=Str_Date_1;
   strcpy(Str_Date_0,saveStrDate0);
   strcpy(Str_Date_1,saveStrDate1);
}
GetElementFromString(idx,str,delim)
{
  var List = CreateObject("ParamFuncRW");
  List.IInitial1(to_string(str),delim,255);
  if(List.Count()>idx) return List.Get(idx);
  return "";
}

//version==0 //"старая" транслитерация Амбы
//version==1 - ГОСТ Р 52535.1-2006
//version==2 - ГОСТ 7.79-2000 (22.06.2000)
SysTransliterationInit(version)
{
  var mapKey = CreateObject("MapString");
  mapKey.Clear();
  switch (atoi(version))
  {
    case 1:
          {
            mapKey.Add("А","A");    mapKey.Add("Б","B");    mapKey.Add("В","V");
            mapKey.Add("Г","G");    mapKey.Add("Д","D");    mapKey.Add("Е","E");
            mapKey.Add("Ё","E");    mapKey.Add("Ж","ZH");   mapKey.Add("З","Z");
            mapKey.Add("И","I");    mapKey.Add("Й","I");    mapKey.Add("К","K");
            mapKey.Add("Л","L");    mapKey.Add("М","M");    mapKey.Add("Н","N");
            mapKey.Add("О","O");    mapKey.Add("П","P");    mapKey.Add("Р","R");
            mapKey.Add("С","S");    mapKey.Add("Т","T");    mapKey.Add("У","U"); 
            mapKey.Add("Ф","F");    mapKey.Add("Х","KH");   mapKey.Add("Ц","TS");
            mapKey.Add("Ч","CH");   mapKey.Add("Ш","SH");   mapKey.Add("Щ","SHCH");
            mapKey.Add("Ъ","IE");   mapKey.Add("Ы","Y");    mapKey.Add("Ь","");
            mapKey.Add("Э","E");    mapKey.Add("Ю","IU");   mapKey.Add("Я","IA");
            
            mapKey.Add("а","A");    mapKey.Add("б","B");    mapKey.Add("в","V");
            mapKey.Add("г","G");    mapKey.Add("д","D");    mapKey.Add("е","E");
            mapKey.Add("ё","E");    mapKey.Add("ж","ZH");   mapKey.Add("з","Z");
            mapKey.Add("и","I");    mapKey.Add("й","I");    mapKey.Add("к","K");
            mapKey.Add("л","L");    mapKey.Add("м","M");    mapKey.Add("н","N");
            mapKey.Add("о","O");    mapKey.Add("п","P");    mapKey.Add("р","R");
            mapKey.Add("с","S");    mapKey.Add("т","T");    mapKey.Add("у","U"); 
            mapKey.Add("ф","F");    mapKey.Add("х","KH");   mapKey.Add("ц","TS");
            mapKey.Add("ч","CH");   mapKey.Add("ш","SH");   mapKey.Add("щ","SHCH");
            mapKey.Add("ъ","IE");   mapKey.Add("ы","Y");    mapKey.Add("ь","");
            mapKey.Add("э","E");    mapKey.Add("ю","IU");   mapKey.Add("я","IA");
            break;          
          }
    case 2:
          {
            mapKey.Add("А","A");    mapKey.Add("Б","B");    mapKey.Add("В","V");
            mapKey.Add("Г","G");    mapKey.Add("Д","D");    mapKey.Add("Е","E");
            mapKey.Add("Ё","YO");   mapKey.Add("Ж","ZH");   mapKey.Add("З","Z");
            mapKey.Add("И","I");    mapKey.Add("Й","J");    mapKey.Add("К","K");
            mapKey.Add("Л","L");    mapKey.Add("М","M");    mapKey.Add("Н","N");
            mapKey.Add("О","O");    mapKey.Add("П","P");    mapKey.Add("Р","R");
            mapKey.Add("С","S");    mapKey.Add("Т","T");    mapKey.Add("У","U"); 
            mapKey.Add("Ф","F");    mapKey.Add("Х","X");    mapKey.Add("Ц","CZ");
            mapKey.Add("Ч","CH");   mapKey.Add("Ш","SH");   mapKey.Add("Щ","SHH");
            mapKey.Add("Ъ","''");   mapKey.Add("Ы","Y'");   mapKey.Add("Ь","'");
            mapKey.Add("Э","E'");   mapKey.Add("Ю","YU");   mapKey.Add("Я","YA");
            
            mapKey.Add("а","A");    mapKey.Add("б","B");    mapKey.Add("в","V");
            mapKey.Add("г","G");    mapKey.Add("д","D");    mapKey.Add("е","E");
            mapKey.Add("ё","YO");   mapKey.Add("ж","ZH");   mapKey.Add("з","Z");
            mapKey.Add("и","I");    mapKey.Add("й","J");    mapKey.Add("к","K");
            mapKey.Add("л","L");    mapKey.Add("м","M");    mapKey.Add("н","N");
            mapKey.Add("о","O");    mapKey.Add("п","P");    mapKey.Add("р","R");
            mapKey.Add("с","S");    mapKey.Add("т","T");    mapKey.Add("у","U"); 
            mapKey.Add("ф","F");    mapKey.Add("х","X");    mapKey.Add("ц","CZ");
            mapKey.Add("ч","CH");   mapKey.Add("ш","SH");   mapKey.Add("щ","SHH");
            mapKey.Add("ъ","''");   mapKey.Add("ы","Y'");   mapKey.Add("ь","'");
            mapKey.Add("э","E'");   mapKey.Add("ю","YU");   mapKey.Add("я","YA");
            break;          
          }
    default:
          {
            mapKey.Add("А","A");    mapKey.Add("Б","B");    mapKey.Add("В","V");
            mapKey.Add("Г","G");    mapKey.Add("Д","D");    mapKey.Add("Е","E");
            mapKey.Add("Ё","YO");   mapKey.Add("Ж","G");    mapKey.Add("З","Z");
            mapKey.Add("И","I");    mapKey.Add("Й","J");    mapKey.Add("К","K");
            mapKey.Add("Л","L");    mapKey.Add("М","M");    mapKey.Add("Н","N");
            mapKey.Add("О","O");    mapKey.Add("П","P");    mapKey.Add("Р","R");
            mapKey.Add("С","S");    mapKey.Add("Т","T");    mapKey.Add("У","U"); 
            mapKey.Add("Ф","F");    mapKey.Add("Х","H");    mapKey.Add("Ц","TZ");
            mapKey.Add("Ч","CH");   mapKey.Add("Ш","SH");   mapKey.Add("Щ","SCH");
            mapKey.Add("Ъ","");     mapKey.Add("Ы","Y");    mapKey.Add("Ь","");
            mapKey.Add("Э","E");    mapKey.Add("Ю","YU");   mapKey.Add("Я","YA");
            
            mapKey.Add("а","A");    mapKey.Add("б","B");    mapKey.Add("в","V");
            mapKey.Add("г","G");    mapKey.Add("д","D");    mapKey.Add("е","E");
            mapKey.Add("ё","YO");   mapKey.Add("ж","G");    mapKey.Add("з","Z");
            mapKey.Add("и","I");    mapKey.Add("й","J");    mapKey.Add("к","K");
            mapKey.Add("л","L");    mapKey.Add("м","M");    mapKey.Add("н","N");
            mapKey.Add("о","O");    mapKey.Add("п","P");    mapKey.Add("р","R");
            mapKey.Add("с","S");    mapKey.Add("т","T");    mapKey.Add("у","U"); 
            mapKey.Add("ф","F");    mapKey.Add("х","H");    mapKey.Add("ц","TZ");
            mapKey.Add("ч","CH");   mapKey.Add("ш","SH");   mapKey.Add("щ","SCH");
            mapKey.Add("ъ","");     mapKey.Add("ы","Y");    mapKey.Add("ь","");
            mapKey.Add("э","E");    mapKey.Add("ю","YU");   mapKey.Add("я","YA");
            break;
          }
  }
  return mapKey;
}
MakeFioLat(family,name,versionTransliteration,maxLen)
{
   var mapKey = CreateObject("MapString");mapKey=SysTransliterationInit(versionTransliteration);

   char fam[256],famLat[256];
   fam=family;famLat="";
   for ( int i=0; i<strlen(fam) ;i++ )
   {
      string s = SubStr(static_cast_to_string(fam),i,1);
      if (mapKey.IsExist(s))
      {
         famLat += mapKey.GetValue(s);
      }
   }

   char im[256],imLat[256];
   im=name;imLat="";
   for ( int i=0; i<strlen(im) ;i++ )
   {
      string s = SubStr(static_cast_to_string(im),i,1);
      if (mapKey.IsExist(s))
      {
         imLat += mapKey.GetValue(s);
      }
   }

   string fioLat= to_string(imLat) + " " + to_string(famLat);
   if ( strlen(fioLat)>maxLen )
   {
      imLat[1]='.';
      imLat[2]=0;
      fioLat= to_string(imLat) + " " + to_string(famLat);
   } 
   return fioLat; 
}
//ЇєэъЎш  тючтЁр∙рхЄ 1 хёыш тёх чэрўхэш  яюыхщ эєыхт√х. ┬ яЁюЄштэюь ёыєўрх тючтЁр∙рхЄё  0
//ярЁрьхЄЁ√:
//    listFileds- ёяшёюъ яюфёЄЁюъ фы  яюшёър яюыхщ, яю ъюЄюЁ√ь юяЁхфхы хь чэрўхэшх (хёыш шь  яюы  ёюфхЁцшЄ яюфёЄЁюъє - юяЁхфхы хь чэрўхэшх )

AllFieldValuesIsNull(listFileds)
{
  double eps=0.00001; //ЄюўэюёЄ№ ёЁртэхэш 
  var subStrings = CreateObject("ParamFuncRW");
  subStrings.IInitial(to_string(listFileds),";",255);
  
  var Tabl=CreateObject("CurPrnTbl");
  int rcr=Tabl.Get_N_Rcr(); //Єхъє∙р  ёЄЁюър
  //Ўшъы яю ёЄюысЎрь ЄрсышЎ√
  for(int fld=0;fld<Tabl.Count_Fld();fld++)
  {
    //Ўшъы яю яюфёЄЁюърь listFileds
    for(int idx=0;idx<subStrings.Count();idx++)
    { 
      //шь  ёЄюысЎр fld ёюфхЁцшЄ яюфёЄЁюъє idx
      if ( IsSubStrPresent(Tabl.Name_Fld(fld),subStrings.Get(idx)) )
      {
        double sum= atof(Tabl.Text(fld,rcr));    
        if(nabs(sum)>eps) return 0;
      }
    }
  }
  return 1;
}
GetKassVedNumber()
{
  var ved = GetTekKassVed();            //Єхъє∙р  "тхфюьюёЄ№" 
  var vedList = CreateObject("CurPrnTbl");
  vedList.Initial(ved.GetAdrSpVed());   //ёяшёюъ ёЇюЁьшЁютрээ√ї тхфюьюёЄхщ

  int idxFld=vedList.Find_Name_Fld("PRINT_NUMB");
  int rcr=vedList.Get_N_Rcr(); //   єърч√трхЄ эр т√сЁрээє■ тхфюьюёЄ№. ┼ёыш т√сшЁрыш эхёъюы№ъю, Єю т vedList юэш сєфєЄ юЄьхўхэ√.
  string result=vedList.Text(idxFld,rcr);
  return result;
}

unsigned gWhichBLPilotFSS=0;
string gPilotD1="";
string gPilotD2="";

AddInfoPilotToTableName(__AdrTable,__AdrMainTable,__MainTableRcr)
{
  try
  {
    if ( __AdrMainTable ) 
    {
    /*
      var Tabl = CreateObject("CurPrnTbl");
      Tabl.Initial(__AdrTable);
      int FldSumm = Tabl.Find_Name_Fld(nameFld);
      if(FldSumm==-1) return;
      int Acc=Tabl.Accurasy_Fld(FldSumm);
      
      Tabl.Fill_Bottom_Text_1();
      double Sum = atof(Tabl.Get_Bottom_Text(FldSumm));
    */
      var TablMain=CreateObject("CurPrnTbl");
      TablMain.Initial(__AdrMainTable);
      if ( __MainTableRcr>=0 && __MainTableRcr<TablMain.Count_Rcr() )
      {
        int Fld = TablMain.Find_Name_Fld("Descriptor");
        if ( Fld==-1 ) return;
        char caption[256],tmp[256];;
        caption = TablMain.Text(Fld,__MainTableRcr); FreeSpaceString(caption,3,"");
        sprintf(tmp,"%s (%s-%s)",caption,gPilotD1,gPilotD2);
        TablMain.SText(Fld,__MainTableRcr,to_string(tmp));
        TablMain.Rewrite();
      }
    }
  }
  catch(...)
  {
    ;
  }  
}

AddInfoFssSvToTableName(__AdrTable,__AdrMainTable,__MainTableRcr)
{
  try
  {
    if ( __AdrMainTable ) 
    {
       var Tabl = CreateObject("CurPrnTbl");
       Tabl.Initial(__AdrTable);
       int FldMonth = Tabl.Find_Name_Fld("Month");
       int fldDt1 = Tabl.Find_Name_Fld("dt1");
       int fldDt2 = Tabl.Find_Name_Fld("dt2");
       int fldHoliday = Tabl.Find_Name_Fld("holidayFlg");
       int holiday = 0;
       if ( fldHoliday!=-1 ) holiday = atoi(Tabl.Text(fldHoliday,0));

       string month = "";
       if ( FldMonth!=-1 && !holiday ) month = Tabl.Text(FldMonth,0);
       else if ( fldDt2!=-1 ) month = Tabl.Text(fldDt1,0)+"-"+Tabl.Text(fldDt2,0);
       else if ( fldDt1!=-1 ) month = Tabl.Text(fldDt1,0);
       int cnt = Tabl.Count_Rcr();
       var TablMain=CreateObject("CurPrnTbl");
       TablMain.Initial(__AdrMainTable);
       if ( __MainTableRcr>=0 && __MainTableRcr<TablMain.Count_Rcr() )
       {
          int Fld = TablMain.Find_Name_Fld("Descriptor");
          if ( Fld==-1 ) return;
          char caption[256],tmp[256];;
          caption = TablMain.Text(Fld,__MainTableRcr); FreeSpaceString(caption,3,"");
          sprintf(tmp,Oem("%s (чр: %s, %d %s)"),caption,month,cnt,Oem(NounAfterNumeral(cnt, "чряшё№", "чряшёш", "чряшёхщ")));
          TablMain.SText(Fld,__MainTableRcr,to_string(tmp));
          TablMain.Rewrite();
       }
    }
  }
  catch(...)
  {
    ;
  }  
}


PanelBLPilotFSS()
{
   if ( !Str_Cmp(gPilotD1," "," ./") )
   {
      var Dat = CreateObject("KDate");
      Dat.SetDateD(data);
      Dat.ImproveDay();
      char Buf[81];
      sprintf(Buf,"%.10s",Dat.GetStr());
      gPilotD1 = Buf;
      Dat.SetDateII(Dat.CountDay(),Dat.GetAbs());
      sprintf(Buf,"%.10s",Dat.GetStr());
      gPilotD2 = Buf;
   }
   char Insert00[1];
   char Access00[1];
   var Text00[1];
   MakeReferenceVar(Text00[0],gPilotD1);
   Insert00[0]=Access00[0]=' ';

   char Insert01[1];
   char Access01[1];
   var Text01[1];
   MakeReferenceVar(Text01[0],gPilotD2);
   Insert01[0]=Access01[0]=' ';

   char Insert02[2];
   char Access02[2];
   string Text02[2];
   Text02[0]="не переданные в ФСС";
   Text02[1]="все";
   for ( int i=0; i<2; ++i)
      Insert02[i]=Access02[i]=' ';
   Insert02[0]='\0';

   char Insert03[1];
   char Access03[1];
   string Text03[1];
   Text03[0]="только карантинные 65+";
   for ( int i=0; i<1; ++i)
      Insert03[i]=Access03[i]=' ';
   Insert03[0]='\0';

   char InsertStart[1];
   char AccessStart[1];
   InsertStart[0]='\0';
   AccessStart[0]=' ';
   string TextStart=" Начать ";

   var Elem[5];
   for ( int i=0; i<5; ++i)
      Elem[i]=CreateObject("KControlElement");
      // Дата начала
   Elem[0].Initial(15,2,10,1,10,1,0,0,0,E_EDIT_AREA,1,1,"Before_S",
                   "Control_S","  .  .    ",Text00,Insert00,Access00);
      // Дата конца
   Elem[1].Initial(52,2,10,1,10,1,0,0,0,E_EDIT_AREA,1,1,"Before_S",
                   "Control_S","  .  .    ",Text01,Insert01, Access01);

      // Какие больничные
   Elem[2].Initial(29,4,20,1,24,2,0,0,0,E_AUTO_SELECT,2,1,
                   "Before_S",  "Control_S","", Text02,Insert02,Access02);

      // Какие больничные (65+?)
   Elem[3].Initial(29,7,22,1,26,1,0,0,0,E_CHECK_BOX,1,1,
                   "Before_S",  "Control_S","", Text03,Insert03,Access03);
      // "начать"
   Elem[4].Initial(55,9,9,1,9,1,1,0,88,E_AUTO_SELECT,1,1,
                          "Before_S", "Control_S","",TextStart, InsertStart, AccessStart);

   int ColDatK = 40;
   var Head[3];
   for ( int i=0; i<3; ++i )
      Head[i]=CreateObject("KControlHeading");
   Head[0].Initial("Дата начала:",2,2,13,2,1);
   Head[1].Initial("Дата конца:",ColDatK,2,ColDatK+10,2,1 );
   Head[2].Initial("Какие больничные выбирать:",2,4,27,4,1);

   if ( Panel(Elem,4,Head,3,6,8,74,19,' ',5,"ControlPanel",0,"Выборка больничных для реестра") == ESC )
      return ESC;
   gWhichBLPilotFSS = 0;
   if ( strlen(Insert02) ) gWhichBLPilotFSS |= 0x01;
   if ( Insert03[0]==0   ) gWhichBLPilotFSS |= 0x02;
   return 0;
}


InitDatBegBLCollection()
{
   var kcp = CreateObject("KPeriodsIterations");
   kcp.ClearAll();
   var DBeg = KDateFromStr(Str_Date_0); DBeg.ImproveDay();
   var DEnd = KDateFromStr(Str_Date_1); DEnd.ImproveDay();
   DEnd.SetDateII(DEnd.CountDay(),DEnd.GetAbs());

   string ListBL = GetListBL(DBeg.GetStr(),DEnd.GetStr(),0);
   var Razb = CreateObject("ParamFuncRW");
   Razb.IInitial(ListBL,",",1000);
   int cnt = Razb.Count(); // кол-во дат начала б/л (кол-во б/л для текущего ЛС)
   for ( int ii = 0; ii < cnt; ++ii )
   {
      // Дата начала б/л
      string DatB = Razb.Get(ii);
      if ( !Str_Cmp(DatB," ",". ") ) continue;
      var bl = CreateObject("KInfoBL");
      bl.Initial(DatB);
      kcp.AddPeriod(DatB+","+bl.GetStrParametrs("НОМЕР"),bl.GetDateBeg().GetStr(),bl.GetDateEnd().GetStr());
   }
   return 0;
}

CommentAssignELN(rc)
{
   switch ( atoi(to_string(rc)) )
   {
      case -1: break; //пусть будет "Неизвестная ошибка.."
      case 0: return "";
      case 1: return "ЛН уже привязан к ЭЛН";
      case 2: return "Не найден ЭЛН по номеру ЛН.";
      case 4: return "ЭЛН найден. Не совпадает информация по застрахованному лицу (ФИО или СНИЛС).";
      case 5: return "ЭЛН найден. Не совпадает номер ЛН.";
      case 6: return "ЭЛН найден. Не совпадает период нетрудоспособности.";
      case 7: return "ЭЛН найден. Не совпадает тип нетрудоспособности.";
      case 8: return "ЭЛН найден. Статус ЭЛН не допускает расчета.";
   }
   return "Неизвестная ошибка при поиске ЭЛН";
}

AssignELN(idBL)
{
   var bl = CreateObject("KInfoBL");
   bl.Initial(to_string(idBL));
   int rc = bl.AssignELN(-1,0x02);
   return (rc==0 || rc==1)?atoi(bl.GetStrParametrs("IDЭЛН")):0;
}

AddCalcResToELN(idBL,idELN,Number,Force)
{
   int ideln = atoi(to_string(idELN));
   var bl = CreateObject("KInfoBL");
   bl.Initial(to_string(idBL));
   bool bOtherNumber = ideln<=0 && Str_Cmp(Number," "," ") && Str_Cmp(Number,bl.GetStrParametrs("НОМЕР")," ");
   if ( bOtherNumber ) bl.SetNumber(to_string(Number));
   int rc = bl.AssignELN(ideln,atoi(to_string(Force))?0x03:0x02);
   if ( rc==0 || rc==1 )
   {
      bl.UpdateELN();
      if ( rc==0 || bOtherNumber ) bl.SaveParametrs();
   }
   return CommentAssignELN(rc);
}

GetDatBegBLPilotFSS()
{
   unsigned Flag = 2 + ((gWhichBLPilotFSS&0x01)!=0?0:4);
   string ListBL = GetListBL(gPilotD1,gPilotD2,Flag);
   var kcp = CreateObject("KPeriodsIterations");
   kcp.ClearAll();

   bool bOnlyKarantin = (gWhichBLPilotFSS&0x02)!=0;

   var Param = CreateObject("ParamFuncRW");
   Param.IInitial(ListBL,",",1000);
   for ( int i = 0; i<Param.Count(); ++i )
   {
      if ( bOnlyKarantin )
      {
         var BLInfo = CreateObject("KInfoBL");
         BLInfo.Initial(Param.Get(i));
         string lncode = BLInfo.GetStrParametrs("НОМЕР");
         bool is65Plus=(!Str_Cmp("999000000000",lncode," ") ||
                        !Str_Cmp("999010000000",lncode," ") ||
                        !Str_Cmp("999020000000",lncode," ") ||
                        !Str_Cmp("999030000000",lncode," ") ||
                        !Str_Cmp("999040000000",lncode," ") )?true:false;
         if ( !is65Plus ) continue;
      }
      kcp.AddPeriod(Param.Get(i),gPilotD1,gPilotD2);
   }
   return 0;
}

var gGlobalBLInfo;
InitPilotBL(DateBeg)
{
   gGlobalBLInfo = 0;
   gGlobalBLInfo = CreateObject("KInfoBL");
   gGlobalBLInfo.Initial(static_cast_to_string(DateBeg));
}

SetDeliveredFlag2FSS(DateBeg)
{
   var BLInfo = CreateObject("KInfoBL");
   BLInfo.Initial(static_cast_to_string(DateBeg));
   if ( BLInfo.GetDateBeg().IsValid() )
   {
      BLInfo.SetDelivered2FSS(1);
      BLInfo.SaveParametrs();
   }
}

SetFlagFSSDelivered(&Arg,  &pcT, W, A)
{
   string DateBeg=GetVarValue(Arg);
   // проверяем полученную дату начала. Если она пустая - ничего не делаем
   if ( !Str_Cmp(DateBeg," "," ./") ) return pcT;
   var Bl=CreateObject("KInfoBL");
   Bl.Initial(to_string(DateBeg));
   // проверяем полученные параметры б/л. Если дата окончания не валидная, значит
   // не нашли больничного с переданной нам датой начала - ничего не делаем.
   if ( !Bl.GetDateEnd().IsValid() ) return pcT;
   Bl.SetDelivered2FSS(1);
   Bl.SaveParametrs();
   return pcT;
}

PilotInfo(&Arg,  &pcT, W, A)
{
   if ( IsObject(gGlobalBLInfo) )
   {
      string Rez = gGlobalBLInfo.GetStrParametrs(static_cast_to_string(Arg));
      Text_Text(pcT,Rez,W);
   }
   return pcT;
}

VidBLPilot(vidbl)
{
   int vid = atoi(static_cast_to_string(vidbl));
/*
   TYPE_BL_BOL  = 0,  ///< по болезни            
   TYPE_BL_BER  = 1,  ///< по беременности и родам 
   TYPE_BL_TR   = 2,  ///< производственная травма 
   TYPE_BL_HTR  = 3,  ///< бытовая травма          
   TYPE_BL_UHOD = 4,  ///< по уходу
   TYPE_BL_ABORT= 5,  ///< искусственное прерывание беременности
   TYPE_BL_PROF = 6,  ///< профессиональное заболевание  
   TYPE_BL_UH15 = 7,  ///< по уходу до 1.5 лет
   TYPE_BL_KARANTIN=8,///< карантин
   TYPE_BL_SAN_KUR=9, ///< санаторно-курортные
   TYPE_BL_PROTEZ=10, ///< протезирование
*/
   if ( vid==1 ) return 2;
   if ( vid==2 || vid==6 ) return 6;
   return 1;
}

GetAccountInfoPilot(ps,FullStr)
{
    return PriorityCall("UserGetAccountInfoPilot","SysGetAccountInfoPilot",ps,FullStr);
}
SysGetAccountInfoPilot(ps,FullStr)
{
	string value = "";
  if ( Str_Cmp(FullStr," "," .,") )
  {
    int idx = ps=="BIC"?1:(ps=="CardNum"?2:0);
    var FuncParam =  CreateObject("ParamFuncRW");
    FuncParam.IInitial1(static_cast_to_string(FullStr),",",3);
    value = FuncParam.Get(idx);
    /*
    var KchStr = CreateObject("CKchUserStruct");
    if ( KchStr.InitMain("bank_fss",static_cast_to_string(FullStr)) )
       value = KchStr.GetSubfield(ps);
    */
  }
  return value;
}
var arTypeIncome6NDFLStr = 0;
var arTypeIncome6NDFLId  = 0;
int cntTypeIncome6NDFL = 0;
InitArIncome6NDFL()
{
   arTypeIncome6NDFLStr = GetArray("Не определён","Зарплата","Отпускные","Больничные","Материальная выгода","Натур.доход, выгода","Командировочные","Прочие доходы","");
   arTypeIncome6NDFLId = GetArray(TI6NDFL_UNDEFINED,TI6NDFL_ZP,TI6NDFL_OTP,TI6NDFL_BL,TI6NDFL_MATV,TI6NDFL_NAT,TI6NDFL_KOM,TI6NDFL_OTHER,TI6NDFL_UNDEFINED);
   cntTypeIncome6NDFL = GetUBound(arTypeIncome6NDFLId)+1;
}

FindTypeIncome6NDFL(key,&arKey,&arValue)
{
   if ( !IsArray(arTypeIncome6NDFLId) ) InitArIncome6NDFL();
   for ( int i=0; i<cntTypeIncome6NDFL; ++i )
      if ( arKey[i]==key ) return arValue[i];
   return arValue[0];
}

IdTypeIncome6NDFL(strTypeInc)
{
   FreeSpaceString(strTypeInc,2,"");
   return FindTypeIncome6NDFL(strTypeInc,arTypeIncome6NDFLStr,arTypeIncome6NDFLId);
}

NameTypeIncome6NDFL(IDTypeInc)
{
   return FindTypeIncome6NDFL(IDTypeInc,arTypeIncome6NDFLId,arTypeIncome6NDFLStr);
}

NameTypeIncome6NDFLWin(IDTypeInc)
{
   return OemToAnsi(NameTypeIncome6NDFL(IDTypeInc));
}

PanelChoiceTypeIncome6NDFL()
{
   if ( !IsArray(arTypeIncome6NDFLId) ) InitArIncome6NDFL();
   int CountSelect = cntTypeIncome6NDFL-1;
   if ( CountSelect<1 ) return "";
   string SelectArray[CountSelect];
   int maxLen = 0;
   for ( int i = 0; i<CountSelect; ++i )
   {
      SelectArray[i]=arTypeIncome6NDFLStr[i+1];
      maxLen = MAX(maxLen,strlen(SelectArray[i]));
   }
   char InsertSelect[CountSelect];
   char AccessSelect[CountSelect];
   for ( int i=0; i<CountSelect; ++i )
      InsertSelect[i]=AccessSelect[i]=' ';
   InsertSelect[0]=0;

   char InsertStart[1];
   char AccessStart[1];
   InsertStart[0]='\0';
   AccessStart[0]=' ';
   string TextStart=" Выбрать ";
   var Elem[2];
   for ( int i=0; i<2; ++i)
       Elem[i]=CreateObject("KControlElement");

   Elem[0].Initial(2,3,maxLen,1,maxLen+4,CountSelect,0,0,0,E_AUTO_SELECT,CountSelect,1,"Before_S",
                   "Control_S","",SelectArray,InsertSelect,AccessSelect);
      // "начать"
   Elem[1].Initial(2,3+CountSelect+2,9,1,9,1,1,0,88,E_AUTO_SELECT,1,0,
                          "Before_S", "Control_S","",TextStart, InsertStart, AccessStart);

   var Head[1];
   for ( int i=0; i<1; ++i )
         Head[i]=CreateObject("KControlHeading");
   Head[0].Initial("Категория дохода",2,1,18,1,1);
   if ( Panel(Elem,2,Head,1,25,10,55,10+CountSelect,' ',5,"ControlPanel",0,"") == ESC )
      return "";
   int Len = strlen(InsertSelect);
   return SelectArray[Len];
}


//===============================================================
// Функции используемые для 6-НДФЛ и 2-НДФЛ для разбивки по ОКТМО
//===============================================================

DefineOrgByKchValue(strPodr,bStringKch,bCodOrgKch)
{
   // В некоторых случаях в КЧ может хранится строка, в таких случаях сразу вызываем
   // функцию преобразования пользователя
   long idOrg = 0;
   if ( bStringKch )
      idOrg = GetOrgIDByKch_NDFL(strPodr);
   else
   {
      long idPodr = atol(strPodr);
      // Если в поле КЧ не задан id подразделения (организации)
      // берем id по основному подразделению (где ЛС находится)
      if ( !idPodr )
      {
         idPodr = Poln_Tn/sizetn;
         // В том случае если работаем без конвертации подразделение-организация
         // надо сразу сделать конвертацию, т.к. GetOrgIDByKch ее делать не будет
         if ( bCodOrgKch ) idPodr = GetOrgForPodr(idPodr);

      }
      idOrg = GetOrgIDByKch_NDFL(idPodr);
   }
   if ( !idOrg ) idOrg = GetOrgForPodr(Poln_Tn/sizetn);

   return idOrg;
}

DefineIdOrgForIncome(TypeOKTMO,absm,CodeNU)
{
   return PriorityCall("UserDefineIdOrgForIncome","SysDefineIdOrgForIncome",TypeOKTMO,absm,CodeNU);
}

SysDefineIdOrgForIncome(TypeOKTMO,absm,CodeNU)
{
   if ( TypeOKTMO==1 || TypeOKTMO==5 )
   {
      var D = CreateObject("KDate");
      D.SetDateII(1,absm);
      // Если разбивка по ОКТМО по полю КЧ 
      int TypeIteration = 0;
      string ps_kch = "";
      bool bCodOrgKch = false;
      bool bStringKch = false;
      DefineParamsKchOKTMO(TypeOKTMO,TypeIteration,ps_kch,bCodOrgKch,bStringKch);
      if ( TypeIteration== 1 ) D.SetDateII(D.CountDay(),absm);
      int lenBuf=255;
      char Buf[lenBuf+1];
      string strPodr = GetKchValue(ps_kch,Buf,lenBuf,D);
      return DefineOrgByKchValue(strPodr,bStringKch,bCodOrgKch);
   }
   else if ( TypeOKTMO==2 )
      return GetOrgIDByCombine_NDFL(GetIDCombineOfCod(CodeNU));
   else if ( TypeOKTMO==3 )
      return GetOrgIDBySrc_NDFL(GetSrcOfCod(CodeNU));
   else if ( TypeOKTMO==4 )
      return GetOrgIDBySubject_NDFL(GetIDSubjectOfCod(CodeNU));

   return !Poln_Tn?0:GetOrgForPodr(Poln_Tn / sizetn);
}

DefineParamsKchOKTMO(TypeOKTMO,&TypeIteration, &ps_kch, &bCodOrg, &bStringKch)
{
   if ( TypeOKTMO!= 1 && TypeOKTMO!= 5 ) return;
   int TypeKch = GetCommonCnfInt("Type_kch","2ndfl");
   // Признак что в КЧ сразу коды организаций
   bCodOrg = (TypeKch & 0x04) != 0;
   if ( bCodOrg ) TypeKch -= 4;
   bStringKch = (TypeKch & 0x08) != 0;
   if ( bStringKch) TypeKch -= 8;
   TypeIteration = TypeKch;

   char Buf[256];
   GetCommonCnf("OKTMO_kch","2ndfl",Buf,255);
   FreeSpaceString(Buf,2,"");
   ps_kch = Buf;
   // Если поле КЧ не задано, то берем поставочное поле "подразделение"
   if ( ps_kch=="" ) ps_kch="podr";
}

// Функция по значению из поля КЧ (обычно это подразделение!) возвращает ID организации
// Функция может быть переопределена у клиента
GetOrgIDByKch_NDFL(Podr)
{
   return PriorityCall("UserGetOrgIDByKch_NDFL","SysGetOrgIDByKch_NDFL",Podr);
}

SysGetOrgIDByKch_NDFL(Podr)
{
   int TypeKch = GetCommonCnfInt("Type_kch","2ndfl");
   if ( (TypeKch & 0x04)!=0 ) return Podr;
   // Вообще, если в КЧ строковое значение, то должна быть пользовательская
   // функция UserGetOrgIDByKch_NDFL, поэтому строчка ниже "на всякий случай"
   if ( (TypeKch & 0x08)!=0 ) Podr = atoi(Podr);
   return GetOrgForPodr(Podr);
}

// Функция по значению исп.должности возвращает ID организации
// Функция может быть переопределена у клиента
GetOrgIDByCombine_NDFL(Combine)
{
   return PriorityCall("UserGetOrgIDByCombine_NDFL","SysGetOrgIDByCombine_NDFL",Combine);
}
SysGetOrgIDByCombine_NDFL(Combine)
{
   return GetOrgForPodr(IntegralPodrOfCombine(Combine));
}

// Функция по значению источника возвращает ID организации
// Функция может быть переопределена у клиента
GetOrgIDBySrc_NDFL(Src)
{
   return PriorityCall("UserGetOrgIDBySrc_NDFL","SysGetOrgIDBySrc_NDFL",Src);
}

var gIDOrgsSrcSubjCollectionNDFL = 0; // хранилка списка соотвествий источник или объект - ID организации
SysGetOrgIDBySrc_NDFL(Src)
{
   if ( !IsObject(gIDOrgsSrcSubjCollectionNDFL) )
   {
      gIDOrgsSrcSubjCollectionNDFL = CreateObject("MapLong");
      gIDOrgsSrcSubjCollectionNDFL.Clear();
   }
   if ( gIDOrgsSrcSubjCollectionNDFL.IsExist(Src) )
      return gIDOrgsSrcSubjCollectionNDFL.GetValue(Src);
   for ( int i=0; i<CountOtd(); ++i )
      if ( GetDepSource(OtdCode(i))==Src )
      {
         int idOrg = GetOrgForPodr(OtdCode(i));
         gIDOrgsSrcSubjCollectionNDFL.Add(Src,idOrg);
         return idOrg;
      }   
   if ( !Poln_Tn ) return 0;
   return GetOrgForPodr(Poln_Tn/sizetn);   
}
// Функция по значению объекта возвращает ID организации
// Функция может быть переопределена у клиента
GetOrgIDBySubject_NDFL(Subject)
{
   return PriorityCall("UserGetOrgIDBySubject_NDFL","SysGetOrgIDBySubject_NDFL",Subject);
}
SysGetOrgIDBySubject_NDFL(Subject)
{
   if ( !IsObject(gIDOrgsSrcSubjCollectionNDFL) )
   {
      gIDOrgsSrcSubjCollectionNDFL = CreateObject("MapLong");
      gIDOrgsSrcSubjCollectionNDFL.Clear();
   }
   if ( gIDOrgsSrcSubjCollectionNDFL.IsExist(Subject) )
      return gIDOrgsSrcSubjCollectionNDFL.GetValue(Subject);
   for ( int i=0; i<CountOtd(); ++i )
      if ( GetDepSubject(OtdCode(i))==Subject)
      {
         int idOrg = GetOrgForPodr(OtdCode(i));
         gIDOrgsSrcSubjCollectionNDFL.Add(Subject,idOrg);
         return idOrg;
      }   
   if ( !Poln_Tn ) return 0;
   return GetOrgForPodr(Poln_Tn/sizetn);   
}

var gTypeOKTMO_NDFLCurLS = GetEmpty(); // ╥шя Ёрчсштъш фы  ъюэъЁхЄэюую ╦╤ ьюцхЄ с√Є№ юЄъы■ўхэ (хёыш є ¤Єюую ╦╤ ёє∙эюёЄхщ ьэюую, эю ╬╩╥╠╬ юфэю)
var gPolnTnTypeOKTMO_NDFL = 0;
DefineTypeOKTMO_NDFL()
{
   if ( !IsEmpty(gTypeOKTMO_NDFLCurLS) && Poln_Tn && Poln_Tn==gPolnTnTypeOKTMO_NDFL ) return gTypeOKTMO_NDFLCurLS;

   int TypeOKTMO_NDFL = GetCommonCnfInt("TypeOKTMO", "2ndfl");
/*
   // TODO ╙сЁрЄ№ ъюььхэЄрЁшщ яюёых шёяЁртыхэш  ЄрсышЎ√ 2-═─╘╦ 
   // ЄрсышЎр 2-═─╘╦ эх уюЄютр ъ TypeOKTMO_NDFL = 5 (ёюЁЄшЁютър ёЄЁюъ?)
   if (TypeOKTMO_NDFL == 1)
   {
      string ps_kch = GetCommonCnfStr("OKTMO_kch", "2ndfl");
      // ┼ёыш яюых ╩╫ эх чрфрэю, Єю схЁхь яюёЄртюўэюх яюых "яюфЁрчфхыхэшх"
      if (!Str_Cmp(ps_kch, " ", " ")) ps_kch = "podr";
      int numKCH = kch_num_sys(ps_kch);
      if (numKCH >= 0 && kch_comb(numKCH)) TypeOKTMO_NDFL = 5;
   }
*/
   return TypeOKTMO_NDFL;
}

MakePaidIncomeCollection_6NDFL(MonthB,MonthE)
{  
   UnloadScriptModule("forms\\DefineEnterpriseID");
   LoadScriptModule("forms\\DefineEnterpriseID");

   var D1 = CreateObject("KDate"); D1.SetDateII(1,MonthB);
   var D2 = CreateObject("KDate"); D2.SetDateII(1,MonthE); D2.SetDateII(D2.CountDay(),MonthE);
   var kcp = CreateObject("KPeriodsIterations");
   double Tax70=0.;
   var PaidsExt = CreateObject("PaidIncomeCollection");
   PaidsExt.Initial(false);
   gTypeOKTMO_NDFL = DefineTypeOKTMO_NDFL();
   AddInfoPart2_6NDFL(0,kcp,6,Tax70,D1,D2,PaidsExt);

   UnloadScriptModule("forms\\DefineEnterpriseID");
   return PaidsExt;
}


FindSumElem(intCode,m,mv)
{
   var LS = CreateObject("LS");
   LS.GetGlobalLS();
   var MatrLS = LS.MatrLS();
   var be=MatrLS.GetBaseElemByCode(intCode);
   if (VarHasValue(be))
   {
     var sumVect=be.SumVect;
     int index=sumVect.FindRow(m,mv);
     if (index>=0)
       return sumVect.GetSum(index);
   }

   // return GetEmpty();  ш схч ¤Єющ ёЄЁюъш тхЁэхЄ Empty
}

// Ёрчэюёър т√яырЄ√ эр ёєььє
// шёяюы№чютрЄ№  т ЄрсышЎрї Ёрчэюёъш return AddPayToSumExt(Extern_Cod, Month, MonthN, Sum, IdVed);
// ёєььр яю тшфє ё Єръшь ьхё Ўхь яЁшэрфыхцэюёЄш ш эрўшёыхэш  єцх фюыцэр яЁшёєЄёЄтютрЄ№ т ыё!
AddPayToSumExt(ExtCode, Month, MonthN, Sum, IdVed)
{
   if (!AddPayToSum(
         Extern_To_InternE(atof(ExtCode)),
         absmec(GetDateFromFuncRWScript(Month)),
         absmec(GetDateFromFuncRWScript(MonthN)),  Sum, IdVed))
     BreakLineDelivery();
   // шыш RaiseError("╬°шсър, эх эрщфхэр ёєььр фы  Ёрчэюёъш т√яырЄ√");
}

AddPayToSum(intCode, m, mv, sum, IdVed)
{
   var sumElem = FindSumElem(intCode,m,mv);
   if (!VarHasValue(sumElem))
     return 0;
   struct PaidSumS paid;
   paid.IdVed=IdVed;
   paid.Sum=sum;
   sumElem.AddPay(paid);
   korrls=2;
   return 1;
}

DelPayFromSum(intCode, m, mv, IdVed)
{
   bool changed = false;
   var sumElem = FindSumElem(intCode,m,mv);
   if (!VarHasValue(sumElem))
     return 0;
   for(int i = 0; i<sumElem.PaysCount(); i++)
   {
      int idVed=sumElem.GetPay(i).IdVed;
      if (idVed==IdVed)
      {
        sumElem.DeletePay(i);
        i--;
        changed=true;
      }
   }
   if (!changed) 
     return 0;

   korrls=2;
   return 1;
}

// єфрыхэшх т√яырЄ√ яю ёєььх
// шёяюы№чютрЄ№  т ЄрсышЎрї Ёрчэюёъш return DeletePayFromSumExt(Extern_Cod, Month, MonthN, IdVed);
DelPayFromSumExt(ExtCode, Month, MonthN, IdVed)
{
   if (!DelPayFromSum(
         Extern_To_InternE(atof(ExtCode)),
         absmec(GetDateFromFuncRWScript(Month)),
         absmec(GetDateFromFuncRWScript(MonthN)), IdVed))
     BreakLineDelivery();
}

TkDeliveryVedIdStart(&VarG)
{
  var MapPanel = CreateObject("MapString");

  MapPanel.Add("0","Разноска выплаты...");
  MapPanel.Add("1","Удаление выплат");
  var MapRez = CreateObject("MapString");

  int c=PanelValueFromMap(MapPanel,MapRez,1, "Разноска выплат");
  if (c==ESC)
  {
     return(ESC);
  }
  int reg=atoi(MapRez.GetCurKey());
  char date[11];
  date =  "  .  .    ";
  char name[256];
  name = "";
  int id=0;

  if (reg==0)
  {
   if (ESC==Panel_Zapros(" Создание фиктивной кассовой ведомости ","",
                    "  Дата ведомости",date, 10, 
                    "  Название ведомости",name, 50)
      ) return ESC;

    var veds = CreateObject("CashVedInfoList");
    var info=  veds.CreateVedInfo();
    info.DateStr=to_string(date);
    if (info.Date<20000000)
    {
      MsgBox("╟рфрэр эхъюЁЁхъЄэр  фрЄр","",0);
      return ESC;
    }  
    info.Type = 6;
    info.Title = TrimN(OemToAnsi(name));
    id = veds.Add(info);
  }

  int params[2];
  params[0]=reg;
  params[1]=id; 
  VarG = params;
}


GetKassVedInfo(IdVed, what) // what: 0 - фрЄр, 1 - эюьхЁ, 2 - эрчтрэшх, 3 - Єшя фы  6═─╘╦ (0-юс√ўэр , 1 - (ртрэё) фрЄр т√яырЄ√ = фрЄх яырэютющ т√яырЄ√ шч эрёЄЁюхъ ышсю фрЄх єтюы№эхэш )
{
  if ( IdVed )
  {
     var cashVedInfo = CreateObject("CashVedInfoList").GetVedInfo(to_int(IdVed));
     if ( VarHasValue(cashVedInfo) )
        switch(what)
        {
          case 0: return cashVedInfo.DateStr;
          case 1: return AnsiToOem(cashVedInfo.Number);
          case 2: return AnsiToOem(cashVedInfo.Title);
          case 3: return cashVedInfo.Type6NDFL;
        }
  }
}

CharAsString(c)
{
  char str[2];
  str[0]=c;
  str[1]=0;
  return str;
}

CharIsDigit(c)
{
  return c>=48 && //0
         c<=57;   //9
}

GetOnlyDigits(str)
{
  int len = strlen(str);
  char buf[len+1];
  buf=str;
  char strDigits[len+1];
  int idxDigits=0, idxStr=0;
  char curSimv=0;
  do
  {
     curSimv=buf[idxStr++];
     if ( CharIsDigit(curSimv) )
        strDigits[idxDigits++]=curSimv;
  } while (curSimv!=0);
  strDigits[idxDigits++]=0;
  return to_string(strDigits);
}
MapFromStr(str,Delimiter)
{
  var Map=CreateObject("MapString");      Map.Clear();
  var List = CreateObject("ParamFuncRW"); List.IInitial(to_string(str),Delimiter,9999);
  for(int i=0;i<List.Count();i++)
    Map.Add(List.Get(i),List.Get(i));
  return Map;  
}
StrFromMap(map,Delimiter)
{
  var res="";
  for (bool Cur=map.InitIterator();Cur;Cur=map.Next())
  {
    string value=map.GetCurKey(); 
    res+=value+Delimiter;
  }
  return res;  
}

GetQuarterNumber(date)
{
   int result = (date.GetMonth() - 1)/3;
   return result + 1;
}

GetCodPeriod6NDFL(strDate, strDateEnd, reorgCode)
// reorgCode == "-1" ючэрўрхЄ т√чют GetCodPeriod6NDFL шч GetCodPeriodRSV2017
{
   var Dat = KDateFromStr(strDate);
   var DateEnd = KDateFromStr(strDateEnd);
   
   int quarter =GetQuarterNumber(Dat); // Dat.GetQuarter();
   var quarterReorg = DateEnd.IsValid() ? GetQuarterNumber(DateEnd)/*DateEnd.GetQuarter()*/ : 0;

   bool bReorg;

   if ( Dat.GetYear() >= 2017 && GetCommonCnfInt("ex2017","6ndfl") == 0 && reorgCode != "-1" )
      bReorg = TrimN(reorgCode) != "";
   else
      bReorg = Dat.GetYear() == DateEnd.GetYear() && quarter == quarterReorg;

   if (quarter == 1) return bReorg?"51":"21";
   if (quarter == 2) return bReorg?"52":"31";
   if (quarter == 3) return bReorg?"53":"33";
   if (quarter == 4) return bReorg?"90":"34";
}

GetCodPeriodRSV2017(strDate, strDateEnd)
{
   return GetCodPeriod6NDFL(strDate, strDateEnd, "-1");
} 

// єўхЄ яюёыхфэхую яЁшётюхээюую эюьхЁр ёяЁртъш ё Ёрчсштъющ яю юЁурэшчрЎш ь
var NumbersSpravByOrgID = CreateObject("MapLong");
InitNumberSparvByOrgID(AdrTbl,psOrgID, psNum)
{
   NumbersSpravByOrgID.Clear();
   if ( AdrTbl!=0 )
   {
      var T = CreateObject("CurPrnTbl");
      T.Initial(AdrTbl);
      int FldOrg = T.Find_Name_Fld(psOrgID);
      int FldNum = T.Find_Name_Fld(psNum);
      if ( FldNum!=-1 )
         for ( int Rcr=0; Rcr<T.Count_Rcr(); ++Rcr )
         {
            int OrgID = FldOrg==-1?0:atoi(T.Text(FldOrg,Rcr));
            int Num = atoi(T.Text(FldNum,Rcr));
            int CurNum = 0; // шэшЎшрышчшЁєхь юЄфхы№эю эєыхь, ўЄюс√ эх яЁютхЁ Є№ эрышўшх ъы■ўр т ь¤ях
            CurNum = NumbersSpravByOrgID.GetValue(OrgID);
            if ( Num>CurNum ) NumbersSpravByOrgID.Add(OrgID,Num);
         }
   }
}

GetNumberSpravByOrgID(OrgID)
{
   int Number = 0; // шьхээю Єръ! ╤эрўрыр шэшЎшрышчшЁєхь, яюЄюь яЁшётрштрхь чэрўхэшх шч ь¤яр.
                   // хёыш т ь¤ях ъы■ўр эх сєфхЄ, юэ чэрўхэшх яхЁхьхээющ эх ьхэ хЄ!
   Number = NumbersSpravByOrgID.GetValue(OrgID);
   ++Number;
   NumbersSpravByOrgID.Add(OrgID,Number);
   return Number;
}

GetCount2NDFLInPack(Year)
{
   int Count = GetCommonCnfInt("CountSprav","2ndfl");
   // ╤ 2018 уюфр эхЄ юуЁрэшўхэш  яю ъюышўхёЄтє ёяЁртюъ 2-═─╘╦ Їрщых.
   // ╥ръ ъръ т√ч√тр■∙шщ ъюф эх єьххЄ ЁрсюЄрЄ№ ё эєыхь, ъръ ючэрўр■∙шь "схч юуЁрэшўхэш ",
   // Єю тючтЁр∙рхь яЁюёЄю чртхфюью сюы№°юх ўшёыю.
   if ( Count<1 ) return Year<2018?3000:9999999;
   return Count;
}
int __BankTemplateNumber=0;
string __CardNumberKchField="";//псевдоним поля к.ч. в котором хранится "номер карты" 
string __MobilePhoneKchField="";//псевдоним поля к.ч. в котором хранится "мобильный телефон" 
string __DestinationBankBikKchField="";//псевдоним поля к.ч. в котором хранится "БИК Банка получателя" 
string __DestinationBankInnKchField="";//псевдоним поля к.ч. в котором хранится "ИНН Банка получателя" 
string __DestinationBankCardNumberKchField="";//псевдоним поля к.ч. в котором хранится "Транзитный/сводный счет" 
DeliveryBankCardNumber(number,data,flags)
//flags & 1 - <пустое> значение не разносить;
{
  var value=number; FreeSpaceString (value,3,""); 
  
  if ((flags & 1) && !strlen(value) )
    return;
  
  var deliveryDate=KDateFromStr(data);
  if(!deliveryDate.IsValid()) //если дата не указана или указана неверно - разносим на первое число тек. месяца
    deliveryDate=KDateFromInt_WithDay(1,mtek);
    
  SetKchValue(__CardNumberKchField,value,deliveryDate);
}
StringIsEmpty(str)
{
	return Str_Cmp(str,""," ")==0;
}
TcsDestinationBankBik()
{
	var kchField=GetCommonCnfStr("DestBik","Tcs");
	if(Str_Cmp(kchField," "," ")==0||kch_num_sys(kchField)==-1)
		return "";
  return kch_from_safe(kchField);
}
TcsDestinationBankAccount()
{
	var kchField=GetCommonCnfStr("DestCard","Tcs");
	if(Str_Cmp(kchField," "," ")==0||kch_num_sys(kchField)==-1)
		return "";
  return kch_from_safe(kchField);
}
GetBankGlobalDialogDataCurrentTable(reAskParamsIfEmpty)
{
  string module="bank\\common";
  bool moduleWasLoaded=false;
  if ( !ScriptCheckName("GetGlobalDataCurrentTable") )
  {
    UnloadScriptModule(module);
    LoadScriptModule(module);
    moduleWasLoaded=true;
  }
  var rez=GetGlobalDataCurrentTable(reAskParamsIfEmpty);
  if(moduleWasLoaded)
    UnloadScriptModule(module);
  return rez;
}
GetBankDialogDataCurrentTable(reAskParamsIfEmpty)
{
  string module="bank\\common";
  bool moduleWasLoaded=false;
  if ( !ScriptCheckName("GetDialogDataCurrentTable") )
  {
    UnloadScriptModule(module);
    LoadScriptModule(module);
    moduleWasLoaded=true;
  }
  var rez=GetDialogDataCurrentTable(reAskParamsIfEmpty);
  if(moduleWasLoaded)
    UnloadScriptModule(module);
  return rez;
}
BankCommon_ShowDialog()
{
  string module="bank\\common";
  bool moduleWasLoaded=false;
  if ( !ScriptCheckName("Bank_ShowDialog") )
  {
    UnloadScriptModule(module);
    LoadScriptModule(module);
    moduleWasLoaded=true;
  }
  var rez=Bank_ShowDialog();
  if(moduleWasLoaded)
    UnloadScriptModule(module);
  return rez;
}
ReLoadScriptModule(module)
{
  UnloadScriptModule(module);
  LoadScriptModule(module);
}
ReLoadSMs(moduleArray)
{
  for(int i=0;i<GetUBound(moduleArray)+1;i++)
    ReLoadScriptModule(moduleArray[i]);
}
UnLoadSMs(moduleArray)
{
  for(int i=0;i<GetUBound(moduleArray)+1;i++)
    UnloadScriptModule(moduleArray[i]);
}
InitializeBankSettingsCommon(AdrTable)
{
  ReLoadScriptModule("bank\\common");
    InitializeBankSettings(AdrTable);
  UnloadScriptModule("bank\\common");
}
CommonBankFiltr(cardNumber,summ)
{
  //указан номер карты И сумма ненулевая - возвращаем 1, иначе 0
  return atoi(cardNumber)>0 && atof(summ)>0.001;   
}
CombineRef(&buffer,bufsize,handle,&C_Params)
{
  char ss[bufsize+1];
  CharToOem(buffer,ss);
  int rc=ShowCombineRef(ss,ss, 2, 5, 70, 15);
  if (rc!=ESC)
  {
      sprintf(ss,"%04d",ExtCombineToInt(ss));
      OemToChar(ss, buffer);
      return 1;
  }
  return 0;
}

TryEvaluate(script,&result)
{
  try
  {
    var xm = CreateObject("XMachine");
    result=xm.Evaluate(to_string(script)); 
    return true;
  }
  catch(...)
  {
    ;
  }
  return false; 
}

GetCommonCnfS(psVar,psTable)
{
  if ( IsCommonCnfExist(psVar,psTable) )
  {
    char Buf[256];
    GetCommonCnf(psVar,psTable,Buf,255);
    FreeSpaceString(Buf,3,"");

    char tmp[256];
    if(TryEvaluate(Buf,tmp) && tmp!="void") 
      return to_string(tmp);

    return to_string(Buf);
  }
  return "";
}
DefineKEmploy(combine,d)
{
   return GetKoefEmployment(d,combine,0x01);
  /*
  var tmpComb=CreateObject("TmpCurCombine");tmpComb.Init(combine); //єёЄрэртыштрхь фюыцэюёЄ№ Єхъє∙хщ
  // ╩ю¤ЇЇшЎшхэЄ чрэ ЄюёЄш шч ╩╫
  double k_employ=1.;
  char strTemp[11];
  GetKchValue("k_employ",strTemp,10,d);
  if (Str_Cmp(strTemp," "," ")!=0) k_employ=atof(strTemp);
	return k_employ;
  */	
}

ExcludeLongOtp(&DatBeg,&DatEnd,&Periods,&PeriodsExcl)
{
   PeriodsExcl.Clear();
   Periods.SetBegin();

   int am=-1000;
   // ╧Ёшчэръ хёЄ№ ыш фюя.тчэюё√ т ЁрёёьрЄЁштрхьюь ърыхэфрЁэюь ьхё Ўх am.
   int ExistDopPF = -1; // -1 - эх юяЁхфхы ыш, 0 - эхЄ, 1 - хёЄ№.

   char BufFunc[256],buf[512];
   // ╧Ёюїюфшьё  яю тёхь яхЁшюфрь ─╦╬╥╧╙╤╩, ъюЄюЁ√ьш їюЄшь фюяюыэшЄ№ ёЄрц.
   for ( ; !Periods.End(); Periods.Next() )
   {
      var D1 = Periods.GetCurBeg();
      var D2 = Periods.GetCurEnd();
      if ( am>D2.GetAbs() ) continue;

      // ╩рцф√щ фюсрты хь√щ яхЁшюф Ёрчсштрхь яю уЁрэшЎрь ърыхэфрЁэ√ї ьхё Ўхт
      // ўЄюс√ яЁютхЁшЄ№ хёЄ№ ыш т ¤Єюь ърыхэфрЁэюь ьхё Ўх фюя.тчэюё√ ш хёЄ№ ыш
      // т ¤Єюь ьхё Ўх "ы№уюЄэ√х" юёэютрэш .
      if ( am<D1.GetAbs() )
      {
         am = D1.GetAbs();
         ExistDopPF = -1;
      }
      for ( ; am<=D2.GetAbs(); ++am, ExistDopPF=-1 )
      {
         var d1 = KDateFromInt_WithDay(1,am);
         var d2 = KDateFromInt_LastDay(am);
         string d1str = d1.GetStr(), d2str = d2.GetStr();
         sprintf(BufFunc,AnsiToOem("╧╨╬┬┼╨╩└_╤╥└╞└(-1,╬╤╬┴╙╤╦,%s,%s)"),d1str,d2str);
         CallFuncReceive(BufFunc,buf,511,0);
         // ┼ёыш эхЄ юёюс√ї єёыютшщ шыш хёЄ№ фюя.тчэюё√ - ─╦╬╥╧╙╤╩ эх эєцхэ! 
         if ( !Str_Cmp(buf," "," |,.") )
            PeriodsExcl.Update(d1str,d2str);
         // ┼ёыш фы  ЁрёёьрЄЁштрхьюую ърыхэфрЁэюую ьхё Ўр х∙х эх юяЁхфхы ыш эрышўшх тчэюёют
         // Єю юяЁхфхы хь
         if ( ExistDopPF==-1 ) 
            ExistDopPF = IsAdditionalSumPFExist(d1str,d2str)?1:0;
         // ┼ёыш фюя.тчэюё√ хёЄ№ - ─╦╬╥╧╙╤╩ эх эєцхэ!
         if ( ExistDopPF )
            PeriodsExcl.Update(d1str,d2str);
      }
   }
   return PeriodsExcl.Count();
}
// ╧юыєўхэшх ╨═╤ ╘╤╤ яю Єрсхы№эюьє эюьхЁє.
GetRNSByTN(strTN,oldRNS)
{
   if ( Str_Cmp(oldRNS," "," ") ) return oldRNS;
   long otd = Find_Dep_LS(atoi(strTN));
   if ( otd==-1 ) return "";
   string rns=GetEnterpriseRefValueByPodr(otd,AnsiToOem("╘╤╤═╬╠"));
   FreeSpaceString(rns,3,"");
   return rns;
}

NormalizationSnils(snils) 
// ╤ЄЁюъє, ёюфхЁцр∙є■ ╤═╚╦╤ яЁхтЁр∙рхЄ т эюЁьрышчютрээ√щ ╤═╚╦╤: NNN-NNN-NNN NN.
{
   int len = strlen(snils);
   char Buf[15];
   int idxtarget=0;
   for ( int idx=0; idx<len && idxtarget<14; )
   {
      if ( idxtarget==3 || idxtarget==7 || idxtarget==11 ) 
      {
         char sym = idxtarget==11?' ':'-';
         Buf[idxtarget++] = sym;
         continue;
      }
      char c = GetCharFromStr(snils,idx++);
      if ( c<'0' || c>'9' ) continue;
      Buf[idxtarget++]=c;
   }
   Buf[idxtarget]=0;
   return to_string(Buf);
}
GetLsMainProp()
{
	return PriorityCall("UserGetLsMainProp","SysGetLsMainProp");
}
SysGetLsMainProp()
{
	var prop = CreateObject("APropBE");
	//хёыш шёЄюўэшъ т ъ.ў. єърчрэ - тючтЁр∙рхь хую
	int srcCode=GetGeneralSrcLS();
	char tmp[256];  kch_from("itog_src",tmp);
  if (Str_Cmp(tmp,""," ")!=0) //эх яєёЄю
    srcCode=tmp[0];
	//шёЄюўэшъ єърчрээ√щ фы  уыртэющ фюыцэюёЄш
  var CL=CreateObject("CombineList");
	//srcCode=CL.GetSrc(GetGeneralCombineLS());
	int subjectCode=GetGeneralSubjectLS();
	int podr=CL.GetPodr(GetGeneralCombineLS());	//схЁхь яюфЁрчфхыхэшх уыртэющ фюыцэюёЄш.
	if(podr<1)//схЁхь яюфЁрчфхыхэшх шч ёяшёър ╦╤
		podr=kch_from_int("podr");
	prop.Init(srcCode,subjectCode,podr,GetGeneralCombineLS());
	return prop;
}

GetKchStringByExtCombine(ps, dateStr, extCombine)
{
   int idCombine = ExtCombineToInt(extCombine);
   var cur_combine;
   if (idCombine!=CLL_TOTAL_COMBINE) 
   {
      cur_combine=CreateObject("TmpCurCombine");
      cur_combine.Init(idCombine);
   }
   char value[256];
   GetKchValue(ps, value, 255, KDateFromStr(dateStr));
   return to_string(value);
}

AfterCorrPutRefValueByKey(strKey, strRef, keyFldRef, valueFldRef, valueNameFld, AdrTable)
{
   char Buf[256];
   GetValueClassif(strRef,strKey,Buf,255,valueFldRef,keyFldRef);
   TrimN(Buf);
   var CTabl = CreateObject("CurPrnTbl");
   CTabl.Initial(AdrTable);
   int fldValue = CTabl.Find_Name_Fld(to_string(valueNameFld));
   if (fldValue == -1 ) 
   {
      MsgBox("═х эрщфхэю яюых фы  чэрўхэш  шч ёяЁртюўэшър: " + valueNameFld,"┬эшьрэшх", MB_OK|MB_ICONWARNING);
      return;
   }   
   CTabl.SText(fldValue, CTabl.Get_N_Rcr(), to_string(Buf));
}
BeforeCorrReferenceByValue(value, strRef, keyFldRef, valueFldRef, keyNameFld, AdrTable)
{ 
   var CTabl = CreateObject("CurPrnTbl");
   CTabl.Initial(AdrTable);
   int fldCode = CTabl.Find_Name_Fld(to_string(keyNameFld));
   if (fldCode == -1 ) 
   {
      MsgBox("═х эрщфхэю яюых фы  ъюфр шч ёяЁртюўэшър: " + keyNameFld,"┬эшьрэшх", MB_OK|MB_ICONWARNING);
      return value;
   }   

   // сєфхь шёърЄ№ эх эрчтрэшх, р ъюф шч ёЄюысЎр fldCode
   int width = CTabl.Width_fld(fldCode);
   int rcr = CTabl.Get_N_Rcr();
   char strKey[width + 1];
   strcpy(strKey, RTrimS(CTabl.Text(fldCode, rcr)));
   if (SimpleRef(strRef,0,0,60,10,strKey,width,strKey,keyFldRef) == ESC)
      return value;

   CTabl.SText(fldCode, rcr, to_string(strKey));
   char Buf[256];
   GetValueClassif(strRef,strKey,Buf,255,valueFldRef,keyFldRef);
   TrimN(Buf);
   return to_string(Buf);
}

AfterCorrPutPodrName(podrCodeStr, podrNameFld, AdrTable)
{
   int podrCode = atoi(podrCodeStr);
   string name = RTrimS(OtdNameByCod(podrCode));

   var CTabl = CreateObject("CurPrnTbl");
   CTabl.Initial(AdrTable);
   CTabl.STextS(podrNameFld, CTabl.Get_N_Rcr(), name, 0 /*не silent*/);
}

PodrReferenceBeforeCorr(podrName, podrNameFld, podrCodeFld, AdrTable)
{ 
   var CTabl = CreateObject("CurPrnTbl");
   CTabl.Initial(AdrTable);
   int fldCode = CTabl.Find_Name_Fld(podrCodeFld);
   int fldName = CTabl.Find_Name_Fld(podrNameFld);
   if (fldCode == -1 || fldName == -1) 
   {
      AmbaMessageBox("Не найдено одно из полей: " + podrCodeFld + ", " + podrNameFld);
      return podrName;
   }   

   // будем искать не название, а код из столбца fldCode
   int width = CTabl.Width_fld(fldCode);
   int rcr = CTabl.Get_N_Rcr();
   char podrCode[width + 1];
   strcpy(podrCode, RTrimS(CTabl.Text(fldCode, rcr)));
   if (SimpleRef("DEPARTMENT",0,0,0,0,podrCode,width,podrCode,"C_PODR") == ESC)
      return podrName;

   CTabl.SText(fldCode, rcr, to_string(podrCode));
   return OtdNameByCod(atoi(podrCode));
}

AfterCorrPutDoljnNameAndId(doljnCodeStr, doljnNameFld, doljnIdFld, AdrTable)
{
   var doljnElem = GetDoljnFromSpravByExtcode(RTrimS(doljnCodeStr));
   if (!IsObject(doljnElem)) return;

   var CTabl = CreateObject("CurPrnTbl");
   CTabl.Initial(AdrTable);
   int rcr = CTabl.Get_N_Rcr();
   CTabl.STextS(doljnNameFld, rcr, doljnElem.GetName(), 0 /*не silent*/);
   CTabl.STextS(doljnIdFld, rcr, to_string(doljnElem.GetID()), 0 /*не silent*/);
}

AfterCorrDoljnPutPodrNameAndCode(doljnCodeStr, podrNameFld, podrCodeFld, AdrTable)
{
   var doljnElem = GetDoljnFromSpravByExtcode(RTrimS(doljnCodeStr));
   if (!IsObject(doljnElem)) return;

   var CTabl = CreateObject("CurPrnTbl");
   CTabl.Initial(AdrTable);
   int rcr = CTabl.Get_N_Rcr();
   int podr = doljnElem.GetPodr();
   CTabl.STextS(podrCodeFld, rcr, to_string(podr), 0 /*не silent*/);
   if (podr > 0)
   {
      string podrName = OtdNameByCod(podr);
      CTabl.STextS(podrNameFld, rcr, podrName, 0 /*не silent*/);
   }
   else CTabl.STextS(podrNameFld, rcr, "", 0 /*не silent*/);
   
}

CodeNUReference(strCodeNU, bExt)
{ 
   int Len = strlen(strCodeNU);
   int MaxLen = Len<1024?1024:(Len+1);
   char Buf[MaxLen];
   Buf = strCodeNU;
   try // фы  Єюую ўЄюс√ ьюцэю с√ыю юЄфрЄ№ ЄрсышЎє шёяюы№чє■∙є■ CodeNUReference схч юсэютыхэш  яюёЄртъш
   {
      if (!bExt)
         ListNUIntToExt(Buf, MaxLen-1, ' ');

      if ( StrNURef(Buf, MaxLen-1, ' ', false)==ESC )
         return strCodeNU;

      if (!bExt)
         ListNUExtToInt(Buf, MaxLen-1, ' ');
   }
   catch(...)
   {
      return strCodeNU;
   }

   Text_Text(strCodeNU, Buf, strlen(strCodeNU));
   return strCodeNU;
}

DoljnReferenceNameBeforeCorr(doljnName, doljnNameFld, doljnCodeFld, doljnIdFld, AdrTable)
{ 
   var CTabl = CreateObject("CurPrnTbl");
   CTabl.Initial(AdrTable);
   int fldCode = CTabl.Find_Name_Fld(doljnCodeFld);
   int fldName = CTabl.Find_Name_Fld(doljnNameFld);
   int fldId = CTabl.Find_Name_Fld(doljnIdFld);
   if (fldCode == -1 || fldName == -1 || fldId == -1) 
   {
      AmbaMessageBox("Не найдено одно из полей: " + doljnNameFld + ", " + doljnCodeFld + ", " + doljnIdFld);
      return doljnName;
   }

   // будем искать не название, не Id, а код из столбца fldCode
   int width = CTabl.Width_fld(fldCode);
   int rcr = CTabl.Get_N_Rcr();
   char doljnCode[width + 1];
   strcpy(doljnCode,RTrimS(CTabl.Text(fldCode, rcr)));
   if (SimpleRef("DOLGNOST",0,0,0,0,doljnCode,width,doljnCode,"ShortName") == ESC)
      return doljnName;

   var doljnElem = GetDoljnFromSpravByExtcode(RTrimS(doljnCode));
   if (!IsObject(doljnElem)) return doljnName;

   CTabl.SText(fldCode, rcr, to_string(doljnCode));
   CTabl.SText(fldId, rcr, to_string(doljnElem.GetID()));
   return to_string(doljnElem.GetName());
}

MakeKchStringValueBySOUT(spisok,sout) 
// сформировать код для кадровой части по номеру списка и коду спец.оценки
// spisok = 1 или 2, sout - пусто, В3.1, В3.2, В3.3, В3.4, О4
{
   int numSpis = atoi(to_string(spisok));
   if ( numSpis!=1 && numSpis!=2 ) return " ";
   char Buf[512];
   Buf = RTrimS(sout);
   if ( Buf[0]=='B' || Buf[0]=='В' || Buf[0]=='О' || Buf[0]=='O' )
      Buf[0]=' ';
   int numSout = to_int(atof(Buf)*10);
   if ( numSout )
      return to_string(numSpis*100+numSout);
   return to_string(numSpis);
}
SysGetSummNuList(month,nuList,Flag)
{
  var arr;
  int cntNu=ListNUToSafeArray(nuList,',',arr);
  if(cntNu<1) return 0.;

  return SysGetSummNuArr(month,arr,Flag,true);
}	

SysGetSummNuArr(month,&arr,Flag,flagExt)
{
  var Prop = GetCommonProp(CMN_SRC_REFS);
  var ts = CreateObject("TempCommonSrc");
  ts.TempCommonSrcInitial(CMN_SRC_COUNT_LS);
  int cntNu = GetUBound(arr)+1;

  double rez=0.;
  for(int i=0;i<cntNu;i++)
  {
    int code=flagExt?Extern_To_Intern(arr[i]):arr[i];
    if(Flag & CL_MV)
    	rez+=CollectSummProp(code,0,month,Flag,Prop);
    else
    	rez+=CollectSummProp(code,month,0,Flag,Prop);
  }
  return rez;
}

SysGetRvNuList(month,nuList,Flag)
{
  var Prop = GetCommonProp(CMN_SRC_REFS);
  var ts = CreateObject("TempCommonSrc");
  ts.TempCommonSrcInitial(CMN_SRC_COUNT_LS); // ??? ╟рўхь?
  return SysGetRvNuListProp(month,nuList,Flag,Prop,0x01); // яюўхьє-Єю шёїюфэю ЇєэъЎш  с√ыр эряшёрэр ё юЁшхэЄшЁюь эр тэх°шэх ъюф√ т ёЄЁюъх
}

SysGetRvNuListProp(month,nuList,Flag,Prop,DopFlag) // яю ёЄЁюъх
{
  var arr;
  int cntNu=ListNUToSafeArray(nuList,',',arr);
  if(cntNu<1) return 0.;
  return SysGetRvArrNuProp(month,arr,Flag,Prop,DopFlag);
}
    
SysGetRvArrNuProp(month,arr,Flag,Prop,DopFlag) // яю ьрёёштє
// DopFlag = 0x01 - тшф√ чрфрэ√ тэх°эшьш ъюфрьш
//         = 0x02 - сЁрЄ№ яю яхЁтюьє ётющёЄтє єфютыхЄтюЁ ■∙хьє Prop ш фр■∙хьє эхэєыхтюх чэрўхэшх
{
  bool enumerationProp = DopFlag & 0x02; // хёыш сЁрЄ№ яю юфэюьє яхЁтюьє ётющёЄтє єфютыхЄтюЁ ■∙хьє Prop, Єю эєцхэ сєфхЄ Ўшъы яю ётющёЄтрь
  int cntNu = GetUBound(arr)+1;
  double rez=0.;
  var APropArr=CreateObject("APropArray");
  APropArr.GetPropListLS();
  // Ўшъы яю тёхь ётющёЄтр ╦╤
  for (int idxAprop=0; idxAprop<APropArr.Size(); ++idxAprop)
  {
      var pr = APropArr.Get(idxAprop);
      if ( !Prop.IsEQ(pr) ) continue;

      double localrez = 0.;
      for(int i=0;i<cntNu;i++)
      {
         int code = (DopFlag & 0x01)?Extern_To_Intern(arr[i]):arr[i];
         localrez+=CashSummProp(0,code,month,month,42,CL_SOURCE|Flag, enumerationProp?pr:Prop); 
      }
      rez += localrez;
      // т√їюфшь хёыш эрфю с√ыю шёърЄ№ яЁюёЄю яю Prop шыш эр°ыш эхэєыхтюх яЁш яхЁхсюЁх prop
      if ( !enumerationProp || (localrez>0.0001 && (DopFlag & 0x02)) )
         break;
  }
  return rez;
}

FiltrRowkod(&rowkod,&cntrow, absmes,Flag)
//╘-Ўш  юЄЇшы№ЄЁют√трхЄ шч ьрёёштр rowkod эхфхщёЄтє■∙шх т absmes ш эєыхт√х ёЄЁюъш
{
  bool filtrRow=Flag & 0x01;     //Їшы№ЄЁ эр эхфхщёЄтє■∙шх т absmes ёЄЁюъш
  bool filtrZeroRow=Flag & 0x02; //Їшы№ЄЁ эр эєыхт√х ёЄЁюъш

  int newCntRow=0; 
  int NewRowkod[cntrow];
  for (int row=0; row<cntrow; row++)                    //яхЁхсшЁрхь тёх ёЄЁюъш
  {
    double ikod=GetCode(rowkod[row]);
    if(filtrRow)
    {
      var DatB = CreateObject("KDate");
      var DatE = CreateObject("KDate");
      DatB.SetDateD(GetBegDate(rowkod[row]));
      DatE.SetDateD(GetEndDate(rowkod[row]));
      //схЁхь Єюы№ъю фхщёЄтє■∙шх ёЄЁюъш ═╙ т ьхё Ўх, чр ъюЄюЁ√щ уЁєчшь
      {
        var db=CreateObject("KDate");
        db.SetDateII(1,absmes);
        var de=CreateObject("KDate");
        de.SetDateII(db.CountDay(),absmes);
        if ((DatB.GT(de))|| //фрЄр_эрўрыр тшфр сюы№°х яюёыхфэхую ўшёыр  usMes
         (DatE.LT(db)) )   //фрЄр_юъюэўрэш  тшфр ьхэ№°х яхЁтюую ўшёыр  usMes
        continue; 
      }
    }
    if(	filtrZeroRow )
    {
      double sum=0;sumvid("=",ikod,absmes-mrasch,sum);
      if (nabs(sum)<0.00001) continue; //эєыхт√х ёЄЁюъш эрь эх шэЄхЁхёэ√
    }  
    //яЁю°ыш тёх Їшы№ЄЁ√ ->cюїЁрэ хь ёЄЁюъє rowkod[row] т NewRowkod
    NewRowkod[newCntRow++]=rowkod[row];
  }
  for(int i=0;i<newCntRow; i++) rowkod[i]=NewRowkod[i];
  cntrow=newCntRow;
}

CllNUToMap(pseudoNastr,pseudoTable)
{
  var map=CreateObject("MapLong");map.Clear();
  char BufCnf[256]; GetCommonCnf(pseudoNastr,pseudoTable,BufCnf,255);

  var arr;
  int countElem =ListNUToSafeArray(BufCnf,' ',arr);
  for (int i=0;i<countElem;i++)   
    map.Add(arr[i],i);

  return map;
} 

CombineHasNoVids(id_combine) // тючтЁр∙рхЄ 1 хёыш т ёютьхёЄшЄхы№ёЄтх эхЄ тшфют (ш ёють-тю эх юёэютэюх) 
{
   if (id_combine == GetGeneralCombineLS())
      return 0;

   var LS = CreateObject("LS");
   LS.GetGlobalLS();
   var MatrLS = LS.MatrLS();
   int size = MatrLS.Size();
   for (int index = 0; index<size; index++)
   {
      var be = MatrLS.GetBaseElem(index);
      if (VarHasValue(be) && to_int(be.Code) < 10000) // чфхё№ юс чрЄхы№эю to_int  шэрўх IDispatch.Invoke ╬╩╨╙├╦╚╥ ярЁрьхЄЁ!
         if (be.Combine == id_combine)
            return 0;
   }
   
   return 1;
}

CreateGroupNUArray(numset2, pseudIdGroup, pseudNUCollection, strDate, flagConvert)
// ╤ючфрэшх ёяшёър ьрёёштют тшфют фы  шёяюы№чютрэш  т фры№эхщ°хь фы  т√сюЁюъ яю ¤Єшь тшфрь.
// ╧ЁхфяюырурхЄё  ўЄю ёяшёъш чрфрэ√ т ёхЄъх "фюяюыэшЄхы№э√х ёяЁртюўэшъш юЁурэшчрЎшш" ё эюьхЁюь numset2
// pseudIdGroup - яёхтфюэшь ёЄюысЎр, т ъюЄюЁюь ёюфхЁцшЄё  id уЁєяя√
// pseudNUCollection - яёхтфюэшь ёЄюысЎр, т ъюЄюЁюь ёюфхЁцшЄё  эрсюЁ тшфют ═-╙
// flagConvert == 1, эрфю яЁштхёЄш ъ тэєЄЁхээшь ъюфрь
{
   var Dat = KDateFromStr(strDate);
   string NameFile = GetNameFileRefTime(numset2,0,Dat.GetStr());
   if ( !Str_Cmp(NameFile," "," ") )
   {
      AmbaMessageBox(Oem("═х эрщфхэ Їрщы ёхЄъш ё уЁєяярьш эрсюЁют тшфют ═-╙!"),Oem("╬°шсър!!! (CreateGroupsNUWithDopst)"),MB_OK|MB_ICONERROR,0);
      return GetNothing();
   }   

   var TablSet = CreateObject("CurPrnTbl");
   TablSet.InitialNameFile(NameFile);
   int fldIdGr = TablSet.Find_Name_Fld(pseudIdGroup);
   int fldNU   = TablSet.Find_Name_Fld(pseudNUCollection);
   if ( fldIdGr == -1 || fldNU == -1 )
   {
      AmbaMessageBox(Oem("╬ЄёЄєёЄтє■Є эєцэ√х ёЄюысЎ√ т ёхЄъх ё уЁєяярьш эрсюЁют тшфют ═-╙!"),Oem("╬°шсър!!! (CreateGroupsNUWithDopst)"),MB_OK|MB_ICONERROR,0);
      return GetNothing();
   }
   string repeatedId = "";  
   int MaxLen = 2047;
   char Buf[MaxLen+1];
   var map = CreateObject("Map");
   for ( int rcr = 0; rcr<TablSet.Count_Rcr(); ++rcr )
   {
      string id = CleanIdGroupNUArray(TablSet.Text(fldIdGr,rcr));
      if ( map.IsExist(id) )
      {
         if ( repeatedId!="" ) repeatedId += ", ";
         repeatedId += id;
         continue;
      }
      Buf = TablSet.Text(fldNU,rcr);
      if ( flagConvert==1 )
         ListNUExtToInt(Buf, MaxLen, ' ');
      var ArrNU;
      int cntNU=ListNUToSafeArray(Buf,' ',ArrNU);
      if ( cntNU )
         map.Add(id,ArrNU);
   }
   if ( repeatedId != "" )
      AmbaMessageBox(Oem("┬ ёхЄъх хёЄ№ яютЄюЁ ■∙шхё  шфхэЄшЇшърЄюЁ√ уЁєяя√ тшфют ═-╙(")+repeatedId+Oem("). ╧ютЄюЁэ√х шфхэЄшЇшърЄюЁ√ с√ыш яЁюшуэюЁшЁютрэ√."),Oem("╬°шсър!!! (CreateGroupsNUWithDopst)"),MB_OK|MB_ICONWARNING,0);
   return map;
}

CleanIdGroupNUArray(strId)
{
   return TrimN(strId); 
}

DeleteFullPeriodStagPF(strDatB, strDateE, &periods)
{
   periods.Update(to_string(strDatB), to_string(strDateE));
   return 0;
}

CombineRefWithLsRead(&buffer,bufsize,handle,&C_Params)
{
  // ЇєэъЎш  фы  т√чютр ёяЁртюўэшър ёютьхёЄшЄхы№ёЄт шч ЄрсышЎ√
  // є яюы  ╤ютьхёЄшЄхы№ёЄтю т ЄрсышЎх эрёЄЁющъш эряшёрЄ№ т ЇєэъЎшш яЁхфтрЁшЄхы№эющ юсЁрсюЄъш:
  // CLASSIF(S:UserCombineRefF2) 
  // ╫╚╥└┼╥ ╦╚╓┼┬╬╔ ╤╫┼╥ ё Єрсхы№э√ь эюьхЁюь тч Є√ь шч яюы  C_FIO 
  
  //ЁрсюЄрхь шч ышЎхтюую ёўхЄр яю Alt+F10
  if(razovnum!=0)
    return 0;
  
  char ss[bufsize+1];
  CharToOem(buffer,ss);
  var CTabl=CreateObject("CurPrnTbl");
  CTabl.Initial(C_Params.pTabl);
  int Tn=atoi(CTabl.TextS("C_FIO",CTabl.Get_N_Rcr()));
  int er=LSRead(Tn,2);
  if (er==1)
  {
    int rc=ShowCombineRef(ss,ss, 2, 5, 70, 15);
    if (rc!=ESC)
    {
	   OemToChar(ss, buffer);
      return 1;
    }
  }
  return 0;
}

var SysMapSlaveCombines = GetNothing();
SysFillSlaveCombines(comb,howCombine)
// ┬ючтЁр∙рхЄ ъюф шёя.фюыцэюёЄш хёыш юэр фюыцэр с√Є№ ЁрёёьюЄЁхэр шыш 0, хёыш хх эрфю шёъы■ўшЄ№
{
   SysMapSlaveCombines = CreateObject("MMapLong");
   SysMapSlaveCombines.Add(comb,comb); // ёрьюую ёхс 
   var CL = CreateObject("CombineList");
   bool excludeSlaveComb = (howCombine&0x01)!=0;
   if ( !excludeSlaveComb ) return comb;
   if ( CL.GetHostComb(comb)!=0  ) return 0;
   
   var it = CL.CreateIterator();
   for (it.SetBegin();!it.IsEnd();it.Next()) //Ўшъы яю ╚─ (  it.CurKey() - тэєЄЁ.ъюф ёютьхёЄшЄхы№ёЄтр )
   {
      int c = it.CurKey();
      if ( CL.GetHostComb(c)==comb )
         SysMapSlaveCombines.Add(comb,c);
   }
   return comb;
}

SysGetCombineWithWorkPeriodsFromStag(howPWork)
{
   if ( (howPWork & 0x01)!=0 )
   {
      var CL=CreateObject("CombineList");
      return CL.GetBaseID();
   }
   return -1;
}

SysUpdatePeriodsWorkByNU(strnu,strDBeg,strDEnd,workperiods,Flag)
{
   var periods;
   FindPeriodsByNUEx(strnu,strDBeg,strDEnd,periods,Flag);
   for ( periods.SetBegin(); !periods.End(); periods.Next() )
      workperiods.Insert(periods.GetCurBeg().GetStr(),periods.GetCurEnd().GetStr(),periods.GetCurCod());
}

SysBaseFillWorkPeriods(combine,DBeg,DEnd,howPWork,strnu)
// ╬с∙р  ЇєэъЎш  юяЁхфхыхэш  Ёрсюўшї яхЁшюфют яю шёяюыэ хьющ фюыцэюёЄш (шёяюы№чєхЄё  т ╤╚╬╨╙═, ┼╘╤-1,...)
// ╩ ьюьхэЄє хх ЁрсюЄ√ фюыцэр с√Є№ т√чтрэр SysFillSlaveCombines(comb,howCombine) чряюыэ ■∙р  SysMapSlaveCombines

{
   bool byNU = (howPWork & 0x02)!=0?1:0;

         // Flag - 0x00 яю фрЄрь яЁшхьр ш єтюы№эхэш  юёэютэющ фюыцэюёЄш (Єюўэхх Єющ фюыцэюёЄш, ъюЄюЁр  т√сЁрэр эр ьюьхэЄ т√чютр ЇєэъЎшш!!!)
         //        0x01 яю фрЄрь яЁшхьр ш єтюы№хэш  тёхї шёяюыэ хь√ї фюыцэюёЄхщ
         //        0x02 яю чряшё ь т ЄЁєфютюь ёЄрцх
         //        0x10 шуэюЁшЁютрЄ№ фюыцэюёЄш ё эхчряюыэхээющ фрЄющ эрўрыр ЁрсюЄ√ (тёх ъЁюьх юёэютэющ)
   int Flag = 0x00;
   int comb = atoi(to_string(combine));
   var CL=CreateObject("CombineList");
   if ( comb<1 ) comb = CL.GetBaseID();
   // ┼ёыш юфэр шёяюыэ хьр  фюыцэюёЄ№ шыш ┬╤┼ юёЄры№э√х фюыцэюёЄш  ты ■Єё  "ёютьх∙хэшхь фы " срчютющ.
   if ( CL.Size()<2 || SysMapSlaveCombines.Size()==CL.Size() ) Flag |= 0x13;
   if ( comb==SysGetCombineWithWorkPeriodsFromStag(howPWork) ) Flag |= 0x02;

   // ╚ёїюфэ√х Ёрсюўшх яхЁшюф√ (яю фрЄрь яЁшхьр ш єтюы№эхэш  ш, тючьюцэю, чряшё ь ЄЁєфютюую ёЄрцр
   var workperiods = CreateObject("KDatePeriods");
   FindWorkPeriodsLS(DBeg.GetStr(),DEnd.GetStr(),Flag,workperiods);

   if ( byNU && strnu!="" )
      SysUpdatePeriodsWorkByNU(strnu,DBeg.GetStr(),DEnd.GetStr(),workperiods,1);
   return workperiods;
}

SysGetCodSoutByKch(kchvalue,typeSout)
{
   string Out = "";
   if ( typeSout==1 ) Out = RTrimS(kchvalue);
   else
   {
      int cod = atoi(kchvalue);
      if ( cod<100 ) return Out; // ёяхЎюЎхэър эх яЁютюфшырё№
      int klass = cod%100;
      if      ( klass==10 ) Out = "1";
      else if ( klass==20 ) Out = "2";
      else if ( klass==31 ) Out = "3.1";
      else if ( klass==32 ) Out = "3.2";
      else if ( klass==33 ) Out = "3.3";
      else if ( klass==34 ) Out = "3.4";
      else if ( klass==40 ) Out = "4";
   }
   return Out;
}