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

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

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

Помогите плиз с печатной формой (картинка)

diablo05
читатель
офлайн
Дата регистрации: 23.06.2010
Сообщений: 1435
Пост №1
 
30.08.2012 15:06

В общем для банка, нужно выгрузать из 1с 8.2 ЗУП реестры сотрудников для перечесления на карточку зарплаты.<br> <br>Все сделал. все работает. Номер лицевого счета, фио, сумма.<br> <br>Только не могу понять, по какой причине (на картинке видно) печатная форма мне выводит много строк. То есть вот там 2 человека. Почему после них еще куча пустых строк выводиться. Где рыть ?

diablo05
читатель
офлайн
Дата регистрации: 23.06.2010
Сообщений: 1435
Пост №2
 
30.08.2012 15:07

или как ограничить. что бы после последней заполненной строки, далее ни чего не выводилось.

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №3
 
30.08.2012 16:07

Вы это откуда вообще печатаете или эта форма Ваше "изобретение"?

diablo05
читатель
офлайн
Дата регистрации: 23.06.2010
Сообщений: 1435
Пост №4
 
30.08.2012 17:28

это внешняя печатная форма. для документа зарплата к выплате организации.<br> <br>могу скинуть модуль печати, надо?

diablo05
читатель
офлайн
Дата регистрации: 23.06.2010
Сообщений: 1435
Пост №5
 
30.08.2012 17:30

"Вот процедура печати<br> <br>ПечатаемыйДокумент = СсылкаНаОбъект;<br> Ведомости = СсылкаНаОбъект;<br> ФИОСокращенно = Ложь;<br> ТабДокумент = Новый ТабличныйДокумент;<br> ТабДокумент.ПолеСлева = 0;<br> ТабДокумент.ПолеСправа = 0;<br> ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_СписокПеречислений";<br> <br> Макет       = ПолучитьОбщийМакет("СписокПеречисленийЗарплатыВБанк4");<br> <br> // получаем данные для печати<br> ВыборкаДляШапки = СформироватьЗапросПоДокументу(ПечатаемыйДокумент).Выбрать();<br> ВыборкаРаботники = СформироватьЗапросДляПечатиПеречняПеречислений(ПечатаемыйДокумент, Ведомости, ФИОСокращенно).Выбрать();<br> <br> // подсчитываем количество страниц документа - для корректного разбиения на страницы<br> ВсегоСтрокДокумента = ВыборкаРаботники.Количество();<br><br> ОбластьМакетаШапкаДокумента = Макет.ПолучитьОбласть("ШапкаДокумента");<br> ОбластьМакетаШапка            = Макет.ПолучитьОбласть("Шапка");<br> ОбластьМакетаСтрока       = Макет.ПолучитьОбласть("Строка");<br>// ОбластьМакетаИтогПоСтранице = Макет.ПолучитьОбласть("ИтогПоЛисту");<br> ОбластьМакетаПодвал       = Макет.ПолучитьОбласть("Подвал");<br> <br> // массив с двумя строками - для разбиения на страницы<br> ВыводимыеОбласти = Новый Массив();<br> ВыводимыеОбласти.Добавить(ОбластьМакетаСтрока);<br>// ВыводимыеОбласти.Добавить(ОбластьМакетаИтогПоСтранице);<br> <br> // выводим данные о руководителях организации<br> Пока ВыборкаДляШапки.Следующий() Цикл<br>       ОбластьМакетаШапкаДокумента.Параметры.Заполнить(ВыборкаДляШапки); // Шапка документа.<br>       ОбластьМакетаШапкаДокумента.Параметры.НазваниеОрганизации = СокрЛП(ОбластьМакетаШапкаДокумента.Параметры.НазваниеОрганизации);<br>       ОбластьМакетаСтрока.Параметры.Заполнить(ВыборкаДляШапки);<br>       ОбластьМакетаПодвал.Параметры.Заполнить(ВыборкаДляШапки); // подписи<br> КонецЦикла;<br> <br> ТабДокумент.Вывести(ОбластьМакетаШапкаДокумента);<br> ТабДокумент.Вывести(ОбластьМакетаШапка);<br> <br> ВыведеноСтраниц = 1; ВыведеноСтрок = 0; Итого = 0;<br> // выводим данные по строкам документа.<br> Пока ВыборкаРаботники.Следующий() Цикл<br> <br>       // разбиение на страницы<br>       ВыведеноСтрок = ВыведеноСтрок + 1;<br>       <br>       ОбластьМакетаСтрока.Параметры.Заполнить(ВыборкаРаботники);<br>       ОбластьМакетаСтрока.Параметры.НомерСтроки = ВыведеноСтрок;<br>       ОбластьМакетаСтрока.Параметры.НомерЛицевогоСчета = ВыборкаРаботники.ФизЛицоСсылка.ЛицевойСчет1;<br>       <br>       // Проверим, уместится ли строка на странице или надо открывать новую страницу<br>       ВывестиПодвалЛиста = Не ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти);<br>       Если Не ВывестиПодвалЛиста и ВыведеноСтрок = ВсегоСтрокДокумента Тогда<br>            ВыводимыеОбласти.Добавить(ОбластьМакетаПодвал);<br>            ВывестиПодвалЛиста = Не ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти);<br>       КонецЕсли;<br>       Если ВывестиПодвалЛиста Тогда<br>            <br> //       ОбластьМакетаИтогПоСтранице.Параметры.ИтогоНаСтранице = ИтогоНаСтранице;<br> //       ТабДокумент.Вывести(ОбластьМакетаИтогПоСтранице);<br>            ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();<br>            ТабДокумент.Вывести(ОбластьМакетаШапка);<br>            ВыведеноСтраниц = ВыведеноСтраниц + 1;<br> //       ИтогоНаСтранице = 0;<br>            <br>       КонецЕсли;<br>       <br>       ТабДокумент.Вывести(ОбластьМакетаСтрока);<br> // ИтогоНаСтранице = ИтогоНаСтранице + ВыборкаРаботники.Сумма;<br>       Итого = Итого + ВыборкаРаботники.Сумма;<br><br> КонецЦикла;<br><br>// Если ВыведеноСтрок > 0 Тогда <br>//       ОбластьМакетаИтогПоСтранице.Параметры.ИтогоНаСтранице = ИтогоНаСтранице;<br>// КонецЕсли;<br> <br> ВыводимыеОбласти = Новый Массив();<br> ВыводимыеОбласти.Добавить(ОбластьМакетаСтрока);<br>// ВыводимыеОбласти.Добавить(ОбластьМакетаИтогПоСтранице);<br> ВыводимыеОбласти.Добавить(ОбластьМакетаПодвал);<br> Для Сч = 1 По ОбластьМакетаСтрока.Параметры.Количество() Цикл<br>       ОбластьМакетаСтрока.Параметры.Установить(Сч - 1,""""); <br> КонецЦикла;<br> ОбластьМакетаСтрока.Параметры.Физлицо = " " + Символы.ПС + " ";<br> Пока ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти, Ложь) Цикл<br>       ТабДокумент.Вывести(ОбластьМакетаСтрока);<br> КонецЦикла;<br> <br>// ТабДокумент.Вывести(ОбластьМакетаИтогПоСтранице);<br> ОбластьМакетаПодвал.Параметры.Итого = Итого;<br> ОбластьМакетаПодвал.Параметры.колпер = ВыведеноСтрок;<br> ОбластьМакетаПодвал.Параметры.колраб = ВыведеноСтрок;<br> ТабДокумент.Вывести(ОбластьМакетаПодвал);<br> <br> колпер = ВыведеноСтрок;<br> колраб = ВыведеноСтрок;<br><br> Возврат ТабДокумент;<br> <br>КонецФункции //"

Денис (САМАРА)
читатель
офлайн
Дата регистрации: 09.04.2008
Сообщений: 8351
Пост №6
 
30.08.2012 17:33

Если это ВПФ, то уж прикрепляй файл .epf к сообщению, а не модуль тут выкладывай. :)

Петров-В
читатель
офлайн
Дата регистрации: 23.01.2011
Сообщений: 581
Пост №7
 
30.08.2012 18:59

"Можно закоментарить этот кусок.<br><br>ВыводимыеОбласти = Новый Массив();<br> ВыводимыеОбласти.Добавить(ОбластьМакетаСтрока);<br>// ВыводимыеОбласти.Добавить(ОбластьМакетаИтогПоСтранице);<br> ВыводимыеОбласти.Добавить(ОбластьМакетаПодвал);<br> Для Сч = 1 По ОбластьМакетаСтрока.Параметры.Количество() Цикл<br>       ОбластьМакетаСтрока.Параметры.Установить(Сч - 1,""""); <br> КонецЦикла;<br> ОбластьМакетаСтрока.Параметры.Физлицо = " " + Символы.ПС + " ";<br> Пока ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти, Ложь) Цикл<br>       ТабДокумент.Вывести(ОбластьМакетаСтрока);<br> КонецЦикла;"

diablo05
читатель
офлайн
Дата регистрации: 23.06.2010
Сообщений: 1435
Пост №8
 
31.08.2012 11:13

спапсибо помогло. эт просто не мое. нашел где то в инете. перерисовал макет, под шаблон присланный. чуть переделал.<br>а с этим запустался.)

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

Читают тему:

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