PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEVWEBDEV and WINDEV Mobile

Home → WINDEV 2024 → crystal reports exportation
crystal reports exportation
Started by Patricia M, Sep., 03 2004 2:43 PM - 2 replies
Posted on September, 03 2004 - 2:43 PM
Je dois lancer un état Crystal depuis Windev et l'exporter sous forme de PDF.
Pour le lancement c'est ok mais pour l'export, quelle est la valeur que je
dois affecter à PrintFileType ?
Dans le WDXView, cette valeur n'est pas indiquée. Peut-être impossible ?

Merci infiniment d'avance
Posted on September, 04 2004 - 1:37 AM
Donne moi ta procédure d'intégration de Crystal report et je vais à partir
de là te montrer comment exporter en pdf.
J'ai Crystall report 8.5 developpeu
"Patricia M" <p.maunas@procam.fr> wrote:


Je dois lancer un état Crystal depuis Windev et l'exporter sous forme de

PDF.
>Pour le lancement c'est ok mais pour l'export, quelle est la valeur que
je
dois affecter à PrintFileType ?
Dans le WDXView, cette valeur n'est pas indiquée. Peut-être impossible ?

Merci infiniment d'avance
Posted on September, 06 2004 - 12:20 PM
"Téophile" <lontsie@yahoo.com> wrote:


Donne moi ta procédure d'intégration de Crystal report et je vais à partir
de là te montrer comment exporter en pdf.
J'ai Crystall report 8.5 developpeu
"Patricia M" <p.maunas@procam.fr> wrote:


Je dois lancer un état Crystal depuis Windev et l'exporter sous forme de
PDF.

Pour le lancement c'est ok mais pour l'export, quelle est la valeur que
je

dois affecter à PrintFileType ?
Dans le WDXView, cette valeur n'est pas indiquée. Peut-être impossible

?

Merci infiniment d'avance


J'ai créé une classe cl_print qui me permet de lancer un état avec # paramètres
et dans laquelle j'ai déclaré une fonction f_print :

PROCEDURE of_print(ax_crystal, ...
LOCAL as_DSN is a string,...
LOCAL as_NomRPT is TO string,...
LOCAL ai_Dest is TO int,...
LOCAL as_PrinterName is TO string,...
LOCAL as_PrintFileName is a string, ...
LOCAL ai_PrintFileType is a int,...
LOCAL ai_NbCopie is TO int,...
LOCAL as_SelectionFormula is TO string,...
LOCAL aa_StoredProcParam)

LOCAL
li_i is TO int

IF NOT fFileExist(as_NomRPT) THEN
Info("Fichier inexistant"+ as_NomRPT)
RESULT -1
END

ax_crystal>>ProgressDialog = True
ax_crystal>>ReportFileName=as_NomRPT
ax_crystal>>DiscardSavedData = True
ax_crystal>>Connect = as_DSN ax_crystal>>RetrieveStoredProcParams()
IF aa_StoredProcParam[1] <> "" THEN
FOR li_i = 0 TO Dimension(aa_StoredProcParam)-1
ax_crystal>>StoredProcParam(li_i)=aa_StoredProcParam[li_i+1] // tableau
de paramètres
END
END

ax_crystal>>SelectionFormula=as_SelectionFormula
ax_crystal>>CopiesToPrinter = ai_NbCopie
ax_crystal>>Destination = ai_Dest
IF as_PrintFileName <> "" THEN
ax_crystal>>PrintFileName= as_PrintFileName
ax_crystal>>PrintFileType= ai_PrintFileType
END
ax_crystal>>Action=1
RESULT ax_crystal>>recordsselected



Dans ma fenêtre, j'ai un ActiveX Crystal Report Control qui se nomme "ax_crystalcontrol".
Je déclare un objet lnv_print de type cl_Print (inv_print is a object cl_print)
et je fais :
lnv_print:of_print(...
ax_crystalcontrol, ... ls_DSN,... ls_rptname,...
gi_crptToFile,...
ls_printername,...
ls_printfilename,...
??,...
1,...
"",...
la_StoredProcParam1)


Merci infiniment d'avance pour ton aide !!