FindCustomer() procédure avec connexion

[bonneaupierrelouis]

Bonjour à tous, j'ai écris à certains d'entre-vous en privé pour espérer une réponse plus rapide, mais je demande tout de-même à toute la communauté, peut-être certain ont eu le même problème que moi.

Je copie/colle des exemples de l'aide AcoSDK fournis avec Acomba et je convertis le tout en langage "uptodate" car c'est en vb6 si j'ai bien compris...

Présentement je me bloque à un problème, je sais pas si vous pouvez éclairer ma lanterne..

Je suis capable de me connecter à la bd avec un usager, toutefois, par la suite, je voudrais effectué une opération X. Est-ce qu'il y a d'autres procédure à effectuer?

1-Se connecter
2-X....
3-Faire mon opération

Il est écrit nul part l'ordre à respecter..

Je me connecte comme ceci:

Code:


Sub ConnectionUser()
   Dim Acomba
   Set Acomba = Server.CreateObject("AcoX0125.AcombaX")
   Dim UserIndex
   Dim AcombaPath
   Dim CompanyPath
   Dim MotDePasse
   Dim Error
   Dim Exist
   Set UserIndex = Server.CreateObject("AcoX0125.UserKey")
   CompanyPath = "C:\F1000.dta\DemoSDK_FR"
   AcombaPath  = "C:\Aco_SDK"
   MotDePasse  = "DEMO"
   Exist = Acomba.CompanyExists(CompanyPath)
   If Exist <> 0 Then
   Error = Acomba.OpenCompany(AcombaPath, CompanyPath)
   If Error = 0 Then
   UserIndex.XBlankKey
   UserIndex.UsNumber = "Supervisor"
   Error = UserIndex.XFindKey(1)
   If Error = 0 Then
   Error = Acomba.LogCurrentUser(UserIndex.UsCardPos, MotDePasse)
   If Error = 0 Then
   Response.Write("Connexion de l'usager complétée avec succès.")
   Else
   Response.Write("Erreur1 : " & Acomba.GetErrorMessage(Error))
   End If
   Else
   Response.Write("Erreur2 : " & Acomba.GetErrorMessage(Error))
   Error = Acomba.CloseCompany
   If Error <> 0 Then
   Response.Write("Erreur3 : " & Acomba.GetErrorMessage(Error))
   End If
   End If
   Else
   Response.Write("Erreur4 : " & Acomba.GetErrorMessage(Error))
   End If
   Else
      Response.Write("Dossier de la société invalide.")
   End If
   'Set Acomba = nothing
End Sub


Sa fonctionne bien. Ensuite <% call ConnectionUser() %>

Je voudrais call ma fonction FindCustomer, mais le message d'erreur que j'obtiens, après recherche, semble être parce que ma connexion n'est pas établis et c'est pour cela qu'il ne sait pas ce qu'est mon customer Int...

Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'CustomerInt'

Ma fonction FindCustomer:

Code:


Sub FindCustomer()
   'Déclarations
   Dim CustomerInt
   Dim Erreur
   Dim CardPos
   'Numéro de l'index des clients classés selon leur numéro
   Const noIndex = 1
   
   'Assignation de la valeur saisie dans la zone de texte
   'Txt_Number à la propriété PKey_CuNumber
   CustomerInt.PKey_CuNumber = 2335522
   'Recherche et consultation du client dans l'index
   Erreur = CustomerInt.FindKey(noIndex, True)
   
   If Erreur = 0 Then
   
   'CardPos du client à consulter
   CardPos = CustomerInt.Key_CuCardPos
   'Affichage de certaines informations
   response.write(CustomerInt.CuName)
   response.write(CustomerInt.CuAddress)
   
   Else
   
   response.write("Erreur: " & Acomba.GetErreurMessage(Erreur))
   
   End If
   
End Sub


[bonneaupierrelouis]

Set CustomerInt= Server.CreateObject("AcoSDK.Customer")  

[bonneaupierrelouis]

Pour ceux qui veulent avoir la solution complète :

Code:


'Sub ConnectionUser()
'Déclaration des interfaces
Dim AcoSDKInt
Set AcoSDKInt = Server.CreateObject("AcoSDK.AcoSDKX")
Dim Acomba
Set Acomba = Server.CreateObject("AcoSDK.AcombaX")
Dim UserInt
Set UserInt = Server.CreateObject("AcoSDK.User")

'Déclaration des variables
Dim Version
Dim CompanyPath
Dim AcombaPath
Dim MotDePasse
Dim Exist
Dim Error
'Obtenir la version la plus récente du SDK
Version = AcoSDKInt.VaVersionSDK
'Démarrer le SDK avec la version obtenue
Error = AcoSDKInt.Start(Version)
'Si le SDK est bien démarré
If Error = 0 Then   
'Chemin d'accès de la société à ouvrir
CompanyPath = "C:\F1000.dta\DemoSDK_FR"
'Chemin d'accès des cartes d'enregistrement d'Acomba
AcombaPath = "C:\Aco_SDK"
'Mot de passe de l'usager
MotDePasse = "DEMO"
'Vérification de l'existence de la société à ouvrir
Exist = Acomba.CompanyExists(CompanyPath)
If Exist <> 0 Then
'Ouverture de la société Demo
Error = Acomba.OpenCompany(AcombaPath, CompanyPath)
If Error = 0 Then
'Recherche de l'usager "supervisor" pour trouver
'son CardPos
UserInt.PKey_UsNumber = "Supervisor"
Error = UserInt.FindKey(1, False)
If Error = 0 Then
'Connexion de l'usager "supervisor" avec son mot de passe
Error = Acomba.LogCurrentUser(UserInt.Key_UsCardPos, MotDePasse)
If Error = 0 Then
response.write("Connexion de l'usager complétée avec succès.")
Else
response.write("Erreur: " & Acomba.GetErrorMessage(Error))
End If
Else
response.write("Erreur: " & Acomba.GetErrorMessage(Error))
End If
Else
response.write("Erreur: " & Acomba.GetErrorMessage(Error))
End If
Else
response.write("Dossier de la société invalide")
End If 
Else
response.write("Erreur: " & Acomba.GetErrorMessage(Error))
End If
'End Sub

Sub FindCustomer()
   'Déclarations
   Dim CustomerInt
   Set CustomerInt = Server.CreateObject("AcoSDK.Customer")
   Dim Erreur
   Dim CardPos
   'Numéro de l'index des clients classés selon leur numéro
   Const noIndex = 1
   
   'Assignation de la valeur saisie dans la zone de texte
   'Txt_Number à la propriété PKey_CuNumber
   CustomerInt.PKey_CuNumber = 2335522
   'Recherche et consultation du client dans l'index
   Erreur = CustomerInt.FindKey(noIndex, True)
   
   response.write(Erreur)
   If Erreur = 0 Then
   'CardPos du client à consulter
   CardPos = CustomerInt.Key_CuCardPos
   'Affichage de certaines informations
   response.write(CustomerInt.CuName)
   response.write(CustomerInt.CuAddress)
   
   'Else
   'response.write("Erreur: " & Acomba.GetErreurMessage(Erreur))
   End If
   
End Sub
%>


[Contenu sponsorisé]