Ваши комментарии

поставьте дату приема== дате начала крайне строки стажа  (11.01.2022)

либо, можно отключить автозаполнение стажа, поставив 256 в 

Настройка -> 6. Общие настройки системы -> 4. Настройки для Пенсионного фонда >>>>> -> 1. Специальные настройки для Пенсионного фонда -> Запрет автоматического заполнения стажа


P.S. значение 16 почему то не отработало..

Добрый день.

Можно сохраненку с этим сотрудником?

Добрый день.

Верните  обратно в настройку поставочное значение 2 и будет вам счастье.

Настройка -> 4. Настройки параметров расчета -> 4. >>> Настройки для больничных -> 1. Настройки расчета больничного листа -> Ограничение больничного листа

КЭ по реестру ПВСО не сможет заполнить "запрос о недостающих сведениях".У проактивных выплат свой формат.

В КЗ новый формат еще не реализован(в планах такая задача есть) т.к. возможность отправлять реестры ПВСО сохранена...

Т.е. вы как и раньше отправляете в ФСС реестры ПВСО (в экстерне это отдельный раздел)

Поставьте 0 в 

Настройка -> 5. Настройки таблиц и форм печати -> 2. Настройки для квитков -> Печатать квитки в Excel


Стоило вообще ради этого огород городить (копировать печатные формы)?  :)

Достаточно указать 2,7,15,16,14 в настройке Печатать таблицу по расчету НДФЛ 

и поставочный квиток "Расчетный листок (Общий) " распечатает тоже самое..

При отладке в процессе печати сообщения об ошибках были

Этот код должен был сделать процесс Excel видимым, если код был с самого начала...

  catch(...)
{
xls.Visible = true;
throw;
}


На нем у клиента КЗ периодически вылетает.

1)Поменьше пользуйтесь глобальными переменными

2)Проверьте, что у вас во всех массивах char хватает длины под хранение строки..

3)Попробуйте распечатать в режиме отладки.. (ctrl+alt+shift+f1)

Советую вам перейти на работу с функциями "обертками" - они более удобны + печать будет работать и для Excel и для OpenOffice/

Доступные функции перечислены в \Script\ofis_com.S

Пример использования:

Было:

SetupExcel()
{
  xls = CreateObject("Excel.Application");
//  GetCurrentDirectory(len,Dir);
  GetCommonZPL(Dir,len);
  nm = "tablbank\\CHIBSUM.xls";
  WorkDir = Dir + "\\";
  xls.Caption = OemToAnsi("Реестр");
  xls.Workbooks.Add(WorkDir+nm);
  wb = xls.Workbooks(1);
  wsh = wb.Worksheets.Item(1);

  return 0;
}

Стало:

SetupExcel()
{ char Dir[256]; GetCommonZPL(Dir,255); string nm =Dir+"\\tablbank\\CHIBSUM.xls";
tPrepereOfficeForWork();
tOpenXlsObjects(nm ,OemToAnsi("Реестр"));
tGetWshByIndex(1);
tWshSelect();
}

Было:

WriteToCell("BB61",ItogWsh);

Стало:

tWriteStringToCell("BB61",ItogWsh);

Было:

  wsh.Cells(1,1).Select();
cwsh = wb.Worksheets.Count();
wb.Worksheets.Item(cwsh).Visible = false;
wb.Worksheets.Item(1).Select();
wb.Worksheets.Item(1).Range("A1").Select();
xls.Visible = true;

Стало:

cwsh=tGetWshCount();
tGetWshByIndex(cwsh);
tWshVisible(false);
tGetWshByIndex(1);
tWshCellSelect(1,1);
tEndXlsWork(1);

1)+2)+3)

Значит квиток1.txt  - "битый"

Скопируйте саму форму квитка ( файл form0XX) из которой вы получили квиток1.txt

Вот готовая форма ( по вашему файлу квиток1.txt), которая в поставке печатает

form001

Если и она у вас не распечатает квиток- выложите сохраненку ЛС с настройками 

Добрый день.

Сегодня делал клиенту Excel-евскую форму справки

Видимо не доделали..

Поставочные формы выгружают excel

В процессе печати сообщений с ошибками не было?

Выложите свой скрипт..

Вы же видите, что блокнот открыл файл в "кривой" кодировке.

Откройте файл в редакторе, который умеет менять кодировку.

Например far, notepad++

Если у вас есть уже настроенный квиток и вы его хотите скопировать в другую базу - просто возьмите нужную форму квитка в каталоге T_KVITOK

Сервис поддержки клиентов работает на платформе UserEcho