Централизованная Коректировка ШП
29.08.2006
01:56
#1
"Ситуация весьма плачевная, имеется ЗИК с мелкими модификациями не влияющими на основное функционирование. Имеется жуткий бардак к шаблонах проводок, а именно у каждого из более двух тысяч сотрудников он указан вручную, причем их около сотни с одинаковыми ДТ и КТ
(( В общем из-за этого в своде проводок для выгрузки в бух 4.5 Большое колличество строк, ЕСН и Налоги идут отдельными строками от зарплаты, короче говоря бардак. Неоходимо для начала УДАЛИТЬ с начала месяца шаблоны у сотрудников, дабы они попали под действие шаблонов подразделений. Если кто-то сталкивался, как сие сделать централизованно просьба помочь...
Вывести не проблема, вот кусок кода, а то что закоментил - попытка записать пустое значение в данный параметр. Что делаю не так и как надо
)
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
Сотр = СоздатьОбъект("Справочник.Сотрудники");
Пока Запрос.Группировка("ФизЛицо") = 1 Цикл
Сотр = Запрос.ФизЛицо;
Если не ((ПустоеЗначение(Сотр.СостояниеФизлица.Получить(ДатаНач))=1) и (ПустоеЗначение(Сотр.СостояниеФизлица.Получить(ДатаКон))=1)) Тогда
ТН = Сотр.Код;
Наименование = Сотр.Наименование;
Подразделение = Сотр.Подразделение.Получить(ДатаКон);
ШаблонПроводок = Сотр.ШаблонПроводки.Получить(ДатаКон);
Должность = Сотр.Должность.Получить(ДатаКон);
Таб.ВывестиСекцию("Строка");
//Сотр.УстановитьАтрибут("ШаблонПроводки","""");
//Сотр.Записать();
КонецЕсли;
КонецЦикла;
Таб.Показать();"
Вывести не проблема, вот кусок кода, а то что закоментил - попытка записать пустое значение в данный параметр. Что делаю не так и как надо
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;
Таб = СоздатьОбъект("Таблица");
Таб.ВывестиСекцию("Шапка");
Сотр = СоздатьОбъект("Справочник.Сотрудники");
Пока Запрос.Группировка("ФизЛицо") = 1 Цикл
Сотр = Запрос.ФизЛицо;
Если не ((ПустоеЗначение(Сотр.СостояниеФизлица.Получить(ДатаНач))=1) и (ПустоеЗначение(Сотр.СостояниеФизлица.Получить(ДатаКон))=1)) Тогда
ТН = Сотр.Код;
Наименование = Сотр.Наименование;
Подразделение = Сотр.Подразделение.Получить(ДатаКон);
ШаблонПроводок = Сотр.ШаблонПроводки.Получить(ДатаКон);
Должность = Сотр.Должность.Получить(ДатаКон);
Таб.ВывестиСекцию("Строка");
//Сотр.УстановитьАтрибут("ШаблонПроводки","""");
//Сотр.Записать();
КонецЕсли;
КонецЦикла;
Таб.Показать();"
Читают тему
(гостей: 1)