&obr_kv(N,6,0)=ОБРАБОТАНО_КВИТКОВ; &vib_kv(N,6,0)=ВСЕГО_КВИТКОВ; &month_kv(N,6,0)=МЕСЯЦ_КВИТКА; $BEG_SCRIPT /* ExcelPrintMode: Как печатать квитки? (значение по умолчанию - 0) 0 - все квитки на одной странице (рулоном). Чтобы при печати квитки разбились по листам - нужно заполнить настройку "Количество строк на листе (Excel)". (В поставочном шаблоне на лист входит ровно 100 строк) 1 - каждый квиток на отдельной странице 2 - каждый квиток в отдельной книге CheckSaveOptions: Параметры для сохранения квитков (значение по умолчанию - 0) 0 - сформированные квитки не сохраняются 1 - сформированные квитки сохраняются в каталог ..Raschet\Checks\ГГГГ_ММ\ , где ГГГГ_ММ - текущий месяц 2 - сформированные квитки сохраняются в каталог ..Raschet\Checks\ГГГГ_ММ_ДД\ , где ГГГГ_ММ_ДД - текущее число если в настройке "SaveDirectory" указан каталог, то квитки сохраняются в него 4 - "молчаливый режим" - квиток сохраняется и книга закрывается (пользователь не видит сформированный квиток) SaveDirectory: каталог для сохранения квитков (чтобы квитки сохранялись нужно, чтобы значение в настройке CheckSaveOptions было ненулевым) По умолчанию квитки сохраняются в каталог ..\Raschet\Checks\ NoPrintNullDolg: Не печатать блок с долгом, если долга нет (значение по умолчанию - 0) 0 - блок с долгом печатается всегда 1 - блок с долгом печатается только если есть задолженность */ var param=CreateObject("Map"); param.Add("ChecksProcessed",atoi(obr_kv)); param.Add("ChecksCount" ,atoi(vib_kv)); param.Add("CheckMonth" ,atoi(month_kv)); PrintNetChecks(param); $END_SCRIPT ${ЗОНА(1.Шапка квитка) //Пользователь может вывести в шапку дополнительную информацию о сотруднике. //Для этого нужно определить скриптовую функцию CheckHeadAdditionalRows(). //Функция должна возвращать MapString //Пример: //CheckHeadAdditionalRows() //{ // var Map = CreateObject("MapString"); // key - номер, строка для шапки квитка // Map.Clear(); // char s[256]; // sprintf(s,"Оклад: %.2f Ставка: %.2f",15000.00,DefineKEmploy(GetGeneralCombineLS(),KDateFromInt_LastDay(mrasch))); // Map.Add("1",OemToAnsi(s)); // double frvDays=dney_v_tab(rsimv,calm,1,countday); // double frvHours=0;skoljko(frvHours,data,1,countday,rsimv,calm,0); // sprintf(s,"Норма: %.2f часов (%.2f дней) Отработано: %.2f часов (%.2f дней)",norm(2),norm(1),frvHours,frvDays); // Map.Add("2",OemToAnsi(s)); // Map.Add("3",OemToAnsi("еще одна строка...")); // return Map; //} $}ЗОНА(1.Шапка квитка) ${ЗОНА(6.Отправка квитков по почте) $BEG_SCRIPT //для отправки квитков по почте нужно перед PrintNetChecks() добавить настройки: //param.Add("ExcelPrintMode" ,2); //param.Add("CheckSaveOptions" ,1+4); $END_SCRIPT $}ЗОНА(6.Отправка квитков по почте) $ВЫХОД