Разбивает страницу на 2
29.05.2009
15:00
#1
Подскажите.При печати Расходной накладной разрывает ее на 2 части(часть которая находится в Подвале выводит на вторую страицу), как это можно изменить?И еще не выводит номер доверенности, хотя выражение вроде правильное.
01.06.2009
14:12
#3
"7.7
Процедура Сформировать()
Контрагент.ИспользоватьДату(ДатаДок);
Фирма.ИспользоватьДату(ДатаДок);
Таб=СоздатьОбъект("Таблица");
Если Константа.ПечататьБланки=Да Тогда
Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNaklB.mxl");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Ном=0;
Пока ПолучитьСтроку() = 1 do
Ном=Ном+1;
Если Ном=17 Тогда
Таб.НоваяСтраница();
Таб.ВывестиСекцию("НачалоСтр2");
КонецЕсли;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Пока Ном<48 Цикл
Ном=Ном+1;
Если Ном=17 Тогда
Таб.НоваяСтраница();
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ПараметрыСтраницы(2,,,0,0,0,0,,,);
Иначе
Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNakl.mxl");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Ном=0;
Пока ПолучитьСтроку() = 1 do
Ном=Ном+1;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Если Отгрузил.Вид()="Склады" Тогда
Выдал = Название(Отгрузил.МОЛ.Получить(ДатаДок));
Иначе
Выдал = Название(Отгрузил);
КонецЕсли;
Если (СтрДлина(СокрЛП(ДоверенностьНомер))>0) И (ДоверенностьДата<>" . . ") Тогда
ПоПоручению = "За доруч. №"+СокрЛП(ДоверенностьНомер)+" вiд "+?(ДатаЧисло(ДоверенностьДата)<10,"0","""")+Формат(ДоверенностьДата ,"Д ДДММММГГГГ");
Иначе
ПоПоручению = "За доруч. № вiд" ;
КонецЕсли;
Таб.ВывестиСекцию("Подвал");
КонецЕсли;
Таб.Опции(0,0,0,0,);
Таб.Защита(Константа.ФлагЗащитыОтчетов);
Таб.ТолькоПросмотр(Константа.ФлагРедактированияОтчетов);
Таб.Показать("Накладна на реалiзацiю","""");
КонецПроцедуры "
Процедура Сформировать()
Контрагент.ИспользоватьДату(ДатаДок);
Фирма.ИспользоватьДату(ДатаДок);
Таб=СоздатьОбъект("Таблица");
Если Константа.ПечататьБланки=Да Тогда
Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNaklB.mxl");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Ном=0;
Пока ПолучитьСтроку() = 1 do
Ном=Ном+1;
Если Ном=17 Тогда
Таб.НоваяСтраница();
Таб.ВывестиСекцию("НачалоСтр2");
КонецЕсли;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Пока Ном<48 Цикл
Ном=Ном+1;
Если Ном=17 Тогда
Таб.НоваяСтраница();
КонецЕсли;
КонецЦикла;
Таб.ВывестиСекцию("Подвал");
Таб.ПараметрыСтраницы(2,,,0,0,0,0,,,);
Иначе
Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNakl.mxl");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Ном=0;
Пока ПолучитьСтроку() = 1 do
Ном=Ном+1;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Если Отгрузил.Вид()="Склады" Тогда
Выдал = Название(Отгрузил.МОЛ.Получить(ДатаДок));
Иначе
Выдал = Название(Отгрузил);
КонецЕсли;
Если (СтрДлина(СокрЛП(ДоверенностьНомер))>0) И (ДоверенностьДата<>" . . ") Тогда
ПоПоручению = "За доруч. №"+СокрЛП(ДоверенностьНомер)+" вiд "+?(ДатаЧисло(ДоверенностьДата)<10,"0","""")+Формат(ДоверенностьДата ,"Д ДДММММГГГГ");
Иначе
ПоПоручению = "За доруч. № вiд" ;
КонецЕсли;
Таб.ВывестиСекцию("Подвал");
КонецЕсли;
Таб.Опции(0,0,0,0,);
Таб.Защита(Константа.ФлагЗащитыОтчетов);
Таб.ТолькоПросмотр(Константа.ФлагРедактированияОтчетов);
Таб.Показать("Накладна на реалiзацiю","""");
КонецПроцедуры "
01.06.2009
16:19
#4
"Интересный код.
В случае когда печатаете бланки, после Шапки + 17 строк создается новая страница. Вот только кусок
> Пока Ном<48 Цикл
> Ном=Ном+1;
> Если Ном=17 Тогда
> Таб.НоваяСтраница();
> КонецЕсли;
> КонецЦикла;
Не понятен. Согласно ему - новую страницу надо создать обязательно, если Ном<48, но зачем цикл? Видимо забыли написать "Таб.ВывестиСекцию("Строка");" чтобы вывести еще 31 строку до Подвала.
В случае иначе - страница программно не создается.
Возможен случай, когда в RasNaklB (или RasNakl) вставлен "Перевод страницы""
В случае когда печатаете бланки, после Шапки + 17 строк создается новая страница. Вот только кусок
> Пока Ном<48 Цикл
> Ном=Ном+1;
> Если Ном=17 Тогда
> Таб.НоваяСтраница();
> КонецЕсли;
> КонецЦикла;
Не понятен. Согласно ему - новую страницу надо создать обязательно, если Ном<48, но зачем цикл? Видимо забыли написать "Таб.ВывестиСекцию("Строка");" чтобы вывести еще 31 строку до Подвала.
В случае иначе - страница программно не создается.
Возможен случай, когда в RasNaklB (или RasNakl) вставлен "Перевод страницы""
Читают тему
(гостей: 1)