Der Classic Line Connector
verbindet Ihr ERP-System mit der übrigen Welt

Sage Classic Line
Modulare Software für alle betriebswirtschaftlichen Geschäftsprozesse kleiner und mittelständischer Unternehmen.
Demoversion downloaden
Ab sofort stellen wir Ihnen eine kostenlose Demoversion zum Download zur Verfügung. Für diese Demo wird keine Lizenz benötigt.
Sie wollen auf dem neuesten Stand bleiben?
Senden Sie uns eine Mail an info@bizz-consult.de, wenn Sie in den Newsletterversand aufgenommen werden und regelmäßig Informationen zum Classic Line Connector erhalten möchten.



Referenz - Bibliothek "Connector-DLL"


zur Klasse CLConnector

zur Klasse CLDateiInfo


Klasse CLDateiZugriff



Enumeration CLSyncStatus
Name CLSyncStatus
Beschreibung In dieser Enumeration sind die möglichen Sync-Status der Klasse CLDateizugriff aufgeführt
Enumeration Aktuell = &H0
Geloescht = &H1
Geaendert = &H2
Neu = &H4
AlleStati = &HF


Enumeration CLDatentypenVB
Name CLDatentypenVB
Beschreibung In dieser Enumeration sind die Datentypen von Visual Basic 6.0 aufgeführt
Enumeration Datum = 1
Text = 2
Binaer = 3
LongZahl = 4
IntZahl = 5
DoubleZahl = 6
SingleZahl = 7
ByteZahl = 8


UDT CLDaten
Name CLDaten
Beschreibung Dieser UDT beschreibt einen Datentyp, der für die Neuanlage von Datensätze benötigt wird (nur für AIS-Version erforderlich)
UDT Public Type CLDaten
  strTabelle As String
  strFeldname As String
  strFeldWert As String
End Type


oCLConnector
Routinennamen Public Property Set oCLConnector(ByVal oCLConnector As CLConnector)
Public Property Get oCLConnector() As CLConnector
Beschreibung Setzt das Verbindungsobjekt für den Dateizugriff oder fragt dieses ab
Rückgabewert Aktuelle Verbindungsobjekt
Parameter oCLConnector Verbindungsobjekt


strGetDatei
Routinennamen Public Property Get strGetDatei() As String
Beschreibung Liest den Dateinamen der verbundenen Datei aus
Rückgabewert Name der verbundenen Datei


strGetPfad
Routinennamen Public Property Get strGetPfad() As String
Beschreibung Ermittelt das Verzeichnis der verbundenen Datei
Rückgabewert Pfadname der verbundenen Datei


lngDatensatznummer
Routinennamen Public Property Let lngDatensatznummer(ByVal lngDatensatznummer As Long)
Public Property Get lngDatensatznummer() As Long
Beschreibung Ermittelt die Datensatznummer der verbundenen Kettdatei oder setzt diese
Rückgabewert Aktuelle Datensatznummer
Parameter lngDatensatznummer Datensatznummer


blnDatei_Oeffnen
Routinennamen Public Function blnDatei_Oeffnen(ByVal sTabelle As String, Optional ByVal udt-Dateityp As CLDateiTyp = CLDateiTyp.R300Datei, Optional ByVal sPfad As String) As Boolean
Beschreibung Öffnet die angegebene Tabelle
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sTabelle Tabelle, die geöffnet werden soll
  udtDateityp Typ der Datei, die geöffnet werden soll
R300Datei = 1
KettDatei = 2
(siehe auch Enumeration CLDateiTyp)
Dieser Parameter ist optional. Wird er weggelassen, so wird die Datei als R300-Datei geöffnet.)
  sPfad Verzeichnis, in der die zu öffnenden Datei abgelegt ist. Dieser Parameter ist optional. Wird er weggelassen, so wird die Datei im Daten- oder Mandantenverzeichnis (in Abhängigkeit von den bekannten Namenskonventionen) gesucht.
Bemerkung Bevor eine Tabelle geöffnet werden kann, muss eine Verbindung zur Classic Line hergestellt worden sein.


Schliesse Datei
Routinennamen Public Sub Schliesse_Datei()
Beschreibung Schließt die aktuelle Tabelle
Rückgabewert - keine -
Parameter - keine -


blnLeseDatensatz_Key
Routinennamen Public Function blnLeseDatensatz_Key(ByVal sKey As String) As Boolean
Beschreibung Liest einen Datensatz mit dem angegebenen Schlüssel
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sKey Schlüssel des Datensatzes, der gelesen werden soll
Bemerkung Wurde kein Datensatz gefunden oder trat ein Fehler auf, so ist das Funktionser-gebnis = False.


blnSchreibeDatensatz
Routinennamen Public Function blnSchreibeDatensatz()
Beschreibung Schreibt den aktuellen Datensatz zurück in die Datenbank
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter - keine -  
Bemerkung Bevor ein Datensatz geschrieben werden kann, muss er zuvor gelesen werden. Nach dem Lesen werden die gewünschten Felder mit der Funktion blnSetFeldwert beschrieben und anschließend der Datensatz wieder in den Tabellen mit dieser Funktion zurück geschrieben.
Beachten Sie, dass Sie mit dieser Funktion keine neuen Datensätze anlegen, sondern nur vorhandene Datensätze zurück schreiben können.


blnLeseDatensatz_Kette
Routinennamen Public Function blnLeseDatensatz_Kette() As Boolean
Beschreibung Liest einen Datensatz aus einer Kettdatei
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter - keine -  
Bemerkung Bevor Sie einen Datensatz mit dieser Funktion lesen können, muss die entsprechende Datensatznummer mit der Eigenschaft lngDatensatznummer gesetzt werden.


blnLeseNaechstenDatensatz_Kette
Routinennamen Public Function blnLeseNaechstenDatensatz_Kette() As Boolean
Beschreibung Liest den nächsten Datensatz aus einer Kettdatei
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter - keine -  
Bemerkung Lesen Sie zunächst den ersten Datensatz mit der Funktion blnLeseDatensatz_Kette und durchlaufen Sie alle weiteren Datensätze mit dieser Funktion.
Sobald das Ende der Kette erreicht ist, wird die Datensatznummer (Abrufbar mit der Eigenschaft lngDatensatznummer) auf 0 gesetzt.


blnLeseSplitDatensatz_Kette
Routinennamen Public Function blnLeseSplitDatensatz_Kette() As Boolean
Beschreibung Liest den zugehörigen Datensatz des aktuellen Datensatzes aus einer Kettdatei
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter - keine -  
Bemerkung Lesen Sie zunächst den ersten Datensatz mit der Funktion blnLeseDatensatz_Kette. Ist ein Ergänzungsdatensatz vorhanden, so können Sie diesen mit dieser Funktion lesen.
Beispiel:
In der Tabelle "AuftraegePositionen" (A10212) sind die Artikelpositionen der Vor-gänge abgelegt. Die Satzart "Artikel" ist über das Feld "Ergaenzungsposition" mit der Satzart "ArtikelErgaenz" verbunden. Diese Ergänzungposition können Sie mit dieser Funktion lesen.


blnSchreibeDatensatz_Kette
Routinennamen Public Function blnSchreibeDatensatz_Kette(Optional ByVal bSplit As Boolean = False) As Boolean
Beschreibung Schreibt einen Datensatz in eine Kettdatei
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter bSplit Über diesen Parameter bestimmen Sie, ob Sie den Hauptdatensatz (= False) oder den zugehörigen Ergänzungsdatensatz (= True) zurück schreiben wollen.
Bemerkung Bevor ein Datensatz geschrieben werden kann, muss er zuvor gelesen werden. Nach dem Lesen werden die gewünschten Felder mit der Funktion blnSetFeldwert beschrieben und anschließend der Datensatz wieder in den Tabellen mit dieser Funktion zurück geschrieben.
Beachten Sie, dass Sie mit dieser Funktion keine neuen Datensätze anlegen, sondern nur vorhandene Datensätze zurück schreiben können.


blnGetSatzart
Routinennamen Public Function blnGetSatzart(rsSatzart As String) As Boolean
Beschreibung Ermittelt die Satzart des aktuellen Datensatzes
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter rsSatzart Über diesen Parameter wird die Satzart des aktuellen Datensatzes zurückübergeben.
Bemerkung Bevor Sie diese Funktion nutzen können müssen Sie einen Datensatz eingelesen haben.


blnLeseDatensatz_Erster
Routinennamen Public Function blnLeseDatensatz_Erster(ByVal sKeyStart As String, ByVal sKeyEnde As String, ByVal sSyncStatus As CLSyncStatus) As Boolean
Beschreibung Gibt einen Datensatz zurück, der innerhalb des angegebenen Schlüsselbereiches in einer Tabelle gefunden wurde.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sKeyStart Untere Grenze des Schlüsselbereiches
  sKeyEnde Obere Grenze des Schlüsselbereiches
  sSyncStatus Bestimmen Sie über diesen Parameter, welchen Status die gelesenen Datensätze haben dürfen.
Aktuell = &H0
Geloescht = &H1
Geaendert = &H2
Neu = &H4
AlleStati = &HF
Über den Status können Sie beispielsweise nur alle neuen oder gelöschten Datensätze lesen.
Bemerkung Erst wenn Sie den Sync-Status über die Function blnSetSyncStatus entsprechend gesetzt haben, können Sie gezielt nach Datensätzen mit einem bestimmten Status suchen.


blnLeseDatensatz_Naechster
Routinennamen Public Function blnLeseDatensatz_Naechster() As Boolean
Beschreibung Liest den nächsten Datensatz aus einer Tabelle
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter - keine -  
Bemerkung Lesen Sie zunächst den ersten Datensatz mit der Funktion blnLeseDatensatz_Erster und durchlaufen Sie alle weiteren Datensätze mit dieser Funktion.
Ist kein Datensatz mehr vorhanden, liefert die Funktion den Wert False zurück.


blnLeseDatensatz_Letzter
Routinennamen Public Function blnLeseDatensatz_Letzter(ByVal sKeyStart As String, ByVal sKeyEnde As String, ByVal sSyncStatus As CLSyncStatus) As Boolean
Beschreibung Gibt den letzten Datensatz zurück, der innerhalb des angegebenen Schlüsselbereiches in einer Tabelle gefunden wurde.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sKeyStart Untere Grenze des Schlüsselbereiches
  sKeyEnde Obere Grenze des Schlüsselbereiches
  sSyncStatus Bestimmen Sie über diesen Parameter, welchen Status die gelesenen Datensätze haben dürfen.
Aktuell = &H0
Geloescht = &H1
Geaendert = &H2
Neu = &H4
AlleStati = &HF
Über den Status können Sie beispielsweise nur alle neuen oder gelöschten Datensätze lesen.
Bemerkung Erst wenn Sie den Sync-Status über die Function blnSetSyncStatus entsprechend gesetzt haben, können Sie gezielt nach Datensätzen mit einem bestimmten Status suchen.


blnLeseDatensatz_Vorgaenger
Routinennamen Public Function blnLeseDatensatz_Vorgaenger() As Boolean
Beschreibung Liest den vorhergehenden Datensatz aus einer Tabelle
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter - keine -  
Bemerkung Lesen Sie zunächst den letzten Datensatz mit der Funktion blnLeseDatensatz_Letzter und durchlaufen Sie alle weiteren Datensätze mit dieser Funktion.
Ist kein Datensatz mehr vorhanden, liefert die Funktion den Wert False zurück.


blnDateiEntsperren
Routinennamen Public Function blnDateiEntsperren() As Boolean
Beschreibung Setzt eine Dateisperre zurück, die mit den Lesefunktionen gesetzt wurden.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter - keine -  
Bemerkung Gesetzte Sperren werden beim Schließen einer Datei automatisch zurückgesetzt. Sollte es erforderlich sein, Sperren auch gezielt zurückzusetzen, dann können Sie dafür diese Funktion nutzen.


blnGetSyncStatus
Routinennamen Public Function blnGetSyncStatus(ByRef rSyncStatus As CLSyncStatus) As Boolean
Beschreibung Ermittelt den Sync-Status des aktuellen Datensatzes
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter rSyncStatus In dieser Variable wird der Sync-Status des aktuellen Datensatzes zurückgegeben.
Aktuell = &H0
Geloescht = &H1
Geaendert = &H2
Neu = &H4
AlleStati = &HF


blnSetSyncStatus
Routinennamen Public Function blnSetSyncStatus(ByVal udtSyncStatus As CLSyncStatus, Optional ByVal strEntferneKey As String = "") As Boolean
Beschreibung Setzt den Sync-Status des aktuellen Datensatzes
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter udtSyncStatus Übergeben Sie in dieser Variable den Status, der für den aktuellen Datensatz gesetzt werden soll.
Aktuell = &H0
Geloescht = &H1
Geaendert = &H2
Neu = &H4
AlleStati = &HF
  strEntferneKey Schlüssel, der für einen gelöschten Datensatz aus der Synchronisationstabelle entfernt werden soll. Der Status in udtSyncStatus muss für diesen Fall auf "Geloescht" gesetzt sein.


blnGetSyncDatum
Routinennamen Public Function blnGetSyncDatum(ByRef rdtSyncDatum As Date) As Boolean
Beschreibung Ermittelt das Datum, an dem der aktuelle Datensatz zuletzt synchronisiert wurde
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter rdtSyncDatum In dieser Variable wird das letzte Synchronisationsdatum des aktuellen Datensatzes zurückgegeben


blnGetKundennummerformatiert
Routinennamen Public Function blnGetKundennummerformatiert(ByRef strKundennummer As String) As Boolean
Beschreibung Formatiert eine Kundennummer (Personenkonto) gemäß den Einstellungen im Mandantenstamm der Classic Line.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter strKundennummer Die in dieser Variable angelegte Kundennummer wird formatiert und in gleicher Variable auch wieder zurückgegeben


blnSetFeldwert
Routinennamen Public Function blnSetFeldwert(ByVal sFeldname As String, ByVal sDaten-satzname As String, ByRef vntFeldwert As Variant) As Boolean
Beschreibung Setzt einen Feldwert im aktuellen Datensatz
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sFeldname Der übergebene Wert wird in diesem Feld abgelegt
  sDatensatzname Der zum aktuellen Datensatz gehörende Satzart wird hier übergeben
  vntFeldwert Der hier abgelegte Wert wird in das Feld mit dem Namen sFeldname im aktuellen Datensatz abgespeichert


blnGetFeldwert
Routinennamen Public Function blnGetFeldwert(ByVal sFeldname As String, ByVal sDaten-satzname As String, ByRef rvntFeldwert As Variant, ByRef rudtTyp As CLDaten-TypenVB) As Boolean
Beschreibung Liest einen Feldwert im aktuellen Datensatz
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sFeldname Der übergebene Wert wird in diesem Feld abgelegt
  sDatensatzname Der zum aktuellen Datensatz gehörende Satzart wird hier übergeben
  rvntFeldwert Der gelesene Wert wird in dieser Variable zurück gegeben
  rudtTyp In dieser Variable wird zurück gegeben, von welchem Typ der gelesene Wert ist.
Datum = 1
Text = 2
Binaer = 3
LongZahl = 4
IntZahl = 5
DoubleZahl = 6
SingleZahl = 7
ByteZahl = 8


blnInsertDatensatz
Routinennamen Public Function blnInsertDatensatz(sKey As String) As Boolean
Beschreibung Fügt einen neuen Datensatz in einer Tabelle ein.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sKey Schlüssel des Datensatzes, der angelegt werden werden soll
Bemerkung Die einzelnen Felder des Datensatzes müssen vor Verwendung dieser Funktion über blnSetFeldwert gesetzt worden sein.


blnDeleteDatensatz
Routinennamen Public Function blnDeleteDatensatz(sKey As String) As Boolean
Beschreibung Löscht einen Datensatz in einer Tabelle.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter sKey Schlüssel des Datensatzes, der gelöscht werden werden soll


blnNeuenKundenAnlegen
Routinennamen Public Function blnNeuenKundenAnlegen(ByRef strKundennummer As String, udtFelder() As CLDaten, ByVal strMinKundennummer As String, ByVal strMaxKundennummer As String) As Boolean
Beschreibung Legt einen neuen Kunden in der Classic Line an oder aktualisiert einen bestehenden Kunden.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter strKundennummer
  1. Möglichkeit: leer: Es wird ein neuer Kunde angelegt. Anschließend enthält strKundennummer die neue Kundennummer.
  2. Möglichkeit: Kundennummer im Format "1234567890": Existiert der angegebene Kunde, wird dieser aktualisiert; Existiert der angegebene Kunde nicht, wird er angelegt.

Das Feld enthält die neue Kundennummer, wenn die Funktion erfolgreich beendet wurde.
  udtFelder() Alle zu setzenden Felder werden in diesem Array vom Typ CLDaten übergeben. Nicht gesetzte Felder erhalten einen Defaultwert.
  strMinKundennummer Untergrenze für eine neu anzulegende Kundennummer.
  strMaxKundennummer Obergrenze für eine neu anzulegende Kundennummer.
Ereignisse Public Event BeforeCustomerInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Kundendatensatz eingefügt wird. Die Variable strDatensatz enthält den Datensatzstring, der im nächsten Schritt geschrieben wird. In der Collection colFelder werden die über udtFelder() gesetzten Felder übergeben.
  Public Event AfterCustomerInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Kundendatensatz eingefügt wurde.
Die Parameter entsprechen dem Ereignis BeforeCustomerInsert
  Public Event BeforeDebitorInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Debitorendatensatz eingefügt wird.
Die Parameter entsprechen dem Ereignis BeforeCustomerInsert
  Public Event AfterDebitorInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Debitorendatensatz eingefügt wurde.
Die Parameter entsprechen dem Ereignis BeforeCustomerInsert
  Public Event BeforeCustomerUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Kundendatensatz aktualisiert wird.
Die Parameter entsprechen dem Ereignis BeforeCustomerInsert
  Public Event AfterCustomerUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Kundendatensatz aktualisiert wurde.
Die Parameter entsprechen dem Ereignis BeforeCustomerInsert
  Public Event BeforeDebitorUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Debitorendatensatz aktualisiert wird.
Die Parameter entsprechen dem Ereignis BeforeCustomerInsert
  Public Event AfterDebitorUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Debitorendatensatz aktualisiert wurde.
Die Parameter entsprechen dem Ereignis BeforeCustomerInsert
Bemerkung Wird in strKundennummer ein Leerstring übergeben, wird eine neue Kundennummer im Bereich von strMinKundennummer bis strMaxKundennummer angelegt.
Das besondere an dieser Funktion ist, dass bei der Anlage bzw. Aktualisierung der Kundendaten die Geschäftslogik der Classic Line beachtet wird. Dies bedeutet insbesondere, dass auch Indexdateien, Matchcodedateien und ähnliche Funktionalitäten beachtet werden. Diese Funktion sollte der direkten Aktualisierung des Kundenstammsatzes über blnSchreibeDatensatz vorgezogen werden.
Die Ereignisse stellen wir Ihnen für folgende Funktionalitäten zur Verfügung:
  1. Sie können den zu schreibenden Datensatz noch einmal manipulieren, bevor er geschrieben wird.
    Achtung: Tun Sie dies nur, wenn Sie sich genau mit dem Aufbau des Datensatzes auskennen. Andernfalls können Sie den Eintrag unbrauchbar machen.
  2. Wollen Sie eigene Zusatzdaten anlegen, für die Sie z.B. schon die Kundennummer benötigen bevor der Datensatz geschrieben ist, erhalten Sie auf diese Art die Möglichkeit dazu.


blnNeuenLieferantenAnlegen
Routinennamen Public Function blnNeuenLieferantenAnlegen(ByRef strLieferantennummer As String, udtFelder() As CLDaten, ByVal strMinLieferantennummer As String, ByVal strMaxLieferantennummer As String) As Boolean
Beschreibung Legt einen neuen Lieferanten in der Classic Line an oder aktualisiert einen bestehenden Lieferanten.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter strLieferantennummer
  1. Möglichkeit: leer: Es wird ein neuer Lieferant angelegt. Anschließend enthält strLieferantennummer die neue Lieferantennummer.
  2. Möglichkeit: Lieferantennummer im Format "1234567890": Existiert der angegebene Lieferant, wird dieser aktualisiert; Existiert der angegebene Lieferant nicht, wird er angelegt.

Das Feld enthält die neue Lieferantennummer, wenn die Funktion erfolgreich beendet wurde.
  udtFelder() Alle zu setzenden Felder werden in diesem Array vom Typ CLDaten übergeben. Nicht gesetzte Felder erhalten einen Defaultwert.
  strMinLieferantennummer Untergrenze für eine neu anzulegende Lieferantennummer.
  strMaxLieferantennummer Obergrenze für eine neu anzulegende Lieferantennummer.
Ereignisse Public Event BeforeSupplierInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Lieferantendatensatz eingefügt wird. Die Variable strDatensatz enthält den Datensatzstring, der im nächsten Schritt geschrieben wird. In der Collection colFelder werden die über udtFelder() gesetzten Felder übergeben.
  Public Event AfterSupplierInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Lieferantendatensatz eingefügt wurde.
Die Parameter entsprechen dem Ereignis BeforeSupplierInsert
  Public Event BeforeKreditorInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Kreditorendatensatz eingefügt wird.
Die Parameter entsprechen dem Ereignis BeforeSupplierInsert
  Public Event AfterKreditorInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Kreditorendatensatz eingefügt wurde.
Die Parameter entsprechen dem Ereignis BeforeSupplierInsert
  Public Event BeforeSupplierUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Lieferantendatensatz aktualisiert wird.
Die Parameter entsprechen dem Ereignis BeforeSupplierInsert
  Public Event AfterSupplierUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Lieferantendatensatz aktualisiert wurde.
Die Parameter entsprechen dem Ereignis BeforeSupplierInsert
  Public Event BeforeKreditorUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Kreditorendatensatz aktualisiert wird.
Die Parameter entsprechen dem Ereignis BeforeSupplierInsert
  Public Event AfterKreditorUpdate(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Kreditorendatensatz aktualisiert wurde.
Die Parameter entsprechen dem Ereignis BeforeSupplierInsert
Bemerkung Wird in strLieferantennummer ein Leerstring übergeben, wird eine neue Lieferantennummer im Bereich von strMinLieferantennummer bis strMaxLieferantennummer angelegt.
Das besondere an dieser Funktion ist, dass bei der Anlage bzw. Aktualisierung der Lieferantendaten die Geschäftslogik der Classic Line beachtet wird. Dies bedeutet insbesondere, dass auch Indexdateien, Matchcodedateien und ähnliche Funktionalitäten beachtet werden. Diese Funktion sollte der direkten Aktualisierung des Lieferantenstammsatzes über blnSchreibeDatensatz vorgezogen werden.
Die Ereignisse stellen wir Ihnen für folgende Funktionalitäten zur Verfügung:
  1. Sie können den zu schreibenden Datensatz noch einmal manipulieren, bevor er geschrieben wird.
    Achtung: Tun Sie dies nur, wenn Sie sich genau mit dem Aufbau des Datensatzes auskennen. Andernfalls können Sie den Eintrag unbrauchbar machen.
  2. Wollen Sie eigene Zusatzdaten anlegen, für die Sie z.B. schon die Lieferantennummer benötigen bevor der Datensatz geschrieben ist, erhalten Sie auf diese Art die Möglichkeit dazu.


blnNeuenKontaktAnlegen
Routinennamen Public Function blnNeuenKontaktAnlegen(ByRef strKontakt As String, udtFelder() As CLDaten) As Boolean
Beschreibung Legt einen neuen Kontakt in der Classic Line an oder aktualisiert einen bestehenden Kontakt.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter strKontakt
  1. Möglichkeit: "DA1234567890#####" oder "KA1234567890#####": Es wird ein neuer Kontakt zur Debitoren- bzw. Kreditorennummer angelegt. Anschließend enthält strKontakt die neue Kontaktnummer.
  2. Möglichkeit: Kontaktnummer im Format "DA123456789012345" oder "KA123456789012345": Existiert der angegebene Kontakt, wird dieser aktualisiert; Existiert der angegebene Kontakt nicht, wird er angelegt.

Das Feld enthält die neue Kontaktnummer, wenn die Funktion erfolgreich beendet wurde.
  udtFelder() Alle zu setzenden Felder werden in diesem Array vom Typ CLDaten übergeben. Nicht gesetzte Felder erhalten einen Defaultwert.
Ereignisse Public Event AfterDContactInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Kundenkontaktdatensatz eingefügt wird. Die Variable strDatensatz enthält den Datensatzstring, der im nächsten Schritt geschrieben wird. In der Collection colFelder werden die über udtFelder() gesetzten Felder übergeben.
  Public Event AfterKContactInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Lieferantenkontaktdatensatz eingefügt wurde.
Die Parameter entsprechen dem Ereignis AfterDContactInsert
  Public Event BeforeDContactInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Kundenkontaktdatensatz eingefügt wird.
Die Parameter entsprechen dem Ereignis AfterDContactInsert
  Public Event BeforeKContactInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Lieferantenkontaktdatensatz eingefügt wird.
Die Parameter entsprechen dem Ereignis AfterDContactInsert
Bemerkung Wird in strKontakt ein Sting im Format "DA1234567890#####" oder "KA1234567890#####" übergeben (die Rauten müssen übergeben werden), wird eine neue Kontaktnummer für den Kunden bzw. Lieferanten angelegt.
Existiert der Kunde bzw. Lieferant nicht, wird eine Fehlermeldung ausgelöst.
Das besondere an dieser Funktion ist, dass bei der Anlage bzw. Aktualisierung der Kontaktdaten die Geschäftslogik der Classic Line beachtet wird. Dies bedeutet insbesondere, dass auch Indexdateien, Matchcodedateien und ähnliche Funktionalitäten beachtet werden. Diese Funktion sollte der direkten Aktualisierung des Kontaktstammsatzes über blnSchreibeDatensatz vorgezogen werden.
Die Ereignisse stellen wir Ihnen für folgende Funktionalitäten zur Verfügung:
  1. Sie können den zu schreibenden Datensatz noch einmal manipulieren, bevor er geschrieben wird.
    Achtung: Tun Sie dies nur, wenn Sie sich genau mit dem Aufbau des Datensatzes auskennen. Andernfalls können Sie den Eintrag unbrauchbar machen.
  2. Wollen Sie eigene Zusatzdaten anlegen, für die Sie z.B. schon die Lieferantennummer benötigen bevor der Datensatz geschrieben ist, erhalten Sie auf diese Art die Möglichkeit dazu.

Hinweis: Diese Funktionalität ist zurzeit von uns nicht freigeschaltet. Sie können diese jedoch gesondert erwerben. Bitte wenden Sie sich dafür an Ihren Classic Line Fachhändler.


blnNeuenArtikelAnlegen
Routinennamen Public Function blnNeuenArtikelAnlegen(ByRef strArtikelnummer As String, ByRef strHersteller As String, udtFelder() As CLDaten) As Boolean
Beschreibung Legt einen neuen Artikel in der Classic Line an oder aktualisiert einen bestehenden Artikel.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter strArtikelnummer Die Artikelnummer, die angelegt oder aktualisiert werden soll. Dieser Parameter ist ein Pflichtparameter.
  strHersteller Die Herstellernummer, zu der der Artikel angelegt bzw. aktualisiert werden soll im Format "1234567890". Dieser Parameter ist ein Pflichtfeld.
  udtFelder() Alle zu setzenden Felder werden in diesem Array vom Typ CLDaten übergeben. Nicht gesetzte Felder erhalten einen Defaultwert.
Ereignisse - keine - Zurzeit werden für die Artikelanlage keine Ereignisse unterstützt.
Bemerkung Das besondere an dieser Funktion ist, dass bei der Anlage bzw. Aktualisierung der Artikeldaten die Geschäftslogik der Classic Line beachtet wird. Dies bedeutet insbesondere, dass auch Indexdateien, Matchcodedateien und ähnliche Funktionalitäten beachtet werden. Diese Funktion sollte der direkten Aktualisierung des Artikelstammsatzes über blnSchreibeDatensatz vorgezogen werden.


blnNeuenBelegAnlegen
Routinennamen Public Function blnNeuenBelegAnlegen(ByRef strBelegnummer As String, udtFelder() As CLDaten, ByVal blnPreiseInCLBerechnen As Boolean) As Boolean
Beschreibung Legt einen neuen Verkaufsbeleg in der Classic Line an.
Rückgabewert True Vorgang konnte erfolgreich beendet werden
  False Vorgang konnte nicht erfolgreich beendet werden
Parameter strBelegnummer
Das Feld enthält die neue Belegnummer, wenn die Funktion erfolgreich beendet wurde.
  udtFelder() Alle zu setzenden Felder werden in diesem Array vom Typ CLDaten übergeben. Nicht gesetzte Felder erhalten einen Defaultwert.
  blnPreiseInCLBerechnen Steht dieser Wert auf True, so werden die übergebenen Artikelpreise ignoriert. Statt dessen wird die Standard-Preisermittlung für diesen Artikel durchgeführt, als ob ein Anwender den Artikel in der Positionserfassung manuell eingegeben hätte. Sonderprogrammierungen für die Preisfindung können natürlich nicht automatisch berücksichtigt werden.
Ereignisse Public Event AfterBelegInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem der Belegdatensatz eingefügt wurde. Die Variable strDatensatz enthält den Datensatzstring, der im nächsten Schritt geschrieben wird. In der Collection colFelder werden die über udtFelder() gesetzten Felder übergeben.
  Public Event AfterPositionInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, nachdem ein Belegpositiondatensatz eingefügt wurde.
Die Parameter entsprechen dem Ereignis AfterBelegInsert.
  Public Event BeforeBelegInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Belegdatensatz eingefügt wird.
Die Parameter entsprechen dem Ereignis AfterBelegInsert
  Public Event BeforePositionInsert(ByRef strDatensatz As String, ByRef colFelder As Collection) Dieses Ereignis wird ausgelöst, bevor der Belegpositiondatensatz eingefügt wird.
Die Parameter entsprechen dem Ereignis AfterBelegInsert
Mit dieser Funktion ist es möglich, z.B. individuelle Preisfindungen zu realisieren.
Bemerkung Das erste im Array übergebene Feld bestimmt die Belegart. Gültige Werte sind:
Q = Angebot
A = Auftrag
L = Lieferschein, inkl. Auftrag
R = Rechnung, inkl. Auftrag
D = Direktrechung, inkl. Auftrag


Hinweis: Diese Funktionalität unterliegt zurzeit noch einigen Beschränkungen:
  • Es wird zu einem Beleg in der Auftragserfassung immer ein Auftrag angelegt.
  • Es ist nicht möglich, Folgebelege zu bestehenden Aufträgen anzulegen.
  • Belege können nicht bearbeitet werden.
  • Es werden nur Artikelpositionen unterstützt.
  • Es werden keine Einkaufsbelege unterstützt.
  • Es werden noch nicht alle Kopffelder des Beleges unterstützt.
  • Es werden nicht alle Felder der Artikelposition unterstützt.
  • Zurzeit unterstützte Felder Belegkopf Angebote Vorgang (nur "Q")
    Kundennummer
      Belegkopf Verkaufsbelege Vorgang (nur "A","L","R","D")
    Nummer
    Kundennummer
    Name1
    Name2
    Adresszusatz
    Strasse
    Postleitzahl
    Ort
    Laendercode
    Versand
    Kopfrabatt1
    Bestellnr_DesKunden
    Liefer_Name1
    Liefer_Name2
    Liefer_Adresszusatz
    Liefer_Strasse
    Liefer_Postleitzahl
    Liefer_Ort
    Liefer_Laendercode
    Liefer_Text1
    Liefer_Text2
    Kennz_Bruttopreise
    Fremdsprache
    USt_Schluessel
      Belegpositionen Angebote Artikelnummer
    Menge
    Einzelpreis
      Belegpositionen Verkaufsbelege Artikelnummer
    Menge
    Einzelpreis
    Lagerort
    Bezeichnung2


    blnGetOPSummen
    Routinennamen Public Function blnGetOPSummen(ByVal Konto As String, ByRef OPSummen() As Double) As Boolean
    Beschreibung Ermittelt die OP-Summen in einem vierstufigen 30-Tage-Raster
    Rückgabewert True Vorgang konnte erfolgreich beendet werden
      False Vorgang konnte nicht erfolgreich beendet werden
    Parameter Konto Kreditoren oder Debitorennummer im Format "K1234567890" bzw. "D1234567890".
      OPSummen() Rückgabe der OP-Summen der übergebenen Kontokorrentnummer. Dabei enthält
    OPSummen(0) die gesamte OP-Summe,
    OPSummen(1) die Summe <=30 Tage,
    OPSummen(2) die Summe >30 und <=60Tage,
    OPSummen(3) die Summe >60 und <=90 Tage und
    OPSummen(4) die Summe >90 Tage.
    Bemerkung Hinweis: Diese Funktionalität ist zurzeit von uns nicht freigeschaltet. Sie können diese jedoch gesondert erwerben. Bitte wenden Sie sich dafür an Ihren Classic Line Fachhändler.


    blnGetSperrvermerke
    Routinennamen Public Function blnGetSperrvermerke(ByRef Sperrvermerke() As String) As Boolean
    Beschreibung Ermittelt die Bezeichnungen der Sperrvermerke des aktuellen Mandanten
    Rückgabewert True Vorgang konnte erfolgreich beendet werden
      False Vorgang konnte nicht erfolgreich beendet werden
    Parameter Sperrvermerke() Die Bezeichnungen der Sperrvermerke des aktuellen Mandanten. Das Array hat zwölf Einträge. Dabei beinhalten die ersten sechs Einträge die Debitorensperrvermerke und die übrigen die Kreditorensperrvermerke.
    Bemerkung Hinweis: Diese Funktionalität ist zurzeit von uns nicht freigeschaltet. Sie können diese jedoch gesondert erwerben. Bitte wenden Sie sich dafür an Ihren Classic Line Fachhändler.


    vntUniversal
    Routinennamen Public Function vntUniversal(nFunktionsnummer As Integer, Optional ByRef rvntParameter As Variant) As Boolean
    Beschreibung Mit dieser Funktion können nachträglich Funktionen implementiert werden, ohne die Binärkompatibilität der COM-Klasse zu unterbrechen.
    Rückgabewert True Vorgang konnte erfolgreich beendet werden
      False Vorgang konnte nicht erfolgreich beendet werden
    Parameter Abhängig von der zukünftig implementierten Funktion
    Bemerkung Die Funktion vntUniversal wird zurzeit nicht benötigt. Weitere Informationen ent-nehmen Sie den zukünftigen Dokumentationen zur Connector-DLL.