WDForge.org - Forums - WD 10 - Créeer fichier texte pour exporter vers Ciel-compta.

Index des forums WDForge.org

WD 10

Créeer fichier texte pour exporter vers Ciel-compta.

Bas

Suivant S'enregistrer pour contribuer

	Créeer fichier texte pour exporter vers Ciel-compta.	#1
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
Stagiaire WDF Inscrit: 02/11/2007 11:15 Post(s): 20

	Re: Créeer fichier texte pour exporter vers Ciel-compta.	#2
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

_________________
@A+
Contact (privé)......
email : drcharly@wdforge.org
[DrCharly93]

	Re: Créeer fichier texte pour exporter vers Ciel-compta.	#5
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
Stagiaire WDF Inscrit: 02/11/2007 11:15 Post(s): 20

	Re: Créeer fichier texte pour exporter vers Ciel-compta.	#6
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
Stagiaire WDF Inscrit: 05/05/2008 13:49 Post(s): 3

	Re: Créeer fichier texte pour exporter vers Ciel-compta.	#7
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
Stagiaire WDF Inscrit: 02/11/2007 11:15 Post(s): 20

Haut

S'enregistrer pour contribuer

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.