Помощь - Поиск - Пользователи - Календарь
Полная версия: ОперацияБух, Как исправить проводки
1C-PRO - Форум по 1С > Форумы по платформе "1С:Предприятие 8.x" > (8.х) Конфигурирование на платформе "1С:Предприятие 8.x"
Muggsy
Есть серия ручных операций, в которых надо исправить счета проводок. Как это сделать программно ума не приложу! aua.gif конфигурация Управление страховой компанией
думаю для других также будет..... sample.gif
lazy
В первую очередь нужно учитывать, что исправление счетов приведет к тому, что изменится баланс, и нужно будет подавать "уточеннку".

Во вторую очередь - есть несколько вариантов, вот мой:

Код
 
Процедура КнопкаВыполнитьНажатие(Кнопка)
Если Документ.Пустая() Тогда // Документ - ссылка на нужный документ Операция
Возврат;
КонецЕсли;
// работаем с Хозрасчетным регистром. для Налогового, или еще какого - нужно создавать отдельный набор
НаборЗаписейБух = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
НаборЗаписейБух.Отбор.регистратор.Установить(Документ); // отбор по документу - регистратору
НаборЗаписейБух.Прочитать(); // чтение набора записей

Для каждого Запись из НаборЗаписейБух Цикл // перебор записей
Если Запись.СчетДт = ПланыСчетов.Хозрасчетный.Аккредитивы Тогда // условие поменять на свое
Запись.Сумма = 9999999; // реквизит заменить на совй
КонецЕсли;
КонецЦикла;
НаборЗаписейБух.Записать(); // сохраним то, что натворили :-)
КонецПроцедуры


P.S. ИМХО :-P
lazy
Да, забыл уточнить - при работе с суммами, неплохо было бы изменить и сумму документа :-)
Код
 
Док = Документ.ПолучитьОбъект();
Док.СуммаОперации = МояНоваяСумма;
Док.Записать();

Muggsy
спасибо, я попробую :)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2009 Invision Power Services, Inc.