// Connexion à la base SAGE 100C
cBaseCIALInt est un objet OLE dynamique
cBaseCPTAInt est un objet OLE dynamique

cBaseCIALInt = allouer un objet OLE "Objets100c.Cial.Stream.1"
cBaseCPTAInt = allouer un objet OLE "Objets100c.Cpta.Stream.1"

cBaseCIALInt >>Name = SansEspace(sNomBase)
cBaseCIALInt >>Loggable>>UserName = SansEspace(sUserName)
cBaseCIALInt >>Loggable>>UserPwd = SansEspace(sUserPwd)

cBaseCPTAInt = cBaseCIALInt >>CptaApplication

cBaseCIALInt>>Open()

// Lecture d'un Tiers
cTiers est un objet automation dynamique

cTiers = cBaseCPTAInt >>FactoryTiers>>ReadNumero("CARAT")

BaseGestcom est un objet Automation "Objets100c.Cial.Stream.1" // Objet Métiers sage 100c
BaseCompta est un objet Automation "Objets100c.Cpta.Stream.1"

//Connexion
BaseGestcom>>name ="c:\testsql1.gcm" // Adresse de la base GC
// Initialisation des infos de connexion CPTA
BaseCompta>>name = "c:\testsql1.mae"
BaseCompta>>loggable>>username = "XXXX" // Utilisateur de connexion
BaseCompta>>loggable>>userpwd = "XXXXX" // Mot de passe de la connexion

// Association de la base GC et CPTA
BaseGestcom>>CptaApplication = BaseCompta
// Initialisation des infos de connexion GC
BaseGestcom>>loggable>>username = "XXXXX" // Utilisateur de connexion
BaseGestcom>>loggable>>userpwd = "XXXXX" // Mot de passe de la connexion
// Ouverture de la base GC (la compta est aussi ouverte)

BaseGestcom>>open() // Ouverture de la base

SI PAS BaseGestcom>>ISOpen ALORS

Erreur("Impossible de se connecter à la base de données Sage Gestcom")

FIN


//ajout d'un client

pautListeClients, pautClient est un objet Automation dynamique
pautListeContacts,pautContact est un objet Automation dynamique
pautRegelement est un objet Automation dynamique
pautSiteLivraison est un objet Automation dynamique
pautModeRegelement est un objet Automation dynamique
pautRepresentant est un objet Automation dynamique
pautListeRepresentant est un objet Automation dynamique
pautListeCategorieComptable est un objet Automation dynamique
// Création de l'objet métier
pautClient = BaseCompta>>Factoryclient>>Create
pautClient>>CT_num=CLIENTS_FOURNISSEURS.NoDeCompteGescom

pautClient>>Adresse>>Adresse=CLIENTS_FOURNISSEURS.Adresse_CF
pautClient>>Adresse>>CodePostal=CLIENTS_FOURNISSEURS.CodePostal
pautClient>>Adresse>>Complement=CLIENTS_FOURNISSEURS.ComplementAdresse
pautClient>>Adresse>>Ville=CLIENTS_FOURNISSEURS.Ville
pautClient>>Adresse>>Pays =CLIENTS_FOURNISSEURS.Pays

pautClient>>Telecom>>Telecopie=CLIENTS_FOURNISSEURS.Fax_CF
pautClient>>Telecom>>Telephone=CLIENTS_FOURNISSEURS.Telephone
pautClient>>Telecom>>EMail=CLIENTS_FOURNISSEURS.eMail_CF
pautClient>>Telecom>>Site=CLIENTS_FOURNISSEURS.SiteInternet

pautClient>>Ct_Intitule=CLIENTS_FOURNISSEURS.Intitule
pautClient>>Ct_facture=1
pautClient>>Ct_siret=CLIENTS_FOURNISSEURS.NoSiret
pautClient>>Ct_ape=CLIENTS_FOURNISSEURS.CodeNAF
pautClient>>CT_Identifiant =CLIENTS_FOURNISSEURS.NoIdentifiant

//tiers payeur
pautClient>>TiersPayeur=pautClient

pautClient>>CompteGPrinc=BaseCompta>>FactoryCompteG>>ReadNumero("411000")

pautClient>>Representant=RechercheRepresentant(EMPLOYES.NomEmploye,EMPLOYES.PrenomEmploye)

SI PAS BaseCompta>>Factoryclient>>Existnumero(CLIENTS_FOURNISSEURS.NoDeCompteGescom) ALORS

pautClient>>Writedefault
FIN

//Mode de reglement
pautModeRegelement=pautClient>>FactoryTiersReglement>>Create
pautModeRegelement>>Reglement=BaseCompta>>FactoryReglement>>readintitule(ValeurModeReglement)
pautModeRegelement>>JourTB(1)=COMBO_JourDeTombe
pautModeRegelement>>NbJour=COMBO_NbJours
// pautModeRegelement>>JourTB(1)=SAI_Jour_de_tombée
// pautModeRegelement>>NbJour=SAI_Nombre_de_jours
pautModeRegelement>>TRepart=1 //ReglementRepartitionTypeEquilib

// Const ReglementConditionTypeJour = 0
// Const ReglementConditionTypeMois = 2
// Const ReglementConditionTypeMoisCivil = 1

pautModeRegelement>>condition = 0
pautModeRegelement>>write


//Contact

pautContact=pautClient>>factorytierscontact>>create

SELON CONTACTS.Civilite

CAS "Mr" : pautContact>>civilite=ContactCiviliteMonsieur
CAS "Mme" : pautContact>>civilite=ContactCiviliteMadame
CAS "Mlle" : pautContact>>civilite=ContactCiviliteMademoiselle

FIN

pautContact>>Nom=Gauche(CONTACTS.Nom,35)
pautContact>>Prenom=Gauche(CONTACTS.Prenom,35)
pautContact>>Telecom>>telephone=CONTACTS.Telephone
pautContact>>Telecom>>telecopie=CONTACTS.Fax
pautContact>>Telecom>>Portable =CONTACTS.Portable
pautContact>>Telecom>>Email=CONTACTS.eMail

pautContact>>write

SI CONTACTS.ContactPrincipal ALORS
pautClient>>CT_Contact=CONTACTS.Nom+" "+CONTACTS.Prenom
pautClient>>write
FIN


//SITE DE LIVRAISON

//Liste des sites de livraison
//Attention au site de livraison créer automatiquement par Sage

pautListeSiteLivraison=pautClient>>FactoryclientLivraison>>list
NbSite est un entier = pautListeSiteLivraison>>count()
POUR i=1 À NbSite
pautSiteLivraisonCreeAutoDansGestcom=pautListeSiteLivraison>>item(i)
FIN
//création d'un site de livraison
pautSiteLivraison=pautClient>>FactoryclientLivraison>>create

pautSiteLivraison>>LI_Intitule=Gauche(SITES_LIVRAISON.Intitule,35)
pautSiteLivraison>>LI_Contact=Gauche(SITES_LIVRAISON.Contact,35)

pautSiteLivraison>>Adresse>>Adresse=Gauche(SITES_LIVRAISON.Adresse,35)
pautSiteLivraison>>Adresse>>CodePostal=SITES_LIVRAISON.CodePostal
pautSiteLivraison>>Adresse>>Complement=Gauche(SITES_LIVRAISON.ComplementAdresse,35)
pautSiteLivraison>>Adresse>>Ville=Gauche(SITES_LIVRAISON.Ville,35)

pautSiteLivraison>>Telecom>>EMail=Gauche(SITES_LIVRAISON.AdresseEMail,69)
pautSiteLivraison>>Telecom>>Telecopie=SITES_LIVRAISON.Fax
pautSiteLivraison>>Telecom>>Telephone=SITES_LIVRAISON.Telephone



pautSiteLivraison>>write

BaseGestcom>>Close
BaseCompta>>Close

pautGamStock est un objet automation dynamique

pautGamStock = autGC>>FactoryArticleDepot>>Create
pautGamStock>>Read()

cArt est un objet automation dynamique
cIBICollection est un objet automation dynamique
iNbLgn est un entier

// Récupération de la liste des articles
cIBICollection = cCxionCial>>FactoryArticle>>List

// Récupération du nombre de ligne
iNbLgn = cIBICollection>>Count

// Lecture des données
POUR iNumLigne=1 _À_ :iNbLgn
// Récupération de l'article
cArt = cIBICollection>>Item[iNumLigne]

// Affichage de la Référence et de la Désignation
Trace(cArt>>AR_Ref+" / "+cArt>>AR_Design)

FIN