Имя: Пароль:
1C
1С v8
Помогите изменить регистр накопления
,
0 rchervak
 
26.04.12
15:26
Всем привет!!!

БП 2.0.
требуется изменить немного регистр накопления " НДСЗаписиКнигиПродаж"

вот что делаю...

запрос = Новый запрос;
   запрос.УстановитьПараметр("НачПериода", НачПериода);
   запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
   запрос.УстановитьПараметр("Покупатель", Покупатель);

   запрос.Текст = "ВЫБРАТЬ
   |    НДСЗаписиКнигиПродаж.Покупатель,
   |    НДСЗаписиКнигиПродаж.СчетФактура,
   |    НДСЗаписиКнигиПродаж.Регистратор.Контрагент как контрагент
   |ИЗ
   |    РегистрНакопления.НДСЗаписиКнигиПродаж КАК НДСЗаписиКнигиПродаж
   |ГДЕ
   |    НДСЗаписиКнигиПродаж.Период МЕЖДУ &НачПериода И &КонПериода";
                 
   Выборка = Запрос.Выполнить().Выбрать();
   Пока Выборка.Следующий() Цикл
       
       Если Выборка.Покупатель = Выборка.контрагент Тогда
       иначе
           
   нужно что-то типа того    //    Выборка.Покупатель = Выборка.контрагент;
//но вот как это реализовать???    тоесть получить строку регистра... Перебор не знаю как реализовать..        
           
           Сообщить("Покупател = "+Выборка.Покупатель+" ");    
        КонецЕсли;
       
   КонецЦикла;

Пробывал перебором:

   Для Каждого елем из РегистрыНакопления.НДСЗаписиКнигиПродаж Цикл
- ошибка {Форма.Форма.Форма(36)}: Итератор для значения не определен
   Для Каждого елем из РегистрыНакопления.НДСЗаписиКнигиПродаж Цикл


Вобщем подскажите пожалуйста если это вообще возможно...
1 hhhh
 
26.04.12
15:29
набор записей регистра курите.
2 rchervak
 
26.04.12
16:18
(1) СПС.    

покурил вот что получилось:
Регистратор - Отчет Комиссионера.


Набор = РегистрыНакопления.НДСЗаписиКнигиПродаж.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Значение = ВыбДок;
Набор.Прочитать();    
текоб = Набор.ЭтотОбъект;

Для Каждого и1 из текоб.ЭтотОбъект Цикл  
и1.Покупатель   = и1.Регистратор.Контрагент ;
КонецЦикла;

Набор.Записать();


Но есть вопрос - не перепроведет ли мне это документ ????
3 rchervak
 
26.04.12
16:21
(2) т.е. текоб.Записать();
4 rchervak
 
26.04.12
16:28
все. разобрался спс