WDForge.org - Forums

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

Sujet: Re: Créeer fichier texte pour exporter vers Ciel-compta.
par keith2001 sur 24/4/2008 21:41:34

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