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