1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78
| Private Sub Commande15_Click()
Dim connexion As New ADODB.Connection
Dim Emetteur As New ADODB.Recordset
Dim payements As New ADODB.Recordset
Dim fso As New FileSystemObject
Dim export As File
Dim ts As TextStream
Dim data As String
Dim trailer As String
Dim compteur As Integer
Dim totalmontants As Long
Dim totalcomptes As Single
' Ouvrir le fichier texte
Set export = fso.GetFile(CurrentProject.Path & "\paiement.txt")
Set ts = export.OpenAsTextStream(ForWriting)
' Générer le header
connexion.Open ConnectionString:=CurrentProject.AccessConnection
Emetteur.ActiveConnection = connexion
Emetteur.CursorType = adOpenKeyset
Emetteur.LockType = adLockOptimistic
Emetteur.Open "select * from T_EMETTEURS where EME_LIBELLECOURT='" & Me.Emetteur.Value & "'"
Emetteur.MoveFirst
Dim header As String
header = "00000"
header = header & Format(Date, "ddmmyy")
header = header & Left(Emetteur.Fields("EME_COMPTEBANCAIRE"), 3)
header = header & "01"
header = header & Format(Date, "ddmmyy")
header = header & " 000"
header = header & Replace(Emetteur.Fields("EME_COMPTEBANCAIRE"), "-", "")
header = header & Left(Emetteur.Fields("EME_LIBELLELONG"), 26) & String(26 - Len(Left(Emetteur.Fields("EME_LIBELLELONG"), 26)), " ")
header = header & Left(Emetteur.Fields("EME_ADRESSE"), 26) & String(26 - Len(Left(Emetteur.Fields("EME_ADRESSE"), 26)), " ")
header = header & "B 10"
header = header & "BRUXELLES "
header = header & "2 5"
ts.WriteLine (header)
Emetteur.Close
connexion.Close
' Générer les data
connexion.Open ConnectionString:=CurrentProject.AccessConnection
payements.ActiveConnection = connexion
payements.CursorType = adOpenKeyset
payements.LockType = adLockOptimistic
payements.Open "T_PAIEMENTSOBLIG_TEMPO"
payements.MoveFirst
compteur = 1
Do
data = "1" & Format(compteur, "0000") & " "
data = data & Replace(payements.Fields("TIE_CBANCAIREBEL"), "-", "")
data = data & Format(payements.Fields("interet") * 100, "000000000000")
data = data & texte_taille_fixe(payements.Fields("TIE_NOM"), 24) & " " & texte_taille_fixe(payements.Fields("TIE_PRENOM"), 1) & "2"
data = data & texte_taille_fixe(payements.Fields("communication"), 53)
data = data & "3" & vbCrLf
data = data & "2" & Format(compteur, "0000") & "0"
data = data & String(105, " ") & "0" & String(16, " ")
ts.WriteLine (data)
totmontants = totmontants + (payements.Fields("interet") * 100)
totcomptes = totcomptes + CSng(Replace(payements.Fields("TIE_CBANCAIREBEL"), "-", ""))
payements.MoveNext
compteur = compteur + 1
Loop While Not payements.EOF
connexion.Close
' Générer le trailer
trailer = "9" & Format((compteur - 1) * 2, "0000")
trailer = trailer & Format(compteur - 1, "0000")
trailer = trailer & Format(totmontants, "000000000000")
trailer = trailer & Format(totcomptes, "000000000000000")
trailer = trailer & "00402964823"
trailer = trailer & String(81, " ")
ts.WriteLine (trailer)
ts.Close |
Partager