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
|
Dim DSPaiement As New DataSet
Dim DSVirement As New DataSet
DSVirement.ReadXmlSchema("x:\Dossier Analyse\Transport scolaire\doc num cpte\Ret. sur app. déc. 2013")
Dim objBIC As New CreationSEPA.ClassListe_BIC_Banque
DSPaiement = Remplir_DS()
For i As Integer = 0 To DSPaiement.Tables(0).Rows.Count - 1
'Dim dtrow As DataRow
Dim dtrow_PmtInf As DataRow
Dim dtrow_DbtrAcct As DataRow
dtrow_PmtInf = DSVirement.Tables("PmtInf").NewRow '3 new
dtrow_PmtInf("PmtInf_id") = 25009
dtrow_PmtInf("PmtMtd") = "TRF"
dtrow_PmtInf("NbOfTxs") = DSPaiement.Tables(0).Rows.Count 'nb de lignes
dtrow_PmtInf("CtrlSum") = Replace(Format(DSPaiement.Tables(0).Rows.Item(0).Item(5) / 100, "######0.00"), ",", ".") 'montant total
DSVirement.Tables("PmtInf").Rows.Add(dtrow_PmtInf) '3 add
dtrow_DbtrAcct = DSVirement.Tables("DbtrAcct").NewRow '9 new
dtrow_DbtrAcct("Ccy") = "EUR"
dtrow_DbtrAcct("PmtInf_id") = 25009
DSVirement.Tables("DbtrAcct").Rows.Add(dtrow_DbtrAcct) '9 add
Next i
DSVirement.WriteXml("x:\Dossier Analyse\Transport scolaire\doc num cpte\fichpaiement.xml")
Return 0 |
Partager