3
pilot_iv
22.05.12
✎
11:24
|
дело в том, что данными получается заполнить корректно, но при этом при интерактивном открытии у дока не отображаются в панелях регистры накопления, хотя движения формирует корректно
|
|
6
shuhard
22.05.12
✎
11:37
|
(3) как то так:
Если Не ЗначениеЗаполнено(ДатаСрезаНДС) Тогда
Сообщить("Дата не установлена");
Возврат;
КонецЕсли;
НовыйДок=Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
НовыйДок.Дата=ДатаСрезаНДС;
НовыйДок.Комментарий="Тестирование НДС";
// НДС начисленный
СтрокаТЧ=НовыйДок.ТаблицаРегистровНакопления.Добавить();
СтрокаТЧ.Имя="НДСНачисленный";
СтрокаТЧ.Представление="НДСНачисленный";
ДвНДСНач=НовыйДок.Движения.НДСНачисленный;
//
Запрос=новый Запрос;
Запрос.Текст="ВЫБРАТЬ
| НДСНачисленныйОстатки.Организация,
| НДСНачисленныйОстатки.СчетФактура,
| НДСНачисленныйОстатки.ВидЦенности,
| НДСНачисленныйОстатки.СтавкаНДС,
| НДСНачисленныйОстатки.Покупатель,
| НДСНачисленныйОстатки.ВидНачисления,
| НДСНачисленныйОстатки.ДоговорКонтрагента,
| НДСНачисленныйОстатки.НДСОстаток КАК НДС,
| НДСНачисленныйОстатки.СуммаБезНДСОстаток КАК СуммаБезНДС
|ИЗ
| РегистрНакопления.НДСНачисленный.Остатки(&ДатаСрезаНДС, ) КАК НДСНачисленныйОстатки";
запрос.УстановитьПараметр("ДатаСрезаНДС",ДатаСрезаНДС);
ТЗРезультат = Запрос.Выполнить().Выгрузить();
ДвНДСНач.Загрузить(ТЗРезультат);
Для Каждого СтрокаДвижений Из ДвНДСНач Цикл
СтрокаДвижений.Активность=Истина;
СтрокаДвижений.ВидДвижения=ВидДвиженияНакопления.Расход;
СтрокаДвижений.Период=ДатаСрезаНДС;
КонецЦикла;
// НДС начисленный
СтрокаТЧ=НовыйДок.ТаблицаРегистровНакопления.Добавить();
СтрокаТЧ.Имя="НДСПредъявленный";
СтрокаТЧ.Представление="НДСПредъявленный";
ДвНДСНач=НовыйДок.Движения.НДСПредъявленный;
//
Запрос=новый Запрос;
Запрос.Текст="ВЫБРАТЬ
| НДСПредъвленныйОстатки.Организация,
| НДСПредъвленныйОстатки.СчетФактура,
| НДСПредъвленныйОстатки.ВидЦенности,
| НДСПредъвленныйОстатки.СтавкаНДС,
| НДСПредъвленныйОстатки.СчетУчетаНДС,
| НДСПредъвленныйОстатки.Поставщик,
| НДСПредъвленныйОстатки.ДоговорКонтрагента,
| НДСПредъвленныйОстатки.СуммаБезНДСОстаток КАК СуммаБезНДС,
| НДСПредъвленныйОстатки.НДСОстаток КАК НДС
|ИЗ
| РегистрНакопления.НДСПредъявленный.Остатки(&ДатаСрезаНДС, ) КАК НДСПредъвленныйОстатки";
запрос.УстановитьПараметр("ДатаСрезаНДС",ДатаСрезаНДС);
ТЗРезультат = Запрос.Выполнить().Выгрузить();
ДвНДСНач.Загрузить(ТЗРезультат);
Для Каждого СтрокаДвижений Из ДвНДСНач Цикл
СтрокаДвижений.Активность=Истина;
СтрокаДвижений.ВидДвижения=ВидДвиженияНакопления.Расход;
СтрокаДвижений.Период=ДатаСрезаНДС;
КонецЦикла;
НовыйДок.Записать();
|
|