Mois est un entier
i est un entier
i2 est un entier
Rubrique_recherche est une chaîne
Fic_rubrique est une chaîne
HExécuteRequête(REQ_ticket_année,hModifieFichier,sai_année)
POUR TOUT REQ_ticket_année SUR REQ_ticket_année.Mois
Mois=REQ_ticket_année.Mois
HLitRecherche(Client,IDClient,REQ_ticket_année.IDClient)
HLitRecherchePremier(Détailticket,NumTicket,REQ_ticket_année.NumTicket)
TANTQUE H.Trouve
HLitRecherche(Article,code,Détailticket.code)
SI H.Trouve ALORS
HLitRecherche(Famille,Famille,Article.Famille)
SI Article.Famille2<>"" ALORS
i2=TableauCherche(Tableau_rubrique,tcLinéaire,Article.Famille2,1)
Rubrique_recherche=Tableau_rubrique[i2]
Nom_fichier.mois=REQ_ticket_année.Mois
Nom_fichier.Catégorie=Client.Sexe
Nom_fichier.rubrique_recherche = Client.Code_Postal
HAjoute(Nom_fichier)
FIN
FIN
HLitSuivant(Détailticket)
FIN
FIN
HLitRecherche(Famille,Famille,Article.Famille)
SI Article.Famille2<>"" ALORS
i2=TableauCherche(Tableau_rubrique,tcLinéaire,Article.Famille2,1)
//trace(REQ_ticket_année.NumTicket+" "+REQ_ticket_année.Mois+" "+Tableau_rubrique[i2])
Rubrique_recherche=Tableau_rubrique[i2]
Nom_fichier.mois=REQ_ticket_année.Mois
Nom_fichier.Catégorie=Client.Sexe
Nom_fichier.rubrique_recherche = Client.Code_Postal
HAjoute(Nom_fichier)
FIN
FIN
HLitSuivant(Détailticket)
FIN
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=19&topic_id=6136&post_id=24558