1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| 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 |
Partager