stfiche est une structure
id est une entier
qte est une réel
Val_Unit est un monétaire
Val_ligne est un monétaire //qte*Val_Unit
FIN

Procedure Best(moMvaleur est un monétaire,tabLeaudetailsfichebase est un tableau de stfiche)


tabLeaudetailsfiche est un tableau de stfiche

//TAF


RENVOYER tabLeaudetailsfiche

CArticle est une Classe
PRIVÉ
m_pkId_Article est entier sur 8
m_saDésignation est une chaîne
m_moPrixArticle est monétaire
m_nQuantité est entier
//Val_Ligne se calcule donc n'a rien à faire dans la sructure/classe
//car une modification de la quantité oblige à refaire le calcul (si on y pense)
//Ici, Val_Ligne est obtenue par ValeurCommandeArticle().et aurait pu être omise,
//Le nouveau plafond étant calculé via la formule moPlafond=moPlafond-(m_nQuantité*:m_moPrixArticle)
FIN

Procedure Constructeur(pkId est entier sur 8,saDésignation est chaîne,moPrix est monétaire)
//Syntaxe 1
:m_pkId_Article=pkId
:m_saDésignation=saDésignation
:m_moPrixArticle=moPrix

Procedure Constructeur()
//Syntaxe 2

Procedure PUBLIQUE p_pkId_Article() : entier sur 8 octets

RENVOYER m_pkId_Article
Procedure PUBLIQUE p_pkId_Article(pkValeur est un entier sur 8 octets)

m_pkId_Article=pkValeur
Procedure PUBLIQUE p_moPrixArticle() : monétaire

RENVOYER m_moPrixArticle
Procedure PUBLIQUE p_moPrixArticle(moValeur est un monétaire)

m_moPrixArticle=moValeur
Procedure PUBLIQUE p_saDésignation() : chaîne

RENVOYER m_saDésignation
Procedure PUBLIQUE p_saDésignation(saValeur est une chaîne)

m_saDésignation=saValeur
Procedure PUBLIQUE p_nQuantité() : entier

RENVOYER m_nQuantité
Procedure PUBLIQUE p_nQuantité(nValeur est un entier)

m_nQuantité=nValeur

//Méthode de travail
FONCTION PUBLIQUE ValeurCommandeArticle() :monétaire

RENVOYER :m_moPrixArticle*:m_nQuantité

Procedure QuantitéMax(moPlafond est monétaire)
//moPlafond est global donc sa valeur sera répercutée dans le membre appelant

SI (moPlafond>=p_moPrixArticle) ALORS //l'article vaut moins cher que le plafond
m_nQuantité=PartieEntière((moPlafond)/:p_moPrixArticle)
moPlafond=moPlafond-:ValeurCommandeArticle() //Le nouveau plafond correspond à l'ancien moins le total des achats de l'article
FIN

CCommande est une Classe
PRIVÉ
m_tabCommandeArticle est tableau de CArticle
FIN

//Méthode principale
Procedure Optimisation(moPlafond est monétaire)
nIndice est un entier
moNouveauPlafond est monétaire

TableauTrie(m_tabCommandeArticle,ttMembre,"-m_moPrixArticle")

moNouveauPlafond=moPlafond
POUR nIndice = 1 _À_ :NbArticle
//Calcule de la quantité d'achat possible pour l'article en cours (celui qui à ce moment vaut le plus cher)
m_tabCommandeArticle[nIndice]:QuantitéMax(moNouveauPlafond)
FIN

//A ce moment, il reste un peu d'argent mais pas assez pour acheter un article (le moins cher) en plus.
//On va tenter d'ajouter un article dont le prix est le plus bas et vérifier que nous ne dépassons pas le plafond fixé + 0,3%
Ajustement(moPlafond)

:Méthodes annexe
Procedure NouvelArticle(clUnArticle est un CArticle)
TableauAjoute(:m_tabCommandeArticle,clUnArticle)

FONCTION PRIVÉE TotalCommande() :monétaire
nIndice est un entier
moTotal est un monétaire

POUR nIndice=1 _À_ :m_tabCommandeArticle..Occurrence
moTotal+=:m_tabCommandeArticle[nIndice]:ValeurCommandeArticle
FIN

RENVOYER moTotal

Procedure PRIVÉE Ajustement(moPlafond)

m_tabCommandeArticle[:NbArticle]:p_nQuantité++
SI :TotalCommande()>moPlafond*1.03 ALORS //C'est la cas Épouse X, ça dépasse
//On revient à l’ancienne quantité
m_tabCommandeArticle[:NbArticle]:p_nQuantité--
FIN

Procedure PUBLIQUE NbArticle()
RENVOYER :m_tabCommandeArticle..Occurrence

clUnArticle est CArticle
clUneCommande est CCommande

<BLOC Initialisation exemple>
clUnArticle=allouer un CArticle(1,"Art 1",37)
clUneCommande.NouvelArticle(clUnArticle)

clUnArticle=allouer un CArticle(2,"Art 2",49)
clUneCommande.NouvelArticle(clUnArticle)

clUnArticle=allouer un CArticle(3,"Art 3",12)
clUneCommande.NouvelArticle(clUnArticle)

clUnArticle=allouer un CArticle(4,"Art 4",25)
clUneCommande.NouvelArticle(clUnArticle)
<FIN>

clUneCommande.Optimisation(1561)

POUR TOUT clArticle de clUneCommande:p_tabCommandeArticle
TraceConstruit("%1%4%2%4%3",clArticle:p_saDésignation,clArticle:p_moPrixArticle,clArticle:p_nQuantité,TAB)
FIN

Procedure PUBLIQUE p_tabCommandeArticle()

RENVOYER m_tabCommandeArticle

SI moPlafond<>0 ALORS //Parfois, ça tombe juste
:Ajustement(moPlafond)
FIN