- kmeilleur
- Nombre de messages : 4
Ville : St-Jérôme
Date d'inscription : 10/02/2011
Lister le nom des vendeur
Jeu 10 Fév 2011 - 13:45
Bonjour,
je fais une interface qui va chercher ces données dans les bases de données d'Acomba. Je programme en VB.Net et je ne réussi pas à aller chercher le nom des vendeurs et des territoires. J'ai réussi avec plusieurs autres champs mais ceux-ci reste vide. Voici l'exemple pour le nom des vendeur.
Public Function FillVendeurName() As List(Of String)
'Déclarations
Dim erreur As Long
Dim NomVendeurInt As New AcoSDK.SalesRep
Dim Compteur As Long
Dim i As Long
Dim Lst_NomVendeur As New List(Of String)
'Vider la liste à l'écran
Lst_NomVendeur.Clear()
Lst_NomVendeur.Add("")
'Déterminer le nombre total de fiches de vendeur
Compteur = NomVendeurInt.NumCards
'Si le nombre de fiches a été obtenu
If Compteur <> -1 Then
'Consulter les fiches une à une dans le fichier des clients
For i = 1 To Compteur
erreur = NomVendeurInt.GetCard(i)
If erreur = 0 Then
'Affichage des vendeurs non détruit seulement
If NomVendeurInt.SRStatus = 0 Then
Lst_NomVendeur.Add(NomVendeurInt.SRName)
End If
Else
MsgBox("Erreur: " & Acomba.GetErrorMessage(erreur))
End If
Next i
End If
Return Lst_NomVendeur
End Function
Merci pour votre aide!!
Kevin Meilleur
je fais une interface qui va chercher ces données dans les bases de données d'Acomba. Je programme en VB.Net et je ne réussi pas à aller chercher le nom des vendeurs et des territoires. J'ai réussi avec plusieurs autres champs mais ceux-ci reste vide. Voici l'exemple pour le nom des vendeur.
Public Function FillVendeurName() As List(Of String)
'Déclarations
Dim erreur As Long
Dim NomVendeurInt As New AcoSDK.SalesRep
Dim Compteur As Long
Dim i As Long
Dim Lst_NomVendeur As New List(Of String)
'Vider la liste à l'écran
Lst_NomVendeur.Clear()
Lst_NomVendeur.Add("")
'Déterminer le nombre total de fiches de vendeur
Compteur = NomVendeurInt.NumCards
'Si le nombre de fiches a été obtenu
If Compteur <> -1 Then
'Consulter les fiches une à une dans le fichier des clients
For i = 1 To Compteur
erreur = NomVendeurInt.GetCard(i)
If erreur = 0 Then
'Affichage des vendeurs non détruit seulement
If NomVendeurInt.SRStatus = 0 Then
Lst_NomVendeur.Add(NomVendeurInt.SRName)
End If
Else
MsgBox("Erreur: " & Acomba.GetErrorMessage(erreur))
End If
Next i
End If
Return Lst_NomVendeur
End Function
Merci pour votre aide!!
Kevin Meilleur
- hench
- Nombre de messages : 163
Date d'inscription : 30/12/2008
Fiche d'Entreprise
Nom de l'entreprise:
Re: Lister le nom des vendeur
Lun 14 Fév 2011 - 11:35
Si la compagnie est ouverte correctement et qu'il y a effectivement des vendeurs dans cette société Acomba, cela devrait correctement afficher.
Quel est le résultat de cette fonction ?
La variable Erreur reçoit-elle une valeur ?
Quel est le résultat de cette fonction ?
La variable Erreur reçoit-elle une valeur ?
- kmeilleur
- Nombre de messages : 4
Ville : St-Jérôme
Date d'inscription : 10/02/2011
Re: Lister le nom des vendeur
Lun 14 Fév 2011 - 12:29
Merci de m'avoir posé cette question, ce qui arrive c'est que lorsque je vérifie le nom des vendeur il commence avec le 9999 et celui-ci n'a pas de nom et j'ajoute une valeur vide avant. Ce qui a pour effet d'avoir une valeur vide et une null une à la suite de l'autre et il ne prend pas les valeurs suivante. J'ai mis un nom au vendeur 9999 et le reste de la liste est apparu.
- hench
- Nombre de messages : 163
Date d'inscription : 30/12/2008
Fiche d'Entreprise
Nom de l'entreprise:
Re: Lister le nom des vendeur
Lun 14 Fév 2011 - 12:55
Cool, bonne semaine!!!
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum