Имя: Пароль:
1C
1С v8
как добраться до "Содержания" проводок из документа ОперацияБух
,
0 makkut
 
07.03.17
13:51
Добрый день! Подскажите пожалуйста, пишу обработку которая заполняет "содержание" в проводках документа ОперацияБух БП 2.0, но не получается добраться до этого поля в таблице проводок самого документа.
Выборка    = Документы.ОперацияБух.НайтиПоНомеру("00000000718",Дата(2016,12,31));
ВыборкаОбъект    =    Выборка.ПолучитьОбъект();
ВыборкаОбъект. ....дальше нет табличного объекта, лишь реквизит "Содержание" самого документа. Но фишка в том что мне нужно именно поле "Содержание" в проводках конкретного документа чтоб заполнить
Подскажите как добраться до него?
1 Amra
 
07.03.17
13:53
Открою секрет - проводки это движения операции, как и любого другого документа
2 Naf2017
 
07.03.17
13:53
ВыборкаОбъект    =    Выборка.ПолучитьОбъект();
НЗ = ВыборкаОбъект.Движения.Хозрасчетный;
НЗ.Прочитать();
Для каждого Запись из НЗ Цикл
  Сообзить(Запись.Содержание);
КонецЦикла;
3 makkut
 
07.03.17
14:01
ВыборкаОбъект    =    Выборка.ПолучитьОбъект(); ошибся тоже не катит не получается
4 Naf2017
 
07.03.17
14:05
нет такой операции Документы.ОперацияБух.НайтиПоНомеру("00000000718",Дата(2016,12,31))
5 nordbox
 
07.03.17
14:11
НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
        НаборЗаписей.Отбор.Регистратор.Установить(Док.Ссылка);
Движение = НаборЗаписей.Добавить();
Движение.Содержание  = "С тебя пиво";
Как то так
6 nordbox
 
07.03.17
14:13
только не забудь
НаборЗаписей.Записать();
7 Бычье сердце
 
07.03.17
14:13
Выборка    = Документы.ОперацияБух.НайтиПоНомеру("00000000718",Дата(2016,12,31));
НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
       НаборЗаписей.Отбор.Регистратор.Установить(Док.Ссылка);
НаборЗаписей.Прочитать();
ТЗ = НаборЗаписей.Выгрузить();
8 makkut
 
07.03.17
14:19
всё получилось, всем спасибо!
кому мож пригодится

Процедура КнопкаВыполнитьНажатие(Кнопка)

Выборка    =    Документы.ОперацияБух.НайтиПоНомеру("00000000718",Дата(2016,12,31));

ВыборкаОбъект    =    Выборка.ПолучитьОбъект();
            
    НЗ = ВыборкаОбъект.Движения.Хозрасчетный;
            
    НЗ.Прочитать();
        
    Для каждого Запись из НЗ Цикл
                
       Запись.Содержание    =    "корректировка";    
                                        
       Сообщить(Запись.Содержание);
                
    КонецЦикла;
            
    НЗ.Записать();

КонецПроцедуры
9 Naf2017
 
07.03.17
14:39
(8) у всех уже давно есть всевозможные редакторы движений
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс