Всем привет! Оооочень давно я тут ничего не добавлял. Много времени прошло... года 2 или 3? Я уже 1,5 года работаю в бывшем ЗАО "Алтайкровля", ныне именующимся ООО "Экодомстрой". Планировал как временную работу на период поиска постоянной, но приработался, повысили, все нравится. Развиваюсь. Мечтал стать программистом 1С, погонял дома курсы Гилева месяца 2-3, на работе практика, благо потребностей масса. Мне очень нравится, потому что получается! Хотя бывает сложно. На днях испек первый блинчик - обработочку заполнения ТЧ в доке "Зп к выдаче орг" ибо 1С добавили колонку "Взыскано" в соответствии с новым законом, но не сделали автозаполнения оной. Вот что написал:
Процедура Инициализировать(Объект, ИмяТабличнойЧасти, ТабличноеПолеОбъекта = Неопределено) Экспорт
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|УдержанияРаботниковОрганизаций.Сотрудник,
|УдержанияРаботниковОрганизаций.ФизЛицо КАК ФизЛицо,
|СУММА(УдержанияРаботниковОрганизаций.Результат) КАК Результат
|ИЗ
|РегистрРасчета.УдержанияРаботниковОрганизаций КАК УдержанияРаботниковОрганизаций
|ГДЕ
|УдержанияРаботниковОрганизаций.ВидРасчета В(&ВидыРасчетов)
|И УдержанияРаботниковОрганизаций.ПериодРегистрации = &Период
|И Результат<>0
|СГРУППИРОВАТЬ ПО
|УдержанияРаботниковОрганизаций.Сотрудник,
|ФизЛицо";
ВидыРасч = Новый Массив();
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00011")); //Банковские издержки по исп листам
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("1")); //Возмещение причиненного ущерба (суммой)
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00010")); //Почтовый сбор по исп листам
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00001")); //Удержание по исп листу процентом
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00002")); //Удержание по исп листу процентом без учета БЛ
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00003")); //Удержание по исп листу процентом до предела
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00004")); //Удержание по исп листу процентом до предела без учета БЛ
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00005")); //Удержание по исп листу фикс суммой
ВидыРасч.Добавить(ПланыВидовРасчета.УдержанияОрганизаций.НайтиПоКоду("00006")); //Удержание по исп листу фикс суммой до предела
Запрос.УстановитьПараметр("ВидыРасчетов", ВидыРасч);
Запрос.УстановитьПараметр("Период", Объект.ПериодРегистрации);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
ТЧ = Объект.Зарплата.Выгрузить();
Пока Выборка.Следующий() Цикл
Строка = ТЧ.Найти(Выборка.ФизЛицо,"ФизЛицо");
Если Строка <> Неопределено Тогда
Строка.ВзысканнаяСумма = Выборка.Результат;
КонецЕсли;
КонецЦикла;
Объект.Зарплата.Очистить();
Объект.Зарплата.Загрузить(ТЧ);
КонецПроцедуры
|