Добрый день.

Потеряются данные, которые пришлет КП за тот период, что вы накатываете данные.

В результате последующие письма ( по данным которые потерялись) упадут в проблемные..

Добрый день.

Пример функции:

usrGetDiscountSumm(month,discountCode)
{
  char Arg[256],Str[256];
  sprintf(Arg,"%d,1,%d,%d,Источник выплаты,*,Н",1112,month-mtek,month-mtek);
  R_Tax(Arg,Str,255,0);
  var result=0.;
  var parts = CreateObject("ParamFuncRW");parts.IInitial(to_string(Str),";",999);
  for(int i=0;i<parts.Count();i++)
  {
    var part=parts.Get(i);
    if(atoi(GetElementFromString(2,part,","))!=discountCode)
      continue;
    result+=atof(GetElementFromString(3,part,","));
  }
  return result;
}

Использовать так:

double discountSumm=usrGetDiscountSumm(362,503); //сумма скидки с кодом 503 за 02.2018 

P.S. а нулевой справки 2-НДФЛ для соц. защиты не достаточно?

Добрый день!

Задача в работу пока не бралась.

Не теряйте надежды, до очередной отчетности еще есть время...

Добрый день.

Разработчики обещали изменить в поставке тип этого поля в следующем обновлении.

Добрый день.

Читаем ЛС

if (LSRead(tn, 0)!=1)
{
   string mess="Не удалось прочитать ЛС c ТН="+to_string(tn);
   AmbaMessageBox(mess,"",1,0);
   return;
}

Определяем строку, в которую хотим разнести БЗ:

int rowkod[ROWMAX];//массив с номерами строк
int cntrow=poiskosnkod(Extern_To_Intern(kod),rowkod,0,0);//получаем список строк с кодом==kod
if(cntrow<1)
{
  char s[256];
  sprintf(s,"В ЛС с ТН {%d} не удалось найти строку вида с кодом {%d}",tn,kod);
  AmbaMessageBox(s,"",1,0);
  return;
}

Разносим БЗ в первую найденную строку:

PutBase(rowkod[0],bz);

Сохраняем ЛС

     char s[256];
      lsname(Find_Full_TN(tn),s);
      lswrite(s,0);