К штатному своду, уже имеющемуся в конфигурации "Зарплата и Управление Персоналом", добавлена информация в раздел ВЫПЛАТА.
Проверено на релизе (2.5.16.2).
Для работы первого файла необходимо:
- Добавить в конфигурацию общий модуль "ФункцииОбработкиСКД", с признаком "Клиент, Сервер"
- В данный общий модуль добавить ЭКСПОРТНУЮ Функцию "ПредставлениеВидаРасчетаДляСводНачисленнойЗарплатыОрганизаций" , текст которой приводится ниже;
- можете использовать данный отчет как внешний.
Работа второго варианта отчета никаких дополнительных дороботак конфигурации не требует.
Все одно: предпочтительным считаю первый вариант.
PS:Желающим оставить конфигурацию нередактированную, адаптируйте третий вариант обработки по образцу второго варианта (для новых конфигураций). Не получится - пишите. Помогу.
Текст экспортной процедуры для первого и третьего варианта:
// Возвращает требуемое представление регистратора по заданным параметрам
// Предназначена исключительно для внешнего отчета "СводНачисленнойЗарплатыОрганизаций"
//
// Параметры - это поля СКД (смотри схему)
//
Функция ПредставлениеВидаРасчетаДляСводНачисленнойЗарплатыОрганизаций(Регистратор, Ведомость,ВидДвижения,ВидРасчета ,Результат) Экспорт
Представление = "";
Если ВидДвижения = "4. Выплата" Тогда
Если (Результат > 0) И (НЕ ТипЗнч(Регистратор) = Тип("ДокументСсылка.ДепонированиеОрганизаций")) Тогда
Представление = "Выплачено " + Формат(Регистратор.Дата, "ДФ=dd.MM.yy") + " по ведомости № "+ СокрЛП(Ведомость.Номер) + ?(НЕ СокрЛП(Ведомость.Комментарий) = "", ", " + СокрЛП(Ведомость.Комментарий),"");
ИначеЕсли (Результат < 0) И (НЕ ТипЗнч(Регистратор) = Тип("ДокументСсылка.ДепонированиеОрганизаций")) Тогда
Представление = "Возврат " + Формат(Регистратор.Дата, "ДФ=dd.MM.yy") + " по ПКО № " + Регистратор.Номер + ?(НЕ СокрЛП(Регистратор.Комментарий) = "", ", " + СокрЛП(Регистратор.Комментарий),"");
ИначеЕсли ТипЗнч(Регистратор) = Тип("ДокументСсылка.ДепонированиеОрганизаций") Тогда
Представление = "Задепонировано " + Формат(Ведомость.Дата, "ДФ=dd.MM.yy") + " по ведомости №" + СокрЛП(Ведомость.Номер) + ?(НЕ СокрЛП(Ведомость.Комментарий) = "", ", " + СокрЛП(Ведомость.Комментарий),"");
Иначе
Представление = "Пусто";
КонецЕсли;
Иначе
Представление = ВидРасчета;
КонецЕсли;
Возврат Представление;
КонецФункции // ПредставлениеВидаРасчетаДляСводНачисленнойЗарплатыОрганизаций()
