Cu.EMail et CuPhoneNumber erreur

[bonneaupierrelouis]

Bonjour à tous, je me demandais quel était les bonnes propriétés à apeller, car celles-ci ne fonctionnent pas, le reste fonctionne très bien. Merci pour votre temps à tous !
Voici donc mon code :

Code:


Sub FindCustomer()
   Dim CustomerInt
   Set CustomerInt = Server.CreateObject("AcoSDK.Customer")
   Dim Erreur
   Dim CardPos
   Const noIndex = 1
   CustomerInt.PKey_CuNumber = 2335522
   Erreur = CustomerInt.FindKey(noIndex, True)
   'response.write(Erreur)
   If Erreur = 0 Then
   CardPos = CustomerInt.Key_CuCardPos
   response.write(CustomerInt.CuNumber & " ")
   response.write(CustomerInt.CuName & " ")
   'response.write(CustomerInt.CuEMail & " ")
   'response.write(CustomerInt.CuPhoneNumber & " ")
   response.write(CustomerInt.CuAddress & " ")
   response.write(CustomerInt.CuPostalCode & " ")
   response.write(CustomerInt.CuProvince)
   Else
   'response.write("Erreur: " & Acomba.GetErreurMessage(Erreur))
   End If
End Sub


-Pierre-Louis

[bonneaupierrelouis]

J'obtiens cette erreur actuellement :

Wrong number of arguments or invalid property assignment: 'CuEMail'

[bonneaupierrelouis]

J'ai réussis à trouver ma réponse sur un autre forum, alors voici donc la solution extraordinaire  

Code:


   response.write(CustomerInt.CuEMail(1) & " ")
   response.write(CustomerInt.CuPhoneNumber(1) & " ")


[Contenu sponsorisé]