- \n
- lngContact<\/b>: Index des Kontakts, für den die Überweisung durchgeführt werden soll (entspricht dem 0-basierten Index der Position des zu wählenden Kontakts aus dem Dialog Banking Kontakte<\/b>, siehe Bild 1)<\/li>\n
![\"Verwaltung](\"..\/fileadmin\/_temp_\/2020_01\/pic_209_001.png\")
<\/p>\nBild 1: Verwaltung der Homebanking-Kontakte<\/span><\/b><\/p>\n
- lngAccount<\/b>: Index des Kontos des Auftraggebers (entspricht dem 0-basierten Index der Position des zu wählenden Kontos aus dem Dialog Konten verwalten, siehe Bild 2)<\/li>\n
![\"Verwaltung](\"..\/fileadmin\/_temp_\/2020_01\/pic_209_002.png\")
<\/p>\nBild 2: Verwaltung der Konten eines Homebanking-Kontakts<\/span><\/b><\/p>\n
- strEmpfaengername<\/b>: Name des Empfängers<\/li>\n
- strEmpfaengerIBAN<\/b>: IBAN des Empfänger-Kontos<\/li>\n
- strEmpfaengerBIC<\/b>: BIC des Empfänger-Kontos<\/li>\n
- curBetrag<\/b>: Zu überweisender Betrag<\/li>\n
- strVerwendungszweck<\/b>: Verwendungszweck der Überweisung<\/li>\n
- strMeldung<\/b>: Antwort des Systems (mit ByRef <\/b>deklarieren!)<\/li>\n<\/ul>\n
Die nackte Funktion, die wir nachfolgend füllen, sieht nun wie folgt aus:<\/p>\n
Public Function <\/span>Ueberweisung(lngContact As Long<\/span>, lngAccount As Long<\/span>, strEmpfaengername As String<\/span>, strEmpfaengerIBAN As String<\/span>, strEmpfaengerBIC As String<\/span>, decBetrag As Decimal<\/span>, strVerwendungszweck As String<\/span>, ByRef strMeldung As String<\/span>) As Boolean<\/span>\r\nEnd Function<\/span><\/pre>\nBACContact-Objekt für den Auftraggeber ermitteln<\/b><\/p>\n
Mit dem Parameter lngContact <\/b>wollen wir das BACContact<\/b>-Objekt für den Eintrag im Dialog Banking Kontakte <\/b>auswählen, dessen Index dem Wert dieses Parameters entspricht. Diesen speichern wir in der Variablen objContact<\/b>, die wir wie folgt deklarieren:<\/p>\n
Dim <\/span>objContact As <\/span>BACContact<\/pre>\nDiese Variable füllen wir dann mit der folgenden Anweisung:<\/p>\n
objContact = GetContacts.Item(lngContact) <\/pre>\n
Die Funktion GetContacts <\/b>haben wir bereits im ersten Teil der Beitragsreihe namens Onlinebanking mit DDBAC: Saldo und Umsätze <\/b>erläutert. Sie liefert eine Auflistung aller BACContact<\/b>-Elemente, die über die Systemsteuerung hinzugefügt wurden. Über die Item<\/b>-Eigenschaft greifen wir auf das Element mit dem mit lngContact <\/b>übergebenen Indexwert zu.<\/p>\n
BACAccount-Objekt für den Auftraggeber ermitteln<\/b><\/p>\n
Danach benötigen wir das BACAccount<\/b>-Objekt für das Konto, von dem aus die Überweisung durchgeführt werden soll. Dazu legen wir die Variable objAuftraggeber <\/b>an:<\/p>\n
Dim <\/span>objAuftraggeber As <\/span>BACAccount<\/pre>\nDas BACAccount<\/b>-Objekt ermitteln wir einfach über die Accounts<\/b>-Auflistung des zuvor ermittelten BACContacts<\/b>-Objekts:<\/p>\n
objAuftraggeber = objContact.Accounts(lngAccount)<\/pre>\n
BACAccount für das Konto des Empfängers erstellen<\/b><\/p>\n
Während wir das BACAccount<\/b>-Objekt für das Konto des Auftraggebers aus den über die Systemsteuerung abgelegten Daten auslesen konnten, müssen wir das BACAccount<\/b>-Objekt für das Konto des Empfängers neu erstellen und mit den entsprechenden Daten füllen.<\/p>\n
Dabei handelt es sich um den Namen, die IBAN und die BIC des Auftraggebers, die wir einem neuen BACAccount<\/b>-Objekt zuweisen. Um diese Daten in einem neuen BACAccount<\/b>-Objekt zusammenzustellen, verwenden wir die folgende Hilfsfunktion AccountErstellen<\/b>:<\/p>\n
Public Function <\/span>AccountErstellen(strName1 As String<\/span>, strIban As String<\/span>, strBIC As String<\/span>) As <\/span>BACAccount\r\n Dim <\/span>objAccount As <\/span>BACAccount\r\n objAccount = New<\/span> BACAccount\r\n With<\/span> objAccount\r\n .NameEins = strName1\r\n .IBAN = strIban\r\n .BIC = strBIC\r\n End With<\/span>\r\n Return objAccount\r\nEnd Function<\/span><\/pre>\nDiese erwartet den Namen des Empfängers, die IBAN und die BIC als Parameter und erstellt zunächst ein neues BACAccount<\/b>-Objekt. Dann weist es die Werte der übergebenen Parameter den Eigenschaften NameEins<\/b>, IBAN <\/b>und BIC <\/b>zu. Das so gefüllte BACAccount<\/b>-Objekt wird dann mit der Return<\/b>-Anweisung als Ergebnis der Funktion zurückgegeben.<\/p>\n
Die Variable, in der das BACAccount<\/b>-Objekt gespeichert werden soll, heißt objEmpfaenger <\/b>und wird wie folgt deklariert:<\/p>\n
Dim <\/span>objEmpfaenger As <\/span>BACContact<\/pre>\nDieses füllen wir über einen Aufruf der zuvor beschriebenen Funktion AccountErstellen<\/b>. Dabei übergeben wir die Werte der drei Parameter strEmpfaengername<\/b>, strEmpfaengerIBAN <\/b>und strEmpfaengerBIC<\/b>:<\/p>\n
objEmpfaenger = AccountErstellen(strEmpfaengername, strEmpfaengerIBAN, strEmpfaengerBIC)<\/pre>\n
Segmenttyp festlegen und Version ermitteln<\/b><\/p>\n
Danach speichern wir in einer Variablen namens strSegment <\/b>den Namen des zu verwendenden Segments, in diesem Fall HKCCS<\/b>, das der Einreichung einer Einzelüberweisung entspricht:<\/p>\n
Dim <\/span>strSegment As String<\/span>\r\n...\r\nstrSegment = \"HKCCS\"<\/pre>\nIn einer Variablen namens objSegmentVersion <\/b>wollen wir die Version des Segments speichern:<\/p>\n
Dim <\/span>objSegmentVersion As <\/span>BACSegment<\/pre>\nDieses ermitteln wir über die Methode FindOptimalBPDSegment <\/b>des BACAccount<\/b>-Elements objAuftraggeber<\/b>, also für die Auftraggeberbank:<\/p>\n
objSegmentVersion = objAuftraggeber.FindOptimalBPDSegment(strSegment, 0)<\/pre>\n
Abhängig davon, ob ein passendes Segment gefunden werden konnte, steigen wir dann im If<\/b>-Teil der folgenden Abfrage in die eigentliche Überweisung ein oder geben eine Meldung zurück, dass das Segment nicht gefunden werden konnte:<\/p>\n
If <\/span>Not<\/span> objSegmentVersion Is Nothing Then<\/span>\r\n Debug.Print<\/span> (\"Segmentversion: \" + objSegmentVersion.Version.ToString())\r\n Return True<\/span>\r\nElse<\/span>\r\n strMeldung = \"Segment '\" + strSegment + \"' konnte nicht gefunden werden.\"\r\n Return False \r\nEnd If<\/span><\/pre>\nHKCCS-Segment erstellen<\/b><\/p>\n
Nachdem wir die aktuellste Version des HKCCS<\/b>-Segments ermittelt haben, erstellen wir auf dieser Basis das eigentliche HKCCS<\/b>-Segment. Dafür deklarieren wir zwei Variablen – eine für das BACBanking<\/b>-Objekt und eine für das BACSegment<\/b>-Objekt:<\/p>\n
Dim <\/span>objBanking As <\/span>BACBanking\r\nDim <\/span>objSegment As <\/span>BACSegment<\/pre>\nDas BACBanking<\/b>-Objekt füllen wir mithilfe der Funktion GetBanking<\/b>, die wir gegenüber der Version aus dem ersten Teil der Artikelserie noch geändert haben – wie, lesen Sie im Artikel Onlinebanking mit DDBAC: FinTS-Registrierung<\/b>:<\/p>\n
Set<\/span> objBanking = GetBanking<\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t - lngAccount<\/b>: Index des Kontos des Auftraggebers (entspricht dem 0-basierten Index der Position des zu wählenden Kontos aus dem Dialog Konten verwalten, siehe Bild 2)<\/li>\n