Завершен

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

eclothes 3 года назад в Вопросы по настройкам обновлен 3 года назад 5

Добрый день!


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


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


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


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


спасибо

Установленный продукт:
ПРОФ
Версия драйвера:
3.0.0.2667
Типовая конфигурация драйвера?:
Да
Операционная система:
win 2008r2
Версия и конфигурация 1С, и режим работы (Файловы или Серверный):
файловая бд через тонкий клиент
Типовая конфигурация 1с?:
Нет
Модель ТСД:
smart droid

Ответ

Ответ

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


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


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


пишу:


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

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

КонецЕсли;


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


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


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

ХОРОШО, МНЕ ПОНРАВИЛОСЬ

решил проблему самостоятельно

Оценка удовлетворенности от eclothes 3 года назад

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

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

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

Ответ

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


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


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


пишу:


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

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

КонецЕсли;


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


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


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

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