Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

Разбивает страницу на 2

Jkzzzz
читатель
офлайн
Дата регистрации: 28.05.2009
Сообщений: 3
Пост №1
 
29.05.2009 15:00

Подскажите.При печати Расходной накладной разрывает ее на 2 части(часть которая находится в Подвале выводит на вторую страицу), как это можно изменить?И еще не выводит номер доверенности, хотя выражение вроде правильное.

Яковлев И.Г.
читатель
офлайн
Дата регистрации: 27.05.2009
Сообщений: 21
Пост №2
 
29.05.2009 23:09

Какая версия 1С?<br>Приведи выражение.

Jkzzzz
читатель
офлайн
Дата регистрации: 28.05.2009
Сообщений: 3
Пост №3
 
01.06.2009 14:12

"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>КонецПроцедуры "

BelikovS
читатель
офлайн
Дата регистрации: 05.03.2007
Сообщений: 1701
Пост №4
 
01.06.2009 16:19

"Интересный код.<br>В случае когда печатаете бланки, после Шапки + 17 строк создается новая страница. Вот только кусок <br>> Пока Ном<48 Цикл<br>> Ном=Ном+1;<br>> Если Ном=17 Тогда<br>> Таб.НоваяСтраница();<br>> КонецЕсли;<br>> КонецЦикла;<br>Не понятен. Согласно ему - новую страницу надо создать обязательно, если Ном<48, но зачем цикл? Видимо забыли написать "Таб.ВывестиСекцию("Строка");" чтобы вывести еще 31 строку до Подвала.<br><br>В случае иначе - страница программно не создается. <br>Возможен случай, когда в RasNaklB (или RasNakl) вставлен "Перевод страницы""

Показывать по 10 20 40 сообщений

Читают тему:

1 гостей
Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация