Ваши комментарии
Добрый день.
Можно сохраненку с этим сотрудником?
Добрый день.
Верните обратно в настройку поставочное значение 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), которая в поставке печатает
Если и она у вас не распечатает квиток- выложите сохраненку ЛС с настройками
Добрый день.
Сегодня делал клиенту Excel-евскую форму справки
Видимо не доделали..
Поставочные формы выгружают excel
В процессе печати сообщений с ошибками не было?
Выложите свой скрипт..
Вы же видите, что блокнот открыл файл в "кривой" кодировке.
Откройте файл в редакторе, который умеет менять кодировку.
Например far, notepad++
Если у вас есть уже настроенный квиток и вы его хотите скопировать в другую базу - просто возьмите нужную форму квитка в каталоге T_KVITOK
Сервис поддержки клиентов работает на платформе UserEcho
поставьте дату приема== дате начала крайне строки стажа (11.01.2022)
либо, можно отключить автозаполнение стажа, поставив 256 в
Настройка -> 6. Общие настройки системы -> 4. Настройки для Пенсионного фонда >>>>> -> 1. Специальные настройки для Пенсионного фонда -> Запрет автоматического заполнения стажа
P.S. значение 16 почему то не отработало..