Le Forum des Utilisateurs Sage

Bonjour, je ne sais pas si ma question peut être posée dans cette section mais je vais essayer.
Je suis en train de reporter un développement qui a été fait en VB.NET en Windev, dans le projet, je fais appel à un web service qui a été implémenté en interne, il a été développé à l'aide de la ligne 1000 de SAGE par des collègues (personnellement, je ne connais rien de la ligne 1000, uniquement en ligne 100), et je rencontre justement des problèmes pour faire appel à une méthode, erreur disant qu'il n'y a pas de méthode qui utilise des paramètres, dans la version en VB.NET, il n'y a aucun soucis.

Code en VB.NET :

Code: Tout sélectionner

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

Quand je met ce bout de code en windev:

Code: Tout sélectionner

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

J'ai le message d'erreur suivant : Aucune opération 'executer' avec 3 paramètre(s) n'a été trouvée.

Si vous voulez voir plus en détail le problème que je rencontre, je met à disposition le lien vers la wsdl ici

Pour faire vos tests :

Code: Tout sélectionner

_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é

Merci

J'ai trouvé la solution à mon problème:

Code: Tout sélectionner

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

Je me suis inspiré de cette documentation : http://doc.pcsoft.fr/fr-FR/?3086001&product=WD