Артикул Контрагента

[anton.kislov]

ситуация такова: есть форма "Заказ контрагента", в ней куча полей(Артикул, номенклатура, цена и т.д. и т.п.), мне же необходимо добавить одну колонку "Артикул Контрагента", данные этой колонки находятся в "регистре сведений"-> номенклатура контрагента->АртикулНоменклатурыКонтрагента....
мне нужно чтобы данные которые он хранит вылезле в этой форме в поле "Артикул Контрагента"

Как к нему обратится...

заранее благодарен

[Dethmontt]

Как к нему обратится...

К кому? К 1С-у?

Добавлено: 23 мая 2013, 11:14

Можете обращаться на ВЫ

[Dethmontt]

Код Выделить Развернуть

Процедура НоменклатураПриИзменении(ПолеФормыЭлемент)
   ТекДанные = ЭлементыФормы.ИмяТабличнойЧасти.ТекущиеДанные; //Включаем экстрасенсорные способности (т.к. ТС не сказал что за конфигурация) предположим что это обычные формы!
   ТекДанные.АртикулКонтрагента = ПолучитьИзРегистраАртикулПоКонтрагентуЗапросом(Контрагент); //Но можно получать артикул и при открытии формы и при изменении контрагента (что бы сократить обращения к базе)
//В принципе ВСЕ!
//Функция ПолучитьИзРегистраАртикулПоКонтрагентуЗапросом - запросом выбирает нужный артикул и возвращает его!
// текст этой функции мне писать ЛЕНЬ
КонецПроцедуры

[anton.kislov]

Как к нему обратится...

К кому? К 1С-у?

Добавлено: 23 мая 2013, 11:14

Можете обращаться на ВЫ

Ну не до такой же степени((

Добавлено: 23 мая 2013, 11:27

Код Выделить Развернуть

Процедура НоменклатураПриИзменении(ПолеФормыЭлемент)
   ТекДанные = ЭлементыФормы.ИмяТабличнойЧасти.ТекущиеДанные; //Включаем экстрасенсорные способности (т.к. ТС не сказал что за конфигурация) предположим что это обычные формы!
   ТекДанные.АртикулКонтрагента = ПолучитьИзРегистраАртикулПоКонтрагентуЗапросом(Контрагент); //Но можно получать артикул и при открытии формы и при изменении контрагента (что бы сократить обращения к базе)
//В принципе ВСЕ!
//Функция ПолучитьИзРегистраАртикулПоКонтрагентуЗапросом - запросом выбирает нужный артикул и возвращает его!
// текст этой функции мне писать ЛЕНЬ
КонецПроцедуры

платформа 8,2 УТ 10,3
спасибо

Добавлено: 24 мая 2013, 07:08

сделал так вот..
//запись данных в Колонку "Артикул у контрагента"
Процедура НоменклатураПриИзменении(АртикулКонтрагента)
   ТекДанные = АртикулКонтрагента.Товары.ТекущиеДанные;
   ТекДанные.АртикулКонтрагента = ПолучитьИзРегистраАртикулПоКонтрагенту(Контрагент);
   
//Функция ПолучитьИзРегистраАртикулПоКонтрагентуЗапросом - запросом выбирает нужный артикул и возвращает его!
КонецПроцедуры


//Получаем данные из регистра сведений
Функция  ПолучитьИзРегистраАртикулПоКонтрагенту(Запрос)

   Запрос.Текст = "
   |ВЫБРАТЬ
   |   НоменклатураКонтрагентов.Номенклатура                        КАК Номенклатура,
   |   НоменклатураКонтрагентов.Контрагент                          КАК Контрагент,
   |   НоменклатураКонтрагентов.ХарактеристикаНоменклатуры          КАК ХарактеристикаНоменклатуры,
   |   НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента КАК НаименованиеНоменклатурыКонтрагента,
   |   НоменклатураКонтрагентов.АртикулНоменклатурыКонтрагента      КАК АртикулНоменклатурыКонтрагента
   |ПОМЕСТИТЬ АртикулНоменклатурыКонтрагента
   |ИЗ
   |   РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
   |ГДЕ
   |   НоменклатураКонтрагентов.Контрагент = &Контрагент
   |";
   Запрос.Выполнить();

КонецФункции

Но не выводится запись ((

[Dethmontt]

Потому что:
1. Функция ничего не возвращает.
2. Запрос написан не правильно

[anton.kislov]

Потому что:
1. Функция ничего не возвращает.
2. Запрос написан не правильно

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

[anton.kislov]

Потому что:
1. Функция ничего не возвращает.
2. Запрос написан не правильно

понял что не то писал..
Написал вот так..
Функция ПолучитьИзРегистраАртикулПоКонтрагентуЗапросом(Контрагент)

    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ               
        |    НоменклатураКонтрагентов.АртикулНоменклатурыКонтрагента             
        |ИЗ                 
        |    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов     
        |ГДЕ               
        |    НоменклатураКонтрагентов.Контрагент = &Контрагент";
    Запрос.УстановитьПараметр("Контрагент", Контрагент);

    Выборка = Запрос.Выполнить().Выбрать();
    Если Выборка.Следующий() Тогда
        Возврат Выборка.АртикулНоменклатурыКонтрагента;
    КонецЕсли;

    Возврат "!!!!"; // не нашли

КонецФункции

Но результат тот же((

[Yura063]

Возврат "!!!!"; // не нашли

Это не надо!

Добавлено: 27 мая 2013, 10:48

или поставьте его в условия после иначе!

Добавлено: 27 мая 2013, 10:49

Код Выделить Развернуть


    Если Выборка.Следующий() Тогда
        Возврат Выборка.АртикулНоменклатурыКонтрагента;
    Иначе
        Возврат "!!!!"; // не нашли
    КонецЕсли;



[anton.kislov]

Возврат "!!!!"; // не нашли

Это не надо!

Добавлено: 27 мая 2013, 10:48

или поставьте его в условия после иначе!

Добавлено: 27 мая 2013, 10:49

Код Выделить Развернуть


    Если Выборка.Следующий() Тогда
        Возврат Выборка.АртикулНоменклатурыКонтрагента;
    Иначе
        Возврат "!!!!"; // не нашли
    КонецЕсли;



понял, Но тут другое...
Я получил в столбце "0" везде..
вот это интересно уже...

[Yura063]

Есть консоль запросов, проверьте ей что получаете в запросе! у вас эти поля заполнены?