Anonyme
|
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)
Contribution le : 24/06/2005 11:59
|