|
Créeer fichier texte pour exporter vers Ciel-compta. |
|
Stagiaire WDF
Inscrit: 02/11/2007 11:15
Post(s): 20
|
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 ligne 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
Merci beaucoup d'avantage.
Contribution le : 19/03/2008 21:25
|
|
|
Re: Créeer fichier texte pour exporter vers Ciel-compta. |
|
Developpeur WDF
Inscrit: 24/01/2006 13:42
De Chartres
Post(s): 142
|
Bonjour,
Sais tu deja lire ton fichier "TRANS" et retrouver tes informations dans se fichier?
Contribution le : 21/04/2008 17:28
|
|
|
Re: Créeer fichier texte pour exporter vers Ciel-compta. |
|
Stagiaire WDF
Inscrit: 02/11/2007 11:15
Post(s): 20
|
Oui, 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+=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")
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
sBuffer+=Complète("0.00",5)
sBuffer+=Complète("0.00",8)
sBuffer+="E"
fEcritLigne(s,sBuffer)
HLitSuivant(TRANSFER)
FIN
Contribution le : 24/04/2008 21:41
Edité par drcharly93 sur 25/4/2008 11:30:33
|
|
|
Re: Créeer fichier texte pour exporter vers Ciel-compta. |
|
Animateur WDF
Inscrit: 02/03/2003 04:07
De Noisy le grand(93)
Post(s): 2745
|
//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
Si vous avez des décalages avant le fecritLigene vous pouvez tester la longueur de la ligne pour vous assurez qu'elle est bien correcte. Cela pourra vous aider à détecter un éventuel problème. Penser à bien compléter toutes vos chaines au cas ou il en existraient des vides. Le POUR TOUS est plus rapide en exécution.
Contribution le : 25/04/2008 11:56
|
|
|
Re: Créeer fichier texte pour exporter vers Ciel-compta. |
|
Stagiaire WDF
Inscrit: 02/11/2007 11:15
Post(s): 20
|
Merci pour votre réponse. J'ai adapté le code comme dans votre exemple, mais le résultat est le même. Dans mon test il-y-a 333 enrégistrements dans mon fichier Transfer. Dans mon fichier texte XIMPORT j'ai 2 lignes qui ont des décalages.(a partir de la colonne "compléte(transfer.piece,12)" la ligne saute de 7 espaces. Bizarre: Ca arrive toujours si c'est le journal "7" mais pas avec tous les enrégistrements de ce journal "7". Naturellement le fichier texte est vite ajusté, mais ... Est-ce possible de tester d'une autre maniére pour détecter d'ou cette faute vient? Merci beaucour d'avantage
Contribution le : 25/04/2008 21:54
|
|
|
Re: Créeer fichier texte pour exporter vers Ciel-compta. |
|
Stagiaire WDF
Inscrit: 05/05/2008 13:49
Post(s): 3
|
ce ne serait pas des espace en plus, des fois ? ( pas 12 de long mais 19 ?) un gauche(complete(),12) me parait plus approprié ....
Contribution le : 05/05/2008 14:47
|
|
|
Re: Créeer fichier texte pour exporter vers Ciel-compta. |
|
Stagiaire WDF
Inscrit: 02/11/2007 11:15
Post(s): 20
|
Bonjour, Je viens de tester avec votre code, mais le résultat est le même. Ce sont les mêmes règles qui sautent. En tout cas, merci pour votre aide.
Contribution le : 06/05/2008 15:42
|
|
Vous ne pouvez pas débuter de nouveaux sujets.
Vous pouvez voir les sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|