//export_ciel_hlit ()
//
// Paramètres :
// Aucun
// Valeur de retour :
// Aucune
// Exemple :
// Indiquez ici un exemple d'utilisation.
//
PROCEDURE export_ciel_hlit()
sBuffer est une chaîne
s est un entier
s=fOuvre("C:\ExportCiel\XIMPORT.txt",foCréationSiInexistant)
POUR Tous TRANSFERT
sBuffer=Complète("",3)
SI TRANSFER.JOURNAL="5" OU TRANSFER.JOURNAL="7" ALORS
sBuffer+= " "+Complete(TRANSFER.JOURNAL,???)
sBuffer+=Complète("0"+TRANSFER.JOURNAL,4)
SINON
sBuffer+=Complete(TRANSFER.JOURNAL,???)
sBuffer+=Complète(TRANSFER.JOURNAL,4)
FIN
sBuffer+=DateVersChaîne(TRANSFER.DAT,"AAAAMMJJ")
sBuffer+=DateVersChaîne(TRANSFER.DAT,"AAAAMMJJ")
sBuffer+=Complète(TRANSFER.PIECE,12)
sBuffer+=Complète(TRANSFER.NUM_COMPTA,11)
sBuffer+=Complète(TRANSFER.LIBELLE,28)
SI TRANSFER.CREDIT=0 ALORS
sBuffer+=NumériqueVersChaîne(TRANSFER.DEBIT,"10.2f")
sBuffer+=Complète("D",30)
SINON
sBuffer+=NumériqueVersChaîne(TRANSFER.CREDIT,"10.2f")
sBuffer+=Complète("C",30)
FIN
sBuffer+=Complète("0.00",5)
sBuffer+=Complète("0.00",8)
sBuffer+="E"
fEcritLigne(s,sBuffer)
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=5772&post_id=23688