// Déclaration
cArt est un objet automation dynamique // IBOArticle3
cCateg est un objet automation dynamique // IBPCategorieTarif
cNewArtCateg est un objet automation dynamique // IBOArticleTarifCategorie3
cArtCateg est un objet automation dynamique // IBOArticleTarifCategorie3
cIBICollection est un objet automation dynamique

// Lecture de l'article
cArt = cBaseCial>>FactoryArticle>>ReadReference("ARTTEST");

// Modification du prix de vente d'une catégorie tarifaire déjà existante
// Récupération de la liste des catégorie tarifaire de l'article
cIBICollection = cArt>>FactoryArticleTarifCategorie.List()

// Lecture des catégories
POUR i=1 _A_ cIBICollection>>Count
// Récupération de l'objet
cArtCateg = cIBICollection>>Item[i]

// Test sur le libellé de la catégorie
SI SansEspace(cArtCateg>>CategorieTarif.CT_Intitule) <> "Tarif Public" ALORS CONTINUER

// Modification du Prix
ArtCateg>>Prix = 100

// Enregistrement
ArtCateg>>WriteDefault()

FIN

// Création d'un tarif article pour une catégorie tarifaire
// Lecture de la catégorie
cCateg = cBaseCial>>FactoryCategorieTarif>>ReadIntitule("Tarif EXPORT")

// Création de l'objet
cNewArtCateg = cArt>>FactoryArticleTarifCategorie>>Create()
cNewArtCateg>>SetDefault()

// Alimentation
cNewArtCateg>>CategorieTarif = cCateg
cNewArtCateg>>Prix = 110

// Enregistrement
cNewArtCateg>>WriteDefault()