[WD15] Passer des paramètres à Crystal report XI - WINDEV 2024 - Forums développeurs

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil | Messages récents | Connexion | | Français

Accueil → WINDEV 2024 → [WD15] Passer des paramètres à Crystal report XI

[WD15] Passer des paramètres à Crystal report XI

Débuté par Hfra, 30 juil. 2010 18:51 - 7 réponses

Hfra

Posté le 30 juillet 2010 - 18:51

Bonjour,
J'essaye en vain depuis quelques temps de passer des paramètres à Crystal reports XI.
Voici mon code:
autMyApp est un objet Automation "CrystalRuntime.APPLICATION.11"
pautLeRapport est un objet Automation dynamique
pautLeRapport =autMyApp>>openreport("\\srv\Report\report.rpt")

FEN_CERTIF.ActiveX1>>ReportSource=pautLeRapport

//Passage des paramètres fixes du rapport
CRParamDefs est un CRAXDRT..ParameterFieldDefinitions
CRParamDef est un CRAXDRT..ParameterFieldDefinition
CRParamDefs = pautLeRapport>>ParameterFields
pautLeRapport >>CRParamDef(0)>>SetCurrentValue(500)
/ le problème est ci-dessus comment déclarer les variables paramètres pour un activex ?

FEN_CERTIF.ActiveX1>>ViewReport

Voilà si quelqu'un d'aventure a déjà effectuer ce genre de travail qu'il n'hésite pas ;-D. C'est pas faute de chercher sur le net mais il faut bien dire qu'on ne trouve pas grand chose ...
D'avance un tout grand merci

Signaler

Vous devez être connecté pour évaluer ce message

Jean-Guy Bourbonniere

Posté le 30 juillet 2010 - 19:31

Voici le code que j'utilise pour passer les paramètres à un rapport Crystal.
En espérant que cela t'aidera...

JG

pautOappli est un objet Automation dynamique = allouer un objet Automation "CrystalRuntime.Application"
pautOreport est un objet Automation dynamique = allouer un objet Automation "CrystalRuntime.Report"
pautCRXParamDef est un objet Automation dynamique = allouer un objet Automation "CrystalRuntime.ParameterValue"

pautOreport = pautOappli>>OpenReport (ComplèteRep(gsRepertoireRapports) + gsNomRapport)

//********************************************************************************************
//** Prenez note que les noms de paramètres sont sensibles à la case (majuscule/minuscule **
//********************************************************************************************

// On détermine les parametres en fonction des rapports.
POUR x = 1 _A_ pautOreport>>ParameterFields>>Count

SELON gsNomRapport
//******************** Produit ******************
CAS rpProduits :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?CIP}" : gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Produit_Select()
POUR i = 1 _A_ (ChaîneOccurrence(gsListeTemp, ";") + 1)
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(ExtraitChaîne(gsListeTemp, i, ";"))
FIN
FIN

//**************** Évolution des catégories *************
CAS rpEvolutionCategorie :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?Annee}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Periode}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
FIN

//**************** Fiche producteur *************
CAS rpFicheProducteur :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?Langue}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue("FR")
CAS "{?Fournisseur}" : gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Fournisseur_Select()
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?Année}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Période}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
CAS "{?Semaine}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Semaine))
CAS "{?Conversion}" : SI FEN_Parametres_Rapport.SEL_Unite = 1 ALORS
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Vrai) // Bouteille
SINON
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Faux) // Caisse
FIN
FIN

//**************** Fiche produit *************
CAS rpFicheProduit :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?Langue}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue("FR")
CAS "{?Fournisseur}" : gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Fournisseur_Select()
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?CIP}" : SI FEN_Parametres_Rapport.INT_Tous[FEN_Parametres_Rapport.csProduit] ALORS
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue("0")
SINON
gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Produit_Select()
POUR i = 1 _A_ (ChaîneOccurrence(gsListeTemp, ";") + 1)
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(ExtraitChaîne(gsListeTemp, i, ";"))
FIN
FIN
CAS "{?Année}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Période}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
CAS "{?Semaine}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Semaine))
CAS "{?Conversion}" : SI FEN_Parametres_Rapport.SEL_Unite = 1 ALORS
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Vrai) // Bouteille
SINON
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Faux) // Caisse
FIN
FIN

//**************** Inventaire - Sommaire *************
CAS rpInventaire :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?TauxTaxe}" : gsListeTemp = FEN_Parametres_Rapport.SAI_Tx_Taux
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?TauxVin}" : gsListeTemp = FEN_Parametres_Rapport.SAI_Vin_taux
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?TauxBiere}" : gsListeTemp = FEN_Parametres_Rapport.SAI_Bière_Taux
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?Année}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Période}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
CAS "{?Semaine}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Semaine))
FIN

//**************** Inventaire par territoire *************
CAS rpInventTerritoire :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?TauxTaxe}" : gsListeTemp = FEN_Parametres_Rapport.SAI_Tx_Taux
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?TauxVin}" : gsListeTemp = FEN_Parametres_Rapport.SAI_Vin_taux
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?TauxBiere}" : gsListeTemp = FEN_Parametres_Rapport.SAI_Bière_Taux
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(gsListeTemp))
CAS "{?Representant}" : SI FEN_Parametres_Rapport.INT_Tous[FEN_Parametres_Rapport.csRepresentant] ALORS
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(0)
SINON
gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Rep_Select()
POUR i = 1 _A_ (ChaîneOccurrence(gsListeTemp, ";") + 1)
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(ExtraitChaîne(gsListeTemp, i, ";")))
FIN
FIN
CAS "{?Année}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Période}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
CAS "{?Semaine}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Semaine))
FIN

CAS rpReferences :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?Système}" : gsListeTemp = FEN_Parametres_Rapport.TABLE_Select_References.COL_System[1]
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(gsListeTemp)
CAS "{?Type}" : gsListeTemp = FEN_Parametres_Rapport.TABLE_Select_References.COL_Type[1]
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(gsListeTemp)
FIN

CAS rpRevueCategorie :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?Annee}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Periode}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
CAS "{?Fournisseur}" : gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Fournisseur_Select()
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(gsListeTemp)
CAS "{?Categorie}" : gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Categorie_Select()
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(gsListeTemp)
FIN

CAS rpVentesSommaire :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?Année}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Période}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
FIN

CAS rpVentesTerritoire :
SELON pautOreport>>ParameterFields>>item(x)>>name
CAS "{?Année}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Annee))
CAS "{?Période}" : pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(FEN_Parametres_Rapport.COMBO_Periode))
CAS "{?Representant}" : SI FEN_Parametres_Rapport.INT_Tous[FEN_Parametres_Rapport.csRepresentant] ALORS
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(0)
SINON
gsListeTemp = FEN_Parametres_Rapport.FCT_Liste_Rep_Select()
POUR i = 1 _A_ (ChaîneOccurrence(gsListeTemp, ";") + 1)
pautOreport>>ParameterFields>>item(x)>>AddCurrentValue(Val(ExtraitChaîne(gsListeTemp, i, ";")))
FIN
FIN
FIN
FIN
FIN

POUR i = 1 _A_ pautOreport>>Database>>Tables>>Count
pautOreport>>Database>>Tables>>Item[i]>>SetLogOnInfo("JDE", "","SAQSTATS","R3qu3t3")
END

//pautoreport>>EnableParameterPrompting = faux

AX_ActiveX1>>ReportSource = pautOreport
//AX_ActiveX1>>EnableExportButton = Vrai

AX_ActiveX1>>ViewReport

Signaler

tjfromparis

Posté le 02 août 2010 - 11:12

j'ai bosser il y a quelques temps sur la techno de BO (afin de sap maintenant)

j'ai laisser tomber car ca demande beaucoup de temps que je n'avais pas.

je pense que tu irais beaucoup plus vite si tu passais par les assemblys .net pour generer ton etat.

Signaler

Hfra

Posté le 02 août 2010 - 11:15

Alors là , que dire, je n'osais pas en espérer autant, C'est tout à fait ce que je cherche.

Un tout tout grand Merci !!!

PS pourquoi ne l'ai-je pas demandé avant, ça fait bien une semaine que je cherche !!

Je ne sais pas si je l'ai dit mais MERCI

Signaler

ligneel

Posté le 05 avril 2011 - 19:26

Jean-Guy bonjour, peut me dir que dll il faut installer pour que ton code fonetionne. D'avance merci
Jean-Guy Bourbonniere a écrit dans le message de news <073b1b625685af283bf554ec8a83da5f@news.pcsoft> :

Signaler

AlainC

Posté le 19 juillet 2011 - 19:05

Bonjour

Merci pour le code mais petite question importante pour moi, comment fais-tu pour appliqué ton SetLogOnInfo a un sous rapport, j'ai trouvé des forums dans VB qui parle de Sections, ReportObjects, OpenSubreport.... mais je n'arrive pas a l'appliquer à cause du CRAXDRT qui n'est pas installé sur mon poste

Merci encore

ligneel wrote in news message <5abd62d82fd186a1c2f41bff402a15c9@news.pcsoft>:

Signaler

vaimiti

Membre enregistré
1 message

Posté le 29 février 2012 - 17:52

Bonjour,

J'ai trouvé ta demande sur le forum Windev et je voulais savoir si tu avais trouvé la solution à ton message car je n'arrive pas à lancer Crystal 11 à partir de windev. J'ai le message 'Erreur 80043AE3 : Enregistrement TLV invalide.'
alors que j'arrive à le lancer à partir de VB6.

Hfra a écrit dans le message de news <aecfe99302fa6eb63eb7761b5be8f711@news.pcsoft> :

Signaler

madyson350

Membre enregistré
1 message

Posté le 19 décembre 2012 - 01:50

je souhaiterai exporter un etat crystal report 11 vers excel données uniquement depuis mon application windev 17.
je charge le rapport et ensuite le code pour l'exporter vers excel données uniquement
Merci , c'est urgent

Signaler

→ Revenir à WINDEV 2024