Discussion :

[youl]

Bonjour,

Je créé des états avec crystal 9.
J'utilise le script "interactiveviewer.asp" que je modifie pour publier mes états.
J'arrive à me connecter à la base (oracle), à afficher mes états, et même à faire passer des paramètres à l'état.

Mais j'ai deux problèmes :
Il y à certains paramètres pour lesquels je voudrais laisser le choix à l'utilisateur (donc utilisation du formulaire standard crystal) et d'autre que je souhaite rendre non modifiables.

Pb : quand je ne passe pas tous les paramètres à l'états :

1 : le formulaire me redemande tous les params (y compris ceux déjà fournis)
2 : après avoir saisi des valeurs, on me redemande les params de connexion à la BD

J'espère que je suis suffisement claire (j'ai des doutes!),
Merci de votre aide!

[youl]

J'ai résolu le problème des params de connexion à la BD, alors au cas où qqu'un rencontre le même problème voilà mon pg :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
37
38
 
 
Dim objectFactory
Set objectFactory = CreateObject("CrystalReports.ObjectFactory.2")
 
Dim RptAppSession
set RptAppSession = objectFactory.CreateObject("CrystalReports.ReportAppSession")
RptAppSession.Initialize
 
Dim theReportName
theReportName = Request.Form("ReportName")
if theReportName = "" then theReportName = Request.QueryString("ReportName")
 
Dim ConInfo, ConInfos
Set ConInfos = ObjectFactory.CreateObject("CrystalReports.ConnectionInfos")
Set ConInfo = ObjectFactory.CreateObject("CrystalReports.ConnectionInfo")
 
ConInfo.UserName = "Login"
ConInfo.Password = "MdP"
ConInfos.Add ConInfo
 
Dim clientDoc
Set clientDoc = RptAppSession.CreateService("CrystalReports.ReportClientDocument")
ClientDoc.Open theReportName
ClientDoc.DatabaseController.Logon "Login","MdP"
ClientDoc.verifyDatabase
 
Dim viewer
Set viewer = objectFactory.CreateObject("CrystalReports.CrystalReportInteractiveViewer")
viewer.URI = "interactiveViewer.asp?ReportName=" + Server.URLEncode(theReportName)
viewer.ReportSource = clientDoc.ReportSource
Viewer.DatabaseLogonInfos = ConInfos
 
Dim BooleanSearchControl
Set BooleanSearchControl = objectFactory.CreateObject("CrystalReports.BooleanSearchControl")
BooleanSearchControl.ReportDocument = clientDoc
viewer.BooleanSearchControl = BooleanSearchControl
viewer.ProcessHttpRequest Request, Response, session

Par contre je n'ai toujours pas de solution pour mon problème de paramètre :

J'arrive à passer la valeur d'un paramètre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim TempParam
Set TempParam = objectFactory.CreateObject("CrystalReports.ParameterField")
ClientDoc.DataDefinition.ParameterFields.Item(0).CopyTo TempParam
TempParam.CurrentValues.Add "Valeur"
ClientDoc.DataDefController.ParameterFieldController.Modify ClientDoc.DataDefinition.ParameterFields.Item(0), TempParam

Mais quand mon état contient plusieurs paramètres, le formulaire crystal de saisie des paramètres me les redemande tous!

Si quelqu'un à une idée, je suis preneuse!!
Merci

[youl]

Bon, je continue mon monologue, dans l'espoir que ça finisse par interesser quelqu'un !

Déjà plus de précision : les états crystal sont publiés dans un Extranet à destination de clients. Ils ont donc tous un point commun : ils doivent contenir un paramètre (ou autre objet) avec le numéro de client, pour filtrer les données.

Je voudrais donc à l'ouverture de l'état :
1/ Que les données soit filtrées de façon invisible à l'utilisateur
2/ Que l'utilisateur puisse quand même modifier la valeur de certains paramètres (ex : bornes de dates, d'articles ...)

Apparamment les paramètres d'un état doivent tous être gérer de la même façon (soit tous initialisés ds les pg, soit tous passer par un formulaire) donc, je me suis dit qu'en utilisant un filtre pour mon code client et en laissant les autres params il n'y aurait plus de pb.
Eh ben si...

Voilà mon filtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
Dim Filter, FieldName, Operator, Value, FieldF, NewFilterItem, NewConstantValue
Set Filter = objectFactory.CreateObject("CrystalReports.Filter")
Filter.Name = "CodeClient"
Set NewFilterItem=ObjectFactory.CreateObject("CrystalReports.FieldRangeFilterItem")
Set NewConstantValue=ObjectFactory.CreateObject("CrystalReports.ConstantValue")
Set FieldF = FindFieldByName("MonChamp", ClientDoc)
NewConstantValue.Value = "Code"
NewFilterItem.Values.Add NewConstantValue
NewFilterItem.RangeField = FieldF
NewFilterItem.Operation = 1
Filter.FilterItems.Add NewFilterItem
ClientDoc.DataDefController.RecordFilterController.Modify Filter

Le filtre fonctionne, mais, le formulaire de saisie des paramètres n'apparaît plus, C'est un vrai casse tête!!
Please, help me!!

[L.nico]

Bonjour,
un paramètre pour crystal c'est un filtre(RecordSelectionFormula) qui contient une variable paramètre
qui engendre une demande de renseignement par formulaire(Valeur du paramètre).
Peut-être que ton nouveau filtre en écrasant l'ancien écrase également
cette procédure automatique.
Peut-être que ton filtre doit-etre ajouté à celui qui existe déjà ...
enfin c'est juste une idée.

[youl]

C'était une trés bonne idée, merci bcp!!