Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: 1С для программиста

  Все выпуски  

RusFAQ.ru: 1С для программиста


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / 1С для программиста

Выпуск № 120
от 04.02.2006, 08:45

Администратор:Калашников О.А.
В рассылке:Подписчиков: 151, Экспертов: 22
В номере:Вопросов: 1, Ответов: 1


Вопрос № 34392: Здравствуйте уважаемые эксперты! Протяните руку помощи новичку!!! Никак не могу разобраться в 1С "Зарплата+Кадры". ...

Вопрос № 34.392
Здравствуйте уважаемые эксперты! Протяните руку помощи новичку!!! Никак не могу разобраться в 1С "Зарплата+Кадры".
Отправлен: 30.01.2006, 08:43
Вопрос задал: Laziz M. Ismailov (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: BuhCIA
Здравствуйте, Laziz M. Ismailov!
Хорошего пути я не знаю, а длинный путь Вы знаете и сами:
1) создать буфер на одну страницу для формирования двух столбцов типа Перем НеНужнаяПеременная,ЗанятоСтрок, СтрокаПечати[50]; //сколько строк на странице
...
Процедура ПриВводеНового()
ЗанятоСтрок=0;МаксСтрок=50;
2) вместо вывода расчетного листка на печать организовать перенос в массив СтрокаПечати. Например,
Процедура ЗанестиСтроки(Текст)
Если ТипЗначенияСтр(Текст)<>"СписокЗначений" Тогда Возврат;КонецЕсли;
Если ЗанятоСтрок<МаксСтрок Тогда
Если (Текст.КоличествоЗначений()+ЗанятоСтрок>МаксСтрок) и (ЗанятоСтрок>0) Тогда
ЗанятоСтрок=МаксСтрок;
КонецЕсли;
Иначе
Если (Текст.КоличествоЗначений()+ЗанятоСтрок>МаксСтрок*2) и (ЗанятоСтрок>МаксСтрок) Тогда
//вот сюда (ссылку на процедуру) печать всего массива СтрокаПечати[50] на отдельной странице
...
ЗанятоСтрок=0;
КонецЕсли;
КонецЕсли;
Для инд=1 По Текст.КоличествоЗначений() Цикл
Если ЗанятоСтрок<50 Тогда
СтрокаПечати[инд+ЗанятоСтрок]=Лев(Текст.ПолучитьЗначение(инд,НеНужнаяПеременная)+" ",40); //длина половины строки печати
Иначе СтрокаПечати[инд+ЗанятоСтрок]=Лев(СтрокаПечати[инд+ЗанятоСтрок]+Текст.ПолучитьЗначение(инд,НеНужнаяПеременная);
КонецЕсли;
КонецЦикла;
КонецПроцедуры // ЗанестиСтроки(Текст)
3) в конце вышестоящей процедуры, когда сформированы уже все расчетные листки, последний раз (ссылку на процедуру) печать всего массива СтрокаПечати[50] на отдельной странице
Думаю, процедуру печати массива Вы напишете.
---------
Скажите, сколько времени? - (устало, показывая часы) Читайте, там же все написано!
Ответ отправил: BuhCIA (статус: Студент)
Отправлен: 30.01.2006, 13:07
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2006, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Яндекс Rambler's Top100

Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.1cprogfaq
Архив рассылки
Отписаться Вебом Почтой
Вспомнить пароль

В избранное