[l2d808]

Вечер добрый Уважаемое сообщество.
Платформа 1с77
Остался последний штрих. Но я туплю. Подскажите, на месте

//Тут надо присвоить ТЗ.Реквизит.Идентификатор значения Док.ТМЦ соотвецтвенно базы

Надо написать код, а у меня не получается. Шарики за ролики закотились и все. Помогите.

//*******************************************
Процедура ОбработкаПодбора(КодВнешний)
    Док=создатьобъект("Документ.fromLaCosta");
    Док.ВыбратьДокументы();    
    Пока Док.ПолучитьДокумент()=1  Цикл  
        Если док.Проведен()=1 Тогда
            Док.ВыбратьСтроки();
            Пока Док.ПолучитьСтроку()=1 цикл
                Если КодВнешний=Док.НомерЗаказаВходящий Тогда
                    ВыбТМЦ.ДобавитьЗначение(Док.ТМЦ); 
                    ВидСправочника="ТМЦ";
                    Справочник = Метаданные.Справочник(ВидСправочника); 
                    Для Индекс = 1 По Справочник.Реквизит() Цикл    
                        Реквизит = Справочник.Реквизит(Индекс); 
                        //Тут надо присвоить ТЗ.Реквизит.Идентификатор значения Док.ТМЦ соотвецтвенно базы
                    КонецЦикла;
                КонецЕсли; 
            КонецЦикла;    
        КонецЕсли; 
    КонецЦикла;     
    КодВнешний="";
    //ВыбТМЦ.ТекущаяСтрока(ВыбТМЦ.РазмерСписка());
КонецПроцедуры  
//***********************************************
Процедура ПриОткрытии()
    ОчиститьОкноСообщений();
    ВидСправочника="ТМЦ";
    Справочник = Метаданные.Справочник(ВидСправочника); 
    Для Индекс = 1 По Справочник.Реквизит() Цикл    
        Реквизит = Справочник.Реквизит(Индекс); 
        ТЗ.НоваяКолонка(Реквизит.Идентификатор);
    КонецЦикла;КонецПроцедуры

[1Cv77]

...

А что вообще должно быть???

!

Зачем так цитировать? п.13

Сообщение отредактировал MATEVI - 09.11.12, 20:31

[l2d808]

А что вообще должно быть???

В таблицу значений ТЗ. надо слить все значения всех тмц. Вроде все правильно сформировал, а вот как запихнуть в то что я сформировал, соответствующие данные ТМЦ... В общем у меня не получается.

[Ardi]

ТЗ.ДобавитьСтроку();
номСтр=ТЗ.Количество();
              Для Индекс = 1 По Справочник.Реквизит() Цикл    
                        Реквизит = Справочник.Реквизит(Индекс); 
                        ТЗ.УстановитьЗначение(НомСтр,Реквизит,Док.ТМЦ.ПолучитьАтрибут(Реквизит));
              КонецЦикла;

Сообщение отредактировал Vofka - 10.11.12, 13:00