powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / При просмотре нормально, печать - не хочет
4 сообщений из 4, страница 1 из 1
При просмотре нормально, печать - не хочет
    #32254199
RVZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RVZ
Гость
Для хранения документа я использую две таблицы. Первая таблица (RTTN) содержит все расчетно-платежные и почтовые реквизиты предприятия. Вторая таблицы детальные строки (DTTN), содержащие реквизиты поступающего или расходуемого товара, различные элементы счета.
В методе LOAD формы я формирую временную таблицу с помощью функции (=CreatViewRttn()), которая находится в главном блоке программы, и помещаю ее в GRID.

При выборе нужного документа я создаю таблицу с одной записью а из таблицы DTTN формирую таблицу с детальными строками для выбранного документа. Процедура (PrintRashod)

При предварительном просмотре информация выводиться корректно. При выводе на печать вместо детальных строк выводятся пустые строки по количеству записей в таблице VIEWRTTN, которая находится в GRID.. Если процедуру (PrintRashod) я запускаю не из GRIDa а из пункта линейки меню программа отрабатывает корректно во всех режимах неограниченное количество раз. Я пришел к заключению, что программный код написан правильно, а вся бяка где-то в экранной форме. Но где?

**************************************************************
Эта переменная формируется при загрузке программы и объявляется как PUBLIC.
LocSkladRttn='rttn.sklad=gcNumObject AND rttn.sekciy=gcSekciy AND YEAR(rttn.date_doc)=yearv AND rttn.kod_recip=sp_pok.kp'

*--------------------------------------------------------------
FUNCTION CreatViewRttn
SELECT rttn
file_to=gcPathData+'viewrttn'
SELECT * ;
FROM rttn,sp_pok ;
WHERE &LocSkladRttn ;
INTO TABLE &file_to

*--------------------------------------------------------------
PROCEDURE PrintRashod
LOCAL lnKod_recip
=CreatOneDttn()
SELECT viewrttn
gnKod=num_doc
Date1=date_doc
lnKod_recip=kod_recip
rec_found=RECNO()
IF USED('prnrttn')
SELECT prnrttn
USE
ENDIF
file_rtn=gcPathData+'prnrttn'
LocRttn='viewrttn.num_doc=gnKod AND TTOD(viewrttn.date_doc)=date1 AND !DELETED()'
SELECT * ;
FROM viewrttn ;
WHERE viewrttn.num_doc=gnKod AND viewrttn.date_doc=date1 AND !DELETED();
INTO TABLE &file_rtn
SELECT prnrttn


SELECT onedttn
GO TOP
n_report='form_p23'
par_job='!EOF()'
REPORT FORM &n_report TO PRINT PROMPT NOCONSOLE FOR &par_job

SELECT viewrttn
...
Рейтинг: 0 / 0
При просмотре нормально, печать - не хочет
    #32254238
oleg_km
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прошу прощения, не досконально вник в проблему, но думаю ошибка примерно в следующем - если при вызове Report form фокус находится в GRIDе, то Report "сканирует" алиас именно GRIDа. Насколько я помню, решением было убрать фокус из GRIDа, вызвать Report и вернуть фокус в GRID.
...
Рейтинг: 0 / 0
При просмотре нормально, печать - не хочет
    #32254287
В report dataenvironment before opentable
напишите select алиаса, нужного для работы отчета
...
Рейтинг: 0 / 0
При просмотре нормально, печать - не хочет
    #32269364
andrzej
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У тебя после выдачи комаднды на печать фокус уходит на грид и в репорте он стоит уже не там где ты хочешь.
В этом случае возможны два варианта:
1) Всю подготовку перенести в Report метод BeforeOpen
2)Сделать кнопку Печать и из грида передавать управление на эту кнопку где уже и будет вызов печати.

Но лучше первый вариант . Если будут вопросы, пиши
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / При просмотре нормально, печать - не хочет
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]