Discussion :

[DorraAmri]

Bonjour à tous,

j'ai exécuté une requête pour m'afficher les commandes à condition le NumERP=0
J'aimerais afficher le résultat de cette requête dans un fichier csv, càd, afficher les commandes ayant le même NUM dans un fichier csv avec un nom de fichier comme: COMMANDE_NUM_DATESYS()_HEURESYS().csv .
voici le résultat de la requête:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
sFileName est une chaîne
numFichier est un entier 
ResEcrit est un booléen = Vrai
 
SI HExécuteRequête(RQ_CDEP,hRequêteDéfaut) ALORS 			
	POUR TOUT RQ_CDEP  
		sFileName=pDossierFromAgix+"COMMANDE_"+ RQ_CDEP.NUM +"_"+DateSys()+"_"+HeureSys+".csv"
		numFichier = fOuvre(sFileName,foLectureEcriture+foCréationSiInexistant)
		ResEcrit = fEcritLigne(numFichier,"NUM_CDE"+";"+"Partenaire"+";" +"CODECLIENT"+";"+"DATEC"+";"+"REMISE"+";"+"CODEARTICLE"+";"+"SOUS-REF1"+";"+"SOUS-REF2"+";"+"QTE"+";"+"UV"+";"+"NUM-SERIES"+";"+"NUM-COLIS")
					SI numFichier = -1 ALORS 
						Erreur(ErreurInfo(errMessage))
					SINON
						ResEcrit = fEcritLigne(numFichier,RQ_CDEP.NUM +";"+ RQ_CDEP.Partenaire +";"+ RQ_CDEP.CODECLIENT+";"+ RQ_CDEP.DATEC+";"+RQ_CDEP.REMISE+";"+RQ_CDEP.CODEARTICLE+";"+" "+";"+" "+";"+RQ_CDEP.QTE+";"+RQ_CDEP.UM)		
						SI ResEcrit = Faux ALORS Erreur(ErreurInfo(errMessage))       					       
				 	FIN		
	FIN   
FIN

[Voroltinquo]

Bonjour,
Pourquoi ne pas tout bêtement utiliser HExporteCSV ?

[tbc92]

La solution de Voroltinquo : Tu identifies dans un premier temps tous les fichiers que tu devras créer, puis pour chaque fichier, tu exécutes une requête, et tu exportes le résultat dans un CSV.

L'autre solution, c'est ce que tu as tenté d'implémenter, tu exécutes une requête, tu lis ligne à ligne le résultat de cette requête, et tant que c'est le même identifiant, tu écris dans le même fichier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
hexecuterequete(...)
hlitpremier(...)
Tantque pas hendehors
   oldCle = marequete.cle
   sfichier = ... + oldcle + '.CSV'
   nf = fcree( sfichier)
   trace ( " ouverture de " + sFichier ) 
   tantque pas hendehors et marequete.cle = oldcle
      sLigne = ... 
      trace ( "écriture de "+sLigne)
      fecritLigne(nf, sLigne)
      hLitSuivant()
   fin
   fferme(nf)
   trace ( " fermeture de " + sFichier ) 
fin

Avec Pour Tout, tu vas galérer pour construire une boucle de ce type.
J'ai même mis des instructions 'Trace' pour que tu puisses voir tout ce qui se passe, dans quel ordre.

[DorraAmri]

Je vous remercie pour votre réponse tbc92, mais que voulez-vous dire par cette ligne oldCle = marequete.cle ?

[tbc92]

Pour adapter à tes notations : OldCle = RQ_CDEP.NUM.

Ici, je pars du principe que la lecture des enregistrements est triée sur cette colonne RQ_CDEP.NUM : on reçoit toutes les lignes concernant un certain fichier csv, puis toutes les lignes d'un autre CSV.

En relisant ton code, je pense que tu peux corriger ainsi :
Remplacer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numFichier = fOuvre(sFileName,foLectureEcriture+foCréationSiInexistant)

par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numFichier = fOuvre(sFileName,foLectureEcriture+foCréationSiInexistant+foAjout)

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

numFichier = fOuvre(sFileName,foEcriture+foCréationSiInexistant+foAjout)

[DorraAmri]

Problème résolu. je vous remercie pour vos aide.