Завершен

Передача доп реквизита документа 1С в шапку документа ТСД

eclothes 8 лет назад обновлен 8 лет назад 5

Добрый день!


Используем 1С УНФ, в ней нет встроенной печати штрихкодов на печатных формах документов (как например в УТ 11), однако хочется искать документ на ТСД сканируя штрихкод его бумажной версии а не вручную.


У нас в 1С дописано рисование штрихкода на печатной форме, а его значение берется из дополнительного реквизита документа Заказ.Покупателя


В принципе, все что нужно есть в Настройках, в вашей обработке выгрузки документов, за тем лишь исключением что можно задать правила для реквизитов шапки документа 1С а не любой ТЧ:

Image 830


Подскажите место в вашей обработке, куда можно вставить проверку на тип документа 1С и если это Заказ покупателя то заполнять Штрихкод в документе ТСД значением доп реквизита Штрихкод в документе 1С, а в остальных случаях работать по обычному сценарию?


спасибо

Ответ

Ответ

решил самостоятельно. решение ниже - может кому пригодится


в вашей обработке выгрузки документа, вместо строчки


"Рез.Вставить("ШтрихкодДокумента", ТолькоЦифрыИзСтроки(Документ.Номер));"


пишу:


Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Штрихкод доставки (Заказы покупателей)");

Структура = Новый Структура("Свойство", Свойство);
СтрокиШтрихкод = Документ.ДополнительныеРеквизиты.НайтиСтроки(Структура);
Если СтрокиШтрихкод.Количество() > 0 Тогда
ШтрихкодДоставки = СтрокиШтрихкод[0].Значение;
Рез.Вставить("ШтрихкодДокумента", ШтрихкодДоставки);
Иначе
Рез.Вставить("ШтрихкодДокумента", ТолькоЦифрыИзСтроки(Документ.Номер));

КонецЕсли;


====================


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


тему можно закрывать, спасибо

забыл указать - 1С 8.3 конфигурация УНФ 1.6

eclothes, очень интересно как вы подключили УНФ 1.6 к ТСД? Вроде же эта версия не поддерживается клеверенс. У нас два тсд так и валяются после перехода на УНФ.

обработками для версии 1.4, все работает аналогично, даже не пришлось вносить никаких изменений

Ответ

решил самостоятельно. решение ниже - может кому пригодится


в вашей обработке выгрузки документа, вместо строчки


"Рез.Вставить("ШтрихкодДокумента", ТолькоЦифрыИзСтроки(Документ.Номер));"


пишу:


Свойство = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("Штрихкод доставки (Заказы покупателей)");

Структура = Новый Структура("Свойство", Свойство);
СтрокиШтрихкод = Документ.ДополнительныеРеквизиты.НайтиСтроки(Структура);
Если СтрокиШтрихкод.Количество() > 0 Тогда
ШтрихкодДоставки = СтрокиШтрихкод[0].Значение;
Рез.Вставить("ШтрихкодДокумента", ШтрихкодДоставки);
Иначе
Рез.Вставить("ШтрихкодДокумента", ТолькоЦифрыИзСтроки(Документ.Номер));

КонецЕсли;


====================


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


тему можно закрывать, спасибо

Сервис поддержки клиентов работает на платформе UserEcho