Адрес Доставки

[ANN]

Добрый день! У клиента установили Трактир -Фронт Премиум 3.0.20.4. Принимаем доставку, печатаем счет для курьера, адрес доставки не вмещается. Как быть? Он автоматом не переносится по строкам?

[anarchist]

могу предложить кусок кода который "удаляет лишние данные" при печати
нужно сохранить ПечатьЧека внешней обработкой ПечатьЧека.epf
и положить в папку к базе например extforms
в общих параметрах указать эту папку
изменить в ПечатьЧека.epf про
целиком условие заменить
// формирование заголовка счета
Если глПараметрыРМ.ПечатьЧекаШапка Тогда
Задание = ТаблицаЗадания.Добавить();
Задание.Данные = Врег("По счету N ")+Число(Заказ.Номер);
Задание.ТипДанных = "Строка";
Задание.Параметры = "Центр,ПереводСтроки";

Задание = ТаблицаЗадания.Добавить();
Задание.Данные = " Дата: "+Формат(ЗаказДопИнф.ПротоколРасчетов.Дата,"ДЛФ=Д" )+ " время: "+Формат(ЗаказДопИнф.ПротоколРасчетов.Дата,"ДЛФ=В" );
Задание.ТипДанных = "Строка";
Задание.Параметры = "Лево,ПереводСтроки";

Если ЗначениеЗаполнено(Заказ.Клиент) Тогда
Если Заказ.Доставка Тогда
улица="";
Если СокрЛП(Заказ.Адрес.Поле6) <> "" Тогда
улица = улица + "" + СокрЛП(Заказ.Адрес.Поле6);
КонецЕсли;
дом="";
Если СокрЛП(Заказ.Адрес.Поле7) <> "" Тогда
дом = дом + "дом № " + СокрЛП(Заказ.Адрес.Поле7);
КонецЕсли;
Если СокрЛП(Заказ.Адрес.Поле8) <> "" Тогда
дом = дом + ", корпус " + СокрЛП(Заказ.Адрес.Поле8);
КонецЕсли;
Если СокрЛП(Заказ.Адрес.Поле9) <> "" Тогда
дом = дом + ", кв." + СокрЛП(Заказ.Адрес.Поле9);
КонецЕсли;
//улица
Задание = ТаблицаЗадания.Добавить();
Задание.Данные = улица+" "+дом;
Задание.ТипДанных = "Строка";
Задание.Параметры = "Лево,Переносить,ПереводСтроки";
//доп информация
Если СокрЛП(Заказ.Адрес.Комментарий) <> "" Тогда
Задание = ТаблицаЗадания.Добавить();
Задание.Данные = СокрЛП(Заказ.Адрес.Комментарий);
Задание.ТипДанных = "Строка";
Задание.Параметры = "Лево,Переносить,ПереводСтроки";
конецесли;
флаг=истина;
телефоны = "Тел: "+Заказ.Телефон.Представление;
если Не пустаяСтрока(Заказ.Клиент.МобТелефон) тогда
телефоны =телефоны+ " моб: "+Заказ.Клиент.МобТелефон;
флаг=Истина;
конецесли;
если флаг тогда
Задание = ТаблицаЗадания.Добавить();
Задание.Данные = телефоны;
Задание.ТипДанных = "Строка";
Задание.Параметры = "Жирный,Лево,ПереводСтроки";
конецесли;
КонецЕсли;
КонецЕсли;
Задание = ТаблицаЗадания.Добавить();
Задание.Данные = "Диспетчер: "+Заказ.Автор;
Задание.ТипДанных = "Строка";
Задание.Параметры = "Лево,ПереводСтроки";
КонецЕсли;

[MaxS]

Должен переноситься. Какой принтер?

[ANN]

Сообщение от MaxS

Должен переноситься. Какой принтер?

Нет, не переносится. Принтер FPrint22К.

[MaxS]

Это вы, похоже, чек печатаете, а не счет. В чеке действительно не переносится, исправим.