Importation tous les lignes des articles de la table(WinDev)

Bonjour à tous,
Je viens de terminer la création un document sous SAGE avec les objets métier, j’ai connecté la base et aussi j’ai réussi l’ajout d’un seul article.
Mais, mon problème c’est que j’ai réalisé d’un ajout d’une seule ligne mais je n’ai pas réussi l’importation de toutes les lignes de la table.

Voici le code de cette création :

*Code d'initialisation du projet

Code: Tout sélectionner

Sablier(Vrai)
// initialisation
autGC est un OLE "Objets100.Cial.Stream.3" // OM V3
autCpta est un OLE "Objets100.Cpta.Stream.3" // OM V3
// Initialisation des bases
autGC>>name = "C:\OM_SAGE\Exemple 2.gcm"// Adresse de la base GC
// Initialisation des infos de connexion CPTA
autCpta>>name = "C:\OM_SAGE\Exemple.mae"// Adresse de la base GC
autCpta>>loggable>>username = "" // Utilisateur de connexion
autCpta>>loggable>>userpwd = "" // Mot de passe de la connexion
// Association de la base GC et CPTA
autGC>>CptaApplication = autCpta
// Initialisation des infos de connexion GC
autGC>>loggable>>username = "" // Utilisateur de connexion
autGC>>loggable>>userpwd = "" // Mot de passe de la connexion
// Ouverture de la base GC (la compta est aussi ouverte)
autGC>>open() // Ouverture de la base

// Variables
PautListeClients, Client est un objet Automation dynamique
PautCreateDocument, Document sont des objets Automation dynamique
PautListeArticle, Article sont des objets Automation dynamique
PautFicheClients, FClient est un objet Automation dynamique
PautNVDocDevis est un objet Automation dynamique
PautLigneCDEArticle est un objet Automation dynamique
Sablier(Faux)


*Code d'initialisation de la fenêtre de saisie (avec un combo clients)

Code: Tout sélectionner

Sablier(Vrai)
PautListeClients = autCpta>>factoryClient>>list()
Ind est entier = 0
Maxi est un entier = PautListeClients>>count()
Jauge(Ind,Maxi)
TableSupprimeTout(COMBO_BL)
POUR Ind = 1 A Maxi
   Client = PautListeClients>>item(Ind)
   ListeAjoute(COMBO_BL,Client>>CT_Num+TAB+Client>>ct_intitule+TAB+Client>>CompteGPrinc>>CG_intitule)   
   Jauge(Ind,Maxi)
FIN
Jauge()

Sablier(Faux)
*Code d'initialisation de la fenêtre de saisie (avec un combo clients)
Sablier(Vrai)
PautListeClients = autCpta>>factoryClient>>list()
Ind est entier = 0
Maxi est un entier = PautListeClients>>count()
Jauge(Ind,Maxi)
TableSupprimeTout(COMBO_BL)
POUR Ind = 1 A Maxi
   Client = PautListeClients>>item(Ind)
   ListeAjoute(COMBO_BL,Client>>CT_Num+TAB+Client>>ct_intitule+TAB+Client>>CompteGPrinc>>CG_intitule)   
   Jauge(Ind,Maxi)
FIN
Jauge()

Sablier(Faux)


*Code du bouton de création d'un devis de même fenêtre

Code: Tout sélectionner

Sablier(Vrai)
// Affectation client
NumTiers est une chaîne = ExtraitChaîne(COMBO_BL[COMBO_BL],1)
// Affectation article
NumArticle est une chaîne = ExtraitChaîne(TABLE_BL.Col_Column1[TABLE_BL],1)
// Création de l'objet métier devis
PautNVDocDevis = autGC>>FactoryDocumentVente>>CreateType(0)
// Affectation du client au devis
PautNVDocDevis>>SetDefaultClient(autCpta>>FactoryTiers>>ReadNumero(NumTiers))
// Affectation n° piece
PautNVDocDevis>>SetDefaultDO_Piece()
// Création de l'entete du devis
PautNVDocDevis>>WriteDefault
// Création de l'OM ligne de document
PautLigneCDEArticle = PautNVDocDevis>>FactoryDocumentLigne>>Create
// Affectation de l'article, le deuxieme parametre est la quantité
PautLigneCDEArticle>>SetDefaultArticle(autGC>>FactoryArticle>>ReadReference(NumArticle),Col_Column3)
// Ecriture de la ligne
PautLigneCDEArticle>>WriteDefault
Sablier(Faux)
Info("L'enregistrement est bien passé")

Je veux connais ou est le problème ?

Merci Pour votre coopération.

Bonjour,

Je ne vois pas de boucle pour créer plusieurs lignes article dans le devis ...
Ou alors, il faut créer la pièce, puis la modifier pour ajouter les lignes.
Il y a maintenant un process pour créer les pièces, mais là, ça ne s'explique pas par un simple post.
Se référer à la doc livrée avec le Kit dev. Objets métiers.

Cordialement,