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