J'ai un appli Gestion-commerciale.
J'ai un fichier "TRANS" qui contient tous les données compta.
Maintenant je veux transferer ces données vers Ciel-compta en fichier texte.
Je trouve pas comment je peux le créeer.
Voici un exemple de 3 lignes du fichier texte que je veux obtenir:
9090 20071005200710057002021 400100 Vente 45.00D 0.00 0.00 E
9090 20071005200710057002021 700101 Vente HT 37.19C 0.00 0.00 E
9090 20071005200710057002021 451000 Tva 7.81C 0.00 0.00 E
Entretemps j'ai trouvé la solution.
J'ai toujours un probléme:
De temps en temps il-y-a une ligne qui saute dans le fichier texte; qui n'est pas bien placé(les colonnes ne sont pas justes). Par exemple: sur 100 lignes de texte il-y-en a +-5 qui ont sauté. Naturellement c'est vite réparé a la main et l'importation en Ciel est 10/10.
Voici le code, est-ce-que vous voyez des fautes?
Merci pour votre réponse.
// Syntaxe :
//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)
HLitPremier(TRANSFER)
TANTQUE HTrouve()
sBuffer=Complète("",3)
SI TRANSFER.JOURNAL="5" OU TRANSFER.JOURNAL="7" ALORS
sBuffer+= " "+TRANSFER.JOURNAL
SINON
sBuffer+=TRANSFER.JOURNAL
FIN
SI TRANSFER.JOURNAL="5" OU TRANSFER.JOURNAL="7" ALORS
sBuffer+=Complète("0"+TRANSFER.JOURNAL,4)
SINON
sBuffer+=Complète(TRANSFER.JOURNAL,4)
FIN
sBuffer+=Complète(TRANSFER.LIBELLE,28)
SI TRANSFER.CREDIT=0 ALORS
sBuffer+=NumériqueVersChaîne(TRANSFER.DEBIT,"10.2f")
SINON
sBuffer+=NumériqueVersChaîne(TRANSFER.CREDIT,"10.2f")
FIN
SI TRANSFER.CREDIT=0 ALORS
sBuffer+=Complète("D",30)
SINON
sBuffer+=Complète("C",30)
FIN