Re: Parcours d'une requete source de données

Posté par Anonyme le 24/6/2005 11:59:58

Marequete est une Source de Données
HExécuteRequêteSQL(Marequete, "SELECT IDFAC, DateFacture, IDMOD_REG, ECHEANCE, Q_FAC, PrixTTC FROM Facture, Li_Fac where Facture.IDFAC=li_fac.IDFAC")

SI nomFic="" OU devise="" OU version="" ALORS
Info("Veillez renseigner les champs nom du fichier, version et devise SVP!!!")
RETOUR
FIN
SI fFichierExiste(fRepExe+nomFichier) ALORS
Message("le fichier du même nom a été déjà importé")
IdFichier = fCrée(fRepExe+nomFichier)
SINON
IdFichier = fCrée(fRepExe+nomFichier)
FIN
// Affichage du message d'erreur si la création n'a pas été effectuée
SI IdFichier = -1 ALORS
Erreur(ErreurInfo(errMessage))
SINON
// Traitements et écriture dans le fichier créé
fEcritLigne(IdFichier,"#FLG 000")
fEcritLigne(IdFichier,"#VER "+version)
fEcritLigne(IdFichier,"#DEV "+devise)
//pour tout JOURNAL
// info(JOURNAL.DAt)
// info(ladate)

HLitPremier(Marequete,Marequete.IDFAC..Nom)
TANTQUE PAS HEnDehors
// resut est une chaine= chaineVersDate(JOURNAL.DAt) <= chaineVersDate(ladate)
// si resut=1 alors
fEcritLigne(IdFichier,"#MECG")
codJournal = Marequete.IDFAC
codJournal = SansEspace(codJournal)
fEcritLigne(IdFichier,codJournal)
datesaisie=Marequete.DateFacture
datesaisie=SansEspace(datesaisie)
fEcritLigne(IdFichier,datesaisie)
fEcritLigne(IdFichier,DateVersChaine(DateSys(),"JJMMAA"))
// numPiece = Marequete.
// numPiece = SansEspace(numPiece)
// fEcritLigne(IdFichier,numPiece)
fEcritLigne(IdFichier,"")
// refPiece = JOURNAL.REF_PCE
// refPiece = SansEspace(refPiece)
// fEcritLigne(IdFichier,refPiece)
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
// nuCompteGen = JOURNAL.NUM_CPTE_GEN
// nuCompteGen = SansEspace(nuCompteGen)
// fEcritLigne(IdFichier,nuCompteGen)
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
// nuCompteTier = JOURNAL.NUM_CPTE_TIERS
// nuCompteTier = SansEspace(nuCompteTier)
// fEcritLigne(IdFichier,nuCompteTier)
fEcritLigne(IdFichier,"")
// intitule = JOURNAL.INTITULE
// intitule = SansEspace(intitule)
// fEcritLigne(IdFichier,intitule)
fEcritLigne(IdFichier,"")
numReg =Marequete.IDMOD_REG
numReg = SansEspace(numReg)
fEcritLigne(IdFichier,numReg)
dateEcheance =Marequete.ECHEANCE
dateEcheance = SansEspace(dateEcheance)
fEcritLigne(IdFichier,dateEcheance)
fEcritLigne(IdFichier,"0")
quantite=Marequete.Q_FAC
quantite=SansEspace(quantite)
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"")
montant =Marequete.PrixTTC
montant = SansEspace(montant)
fEcritLigne(IdFichier,montant)
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"0")
fEcritLigne(IdFichier,"")
fEcritLigne(IdFichier,"")
HLitSuivant()
// fin
FIN
fEcritLigne(IdFichier,"#FIN")
fFerme(IdFichier)
Info("Exportation réalisée")
Info("le nom du fichier sur disque dans le repertoire courant est "+nomFic)
// Fin des traitements dans le fichier créé

FIN
HAnnuleDéclaration(Marequete)




gfnIdFichier = fOuvre(fRepExe+nomFichier, foLecture) // Ouvrir le fichier texte

SI gfnIdFichier = -1 ALORS

Erreur(ErreurInfo())


FIN
// Charger le contenu du fichier "C:\Temp\MonFichier.txt" dans
// le champ de saisie "Saisie1"
sFichierTexte = fChargeTexte(fRepExe+nomFichier)
iAperçu(i100, "Aperçu écran", Vrai)
iCréePolice(1, 16, iGras , iRoman )
iImprime(sFichierTexte)
iFinImprime()
//info(sFichierTexte)
fFerme(gfnIdFichier)