[wmatik]

1С Предприятие 7.7(сетевая версия) - 7.70.027
Конфигурация: Производство-Услуги-Бухгалтерия для Украины(7.70.010)
Есть документ,в котором необходимо, при выборе ТМЦ (Справочник ТМЦ) в отдельной колонке подвязывался определенный код (этот код находится тоже в справочнике ТМЦ). Код:

Процедура НайтиКарточку()
    
    Если СокрЛП(НомерКарт) <> "" Тогда
    Спр = СоздатьОбъект("Справочник.ТМЦ");
    СпрНом = СоздатьОбъект("Справочник.НомераКарточек");
    СпрАрт = СоздатьОбъект("Справочник.Артикулы");
    Спр.ВыбратьЭлементы();
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
        Если Спр.ЭтоГруппа() = 0 Тогда
            СпрНом.ИспользоватьВладельца(Спр);
            СпрНом.НайтиПоКоду(НомерКарт);
            Если (СпрНом.Выбран() = 1) И (СпрНом.Склад = МестоХранения) Тогда
                ТМЦ = Спр.ТекущийЭлемент();
                Ед = ТМЦ.ЕдиницаПоУмолчанию;
                Коэффициент = 1; 
                КодДК = ТМЦ.СтНомерКарт;
                СпрАрт.ИспользоватьВладельца(ТМЦ);
                СпрАрт.ВыбратьЭлементы();
                Пока СпрАрт.ПолучитьЭлемент() = 1 Цикл
                    Если СпрАрт.Склад = МестоХранения Тогда
                        НоменклНомер = СокрЛП(СпрАрт.Код);
                    КонецЕсли;
                КонецЦикла;

                Возврат;
            Иначе
                ТМЦ = 0;
                Ткст = "Карточка с номером "+НомерКарт+" не найдена!";
                //Сообщить(Ткст,"!!!");
            КонецЕсли;
        КонецЕсли; 
        //
    КонецЦикла;
КонецЕсли; 
Если ПустоеЗначение(ТМЦ)  = 1 Тогда
    НоменклНомер = "";
КонецЕсли;
КонецПроцедуры 
// ===============================
Процедура НайтиАртикул()
    Если СокрЛП(НоменклНомер) <> "" Тогда
    Спр = СоздатьОбъект("Справочник.ТМЦ");
    СпрНом = СоздатьОбъект("Справочник.НомераКарточек");
    СпрАрт = СоздатьОбъект("Справочник.Артикулы");
    Спр.ВыбратьЭлементы();
    Пока Спр.ПолучитьЭлемент() = 1 Цикл
        Если Спр.ЭтоГруппа() = 0 Тогда
            СпрАрт.ИспользоватьВладельца(Спр);
            СпрАрт.НайтиПоКоду(НоменклНомер);
            Если (СпрАрт.Выбран() = 1) И (СпрАрт.Склад = МестоХранения) Тогда
                ТМЦ = Спр.ТекущийЭлемент();
                Ед = ТМЦ.ЕдиницаПоУмолчанию;
                КодДК = ТМЦ.СтНомерКарт;
                Коэффициент = 1;
                СпрНом.ИспользоватьВладельца(ТМЦ);
                СпрНом.ВыбратьЭлементы();
                Пока СпрНом.ПолучитьЭлемент() = 1 Цикл
                    Если СпрНом.Склад = МестоХранения Тогда
                        Номеркарт = СокрЛП(СпрНом.Код);
                    КонецЕсли;
                КонецЦикла;
                Возврат;
            Иначе
                ТМЦ = 0;

Пробовала другие реквизиты выводить (например Код) выводит, а вот тот код кот мне нужен (КодДК) не хочет. Подскажите пожалуйста в чем может быть причина.Спасибо

[-=VJ=-]

Подскажите пожалуйста в чем может быть причина.Спасибо

Например в том, что СтНомерКарт - периодический реквизит.

[igmig65]

КодДК = ТМЦ.СтНомерКарт

Если вам нужно показать СтНомерКарт того ТМЦ, которое выбрали в доке, то добавьте поле Текст в табл.часть дока, и в формуле напишите ТМЦ.СтНомерКарт

[wmatik]

я не правильный код вставила,вот так должна выглядеть строка:

КодДК = ТМЦ.КодПоКл;

Где КодПоКл - это реквизит справочника ТМЦ

[igmig65]

я не правильный код вставила,вот так должна выглядеть строка:
КодДК = ТМЦ.КодПоКл;

Значит в формулу: ТМЦ.КодПоКл

Например в том, что СтНомерКарт - периодический реквизит.

Если б был периодич., то помоему в приведенном коде строка КодДК = ТМЦ.КодПоКл, выдала неизвестный объект.

[wmatik]

igmig65, написала в формуле ТМЦ.КодПоКл и ничего(

Забыла указать, как формируется КодПоКл. В справочнике ТМЦ Есть реквизит КодПоКл,тип значения - справочник (КодыПоКлассификатору).

Забыла указать, как формируется КодПоКл. В справочнике ТМЦ Есть реквизит КодПоКл,тип значения - справочник (КодыПоКлассификатору).

[-=VJ=-]

выдала неизвестный объект.

Нет, было бы просто пустое значение.

[wmatik]

igmig65, когда ставлю тип значения КодДК строка выводит ТМЦ

[igmig65]

Забыла указать, как формируется КодПоКл. В справочнике ТМЦ Есть реквизит КодПоКл,тип значения - справочник (КодыПоКлассификатору).

Возможно в этом справочнике в форме нет наименования и оно незаполняется програмно, а какой рекв. спр. КодыПоКлассификатору вам нужно показать?

igmig65, когда ставлю тип значения КодДК строка выводит ТМЦ

вам нужно добавить поле Текст, там нет типазначения.

[wmatik]

а какой рекв. спр. КодыПоКлассификатору вам нужно показать?

Код

[igmig65]

Значит в формулу: ТМЦ.КодПоКл.Код
только в поле ТЕКСТ, а вы реквизит добавляете

[wmatik]

Значит в формулу: ТМЦ.КодПоКл.Код
только в поле ТЕКСТ, а вы реквизит добавляете

Все равно выдает - ТМЦ

[igmig65]

Все равно выдает - ТМЦ

вы скорей всего добавили поле ввода с типом значения????а нужно в форму кинуть ТЕКСТ

[wmatik]

я сделала так:
Реквизит КодДК (тип значения-строка)
В табличную часть документа добавила Текст, в формуле написала ТМЦ.КодПоКл.Код
В итоге ничего не выводит, пусто

[igmig65]

ну незнаю, проверьте в отладчике при выборе ТМЦ, что вам вернет ТМЦ.КодПоКл.Код

[wmatik]

а можете подсказать как проверить,а то я не умею пользоваться отладчиком

[-=VJ=-]

В итоге ничего не выводит, пусто

После

КодДК = ТМЦ.КодПоКл;

Вставьте строку

Сообщить(ТМЦ.КодПоКл);

Или

Сообщить(ПустоеЗначение(ТМЦ.КодПоКл));

Увидите, по крайней мере, хотя бы результат.

Сообщение отредактировал -=VJ=- - 07.06.11, 11:31

[wmatik]

пусто

[-=VJ=-]

пусто

В обоих случаях?

[wmatik]

в первом пусто,во втором 1

нет, вру, в первом пусто, во втором случае 0

нет,даже не так, в первом случае выдает то,что надо -нужный код

и что надо изменить,чтобы заполнялась колонка?