Hallo in die Runde,
ich habe mir ein Homebanking Programm auf Basis von FinAPI in VB.net programmiert. Das Programm läuft zu meiner besten Zufriedenheit.
Ich benötige jetzt zusätzlich aber noch die Funktionen für die Daueraufträge, die ich bis auf Dauerauftragsbestand holen nicht hinbekomme.
Es fehlen also
- Dauerauftrag einrichten (FinSetupSto)
- Dauerauftrag ändern (FinModifyStoBuilder)
- Dauerauftrag löschen (FinCancelStoBuilder)
Für letzteren habe ich den folgenden Ansatz genommen, der Jedoch zum Fehler bei
Dim aCancelSto As FinOrder = m_aCancelStoBuilder.Build(aRemitt) führt, "der Wert liegt ausserhalb des erwarteten Bereichs"
Private Sub daDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daDelete.Click
Try
Me.Cursor = Cursors.WaitCursor
Me.Enabled = False
Dim si As Integer = daListView.Items.Item(0).Index 'selected Index von DaListView
'Kontonr Empfänger, Ländercode, BLZ Empfänger
Dim aLoeschAcct As FinAcct = New FinAcct(daListView.Items(si).SubItems(1).Text, "280", daListView.Items(si).SubItems(2).Text)
'meine Kontodaten, aLoeschAcct,Name Empfänger, (Summe,Währung), Textschlüssel
Dim aRemitt As FinRemitt = New FinRemitt(m_aAcct, aLoeschAcct, daListView.Items.Item(si).Text, _
New SwiftAmt(daListView.Items(si).SubItems(4).Text, "EUR"), "52")
'gleiche Fehlermeldung-------------------------------
'Dim aSto As FinSto = New FinSto
'aSto.OrderingCustAcct = m_aAcct
'aSto.ScheduledDate = New SwiftDate(CDate("01.10.2013"))
'aSto.Amount = New SwiftAmt(daListView.Items(si).SubItems(4).Text, "EUR")
'aSto.PayeePayerAcct = aLoeschAcct
'aSto.PayeePayerName = daListView.Items.Item(si).Text
'aSto.TextKey = "52"
'---------------------------------------------------
Dim aCancelSto As FinOrder = m_aCancelStoBuilder.Build(aRemitt)
'_SendOrder(aCancelSto)
Catch ex As Exception
MessageBox.Show(ex.StackTrace, ex.Message)
End Try
Me.Cursor = Cursors.Arrow
Me.Enabled = True
End Sub
Mir ist jede Hilfe in Bezug auf die o.g. Funktionen willkommen.
Auch wenn was in c# vorliegen sollte.
ich habe mir ein Homebanking Programm auf Basis von FinAPI in VB.net programmiert. Das Programm läuft zu meiner besten Zufriedenheit.
Ich benötige jetzt zusätzlich aber noch die Funktionen für die Daueraufträge, die ich bis auf Dauerauftragsbestand holen nicht hinbekomme.
Es fehlen also
- Dauerauftrag einrichten (FinSetupSto)
- Dauerauftrag ändern (FinModifyStoBuilder)
- Dauerauftrag löschen (FinCancelStoBuilder)
Für letzteren habe ich den folgenden Ansatz genommen, der Jedoch zum Fehler bei
Dim aCancelSto As FinOrder = m_aCancelStoBuilder.Build(aRemitt) führt, "der Wert liegt ausserhalb des erwarteten Bereichs"
Code
Private Sub daDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles daDelete.Click
Try
Me.Cursor = Cursors.WaitCursor
Me.Enabled = False
Dim si As Integer = daListView.Items.Item(0).Index 'selected Index von DaListView
'Kontonr Empfänger, Ländercode, BLZ Empfänger
Dim aLoeschAcct As FinAcct = New FinAcct(daListView.Items(si).SubItems(1).Text, "280", daListView.Items(si).SubItems(2).Text)
'meine Kontodaten, aLoeschAcct,Name Empfänger, (Summe,Währung), Textschlüssel
Dim aRemitt As FinRemitt = New FinRemitt(m_aAcct, aLoeschAcct, daListView.Items.Item(si).Text, _
New SwiftAmt(daListView.Items(si).SubItems(4).Text, "EUR"), "52")
'gleiche Fehlermeldung-------------------------------
'Dim aSto As FinSto = New FinSto
'aSto.OrderingCustAcct = m_aAcct
'aSto.ScheduledDate = New SwiftDate(CDate("01.10.2013"))
'aSto.Amount = New SwiftAmt(daListView.Items(si).SubItems(4).Text, "EUR")
'aSto.PayeePayerAcct = aLoeschAcct
'aSto.PayeePayerName = daListView.Items.Item(si).Text
'aSto.TextKey = "52"
'---------------------------------------------------
Dim aCancelSto As FinOrder = m_aCancelStoBuilder.Build(aRemitt)
'_SendOrder(aCancelSto)
Catch ex As Exception
MessageBox.Show(ex.StackTrace, ex.Message)
End Try
Me.Cursor = Cursors.Arrow
Me.Enabled = True
End Sub
Mir ist jede Hilfe in Bezug auf die o.g. Funktionen willkommen.
Auch wenn was in c# vorliegen sollte.
