WDForge.org - Forums

affecter dynamiquement une rubrique de fichier

Sujet: affecter dynamiquement une rubrique de fichier
par scarface38 sur 7/3/2009 0:11:41

bonsoir
j'ai créer un fichier temporaire avec hdécritrubrique (voir mon post précedent).
j'ai la rubrique Catégorie qui est nommée en "Dur"
Par contre, je recupère tout le fichier famille pour en faire des rubriques.
quand j'affecte une rubrique crée en "Dur" : Nom_fichier.Catégorie=Client.Sexe
cela fonctionne bien

par contre, pour les autres, ca ne fonctionne pas. rien ne se passe. voir mon code ci dessous.

je regarde du coté des indirections mais ne maitrise pas du tout la chose.

quelqu'un a deja fait la meme chose ?
merci d'avance

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