Konu: FoxyPreviewer 1.95
FoxyPreviewer 1.95 yayınlandı ,
artık FoxyPreviewer i mevcut report previewer in yerine gecirerek tek bir kodla kullanabilme sansınız var
Do LocFile("FoxyPreviewer.App")
Report Form YourReport.Frx Prev
Ancak simdilik bu secenekte raporu dosya olarak kaydetmek isterseniz PNG , email olarak gondermek isterseniz TIFF eklentili olarak gonderebiliyorsunuz. ilerleyen versiyonlarda bu yolla kullanimda diger secenekler de aktif olacak.
Tum ozelliklerinin toolbarda yer aldıgı bicimde kullanmak isterseniz asagida her 2 secenek icin hazirlamis oldugum ornekteki gibi kullanabilirsiniz.
mevcut versiyonda ;
-artık ayarlar bir tablo uzerinde tutuluyor ve toolbardan istenildigi anda degistirilebiliyor ( dil , mail ayarlari vs )
-rapor icinde arama yapılabiliyor (find next - prior vs )
yakında eklenecek ozellikler
- Justify
- fax gonderimi
asagidaki ornek her 2 kullanim icindir.
*- Custom report with FoxyPreiwer with native ways ( with all of features )
DoTestCustomReport()
*- quick report with FoxyPreiwer ( only can save Img Type Png , send e-mail -> with ext.TIFF )
*DoTestQuickReport()
Function DoTestQuickReport
m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer' Where .T. Into Cursor CrsTemp NOFILTER"
Do Locfile("SYSTEM.APP")
Do Locfile("FOXYPREVIEWER.APP")
Generate_Temp_Frx(m.cSQL,.T.)
Endfunc
Function DoTestCustomReport
Set Procedure To Locfile("FoxyPreviewerCaller.prg") Additive
m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer' Where .T. Into Cursor CrsTemp NOFILTER"
*Do Locfile("SYSTEM.APP")
*Do Locfile("FOXYPREVIEWER.APP")
Generate_Temp_Frx(m.cSQL,.F.)
Local loReport As "FoxyPreviewerCaller" Of "FoxyPreviewerCaller.Prg"
loReport = Createobject("FoxyPreviewerCaller")
With loReport As ReportHelper
.AddReport(Addbs(Sys(2023)) + [SampleFoxyP.frx], "RANGE 1,1 NODIALOG")
.cTitle = "FoxyPreviewer Report custom title"
.lShowSetup = .T.
.RunReport()
Do Case
Case .lPrinted
Messagebox("Report was printed !",64, "Report status")
Case .lEmailed
Messagebox("Report was sent to email, with the attached file: " + ;
CHR(13) + .cDestFile,;
64, "Report status")
Case .lSaved
Messagebox("Report was saved as file:" + Chr(13) + .cDestFile,;
64, ;
"Report status")
=OpenFile(.cDestFile)
Otherwise
Messagebox("Report Preview was closed without saving or printing",48, "Report status")
Endcase
Endwith
Endfunc
Function Generate_Temp_Frx
* Author Soykan OZCELIK - 01.08.2010
*-- usage
* m.cSQL = "Select cust_id,company,contact,title,city from _samples + '\data\customer' Where .T. Into Cursor CrsTemp NOFILTER"
* Generate_Temp_Frx(m.cSQL,.t.) && .f. , .t. default
*---------
Lparameters tcSQL,tlPreview
Local cReport
m.cReport = Addbs(Sys(2023)) + [SampleFoxyP] &&Sys(2015)
*!* &tcSQL
Execscript(m.tcSQL)
If Set("Safety")='ON'
Set Safety Off
Endif
Create Report (m.cReport) From Dbf("CrsTemp")
If m.tlPreview
Repo Form (m.cReport) Preview &&max 8 fields in portrait, max 11 columns in landscape view
Endif
Use In 0
Endfunc
Procedure OpenFile(tcFileName)
Declare Integer ShellExecute ;
IN SHELL32.Dll ;
INTEGER nWinHandle,;
STRING cOperation,;
STRING cFileName,;
STRING cParameters,;
STRING cDirectory,;
INTEGER nShowWindow
Return ShellExecute(0, "open", m.tcFileName, "", "", 1)
Endproc