Имя: Пароль:
1C
1С v8
Создание документа программно
0 Tumakota
 
28.02.13
23:09
Товары1 = Объект.ссылка.ПолучитьОбъект();
   Получить = Товары1.Товары.Выгрузить();
   Для каждого стр из Получить цикл
       Стр1 = Объект.ТЗ.Выгрузить();
       Для каждого стр2 из стр1 цикл
           Если стр2.Номенклатура  = стр.Номенклатура и стр2.Характеристика = стр.Характеристика тогда
               стр.КоличествоФакт = Стр2.Факт;
               Стр2.СуммаФакт = стр.СуммаФакт;
               Стр2.Цена = Стр.Цена;
          КонецЕсли;
      КонецЦикла;
   
   КонецЦикла;                
    Товары1.Записать();

Почему после выполнения обраобтки, документ пустой, что не так делаю
1 ВалераОшкин
 
28.02.13
23:12
что это за жесть?
2 Tumakota
 
28.02.13
23:14
(1) Ну есть таблица значений в которую загрузил данные по всем документам инвентаризации, а теперь хочу все в один документ запихнуть
3 ВалераОшкин
 
28.02.13
23:14
(0) этот код написан в управляемой форме элемента?
4 Tumakota
 
28.02.13
23:14
(3) Да
5 ВалераОшкин
 
28.02.13
23:18
покажи всю процедуру
6 Tumakota
 
28.02.13
23:18
(3) Подскажи как мне загрузить данные из таблицы значений в документ инвентаризации, который я выбираю в поле Ссылка
7 Tumakota
 
28.02.13
23:18
(5) Это и есть вся процедура
8 ВалераОшкин
 
28.02.13
23:21
(6) тебе этот код надо выполнять в модуле объекта, а потом обновить форму с сервера.

Например:
ОбъектСсылка = РеквизитФормыВЗначение("Объект");
ОбъектСсылка.ИмяТвоейПроцедурыВМодулеОбъекта();
ЗначениеВРеквизитФормы(ОбъектСсылка,"Объект")

Как-то так.
9 Tumakota
 
28.02.13
23:44
(8) Не я щас по отладчику посмотрел у меня просто не правильно написан, код, хотелось бы уточнить как сделать, Есть ТЗ в ней значение, и есть Документ в нем значения, надо сравнить эти значения ну и там прибавить или заменить одно на другое
10 ВалераОшкин
 
28.02.13
23:45
(9) толстый клиент?
11 Tumakota
 
28.02.13
23:46
(10) да
12 ВалераОшкин
 
28.02.13
23:47
(11) тогда не знаю :)
13 ВалераОшкин
 
28.02.13
23:48
+(12) я только по тонкому клиенту
14 av_x86
 
28.02.13
23:48
Попробуй так:
Товары1 = Объект.ссылка.ПолучитьОбъект();

   Получить = Товары1.Товары.Выгрузить();
   Стр1 = Объект.ТЗ.Выгрузить();
   
   Для каждого стр из Товары1.Товары цикл
       
       Найденные=Стр1.НайтиСтроки(Новый Структура("Номенклатура,Характеристика",стр.Номенклатура,стр.Характеристика);
       
       Для Каждого НАйденнаяСтрока Из Найденные Цикл
           ЗаполнитьЗначенияСвойств(стр,НайденнаяСтрока);        
       КонецЦикла;
   
   КонецЦикла;                
    Товары1.Записать();
15 ВалераОшкин
 
28.02.13
23:49
(14) у тебя стаж на форуме в разы меньше, чем у ТС. А вещи дельные предлагаешь :)
16 ProProg
 
28.02.13
23:51
(14) баг. если строк найдено много. ... ну ты понял.
17 ВалераОшкин
 
28.02.13
23:53
(16) Маня, отписался тебе на инфостарте (ты обещал работой меня завалить)... а ответа все нету...
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший