Avec les Objets Métiers sous Windev 19, je n'arrive pas à créer un bon de commande ou un devis.
J'ai toujours la même erreur qui revient :
Vous accédez au membre Automation WriteDefault.
En tentant d'invoquer la méthode <WriteDefault> ou de lire la propriété <WriteDefault>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur FFFFFFFF : Erreur inconnue [28999] !'J'ai beau chercher dans tous les forums possibles et éplucher la DOC SAGE des OM je ne trouve pas. Si quelqu'un a une idée.
Voici mon code pour la création d'un Bon de Commande
- Code: Tout sélectionner
//****************************************************************************************************
// INFORMATIONS DE CONNEXION TEST
//****************************************************************************************************
SAI_BaseGEST est une chaîne = "C:\dev\OBJETS_METIERS_SAGE\TEST.gcm"
SAI_Login est une chaîne = "test"
SAI_MotPasse est une chaîne = "test"
SAI_BaseCPTA est une chaîne = "C:\dev\OBJETS_METIERS_SAGE\TEST.mae"
//****************************************************************************************************
// CONNEXION AUX BASES COMPTA ET GESCOM
//****************************************************************************************************
autGest est un OLE "Objets100.Cial.Stream.3" //Objets100.Cial.Stream.3
autGest>>name = SAI_BaseGEST
autGest>>loggable>>username = SAI_Login
autGest>>loggable>>userpwd = SAI_MotPasse
autCpt est un OLE "Objets100.Cpta.Stream.3"
autCpt>>name = SAI_BaseCPTA
autCpt>>loggable>>username = SAI_Login
autCpt>>loggable>>userpwd = SAI_MotPasse
autGest>>CptaApplication = autCpt
autGest>>open() // Ouverture de la base GC (la compta est aussi ouverte)
//****************************************************************************************************
// ECRIRE DANS LA GESCOM UN NOUVEAU BON DE COMMANDE
//****************************************************************************************************
//RECUPERATION CLASSE CLIENT DANS pautClient A L'AIDE DU sNumClient
pautClient est un objet Automation dynamique
sNumClient est une chaine = "CLTS0001"
pautClient = autCpt>>FactoryTiers>>ReadNumero(sNumClient)
//Déclaration des objets métiers
pautBonDeCommande est un objet Automation dynamique
// Création de l'objet métier BON DE COMMANDE
pautBonDeCommande = autGest>>FactoryDocumentVente>>CreateType(10)
// Affectation du client au BC
pautBonDeCommande>>SetDefaultClient(pautClient)
// Affectation n° piece
pautBonDeCommande>>SetDefaultDO_Piece()
//Affectation d'une référence
pautBonDeCommande>>DO_Ref = "123456789"
// Création de l'entete du Bon de Commande
pautBonDeCommande>>WriteDefault()
autGest>>close()