Je viens de me mettre à la table Hiérarchique. Afin de tester le fonctionnement, je me suis servi de l'analyse et des fichiers de l'exemple CRM livré avec WinDev 11.
But du test :
Afficher dans la table Hiérarchique la liste des lignes de commandes par commande et par client.
Résultat :
Code :
nIndiceParent est un entier
nIndiceFils est un entier
nIndiceProd est un entier
POUR TOUT CLIENT SUR NumClient
nIndiceParent = TableAjouteLigne(TABLEH_TableHierarchique1,CLIENT.Civilité+" "+CLIENT.NomClient)
// Affichage pour chaque client la liste de ses commandes
POUR TOUT COMMANDE AVEC NumClient = CLIENT.NumClient
nIndiceFils = TableAjouteFils(TABLEH_TableHierarchique1,nIndiceParent,"Commande n° : " +COMMANDE.NumCommande)
POUR TOUT LIGNECDE AVEC NumCommande = COMMANDE.NumCommande
// Recherche du libellé du produit
HLitRecherche(PRODUIT,Reference,LIGNECDE.Référence)
nIndiceProd = TableAjouteFils(TABLEH_TableHierarchique1,nIndiceFils,PRODUIT.LibProd+" "+LIGNECDE.Référence,LIGNECDE.Quantité,LIGNECDE.PrixVente)
FIN
FIN
FIN
TableEnrouleTout(TABLEH_TableHierarchique1)
Look de la table plutôt agréable. L'utilisation des fonctions est simple.
Il est possible de modifier les images enroulées et déroulées grâce aux propriétés ..ImageEnroulée et ..ImageDéroulée.
NB : Voici le code pour mettre des images dans l'entête des colonnes.
TABLEH_TableHierarchique1.COL_Colonne1..Titre = gImage("01058-16-5.png")+"Clients /"+gImage("VST13340-16-5.png")+" Cde /"+gImage("01389-16-5.png")+" LigneCde"
Possibilité d'utiliser gStylo pour écrire dans une autre couleur.