powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по отчетам
17 сообщений из 17, страница 1 из 1
Вопрос по отчетам
    #36124503
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Простите за то, что отбираю ваше драгоценное время, но уж больно надо быстро сделать вот что:
Отчет выкладывать в pdf или tiff файл или еще что то не редактируемое простым пользователем.

Понимаю простоту своего вопроса, но FoxPro открыл сегодня в первый раз вообще. Есть приложение которое работает с 90-ых годов и работает хорошо. Отчет формируется в текстовый файл или сразу на принтер. Теперь вопрос стал так - "отправлять данный отчет эл. почтой клиентам", ну и как следствие данный отчет надо создавать в файл более защищенный чем *.txt.
Все мои поиски по форуму не привели к успеху, говорят что можно легко формировать отчет в pdf файл, еще легче в tiff, как?

Если какую то информацию надо показать, напишите, я предъявлю.

Спасибо заранее!!!
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124519
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Прочитал что в 9 версии стандартным методом можно отчет в tiff файл сформировать.
Делаю так:
Код: plaintext
1.
  ndf=printdir+'b'+alltrim(str(tac_id))+'_1.tif'
  prt='report form billn1a TO FILE '+alltrim(ndf)+' ASCII NOCONSOLE'
файл создает, но он не открывается.
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124600
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Tolik_Прочитал что в 9 версии стандартным методом можно отчет в tiff файл сформировать.
Делаю так:
Код: plaintext
1.
  ndf=printdir+'b'+alltrim(str(tac_id))+'_1.tif'
  prt='report form billn1a TO FILE '+alltrim(ndf)+' ASCII NOCONSOLE'
файл создает, но он не открывается.
Что-то не то вы прочитали.
Откройте Solution Samples. Пример "HTML, XML and TIFF output with ReportListeners". Там все понятно и наглядно показано.
С уважением, Алексей.
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124601
oldfox
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Как вариант, установить виртуальный принтер. При печати на него создается картинка.
Поскольку у вас нет опыта, вывод в Excel не предлагаю.
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124635
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
http://forum.foxclub.ru/read.php?29,395841,page=2
+ пример в солюшинах
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124637
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Aleksey-K
Нашел в справке Solution Samples, но топика или раздела "HTML, XML and TIFF output with ReportListeners" не увидел, тыкните меня носом пожалуйста, очень нужно.

oldfox
виртуальный принтер надо будет поставить по умолчанию, но когда отчеты надо печатать, я не могу постоянно менять принтер по умолчанию? или могу?

Спасибо за попытку помочь.
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124653
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
-new in vfp 9 - html,xml and tiff output
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124693
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
прошелмимо-new in vfp 9 - html,xml and tiff output

Каким образом можно в tiff файл сохранить, я так понимаю тут не идет речь о виртуальном принтере? Посоветуйте пожалуйста.
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124703
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторКаким образом можно в tiff файл сохранить
Вы пример посмотрели? и исходный код?
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124734
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
прошелмимоВы пример посмотрели? и исходный код?


Да посмотрел, это от туда:

"поставьте клиентам мс.оф.2003
настройте Вашему отчету принтер 'Microsoft Office Document Image Writer'
(modi repo .. page setup-page setup-printer...) "

последняя строчка я так понял устанавливает принтер через который печатать, правильно ли я понял если да, то как она должна выглядеть?
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124737
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
авторOlegAДля печати в картинку, надо что то дополнительное ставить?

В девятке встроенная фича у ReportListener!


вот везде говорят об, этой возможности, но не одного примера, я понимаю что я тупой в Фоксе, но прошу снизайти и показать примерчик, как отчет в "картинку" отправить или в pdf-файл...
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124909
Peisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мужики, я сегодня впервые узнал, что такое автомобиль. А завтра мне в заездах F1 надо выступать. Что делать???

Вот интересно - фокс-то хоть какой? А то программа написана в 90-ые - несколько смущает.

И потом - если бысто: Ну кто мешает открыть отчет и принтануть его на какой виртуальный принтер вручную?

Да и суть вопроса мне как-то непонятна. Т.е. клент может вручную изменить отчет и будет плохо?

Ну так при желании и пдф можно подправить. Да и тифф тоже.
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36124969
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
PeisovМужики, я сегодня впервые узнал, что такое автомобиль. А завтра мне в заездах F1 надо выступать. Что делать???

Вот интересно - фокс-то хоть какой? А то программа написана в 90-ые - несколько смущает.

И потом - если бысто: Ну кто мешает открыть отчет и принтануть его на какой виртуальный принтер вручную?

Да и суть вопроса мне как-то непонятна. Т.е. клент может вручную изменить отчет и будет плохо?

Ну так при желании и пдф можно подправить. Да и тифф тоже.


Сегодня я узнал что такое автомобиль, как у него габаритку заменить (я бы так интерпретировал эту ситуацию).

На 9 версии фокса все компилировалось нормально.

Отчет действительно надо в pdf или tiff или Word с паролем, но это не единождое действие, а дальнейшая его нормальная работа должна быть, т.е. один из отчетов надо в один из выше перечисленных форматов и отправлять клиентам эл. почтой. Поэтому "автоматизировать" и поставлена задача.

При желании все можно взломать, но взломать и исправить "нечаянно" две большие разницы. И поверте для нашей компании существенная разница.


Если установить виртуальный принтер через который отчет в tiff файл загоняю, можно ли этому файлу задавать имя через фокс или принтер по умолчанию его назначает? И как разделить два принтера на компьютере, через один одни отчеты печатать, через другой другой отчет, для формирование из него файла?
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36125018
Фотография Aleksey-K
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Tolik_Aleksey-K
Нашел в справке Solution Samples, но топика или раздела "HTML, XML and TIFF output with ReportListeners" не увидел, тыкните меня носом пожалуйста, очень нужно.

oldfox
виртуальный принтер надо будет поставить по умолчанию, но когда отчеты надо печатать, я не могу постоянно менять принтер по умолчанию? или могу?

Спасибо за попытку помочь.
Ну если совсем лень смотреть исходный код, то вот пример:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
LOCAL m.loListener, m.lcFRX

*-- Открываем таблицу Orders
USE IN SELECT('Orders')
USE ADDBS(HOME()) + 'Samples\Northwind\Orders'
m.lcFRX = ADDBS(HOME()) + 'Samples\Solution\Europa\EmployeesMD.FRX'
loListener = CREATEOBJECT('TiffListener')
loListener.TargetFileName = 'MyReport.tif'
loListener.QuietMode      = .T.
ERASE (loListener.TargetFileName)
REPORT FORM (m.lcFRX) OBJECT loListener

DEFINE CLASS TiffListener AS ReportListener
	ListenerType =  2 
	TargetFileName = 'MyTIFF'
	lFirstReportInSet = .T.
	PROCEDURE AfterReport
		THIS.lFirstReportInSet = NOT (THIS.CommandClauses.NoPageEject)
	ENDPROC
	PROCEDURE OutputPage
		LPARAMETERS nPageNo, eDevice, nDeviceType, nLeft, nTop, nWidth, nHeight, nClipLeft, nClipTop, nClipWidth, nClipHeight

		#define OutputNothing - 1 
		#define OutputTIFF  101 
		#define OutputTIFFAdditive (OutputTIFF+ 100 )

		IF (nDeviceType == OutputNothing)
		     IF (nPageNo ==  1  AND this.lFirstReportInSet)
		        nDeviceType = OutputTIFF &&Первая страница - создаем новый файл
		     ELSE
		        nDeviceType = OutputTIFFAdditive && Продолжаем добавлять страницы
		     ENDIF
		     THIS.OutputPage(nPageNo, this.targetFilename, nDeviceType)
		     NODEFAULT
		ENDIF		
	ENDPROC
ENDDEFINE
С уважением, Алексей.
P.S. Обратите внимание, что TIFF формат в отличие от других графических форматов, поддерживает несколько страниц в одном файле. Класс TiffListener эту функциональность поддерживает
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36125033
Peisov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Tolik_
Если установить виртуальный принтер через который отчет в tiff файл загоняю, можно ли этому файлу задавать имя через фокс или принтер по умолчанию его назначает? И как разделить два принтера на компьютере, через один одни отчеты печатать, через другой другой отчет, для формирование из него файла?

Вот сложности на ровном месте.

Во-первых - при печати отчета можно вызывать окно диалога, в котом выбирать на какой принтер печатать.

Во вторых - если я еще чего помню - была команда для установки принтера "по умолчанию" для фокса. SET PRINTER
...
Рейтинг: 0 / 0
Вопрос по отчетам
    #36125106
_Tolik_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Aleksey-K

Огромное спасибо Алексей, по беглому просмотру данного кода это то что нужно, сейчас буду пробовать.


Всем большое спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Вопрос по отчетам
    #37804797
vl2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте!
Можно как то влиять на свойства создаваемого tif файла?
Конкретно- нужен черно-белый tif, для отправки факсом.
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по отчетам
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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