Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Метаданные
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
l2d808
Вечер добрый Уважаемое сообщество.
Платформа 1с77
Остался последний штрих. Но я туплю. Подскажите, на месте
Цитата
//Тут надо присвоить ТЗ.Реквизит.Идентификатор значения Док.ТМЦ соотвецтвенно базы

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


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

 ! 

Зачем так цитировать? п.13
 
l2d808
Цитата(1Cv77 @ 09.11.12, 19:51) необходимо зарегистрироваться для просмотра ссылки
А что вообще должно быть???

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