Einzelnen Beitrag anzeigen

Benutzerbild von rapante
rapante

Registriert seit: 3. Jun 2009
Ort: OPR
172 Beiträge
 
Delphi 12 Athens
 
#13

AW: SEPA-Komponente

  Alt 14. Dez 2022, 10:02
Ich habe die Version 4 nun gekauft. In den Update-Infos ist der untenstehende Hinweis für Delphi enthalten.
Das Update sollte also recht einfach durchzuführen sein.

Code:
Wichtiger Hinweis für den Einsatz unter anderen
  Programmierumgebung als VB6 oder VBA - bspw. Delphi
  ---------------------------------------------------------------------

  Die sevDTA40.DLL (Version 4.0) lässt sich ausschließlich unter VB6/VBA einsetzen.
  Für den Einsatz unter anderen Windows-Programmiersprachen, die die Standard DLL
  Deklarationen von Windows unterstützten, haben wir eine abgewandelte DLL-Version
  sevDTA35.DLL (nur 32-Bit) erstellt (Verzeichnis sevDTA35).

  Die Deklarationen sind hierbei 1:1 identisch mit den bisherigen Deklarationen aus
  Version 3.0. Zwei neue Funktionen sind hinzugekommen. Der Funktionsumfang
  entspricht dem der Version 4.0, außer dass weiterhin die bekannten 4 Datendateien
  verwendet werden müssen (BLZ.dat, BIC.dat, BNAME.dat und BINFO.dat)

  Um auf die neue Version 3.5 umzusteigen, sind folgende Schritte notwendig:

  - Anpassen der Declare Anweisungen
    Ersetzen Sie den Bibliotheksnamen sevDTA30.DLL durch sevDTA35.DLL
 
  - Anpassen der Übergabe der Lizenznummer
    Beim sevDTA_Init Aufruf muss die neue Lizenznummer für die Version 4.0 
    übergeben werden.

  ' neue Funktion mit Erweiterung SeqType-Parameter
  Declare Function sevSEPA_FileAddRec_1 Lib "sevDTA35.DLL" ( _
    ByVal fHandle As Long, _
    ByVal PmtId As String, _
    ByVal PmtAmt As String, _
    ByVal sName As String, _
    ByVal IBAN As String, _
    ByVal BIC As String, _
    ByVal RmtInf As String, _
    ByVal MndtId As String, _
    ByVal MndtDt As String, _
    ByVal SeqType As Long) As Long

  ' neue Funktion mit Erweiterung SkipTransaktionen Parameter
  Declare Function sevSEPA_ExportHTML_1 Lib "sevDTA35.DLL" ( _
    ByVal Filename As String, _
    ByVal SkipTransaktionen AS Long) As Long

Beschreibung der Funktionen siehe Online-Hilfe sevDTA40.chm

Hinweis: im Verzeichnis sevDTA35 finden Sie auch eine Delphi-Unit mit den Deklarationen für Delphi.
Micha
  Mit Zitat antworten Zitat