Добрый день не пойму почему в новой ТН 2020 не получается делать автозаполнения
Прописал данные для заполнения из бланков
Прописал данные для заполнения из бланков
Скрытый текст |
---|
Процедура получает данные заполнения для бланков "Транспортная накладная" и "Сопроводительная ведомость".
// Функция ПолучитьДанныеДляТТНПриложение4(ЗапросТовары, Шапка) ДанныеДокумента = Новый Структура(); ЕдиницаИзмеренияВеса = Константы.ЕдиницаИзмеренияВеса.Получить(); СведенияОГрузополучателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Грузополучатель, Шапка.ДатаДокумента); СведенияОГрузоотправитель = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Грузоотправитель, Шапка.ДатаДокумента); ДанныеДокумента = Новый Структура(); Если Шапка.ГрузополучательЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда ДанныеДокумента.Вставить("Пункт2_1", ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, СтрокаРеквизитовОписаниеОрганизации)); ДанныеДокумента.Вставить("Пункт2_2", ""); ИначеЕсли Шапка.ГрузополучательЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда ДанныеДокумента.Вставить("Пункт2_2", АдресТранзит); Иначе ДанныеДокумента.Вставить("Пункт2_2", ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузополучателе, "ПолноеНаименование,ИНН,ФактическийАдрес,Телефоны,НомерСчета,Банк,БИК,КоррСчет")); КонецЕсли; Если Шапка.ГрузоотправительЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо Тогда ДанныеДокумента.Вставить("Пункт1_1", ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузоотправитель, СтрокаРеквизитовОписаниеОрганизации)); ДанныеДокумента.Вставить("Пункт1_2", ""); ДанныеДокумента.Вставить("Пункт15_6", ДанныеДокумента.Пункт1_1); ИначеЕсли Шапка.ГрузоотправительЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицо Тогда ДанныеДокумента.Вставить("Пункт1_2", ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОГрузоотправитель, СтрокаРеквизитовОписаниеОрганизации)); ДанныеДокумента.Вставить("Пункт1_1", ""); ДанныеДокумента.Вставить("Пункт15_6", ДанныеДокумента.Пункт1_2); КонецЕсли; ДанныеДокумента.Вставить("Пункт3_2", "Всего мест: " + ЧислоПрописью(ЗапросТовары.Итог("КоличествоМест"), ,",,,,,,,,0")); Если ЗначениеЗаполнено(ЕдиницаИзмеренияВеса) И ЗапросТовары.Итог("МассаБрутто") > 0.00 Тогда ДанныеДокумента.Вставить("Пункт3_3", "Масса брутто: " + ЧислоПрописью(ЗапросТовары.Итог("МассаБрутто"), ,",,,,,,,,0")+ " " + СокрЛП(ЕдиницаИзмеренияВеса) + "."); КонецЕсли; ДанныеДокумента.Вставить("Пункт10_3Ведомость", СведенияОГрузополучателе.ПолноеНаименование); ДанныеДокумента.Вставить("Пункт7_1", Шапка.АдресДоставки); ДанныеДокумента.Вставить("Пункт6_0", "г.Москва, Шабаловская ул., д. 11, стр.1") |
По теме из базы знаний
- Автозаполнение реквизитов контрагентов по ИНН для БП3.0, ERP2.5, УТ11.5, КА2.5, Розница 2.3, Документооборот 2.1
- Особенности подготовки отчетной формы статистики №11 (краткая) за 2017 год для государственных и муниципальных учреждений
- Тикеты - система учета задач/Service Desk в 1С (+ мобильное приложение)
- Пара советов по поиску работы
- [Расширение] Автозаполнение суммы комиссии из Назначения платежа для БП 3
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот