OpenCo (erreur SDK) version AComba demo

[qtruong]

Salut
Quand j'ai utilisé la fonction <> pour connecter au Acomba
CompanyPath = "C:\F1000.dta\DemoSDK_FR"
AcombaPath = "C:\Aco_SDK"
MotDePasse = "DEMO"
UserIndex.UsNumber = "Supervisor"
J'ai eu erreur message <<> dans cette fonction <>
merci à vous

[qtruong]

Quand j'ai utilisé la fonction openCo pour connecter au Acomba
CompanyPath = "C:\F1000.dta\DemoSDK_FR"
AcombaPath = "C:\Aco_SDK"
MotDePasse = "DEMO"
UserIndex.UsNumber = "Supervisor"
J'ai eu erreur message  : Défaillance irrémédiable (Exception de HRESULT : 0x8000FFFF (E_UNEXPECTED) dans cette fonction
iError = Acomba.FindKey(UserIndex, 1)
merci à votre aide

[gregcoco]

au lieu de UserIndex.UsNumber = "Supervisor"
essaye plutot avec
UserIndex.PKey_UsNumber= "Supervisor"

[simonlabdes]

salut!

j'ai la même erreur! et je ne peux pas faire MyUserIndex.PKey_Usernumber, cette propriété n'Existe pas!

Code:


        'Chemin d'accès de la société à ouvrir
        CompanyPath = "J:\F1000.dta\test"
     
        'Chemin d'accès des cartes d'enregistrement d'MyAcomba
        AcombaPath = "j:\Fortune"

        dim MyAcomba as New AcoX0127.AcombaX
        dim MyUserIndex As New AcoX0127.UserKey

        'Vérification de l'existence de la société à ouvrir
        Exist = MyAcomba.CompanyExists(CompanyPath)
        If Exist <> 0 Then

            'Ouverture de la société Demo
            MyError = MyAcomba.OpenCompany(AcombaPath, CompanyPath)
            If MyError = 0 Then

                'Recherche de l'usager "Denise" pour trouver
                'son CardPos
                MyUserIndex.UsNumber = "supervisor"

                'Mot de passe de l'usager 
                MotDePasse = "test"

                MyError = MyAcomba.FindKey(MyUserIndex, 1)    <-- VB plante ici "Défaillance irrémédiable...blablbabla"


note intéressante, le même code marche très bien en Delphi, mais pas en VB.NET (sous Visual Studio 2010)

HELP!

[bassem102]

Salut,

est-ce que quelqu'un a corrigé ce problème ?
car j'ai le même erreur et je ne trouve pas de solution pour le corriger.

Merci.

[Majid_QC]

Function OpenCo(ByVal CompanyPath As String, ByVal AcombaPath As String, ByVal strAcombaUser As String, ByVal strAcombaPass As String) As Boolean
Dim flagCo As Boolean = False
Dim UserInt As New AcoSDK.User
Dim Version As Long = AcoSDKInt.VaVersionSDK
Dim UserName As String = strAcombaUser
Dim MotDePasse As String = strAcombaPass
Dim Exist, Erreur As Long

Erreur = AcoSDKInt.Start(Version)
If Erreur = 0 Then
Exist = Acomba.CompanyExists(CompanyPath)
If Exist <> 0 Then
Erreur = Acomba.OpenCompany(AcombaPath, CompanyPath)
If Erreur = 0 Then
'Recherche de l'usager pour trouver son CardPos
UserInt.PKey_UsNumber = UserName
Erreur = UserInt.FindKey(1, False)
If Erreur = 0 Then
'Connexion de l'usager avec son mot de passe
Erreur = Acomba.LogCurrentUser(UserInt.Key_UsCardPos, MotDePasse)
If Erreur = 0 Then
flagCo = True
Else
MsgBox("Erreur: " & Acomba.GetErrorMessage(Erreur))
End If
Else
MsgBox("Erreur: " & Acomba.GetErrorMessage(Erreur))
End If
Else
MsgBox("Erreur: " & Acomba.GetErrorMessage(Erreur))
End If
Else
MsgBox("Dossier de la société invalide")
End If
Else
MsgBox("Erreur: " & Acomba.GetErrorMessage(Erreur))
End If
Return flagCo

End Function

[Contenu sponsorisé]