Discussion :

[Invité]

Bonjour, ma question va peut être paraitre très simple, pourtant, je ne comprends pas d'où vient mon erreur.
Je suis en train de reporter un dev qui a été fait en VB.NET sous windev, je bloque en ce qui concerne l'appel d'une méthode d'un web service.

Code vb :

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

1
2
3
Dim oWs As New WS_PEBDialogue.TWSPEBDialoguePEB
Public oMessageRetour As New WS_PEBDialogue.TWSPEBMessage
oMessageRetour = oWs.executer(oRemise, oEntete, oTotal)

Ce que j'ai mis en windev:

Code :

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

1
2
_MessageRetour est un TWSPEBMessage
_MessageRetour=TWSPEBDialoguePEB.Executer(_Remise,_EnTete,_Total)

Erreur retournée : Aucune opération 'executer' avec 3 paramètre(s) n'a été trouvée.

Le web service que j'utilise a été fait à l'aide de la ligne 1000 de SAGE, quand j'intègre le fichier wsdl dans le projet, voici comment il se présente:


Merci

[dsr57]

Bonjour

dans la description de ton WebService executer est avec un 'e' minuscule, as tu essayé avec cette ligne :

Code :

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

1
2
3
 
_MessageRetour est un TWSPEBMessage
_MessageRetour=TWSPEBDialoguePEB.executer(_Remise,_EnTete,_Total)

Bon dev

[Invité]

Bonjour

dans la description de ton WebService executer est avec un 'e' minuscule, as tu essayé avec cette ligne :

Bizarrement, dans l'intellisense, il me propose 'executer ' tout en minuscule, et après, windev change la casse du 1er caractère, à croire que windev ne m'aime pas :/

PS: en faisant :

Code windev :

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

ExécuteCode("_MessageRetour=TWSPEBDialoguePEB.executer(_Remise,_EnTete,_Total)")

J'ai un nouveau message d'erreur : La procédure 'executer' est inconnue

[jurassic pork]

hello,
Executer n'a pas l'air d'être une méthode statique, as-tu essayé :

Code :

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

1
2
3
4
 
oWs est un "WS_PEBDialogue.TWSPEBDialoguePEB"
_MessageRetour est un TWSPEBMessage // dynamique
_MessageRetour=oWs.Executer(_Remise,_EnTete,_Total)

?
Ami calmant, J.P

[Invité]

hello,
Executer n'a pas l'air d'être une méthode statique, as-tu essayé :

Code :

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

1
2
3
4
 
oWs est un "WS_PEBDialogue.TWSPEBDialoguePEB"
_MessageRetour est un TWSPEBMessage // dynamique
_MessageRetour=oWs.Executer(_Remise,_EnTete,_Total)

?
Ami calmant, J.P

Sous Visual Studio, quand tu intègres dans un projet un fichier WSDL, tu as la possibilité de donner un nom personnalisé de ton service, contrairement à Windev, dans mon cas, le nom qui a été donné est WS_PEBDialogue.

Pour tester ce webservice, je le met à disposition via ce lien :
https://www.dropbox.com/s/5nvfftyzse..._NEW.wsdl?dl=0

Code windev :

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
39
40
41
42
43
44
_Remise est un TWSPEBRemise
_Remise.codeFichier="PER - N34L100035 - 18/10/2015 18:00:18"
_Remise.codeFormat="PER-002-42105-USD""
_Remise.commentaire=""
_Remise.dateGeneration="20151018"
_Remise.dateReception="20151018"
_Remise.nomFichier="C:\PERU\N34L100035.TXT en date du 18/10/2015"
 
_EnTete est un TWSPEBEnteteRemise
_EnTete.adresseAutrePersonne=""
_EnTete.adresseDO="xxxxxxxxxxx"
_EnTete.BIC="BCPLPEPL"
_EnTete.codeAgence="194"
_EnTete.codeBanque="002"
_EnTete.codeControle="00"
_EnTete.codeDO="123345678901"
_EnTete.codeOperation="56"
_EnTete.codeRegistre="03"
_EnTete.dateEmission="181015"
_EnTete.dateEnvoi="181015"
_EnTete.detailCompte="O"
_EnTete.IBAN="11111"
_EnTete.nomAutrePersonne=""
_EnTete.nomDO="xxxxxxx"
_EnTete.numeroCompte="123456789"
_EnTete.villeDO="511"
_EnTete.zoneD="1"
_EnTete.zoneF7=""
_EnTete.zoneG=""
 
_Total est un TWSPEBTotalRemise
_Total.codeDO="12345678901"
_Total.codeOperation="56"
_Total.codeRegistre="08"
_Total.montantTotal="000000061198"
_Total.nombreBeneficiaire ="00000013"
_Total.nombreLigneFichier = "13"
_Total.zoneD = "1"
_Total.zoneE = ""
_Total.zoneF4 = ""
_Total.zoneG = ""
 
_MessageRetour est un TWSPEBMessage
_MessageRetour=Executer(_Remise,_EnTete,_Total) //bug : aucune opération 'executer' avec 3 paramètre(s) n'a été trouvé

[jurassic pork]

hello,
tu peux aussi essayer un truc du genre :

Code :

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

1
2
3
4
5
oWs est un TWSPEBDialoguePEB:executer
oWs.aEntete = _EnTete
oWs.aRemise = _Remise
oWs.aTotal = _Total
_MessageRetour est un TWSPEBMessage     = oWs.executer()

Ami calmant, J.P

[Invité]

hello,
tu peux aussi essayer un truc du genre :

Code :

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

1
2
3
4
5
oWs est un TWSPEBDialoguePEB:executer
oWs.aEntete = _EnTete
oWs.aRemise = _Remise
oWs.aTotal = _Total
_MessageRetour est un TWSPEBMessage     = oWs.executer()

Ami calmant, J.P

Décidément, je n'ai pas pas de chance avec ce web service, j'ai l'erreur suivante : Propriété interdite


Edit: j'ai pu y arriver, comme quoi, s'inspirer de la doc disponible à l'adresse suivante m'a bien aidé : http://doc.pcsoft.fr/fr-FR/?3086001&product=WD

Code windev :

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

1
2
3
4
5
6
7
l_parametresWS est un executer
l_parametresWS.aEntete = _EnTete
l_parametresWS.aRemise = _Remise
l_parametresWS.aTotal = _Total
l_response est un executerResponse=executer(l_parametresWS)
 
_MessageRetour est un TWSPEBMessage =l_response.Result