//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