OM, Renseigner code acheteur sur document d'achat
Posté: Mar 11 Fév 2020 19:42
Bonjour à tous,
Lors de la création/modification d'un document d'achat, je cherche comment renseigner le code collaborateur (code acheteur), j'ai un peu tout testé et je tourne en rond, avec mDoc.collaborateur
Extrait de mes codes,
En ajout:
En mise à jour:
A savoir que dans le rsEntet, le No_Co du collaborateur est disponible, le sNCol et sPCol ne sont là qu'a titre de test et debug.
Merci par avance a celui qui peux me mettre sur la bonne voie. Cdt, Renaud.
VBA Access / SAGE Gescom et OM 100c V3, SQL
Lors de la création/modification d'un document d'achat, je cherche comment renseigner le code collaborateur (code acheteur), j'ai un peu tout testé et je tourne en rond, avec mDoc.collaborateur
Extrait de mes codes,
En ajout:
- Code: Tout sélectionner
Dim db As Database, rsEntet As Recordset
Dim mProcessDoc As IPMDocument
Dim mDoc As IBODocumentAchat3
Dim sNCol$, sPCol$
sNCol = "DUPONT"
sPCol = "Xavier"
Set db = CurrentDb()
Set rsEntet = db.OpenRecordset("tmpBcEntet", dbOpenDynaset)
Set mProcessDoc = BaseCial.CreateProcess_Document(DocumentTypeAchatCommandeConf)
Set mDoc = mProcessDoc.Document
' Copie Entet BC dans SAGE
mDoc.SetDefaultFournisseur BaseCial.CptaApplication.FactoryFournisseur.ReadNumero(rsEntet("NTiers"))
mDoc.DO_Ref = rsEntet("RefCommande")
mDoc.DO_Coord(1) = rsEntet("NCmd")
mDoc.DO_Date = rsEntet("DatCmd")
mDoc.DO_DateLivr = rsEntet("DatLivre")
'mDoc.Collaborateur.SetDefault BaseCial.CptaApplication.FactoryCollaborateur.ReadNomPrenom(sNCol, sPCol)
'mDoc.Collaborateur ???
If mProcessDoc.CanProcess Then
mProcessDoc.Process
AddBCFourn = True
End If
End If
En mise à jour:
- Code: Tout sélectionner
Dim db As Database, rsEntet As Recordset
Dim mDoc As IBODocumentAchat3
Dim sNPiece$
Dim sNCol$, sPCol$
sNCol = "DUPONT"
sPCol = "Xavier"
Set db = CurrentDb()
Set rsEntet = db.OpenRecordset("tmpBcEntet", dbOpenDynaset)
sNPiece = rsEntet("NPIece")
If BaseCial.FactoryDocumentAchat.ExistPiece(DocumentTypeAchatCommandeConf, sNPiece) Then
' MAJ de l'entet
Set mDoc = BaseCial.FactoryDocumentAchat.ReadPiece(DocumentTypeAchatCommandeConf, sNPiece)
mDoc.DO_Ref = rsEntet("RefCommande")
mDoc.DO_Coord(1) = rsEntet("NCmd")
mDoc.DO_DateLivr = rsEntet("DatLivre")
'mDoc.Collaborateur.Nom = sNCol
'mDoc.Collaborateur.PreNom = sPCol
'mDoc.Collaborateur ???
mDoc.Write
A savoir que dans le rsEntet, le No_Co du collaborateur est disponible, le sNCol et sPCol ne sont là qu'a titre de test et debug.
Merci par avance a celui qui peux me mettre sur la bonne voie. Cdt, Renaud.
VBA Access / SAGE Gescom et OM 100c V3, SQL