Автозаполнение строк в новой ТН 2020

Форум Программирование Общие вопросы программирования (Dev)

1. Evgeniys_77 01.02.21 16:42 Сейчас в теме

Добрый день не пойму почему в новой ТН 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")

Скрытый текст

Процедура получает данные заполнения для бланков "Транспортная накладная" и "Сопроводительная ведомость".
//
Функция ПолучитьДанныеДляТТНПриложение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")

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. GeraltSnow 175 01.02.21 16:59 Сейчас в теме

Потому что наверняка в процедуре печати есть вот такой код

СтруктураДанныхПечати = Новый Структура();
Для Каждого Реквизит Из ЭлементыФормы Цикл
	Если Найти(Реквизит.Имя, "Пункт") > 0.00 Тогда
		СтруктураДанныхПечати.Вставить(Реквизит.Имя, ЭтаФорма[Реквизит.Данные]);
	КонецЕсли;
КонецЦикла;

4. Evgeniys_77 01.02.21 17:15 Сейчас в теме

(2)

СтруктураДанныхПечати

Такой код действительно есть, но в старой форме

3. GeraltSnow 175 01.02.21 17:02 Сейчас в теме

Другими словами нужно определить на форме обработки печати ТН реквизиты с соответствующими именами, тогда данные из них будут автоматом попадать в печатную форму.

Оставьте свое сообщение

E-mail: