Ich habe ein Programm geschrieben, dass seit Urzeiten Kontenbuchungen und Salden abfragt.
Seit einiger Zeit bekomme ich bei eingen Banken (Dresdner Bank") Fehlermeldungen, die Nachricht sei inhaltlich falsch, während es bei anderen (Commerzbank) funktionert wie immer
Hier mal der Code:
Die erste if-Abfrage ist natürlich schwachsinnig, das weiss ich auch; irgednwann war hier mal ein unterscheidlicher Code in beiden Zweigen, der ist mir aber verloren gegangen.
If cust.Fields("HBCIVersion") < 300 Then
objSaldoSegment = objBanking.NewSegment("HKSAL", cust.Fields("HBCIVersion"))
Else
objSaldoSegment = objBanking.NewSegment("HKSAL", cust.Fields("HBCIVersion"))
End If
objSaldoSegment("Auftraggeberkontoverbindung1", "Kontowaehrung1") = account.Currency
objSaldoSegment("AuftraggeberKontoverbindung1", "Kontonummer1") = account.AccountNumber
objSaldoSegment("AuftraggeberKontoverbindung1", "Laenderkennzeichen1") = account.CountryCode 'foundKonten(0).Kto_LaenderKZ
objSaldoSegment("AuftraggeberKontoverbindung1", "Kreditinstitutcode1") = account.BankCode 'foundKonten(0).Kto_BLZ
objSaldoSegment("AuftraggeberKontoverbindung1", "Unterkontomerkmal1") = account.SubAccountNumber 'acct.subaccountnumber
objSaldoSegment("AlleKonten1") = False
LogMessage("Sende Segment HKSAL ...", 9, False, True, True, session_nr, hbcicontact, progrun_key)
objMessage = dialog.ExecuteSegment(objSaldoSegment)
Hat jemand eine Idee woran das liegen kann ?
Seit einiger Zeit bekomme ich bei eingen Banken (Dresdner Bank") Fehlermeldungen, die Nachricht sei inhaltlich falsch, während es bei anderen (Commerzbank) funktionert wie immer
Hier mal der Code:
Die erste if-Abfrage ist natürlich schwachsinnig, das weiss ich auch; irgednwann war hier mal ein unterscheidlicher Code in beiden Zweigen, der ist mir aber verloren gegangen.
If cust.Fields("HBCIVersion") < 300 Then
objSaldoSegment = objBanking.NewSegment("HKSAL", cust.Fields("HBCIVersion"))
Else
objSaldoSegment = objBanking.NewSegment("HKSAL", cust.Fields("HBCIVersion"))
End If
objSaldoSegment("Auftraggeberkontoverbindung1", "Kontowaehrung1") = account.Currency
objSaldoSegment("AuftraggeberKontoverbindung1", "Kontonummer1") = account.AccountNumber
objSaldoSegment("AuftraggeberKontoverbindung1", "Laenderkennzeichen1") = account.CountryCode 'foundKonten(0).Kto_LaenderKZ
objSaldoSegment("AuftraggeberKontoverbindung1", "Kreditinstitutcode1") = account.BankCode 'foundKonten(0).Kto_BLZ
objSaldoSegment("AuftraggeberKontoverbindung1", "Unterkontomerkmal1") = account.SubAccountNumber 'acct.subaccountnumber
objSaldoSegment("AlleKonten1") = False
LogMessage("Sende Segment HKSAL ...", 9, False, True, True, session_nr, hbcicontact, progrun_key)
objMessage = dialog.ExecuteSegment(objSaldoSegment)
Hat jemand eine Idee woran das liegen kann ?