Подскажите.При печати Расходной накладной разрывает ее на 2 части(часть которая находится в Подвале выводит на вторую страицу), как это можно изменить?И еще не выводит номер доверенности, хотя выражение вроде правильное.
Подскажите.При печати Расходной накладной разрывает ее на 2 части(часть которая находится в Подвале выводит на вторую страицу), как это можно изменить?И еще не выводит номер доверенности, хотя выражение вроде правильное.
Какая версия 1С?<br>Приведи выражение.
"7.7<br>Процедура Сформировать()<br> Контрагент.ИспользоватьДату(ДатаДок);<br> Фирма.ИспользоватьДату(ДатаДок);<br> Таб=СоздатьОбъект("Таблица"); <br> Если Константа.ПечататьБланки=Да Тогда<br> Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNaklB.mxl");<br> Таб.ВывестиСекцию("Шапка");<br> ВыбратьСтроки();<br> Ном=0;<br> Пока ПолучитьСтроку() = 1 do <br> Ном=Ном+1;<br> Если Ном=17 Тогда<br> Таб.НоваяСтраница();<br> Таб.ВывестиСекцию("НачалоСтр2");<br> КонецЕсли;<br> Таб.ВывестиСекцию("Строка");<br> КонецЦикла;<br> Пока Ном<48 Цикл<br> Ном=Ном+1;<br> Если Ном=17 Тогда<br> Таб.НоваяСтраница();<br> КонецЕсли;<br> КонецЦикла;<br><br> Таб.ВывестиСекцию("Подвал");<br> Таб.ПараметрыСтраницы(2,,,0,0,0,0,,,);<br> Иначе<br> Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNakl.mxl");<br> Таб.ВывестиСекцию("Шапка");<br> ВыбратьСтроки();<br> Ном=0;<br> Пока ПолучитьСтроку() = 1 do <br> Ном=Ном+1;<br> Таб.ВывестиСекцию("Строка");<br> КонецЦикла;<br> Если Отгрузил.Вид()="Склады" Тогда<br> Выдал = Название(Отгрузил.МОЛ.Получить(ДатаДок));<br> Иначе<br> Выдал = Название(Отгрузил);<br> КонецЕсли; <br> Если (СтрДлина(СокрЛП(ДоверенностьНомер))>0) И (ДоверенностьДата<>" . . ") Тогда<br> ПоПоручению = "За доруч. №"+СокрЛП(ДоверенностьНомер)+" вiд "+?(ДатаЧисло(ДоверенностьДата)<10,"0","""")+Формат(ДоверенностьДата ,"Д ДДММММГГГГ");<br> Иначе<br> ПоПоручению = "За доруч. № вiд" ;<br> КонецЕсли;<br> <br> Таб.ВывестиСекцию("Подвал");<br> КонецЕсли;<br> Таб.Опции(0,0,0,0,);<br> Таб.Защита(Константа.ФлагЗащитыОтчетов);<br> Таб.ТолькоПросмотр(Константа.ФлагРедактированияОтчетов);<br> Таб.Показать("Накладна на реалiзацiю","""");<br>КонецПроцедуры "
"Интересный код.<br>В случае когда печатаете бланки, после Шапки + 17 строк создается новая страница. Вот только кусок <br>> Пока Ном<48 Цикл<br>> Ном=Ном+1;<br>> Если Ном=17 Тогда<br>> Таб.НоваяСтраница();<br>> КонецЕсли;<br>> КонецЦикла;<br>Не понятен. Согласно ему - новую страницу надо создать обязательно, если Ном<48, но зачем цикл? Видимо забыли написать "Таб.ВывестиСекцию("Строка");" чтобы вывести еще 31 строку до Подвала.<br><br>В случае иначе - страница программно не создается. <br>Возможен случай, когда в RasNaklB (или RasNakl) вставлен "Перевод страницы""
1C:Лекторий: 14 мая 2024 года — Бесплатная онлайн-лекция об учете в 1С:БГУ 8 (ред. 2) невостребованной кредиторами задолженности. Серия 1С:Консалтинг для госсектора 1C:Лекторий: 16 мая 2024 года — Бесплатная онлайн-лекция о новом в «1С:Бухгалтерии 8» (релизы 3.0.148 – 3.0.151): новая методика учета расчетов на ЕНС с 2024 года; календарь отчетности; цифровой рубль |
1C:Лекторий: 23 мая 2024 года — Бесплатная онлайн-лекция об учете финансовой аренды у арендодателя в программах 1С:ERP и 1С:КА 1C:Лекторий: 6 июня 2024 года — Бесплатная онлайн-лекция об отражении расчетов на ЕНС в «1С:Бухгалтерии 8» |