Имя: Пароль:
1C
1С v8
Добавить регистры в док корректировка записей регистров
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) как то так:
Если Не ЗначениеЗаполнено(ДатаСрезаНДС) Тогда
       Сообщить("Дата не установлена");
       Возврат;    
   КонецЕсли;    
   
   НовыйДок=Документы.КорректировкаЗаписейРегистров.СоздатьДокумент();
   НовыйДок.Дата=ДатаСрезаНДС;
   НовыйДок.Комментарий="Тестирование НДС";
   // НДС начисленный
   СтрокаТЧ=НовыйДок.ТаблицаРегистровНакопления.Добавить();
   СтрокаТЧ.Имя="НДСНачисленный";
   СтрокаТЧ.Представление="НДСНачисленный";
   ДвНДСНач=НовыйДок.Движения.НДСНачисленный;
   //
   Запрос=новый Запрос;
   Запрос.Текст="ВЫБРАТЬ
   |    НДСНачисленныйОстатки.Организация,
   |    НДСНачисленныйОстатки.СчетФактура,
   |    НДСНачисленныйОстатки.ВидЦенности,
   |    НДСНачисленныйОстатки.СтавкаНДС,
   |    НДСНачисленныйОстатки.Покупатель,
   |    НДСНачисленныйОстатки.ВидНачисления,
   |    НДСНачисленныйОстатки.ДоговорКонтрагента,
   |    НДСНачисленныйОстатки.НДСОстаток КАК НДС,
   |    НДСНачисленныйОстатки.СуммаБезНДСОстаток КАК СуммаБезНДС
   |ИЗ
   |    РегистрНакопления.НДСНачисленный.Остатки(&ДатаСрезаНДС, ) КАК НДСНачисленныйОстатки";
   запрос.УстановитьПараметр("ДатаСрезаНДС",ДатаСрезаНДС);
   ТЗРезультат = Запрос.Выполнить().Выгрузить();    
   ДвНДСНач.Загрузить(ТЗРезультат);
   Для Каждого СтрокаДвижений Из  ДвНДСНач Цикл
       
       СтрокаДвижений.Активность=Истина;
       СтрокаДвижений.ВидДвижения=ВидДвиженияНакопления.Расход;
       СтрокаДвижений.Период=ДатаСрезаНДС;
   КонецЦикла;
   // НДС начисленный
   СтрокаТЧ=НовыйДок.ТаблицаРегистровНакопления.Добавить();
   СтрокаТЧ.Имя="НДСПредъявленный";
   СтрокаТЧ.Представление="НДСПредъявленный";
   ДвНДСНач=НовыйДок.Движения.НДСПредъявленный;
   //
   Запрос=новый Запрос;
   Запрос.Текст="ВЫБРАТЬ
   |    НДСПредъвленныйОстатки.Организация,
   |    НДСПредъвленныйОстатки.СчетФактура,
   |    НДСПредъвленныйОстатки.ВидЦенности,
   |    НДСПредъвленныйОстатки.СтавкаНДС,
   |    НДСПредъвленныйОстатки.СчетУчетаНДС,
   |    НДСПредъвленныйОстатки.Поставщик,
   |    НДСПредъвленныйОстатки.ДоговорКонтрагента,
   |    НДСПредъвленныйОстатки.СуммаБезНДСОстаток КАК СуммаБезНДС,
   |    НДСПредъвленныйОстатки.НДСОстаток КАК НДС
   |ИЗ
   |    РегистрНакопления.НДСПредъявленный.Остатки(&ДатаСрезаНДС, ) КАК НДСПредъвленныйОстатки";
   запрос.УстановитьПараметр("ДатаСрезаНДС",ДатаСрезаНДС);
   ТЗРезультат = Запрос.Выполнить().Выгрузить();    
   ДвНДСНач.Загрузить(ТЗРезультат);
   Для Каждого СтрокаДвижений Из  ДвНДСНач Цикл
       
       СтрокаДвижений.Активность=Истина;
       СтрокаДвижений.ВидДвижения=ВидДвиженияНакопления.Расход;
       СтрокаДвижений.Период=ДатаСрезаНДС;
   КонецЦикла;
   НовыйДок.Записать();
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший