В результате обновления базы самописный документ перестал формировать проводки.Почему?
Калькулятор
28.04.2009 - 08:00
|
Огромная просьба, не "помогайте" советами типа вызови специалиста... Итак: Документ был создан в БП 1.6.10.6 После ручного обновления на 1.6.15.5 документ перестал формировть проводки. Может гдето слетела регистрация движений? Процедура проведения проста: Пока РезультатЗапроса.Следующий() Цикл // Проводки по БУ ПроводкаБУ = Движения.Хозрасчетный.Добавить(); ПроводкаБУ.Период = СтруктураШапкиДокумента.Дата; ПроводкаБУ.Организация = СтруктураШапкиДокумента.Организация; ПроводкаБУ.Содержание = "Сумма НДС не возмещаемая из бюджета"; ПроводкаБУ.НомерЖурнала = "НДС"; ПроводкаБУ.СчетДт = СтруктураШапкиДокумента.СчетСписанияНДС; БухгалтерскийУчет.УстановитьСубконто(ПроводкаБУ.СчетДт, ПроводкаБУ.СубконтоДт, 1, СтруктураШапкиДокумента.СубконтоСписанияНДС1); БухгалтерскийУчет.УстановитьСубконто(ПроводкаБУ.СчетДт, ПроводкаБУ.СубконтоДт, 2, СтруктураШапкиДокумента.СубконтоСписанияНДС2); БухгалтерскийУчет.УстановитьСубконто(ПроводкаБУ.СчетДт, ПроводкаБУ.СубконтоДт, 3, СтруктураШапкиДокумента.СубконтоСписанияНДС3); ПроводкаБУ.СчетКт = РезультатЗапроса.СчетУчетаНДС; БухгалтерскийУчет.УстановитьСубконто(ПроводкаБУ.СчетКт, ПроводкаБУ.СубконтоКт, "Контрагенты", РезультатЗапроса.Поставщик); БухгалтерскийУчет.УстановитьСубконто(ПроводкаБУ.СчетКт, ПроводкаБУ.СубконтоКт, "СФПолученные", РезультатЗапроса.СчетФактура); ПроводкаБУ.Сумма = РезультатЗапроса.НДС; ////Регистр накопления НДСПредъявленный Движение = Движения.НДСПредъявленный.ДобавитьРасход(); Движение.Период = Дата; Движение.Организация = Организация; Движение.СчетФактура = РезультатЗапроса.СчетФактура; Движение.ВидЦенности = РезультатЗапроса.ВидЦенности; Движение.СтавкаНДС = РезультатЗапроса.СтавкаНДС; Движение.СчетУчетаНДС = РезультатЗапроса.СчетУчетаНДС; Движение.Поставщик = РезультатЗапроса.Поставщик; Движение.СуммаБезНДС = РезультатЗапроса.СуммаБезНДС; Движение.НДС = РезультатЗапроса.НДС; КонецЦикла; Движения.Хозрасчетный.Записать(); Движения.НДСПредъявленный.Записать(); |