Le Forum des Utilisateurs Sage

Bonsoir,

Je développe un projet en VB.NET afin d'effectuer une sorte de copie régulière de la base de production vers une autre base SQL. Je vous passe la raison de ce développement, ce n'est pas le sujet de mon post.

J'ai le code suivant :

Code: Tout sélectionner

(...)
Do While i <= ClientsNew.Count

                        TiersCourant = baseCommercialeConsult.CptaApplication.FactoryClient.Create()
                        TiersRech = baseCommercialeProd.CptaApplication.FactoryClient.ReadNumero(ClientsNew.Item(i))

                        With TiersCourant
                            .CT_Num = TiersRech.CT_Num
                            .CT_Intitule = TiersRech.CT_Intitule
                            .CompteGPrinc = TiersRech.FactoryTiersCompteG()
                            .WriteDefault()
                        End With

                        i = i + 1
                    Loop
(...)


Donc en l'état actuel je copie un à un les éléments du client de la première base vers l'autre puis je Write.
Je n'arrive pas à dire tout simplement que TiersCourant est égal à TiersRech. J'obtient dans tous mes tests un message d'erreur.

Voyez-vous un moyen ?

Merci d'avance !

Bonjour,

Tu ne peux pas dire qu'un objet d'une base est égal à un objet d'une autre base.

D'ailleurs pour la même raison, il y a une erreur dans ton code :

Code: Tout sélectionner

With TiersCourant
       .CompteGPrinc = TiersRech.FactoryTiersCompteG()
End With


Il faut écrire :

Code: Tout sélectionner

.CompteGPrinc = baseCommercialeProd.CptaApplication.FactoryCompteG.ReadNumero(TiersRech.CompteGPrinc.CG_Num)


En gros tu dois dire que le compte général est le compte de la base de destination dont le numéro de compte est le même que le numéro de compte du tiers de la base d'origine.

En admettant que tu as vérifié que le compte général existe dans la base de destination au préalable.

Je me suis penché sur la copie d'une base vers une autre (paramètres, tiers, articles, ...) la tâche est fastidieuse.