Adressobjekt erstellen
GetAdrObj
Parameter
Die Methode hat keine Parameter.
Returnwert
Gibt als Returnwert einen Pointer auf das Adressobjekt zurück. Wird die Methode mehrmals aufgerufen, werden auch mehrere Objekte erstellt.
Bemerkung
Um die COM-Schnittstelle benützen zu können, muss im VisualBasic die SBSActiveX Library aktiviert werden. Sie wird unter dem Menüpunkt Project – References mit dem Namen „SBSxas X.X.X.X Type Library“ gefunden und aktiviert. X.X.X.X ist die Version der Type Library (z.B. 1.1.9.0)
Alle erstellten Objekte müssen beim Beenden des Programmes dealloziert werden. Die Deallozierung erfolgt in der gekehrten Reihenfolge als die Allozierung.
Konkret zu den Beispielen:
Set Adr = Nothing
Set Finanz = Nothing
Beispiel
//Beispiel – Automation Schnittstelle:
Dim Finanz, Adr As Object
Set Finanz = CreateObject("SBSxas.AXFinanz")
Set Adr = Finanz.GetAdrObj
//Beispiel – COM Schnittstelle:
Dim Finanz As AXFinanz
Dim Adr As AXiAdr Set Finanz = New SBSXASLib.AXFinanz
Set Adr = Finanz.GetAdrObj
Zusatzinformationen
Zusatzinformationen können hinzugefügt, gelöscht, modifiziert und gelesen werden. Aus den Objekten AXiAdr, AXiBeBu, AXiFBhg, AXiKrBhg sind diese Methoden zugreifbar. In der Dokumentation findet man dazu Verweise auf diesen Abschnitt.
Zusatzinformationen hinzufügen
Beschreibung
Mit der Methode AddExtInfo können Zusatzinformationen hinzugefügt werden
Parameter
Parameter-Liste
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
art |
String |
Alphanumerisch (1) |
Ja |
Art |
|
2. |
Nummer |
Long |
Numerisch |
Ja |
Nummer |
|
3. |
laufnr |
Long |
Numerisch |
Ja |
Wird eine laufnr kleiner gleich 0 übergeben, so wird vom System die nächste mögliche Laufnummer grösser als 0 generiert. Diese Laufnummer wird dem Aufrufer als Returnwert übergeben. |
|
4. |
datum1 |
String |
Datum (4,2,2) |
Nein |
JJJJMMDD |
|
5. |
datum2 |
String |
Datum (4,2,2) |
Nein |
JJJJMMDD |
|
6. |
datum3 |
String |
Datum (4,2,2) |
Nein |
JJJJMMDD |
|
7. |
datum4 |
String |
Datum (4,2,2) |
Nein |
JJJJMMDD |
|
8. |
datum5 |
String |
Datum (4,2,2) |
Nein |
JJJJMMDD |
|
9. |
text1 |
String |
Alphanumerisch (60) |
Nein |
Text 1 |
|
10. |
text2 |
String |
Alphanumerisch (60) |
Nein |
Text 2 |
|
11. |
text3 |
String |
Alphanumerisch (60) |
Nein |
Text 3 |
|
12. |
text4 |
String |
Alphanumerisch (60) |
Nein |
Text 4 |
|
13. |
text5 |
String |
Alphanumerisch (60) |
Nein |
Text 5 |
|
14. |
num1 |
Long |
Numerisch |
Ja |
Nummer 1 |
|
15. |
num2 |
Long |
Numerisch |
Ja |
Nummer 2 |
|
16. |
num3 |
Long |
Numerisch |
Ja |
Nummer 3 |
|
17. |
num4 |
Long |
Numerisch |
Ja |
Nummer 4 |
|
18. |
num5 |
Long |
Numerisch |
Ja |
Nummer 5 |
|
19. |
num6 |
Long |
Numerisch |
Ja |
Nummer 6 |
|
20. |
num7 |
Long |
Numerisch |
Ja |
Nummer 7 |
|
21. |
num8 |
Long |
Numerisch |
Ja |
Nummer 8 |
|
22. |
num9 |
Long |
Numerisch |
Ja |
Nummer 9 |
|
23. |
num10 |
Long |
Numerisch |
Ja |
Nummer 10 |
|
24. |
betrag1 |
String |
Numerisch (17.2) |
Nein |
Betrag 1 |
|
25. |
betrag2 |
String |
Numerisch (17.2) |
Nein |
Betrag 2 |
|
26. |
betrag3 |
String |
Numerisch (17.2) |
Nein |
Betrag 3 |
|
27. |
betrag4 |
String |
Numerisch (17.2) |
Nein |
Betrag 4 |
|
28. |
betrag5 |
String |
Numerisch (17.2) |
Nein |
Betrag 5 |
|
29. |
betrag6 |
String |
Numerisch (17.2) |
Nein |
Betrag 6 |
|
30. |
betrag7 |
String |
Numerisch (17.2) |
Nein |
Betrag 7 |
|
31. |
kurs1 |
String |
Numerisch (12.6) |
Ja |
Kurs 1 |
|
32. |
kurs2 |
String |
Numerisch (12.6) |
Ja |
Kurs 2 |
|
33. |
kurs3 |
String |
Numerisch (12.6) |
Ja |
Kurs 3 |
|
34. |
status1 |
String |
Alphanumerisch (1) |
Nein |
Status 1 |
|
35. |
status2 |
String |
Alphanumerisch (1) |
Nein |
Status 2 |
|
36. |
status3 |
String |
Alphanumerisch (1) |
Nein |
Status 3 |
|
37. |
ltext1 |
String |
Alphanumerisch (255) |
Nein |
Langer Text 1 |
|
38. |
ltext2 |
String |
Alphanumerisch (255) |
Nein |
Langer Text 2 |
|
39. |
ltext3 |
String |
Alphanumerisch (255) |
Nein |
Langer Text 3 |
Returnwert
Als Rückgabewert bekommt man die Laufnummer (Feld 3).
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Zusatzinformationen hinzufügen
Laufnummer = Adr.AddExtInfo(art, nummer, -1, Datum1, Datum2, Datum3, _ Datum4, Datum5, Text1, Text2, Text3, Text4, Text5, num1, num2, num3, _ num4, num5, num6, num7, num8, num9, num10, betrag1, betrag2, betrag3, _ betrag4, betrag5, betrag6, betrag7, kurs1, kurs2, kurs3, status1, _ status2, status3, ltext1, ltext2, ltext3)
End If
Zusatzinformationen modifizieren
UpdExtInfo
Beschreibung
Mit der Methode UpdExtInfo können Zusatzinformationen modifiziert werden.
Möchte man vorher eingegebenen Daten beibehalten, muss an diesen Stellen NOT_UPD übergeben werden.
Parameter
Gleiche Parameter wie bei Zusatzinformationen hinzufügen
Returnwert
Als Rückgabewert bekommt man die Laufnummer (Feld 3).
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Zusatzinformationen modifizieren
Call Adr.UpdExtInfo(art, nummer, laufnr, Datum1, Datum2, Datum3, Datum4, Datum5, Text1, Text2, Text3, Text4, Text5, num1, num2, num3, num4, num5, num6, num7, num8, num9, num10, betrag1, betrag2, betrag3, betrag4, betrag5, betrag6, betrag7, kurs1, kurs2, kurs3, status1, status2, status3, ltext1, ltext2, ltext3)
End If
Zusatzinformationen löschen
DropExtInfo
Beschreibung
Mit der Methode DropExtInfo können vorhandene Zusatzinformationen gelöscht werden.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
art |
String |
Alphanumerisch (1) |
Ja |
Art |
|
2. |
Nummer |
Long |
Numerisch |
Ja |
Nummer |
|
3. |
laufnr |
Long |
Numerisch |
Ja |
Laufnummer |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Zusatzinformationen löschen
Call Adr.DropExtInfo(art, nummer, laufnr)
End If
Zusatzinformationen lesen
GetExtInfo
Beschreibung
Mit der Methode GetExtInfo können Zusatzinformationen ausgelesen werden.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
Art |
String |
Alphanumerisch (1) |
Ja |
Art |
|
2. |
Nummer |
Long |
Numerisch |
Ja |
Nummer |
|
3. |
Laufnr |
Long |
Numerisch |
Ja |
Laufnummer |
Returnwert
Die Methode GetExtInfo liefert als Rückgabewert die Zusatzinformationen. Einzelne Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
Zusatzinformationen
|
Nr. |
Feldname |
Erklärung |
|---|---|---|
|
1. |
datum1 |
Datum 1 |
|
2. |
datum2 |
Datum 2 |
|
3. |
datum3 |
Datum 3 |
|
4. |
datum4 |
Datum 4 |
|
5. |
datum5 |
Datum 5 |
|
6. |
text1 |
Text 1 |
|
7. |
text2 |
Text 2 |
|
8. |
text3 |
Text 3 |
|
9. |
text4 |
Text 4 |
|
10. |
text5 |
Text 5 |
|
11. |
num1 |
Nummer 1 |
|
12. |
num2 |
Nummer 2 |
|
13. |
num3 |
Nummer 3 |
|
14. |
num4 |
Nummer 4 |
|
15. |
num5 |
Nummer 5 |
|
16. |
num6 |
Nummer 6 |
|
17. |
num7 |
Nummer 7 |
|
18. |
num8 |
Nummer 8 |
|
19. |
num9 |
Nummer 9 |
|
20. |
num10 |
Nummer 10 |
|
21. |
betrag1 |
Betrag 1 |
|
22. |
betrag2 |
Betrag 2 |
|
23. |
betrag3 |
Betrag 3 |
|
24. |
betrag4 |
Betrag 4 |
|
25. |
betrag5 |
Betrag 5 |
|
26. |
betrag6 |
Betrag 6 |
|
27. |
betrag7 |
Betrag 7 |
|
28. |
kurs1 |
Kurs 1 |
|
29. |
kurs2 |
Kurs 2 |
|
30. |
kurs3 |
Kurs 3 |
|
31. |
status1 |
Status 1 |
|
32. |
status2 |
Status 2 |
|
33. |
status3 |
Status 3 |
|
34. |
ltext1 |
Langer Text 1 |
|
35. |
ltext2 |
Langer Text 2 |
|
36. |
ltext3 |
Langer Text 3 |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject ("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Zusatzinformationen lesen
s = Adr.GetExtInfo(art, nummer, laufnr)
Print s
End If
Kontaktadressen
Beschreibung
Kontaktadressen können hinzugefügt, gelöscht, modifiziert und gelesen werden. Aus den Objekten AXiAdr, AXiDbBhg, AXiKrBhg sind diese Methoden zugreifbar. In der Dokumentation findet man dazu Verweise auf diesen Abschnitt.
Bemerkung
Möchte man Kontaktadressen zu einem Debitor/Kreditor hinzufügen, updaten, löschen oder lesen, muss anstelle des ersten Parameters AdressNr die Debitor- bzw. Kreditornummer sowie als neuen zweiten Parameter die Debitoren- bzw. Kreditorenwährung übergeben werden.
Interne Kontaktlaufnummer anhand der Externen Referenz holen
GetKontaktLfnbr
Beschreibung
Um die Kontaktadressen bearbeiten zu können, muss man grundsätzlich die interne Laufnummer des jeweiligen Kontaktes kennen.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressNr |
Long |
Numerisch |
Ja |
Aus den Objekten AXiDbBhg, AXiKrBhg: Debitoren- bzw. Kreditorennummer. |
|
2. |
ExtReferenz |
String |
Alphanumerisch (50) |
Ja |
Externe Referenz aus dem Kontaktstamm |
Returnwert
Die Kontaktlaufnummer zur angegebenen Adresse und Externen Referenz. Wenn kein Kontakt zur angegebenen Externen Referenz gefunden wird, ist der Rückgabewert = 0.
Bemerkung
Um die Kontaktadressen bearbeiten zu können, muss man grundsätzlich die interne Laufnummer des jeweiligen Kontaktes kennen.
Falls man die Kontakte in einem Drittprodukt über die Externe Referenz verwaltet, kann die interne Laufnummer mit dieser Methode an Hand der Externen Referenz herausgefunden werden.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Interne Kontakt-Lfnbr anhand Externer Referenz holen
Lfnbr = Adr.GetKontaktLfnbr(AdressNbr, ExterneReferenz)
Print s
End If
Kontaktadressen hinzufügen
AddKontaktAdresse, AddKontaktAdresse2, AddKontaktAdresse3
AddKontaktAdresse (erste 21 Parameter)
AddKontaktAdresse2 (erste 23 Parameter)
AddKontaktAdresse3 (erste 26 Parameter)
Beschreibung
Mit diesen Methoden können neue Kontaktadressen zu einer Adresse hinzugefügt werden Parameter:
Parameter
Parameter-Liste
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressNr |
Long |
Numerisch |
Ja |
Adressnummer aus dem Adressstamm |
|
2. |
Anrede |
String |
Alphanumerisch(40) |
Nein |
Anrede |
|
3. |
Persanrede |
String |
Alphanumerisch(40) |
Nein |
Persönliche Anrede |
|
4. |
Name |
String |
Alphanumerisch(40) |
Ja |
Name |
|
5. |
Vorname |
String |
Alphanumerisch(40) |
Nein |
Vorname |
|
6. |
Funktion |
String |
Alphanumerisch(40) |
Nein |
Funktion |
|
7. |
GebDte |
String |
Datum(4,2,2) |
Nein |
Geburtsdatum JJJJMMDD |
|
8. |
Abteilung |
String |
Alphanumerisch(40) |
Nein |
Abteilung |
|
9. |
Verkaeufer |
String |
Alphanumerisch(15) |
Nein |
Verkäufer |
|
10. |
Sachbearbeiter |
String |
Alphanumerisch(15) |
Nein |
Sachbearbeiter |
|
11. |
GeschlechtMW |
String |
Alphanumerisch(1) |
Nein |
(M)ännlich, (W)weiblich, (U)nbestimmt (Defaultwert = U) |
|
12. |
Sprachcode |
String |
Numerisch |
Nein |
Wird kein Sprachcode übergeben, wird der Sprachcode der beim Einloggen übergeben wurde verwendet. |
|
13. |
MailingJN |
String |
Alphanumerisch(1) |
Nein |
J/N, Defaultwert J |
|
14. |
Titel |
String |
Alphanumerisch(40) |
Nein |
Titel |
|
15. |
Telefon1 |
String |
Alphanumerisch(40) |
Nein |
Telefon-Nummer 1 |
|
16. |
Telefon2 |
String |
Alphanumerisch(40) |
Nein |
Telefon-Nummer 2 |
|
17. |
Mobil |
String |
Alphanumerisch(40) |
Nein |
Mobile-Nummer |
|
18. |
Telefax |
String |
Alphanumerisch(40) |
Nein |
Telefax-Nummer |
|
19. |
|
String |
Alphanumerisch(50) |
Nein |
E-Mail Adresse |
|
20. |
Hobby |
String |
Alphanumerisch(40) |
Nein |
Hobby |
|
21. |
Notiz |
String |
Alphanumerisch(255) |
Nein |
Notiz |
|
22. |
Status |
String |
Numerisch |
Nein |
Status: 1=Aktiv, 2=Provisorisch, 3=Inaktiv. Wird kein gültiger Status übergeben, wird der Wert 1 gesetzt. |
|
23. |
ExtReferenz |
String |
Alphanumerisch(50) |
Nein |
Externe Referenznummer |
|
24. |
Stammcode |
String |
Numerisch |
Nein |
Code, welcher bei jedem Kontakt hinterlegt werden kann. Die Codes können im Admin unter Codes beim Typ „Stammcode“ erfasst werden. 0 = keine Selektion |
|
25. |
ITelefon |
String |
Alphanumerisch(50) |
Nein |
Internet-Telefonnummer (VoIP) |
|
26. |
SMSJN |
String |
Alphanumerisch(1) |
Nein |
J/N, Defaultwert J |
Returnwert
Als Rückgabewert bekommt man die Kontaktlaufnummer zur angegebenen Adresse.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Kontaktadresse hinzufügen
Lfnbr = Adr.AddKontaktAdresse(AdressNbr, Anrede, Persanrede, Name, _ Vorname, Funktion, GebDte, Abteilung, Verkaeufer, Sachbearbeiter, _ GeschlechtMW, Sprachcode, MailingJN, Titel, Telefon1, Telefon2, _ Mobil, Telefax, Email, Hobby, Notiz)
Print s
End If
Kontaktadressen modifizieren
UpdateKontaktAdresse, UpdateKontaktAdresse2, UpdateKontaktAdresse3
UpdateKontaktAdresse (erste 22 Parameter)
UpdateKontaktAdresse2 (erste 24 Parameter)
UpdateKontaktAdresse3 (erste 27 Parameter)
Beschreibung
Mit diesen Methoden können neue Kontaktadressen zu einer Adresse hinzugefügt werden Parameter:
Parameter
Parameter-Liste
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressNr |
Long |
Numerisch |
Ja |
Aus den Objekten AXiDbBhg, AXiKrBhg: Debitoren- bzw. Kreditorennummer sowie als neuen zusätzlichen Parameter die Währung. |
|
2. |
Lfnbr |
Long |
Numerisch |
Ja |
Laufnummer |
|
3. |
Anrede |
String |
Alphanumerisch(40) |
Nein |
Anrede |
|
4. |
Persanrede |
String |
Alphanumerisch(40) |
Nein |
Persönliche Anrede |
|
5. |
Name |
String |
Alphanumerisch(40) |
Ja |
Name |
|
6. |
Vorname |
String |
Alphanumerisch(40) |
Nein |
Vorname |
|
7. |
Funktion |
String |
Alphanumerisch(40) |
Nein |
Funktion |
|
8. |
GebDte |
String |
Datum(4,2,2) |
Nein |
JJJJMMDD |
|
9. |
Abteilung |
String |
Alphanumerisch(40) |
Nein |
Abteilung |
|
10. |
Verkaeufer |
String |
Alphanumerisch(15) |
Nein |
Verkäufer |
|
11. |
Sachbearbeiter |
String |
Alphanumerisch(15) |
Nein |
Sachbearbeiter |
|
12. |
GeschlechtMW |
String |
Alphanumerisch(1) |
Nein |
Defaultwert M |
|
13. |
Sprachcode |
String |
Numerisch |
Nein |
Wird kein Sprachcode übergeben, wird der Sprachcode der beim Einloggen übergeben wurde verwendet. |
|
14. |
MailingJN |
String |
Alphanumerisch(1) |
Ja |
Defaultwert J |
|
15. |
Titel |
String |
Alphanumerisch(40) |
Nein |
Titel |
|
16. |
Telefon1 |
String |
Alphanumerisch(40) |
Nein |
Telefon-Nummer 1 |
|
17. |
Telefon2 |
String |
Alphanumerisch(40) |
Nein |
Telefon-Nummer 2 |
|
18. |
Mobil |
String |
Alphanumerisch(40) |
Nein |
Mobile-Nummer |
|
19. |
Telefax |
String |
Alphanumerisch(40) |
Nein |
Telefax-Nummer |
|
20. |
|
String |
Alphanumerisch(50) |
Nein |
E-Mail Adresse |
|
21. |
Hobby |
String |
Alphanumerisch(40) |
Nein |
Hobby |
|
22. |
Notiz |
String |
Alphanumerisch(255) |
Nein |
Notiz |
|
23. |
Status |
String |
Numerisch |
Nein |
Status: 1=Aktiv, 2=Provisorisch, 3=Inaktiv. Wird kein gültiger Status übergeben, wird der Wert 1 gesetzt. |
|
24. |
ExtReferenz |
String |
Alphanumerisch(50) |
Nein |
Externe Referenznummer |
|
25. |
Stammcode |
String |
Numerisch |
Nein |
Code, welcher bei jedem Kontakt hinterlegt werden kann. Die Codes können im Admin unter Codes beim Typ „Stammcode“ erfasst werden. 0 = keine Selektion |
|
26. |
ITelefon |
String |
Alphanumerisch(50) |
Nein |
Internet-Telefonnummer (VoIP) |
|
27. |
SMSJN |
String |
Alphanumerisch(1) |
Nein |
J/N, Defaultwert J |
Returnwert
Als Rückgabewert bekommt man die Kontaktlaufnummer zur angegebenen Adresse.
Bemerkung
Mit der Methode UpdateKontaktAdresse können Kontaktadressen modifiziert werden.
Möchte man vorher eingegebenen Daten beibehalten, muss an diesen Stellen NOT_UPD übergeben werden.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Kontaktadresse modifizieren
Call Adr.UpdateKontaktAdresse(AdressNbr, LfNbr, Anrede, Persanrede, Name, Vorname, Funktion, GebDte, Abteilung, Verkaeufer, Sachbearbeiter, GeschlechtMW, Sprachcode, MailingJN, Titel, Telefon1, Telefon2, Mobil, Telefax, Email, Hobby, Notiz)
Print s
End If
Kontaktadressen löschen
DropKontaktAdresse
Beschreibung
Mit der Methode DropKontaktAdresse können vorhandene Kontaktadressen gelöscht werden.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressNr |
Long |
Numerisch |
Ja |
Aus den Objekten AXiDbBhg, AXiKrBhg: Debitoren- bzw. Kreditorennummer sowie als neuen zusätzlichen Parameter die Währung. |
|
2. |
LfNbr |
Long |
Numerisch |
Ja |
Laufnummer |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Kontaktadresse löschen
Call Adr.DropExtInfo(art, nummer, laufnr)
End If
Kontaktadressen lesen
ReadKontaktAdresse, GetKontaktAdresseZeile
Beschreibung
Mit der Methode DropKontaktAdresse können vorhandene Kontaktadressen gelöscht werden.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressNr |
Long |
Numerisch |
Ja |
Adress-Nummer |
Returnwert
Die Kontaktadressen einer Adresse werden ausgelesen. Wird das Ende des Resultsets erreicht, wird der Returnwert „EOF“ zurückgegeben.
ReadKontaktAdresse initialisiert das Lesen und gibt keinen Returnwert zurück.
GetKontaktAdresseZeile gibt als Returnwert eine Zeile des Resultsets zurück. Einzelne Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
Die Zeile beinhaltet folgende Felder:
|
Nr. |
Feldname |
Erklärung |
|---|---|---|
|
1. |
LfNbr |
Laufnummer |
|
2. |
Anrede |
Anrede |
|
3. |
Persanrede |
Persönliche Anrede |
|
4. |
Name |
Name |
|
5. |
Vorname |
Vorname |
|
6. |
Titel |
Titel |
|
7. |
Funktion |
Funktion |
|
8. |
Geschlecht |
M/W |
|
9. |
Mailing |
J/N |
|
10. |
Telefon1 |
Telefon-Nummer 1 |
|
11. |
Abteilung |
Abteilung |
|
12. |
Telefon2 |
Telefon-Nummer 2 |
|
13. |
Mobil |
Mobile-Nummer |
|
14. |
Telefax |
Telefax-Nummer |
|
15. |
|
E-Mail Adresse |
|
16. |
Notiz |
Notiz |
|
17. |
VerkaeuferID |
Verkäufer-Identifikation |
|
18. |
SachbearbeiterID |
Sachbearbeiter-Identifikation |
|
19. |
Hobby |
Hobby |
|
20. |
Sprachcode |
Sprach-Code |
|
21. |
GebDte |
JJJJMMDD |
|
22. |
Status |
Status: 1=Aktiv, 2=Provisorisch, 3=Inaktiv |
|
23. |
ExtReferenz |
Externe Referenznummer |
|
24. |
Stammcode |
Code, welcher bei jedem Kontakt hinterlegt werden kann. |
|
25. |
ITelefon |
Internet-Telefonnummer (VoIP) |
|
26. |
SMSJN |
J/N, Defaultwert J |
|
27. |
kontakt_id |
Kontakt-Identifikation |
|
28. |
adresse_id |
Adressen-Identifikation |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ", "2006/01")
//Kontaktadresse lesen
Call Adr.ReadKontaktAdresse(AdressNr)
s = Adr.GetKontaktAdresseZeile
Print s
End If
Adresse schreiben
SetIndividInfoVal, SetIndividInfoText, SetZusatzDte, SetZusatzText, SetKontokorrent, WriteAdresse2, WriteAdresse3, WriteAdresse4
Beschreibung
Bevor das eigentliche Speichern der Adresse durch die Methode WriteAdresse2 oder StoreAdresse durchgeführt wird, können fünf zusätzliche Methoden (SetIndividInfoVal, SetIndividInfoText, SetZusatzDte, SetZusatzText, SetKontokorrent) aufgerufen werden: Die Methoden SetIndividInfoVal und SetIndividInfoText sowie SetZusatzDte und SetZusatzText füllen die Daten, welche entweder im Tab „Individuelle Informationen“ oder „Individuelle Zusätze“ des Adressstammes erscheinen.
Mit der Methode SetKontokorrent kann angegeben werden ob es sich bei dieser Adresse um einen Kontokorrent handelt.
Die Methode WriteAdresse2 schreibt die Adresse und teilt dieser automatisch die nächste Adressnummer zu.
Der alternativen Methode StoreAdresse kann als erster Parameter zusätzlich die Adressnummer mitgegeben werden. Die Adresse erhält dadurch die zugewiesene Adressnummer.
Parameter
Parameter von SetIndividInfoVal
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
Nummer |
Short |
Numerisch |
Ja |
1 - 12 |
|
2. |
User Wert |
String |
Numerisch(17.2) |
Nein |
Individueller numerischer Wert |
Parameter von SetIndividInfoText
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
Nummer |
Short |
Numerisch |
Ja |
1 – 12 |
|
2. |
User Text |
String |
Alphanumerisch(50) |
Nein |
Individueller alphanumerischer Wert |
Parameter von SetZusatzDte
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
FeldNummer |
Short |
Numerisch |
Ja |
1 – 6, repräsentiert Datenfeldnummer auf dem Tab „Individuelle Zusätze“ im Adressstamm der Applikation |
|
2. |
Datum |
String |
Datum(4,2,2) |
Nein |
JJJJMMDD Individuelles Datum |
Parameter von SetZusatzText
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
BoxNummer |
Short |
Numerisch |
Ja |
1 – 6, repräsentiert Nummer des Comboboxes auf dem Tab „Individuelle Zusätze“ im Adressstamm der Applikation |
|
2. |
ZusatzTextID |
String |
Alphanumerisch(15) |
Ja |
ID des Textes, Welche in der Methode WriteZusatzText als HelpID Parameter mitgegeben wurde. Die Boxnummer muss mit dem Parametern AusBox dieser Methode identisch sein. |
Parameter von SetKontokorrent
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
KontokorrentJN |
String |
Alphanumerisch(1) |
Nein |
(J/N) Ja/Nein Wird diese Methode nicht aufgerufen, wird der Defaultwert Nein übernommen. |
Parameter von WriteAdresse2 bzw. StoreAdresse (ersten 21/22 Parameter) und WriteAdresse3/WriteAdresse4 bzw. StoreAdresse2:
Achtung: Der Parameter Adressnummer ist nur bei der Methode StoreAdresse vorhanden!
Parameter-Liste:
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
Adressnummer |
Numerisch |
Numerisch |
Ja |
Nur bei der Methode StoreAdresse vorhanden |
|
2. |
Name |
String |
Alphanumerisch(100) |
Ja |
Name |
|
3. |
Vorname |
String |
Alphanumerisch(100) |
Nein |
Vorname |
|
4. |
Adresse 1 |
String |
Alphanumerisch(100) |
Nein |
Adresse 1 |
|
5. |
Adresse 2 |
String |
Alphanumerisch(100) |
Nein |
Adresse 2 |
|
6. |
Adresse 3 |
String |
Alphanumerisch(100) |
Nein |
Adresse 3 |
|
7. |
Postfach |
String |
Alphanumerisch(100) |
Nein |
Postfach |
|
8. |
Country-Code |
String |
Alphanumerisch(5) |
Ja |
Landeskürzel |
|
9. |
PLZ |
String |
Alphanumerisch(10) |
Nein |
Postleitzahl |
|
10. |
Ort |
String |
Alphanumerisch(100) |
Ja |
Ortschaft |
|
11. |
Telefon 1 |
String |
Alphanumerisch(40) |
Nein |
Telefonnummer 1 |
|
12. |
Telefon 2 |
String |
Alphanumerisch(40) |
Nein |
Telefonnummer 2 |
|
13. |
Telefax |
String |
Alphanumerisch(40) |
Nein |
Telefaxnummer |
|
14. |
|
String |
Alphanumerisch(40) |
Nein |
E-Mail Adresse |
|
15. |
Region |
String |
Alphanumerisch(5) |
Nein |
Region z.B. Kanton Luzern |
|
16. |
Adresstyp |
String |
Alphanumerisch(5) |
Nein |
z.B.: ‘D‘ = Debitor ‘K‘ = Kreditor oder andere alphanumerische Werte |
|
17. |
Anrede |
String |
Alphanumerisch(30) |
Nein |
Anrede |
|
18. |
Pers. Anrede |
String |
Alphanumerisch(30) |
Nein |
Persönliche Anrede |
|
19. |
Anspr. Partner |
String |
Alphanumerisch(30) |
Nein |
Externe Referenz des Kontaktstammes Wird eine neue Adresse erfasst oder gibt es keinen Kontakt mit der entprechenden Externen Referenz, wird ein neuer Kontakt angelegt. Dabei wird der Inhalt des Parameters „Ansprechspartner“ für die Felder „Name“ und „Externe Referenz“ des Kontaktstammes verwendet. |
|
20. |
Ausrichtung |
String |
Alphanumerisch(1) |
Nein |
Einer der folgenden Werte: ‘D‘ = Verkauf ‘K‘ = Einkauf ‘ ‘ = keine Ausrichtung |
|
21. |
Sprachcode |
String |
Numerisch |
Ja |
z.B. 2055 |
|
22. |
Mobil |
String |
Alphanumerisch(40) |
Nein |
Natelnummer Defaultwert ‘ ’ |
|
23. |
Stammcode |
String |
Numerisch |
Nein |
Code, welcher bei jeder Adresse hinterlegt werden kann. Die Codes können im Admin unter Codes beim Typ „Stammcode“ erfasst werden. 0 = keine Selektion |
|
24. |
ITelefon |
String |
Alphanumerisch(50) |
Nein |
Internet-Telefonnummer (VoIP) |
|
25. |
SMSJN |
String |
Alphanumerisch(1) |
Nein |
J/N, Defaultwert J |
|
26. |
URL |
String |
Alphanumerisch(255) |
Nein |
Internet |
Returnwert
Als Returnwert erhält man die Adressnummer der neu angelegten Adresse.
Bemerkung
Die Adressstammdaten allein reichen für Debitoren- respektive Kreditorenbuchungen nicht aus.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ", "2006/01")
//Adresse schreiben
Adr.SetZusatzText(1,1)
Adress_ID = Adr.WriteAdresse2("Muster","Hans", ...)
End If
Adresse aktualisieren
SetIndividInfoVal, SetIndividInfoText, SetZusatzDte, SetZusatzText, SetKontokorrent, UpdateAdresse2, UpdateAdresse3, UpdateAdresse4
Beschreibung
Bevor das eigentliche Speichern der aktualisierten Adressdaten durch die Methode UpdateAdresse2 durchgeführt wird, muss SetIndividInfoVal 12 mal aufgerufen werden und unter Umständen noch vier zusätzliche Methoden (SetIndividInfoText , SetZusatzDte und SetZusatzText, SetKontokorrent) aufgerufen werden. Die Methoden SetIndividInfoVal und SetIndividInfoText sowie SetZusatzDte und SetZusatzText aktuallisieren die Daten, welche entweder im Tab „Individuelle Informationen“ oder „Individuelle Zusätze“ des Adressstammes erscheinen. Mit der Methode SetKontokorrent kann angegeben werden ob es sich bei dieser Adresse um einen Kontokorrent handelt. Felder, welche ihren Wert behalten sollen, müssen mit dem Wert NOT_UPD gefüllt werden. Ansonsten werden diese Felder leer geändert, ausser KontokorrentJN wird auf Nein gesetzt.
Die Adresse, welche durch Adressnummer bestimmt wurde, wird mutiert.
Feld: Anspr. Partner: Hier kann der Kontakt erfasst werden. Wenn dieser noch nicht exisitert so wird dieser neu angelegt und als Default gesetzt.
Parameter
Parameter der Methoden SetIndividInfoVal, SetIndividInfoText, SetZusatzDte und SetZusatzText, SetKontokorrent siehe Adresse schreiben.
Parameter von UpdateAdresse2/UpdateAdresse3 (22/25 Parameter):
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressID |
Long |
Numerisch |
Ja |
Adressen-Identifikation |
|
2. |
Name |
String |
Alphanumerisch(40) |
Ja |
Name |
|
3. |
Vorname |
String |
Alphanumerisch(100) |
Nein |
Vorname |
|
4. |
Adresse 1 |
String |
Alphanumerisch(100) |
Nein |
Adresse 1 |
|
5. |
Adresse 2 |
String |
Alphanumerisch(100) |
Nein |
Adresse 2 |
|
6. |
Adresse 3 |
String |
Alphanumerisch(100) |
Nein |
Adresse 3 |
|
7. |
Postfach |
String |
Alphanumerisch(100) |
Nein |
Postfach |
|
8. |
Country-Code |
String |
Alphanumerisch(5) |
Ja |
Landeskürzel |
|
9. |
PLZ |
String |
Alphanumerisch(10) |
Nein |
Postleitzahl |
|
10. |
Ort |
String |
Alphanumerisch(100) |
Ja |
Ortschaft |
|
11. |
Telefon 1 |
String |
Alphanumerisch(40) |
Nein |
Telefonnummer 1 |
|
12. |
Telefon 2 |
String |
Alphanumerisch(40) |
Nein |
Telefonnummer 2 |
|
13. |
Telefax |
String |
Alphanumerisch(40) |
Nein |
Telefaxnummer |
|
14. |
|
String |
Alphanumerisch(40) |
Nein |
E-Mail Adresse |
|
15. |
Region |
String |
Alphanumerisch(5) |
Nein |
Region z.B. Kanton Luzern |
|
16. |
Adresstyp |
String |
Alphanumerisch(5) |
Nein |
z.B.: ‘D‘ = Debitor ‘K‘ = Kreditor oder andere alphanumerische Werte |
|
17. |
Anrede |
String |
Alphanumerisch(30) |
Nein |
Anrede |
|
18. |
Pers. Anrede |
String |
Alphanumerisch(30) |
Nein |
Persönliche Anrede |
|
19. |
Anspr. Partner |
String |
Alphanumerisch(30) |
Nein |
Referenz zum Kontakt. Diese Verbindung kann mit dem Schlüsselwort „NOT_SET“ gelöscht werden. Ein neuer Kontakt wird angelegt. |
|
20. |
Ausrichtung |
String |
Alphanumerisch(1) |
Nein |
Einer der folgenden Werte: ‘D‘ = Verkauf ‘K‘ = Einkauf ‘ ‘ = keine Ausrichtung |
|
21. |
Sprachcode |
String |
Numerisch |
Ja |
Sprach-Code |
|
22. |
Mobil |
String |
Alphanumerisch(40) |
Nein |
Natelnummer Defaultwert NOT_UPD |
|
23. |
Stammcode |
String |
Numerisch |
Nein |
Code, welcher bei jeder Adresse hinterlegt werden kann. Die Codes können im Admin unter Codes beim Typ „Stammcode“ erfasst werden. 0 = keine Selektion |
|
24. |
ITelefon |
String |
Alphanumerisch(50) |
Nein |
Internet-Telefonnummer (VoIP) |
|
25. |
SMSJN |
String |
Alphanumerisch(1) |
Nein |
J/N, Defaultwert J |
|
26. |
URL |
String |
Alphanumerisch(255) |
Nein |
Internet |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ", "2006/01") //Adresse ändern
Call Adr.UpdateAdresse2("Muster", "Johann", ...)
End If
Adresse löschen
DropAdresse
Beschreibung
Die Adresse, welche durch Adressnummer bestimmt wurde, wird gelöscht.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressID |
Long |
Numerisch |
Ja |
Adressen-Identifikation |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ", "2006/01")
//Adresse löschen
Call Adr.DropAdresse(55)
End If
Adresse lesen
ReadAdressen, GetAdressZeile2
Beschreibung
Die Adressen werden ausgelesen. Wird das Ende des Resultsets erreicht, wird der Returnwert „EOF“ zurückgegeben.
Parameter
Parameter von ReadAdressen
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
NameVon |
String |
Alphanumerisch(40) |
Nein |
Anfang der Suche, der String kann ein Sternchen (*) enthalten |
|
2. |
NameBis |
String |
Alphanumerisch(40) |
Nein |
Ende der Suche, der String kann ein Sternchen (*) enthalten |
NameVon ist leer: es werden alle Adressen vom Anfang bis Ende, oder bis den im Parameter NameBis angegebenen Wert ausgelesen.
NameVon enthält ein Sternchen: es werden alle Adressen mit den im NameVon angegebenen Anfangsbuchstaben ausgelesen, falls NameBis nicht angegeben wurde. Ansonsten werden alle Adressen im Bereich NameVon – NameBis ausgelesen.
Returnwerte
ReadAdressen initialisiert das Lesen und gibt keinen Returnwert zurück.
GetAdressZeile2 gibt als Returnwert eine Zeile des Resultsets zurück. Einzelne Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
Die Zeile beinhaltet folgende Felder:
|
Nr. |
Feldname |
Erklärung |
|---|---|---|
|
1. |
adrnbr |
Interne Adressnummer |
|
2. |
name |
Name |
|
3. |
vorname |
Vorname |
|
4. |
adresse1 |
Adresse 1 |
|
5. |
adresse2 |
Adresse 2 |
|
6. |
plz |
Postleitzahl |
|
7. |
ort |
Ortschaft |
|
8. |
telefon1 |
Telefonnummer 1 |
|
9. |
Adresse3 |
Adresse 3 |
|
10. |
ccode |
Landeskürzel |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Adresse lesen
Call Adr.ReadAdressen(NameVon,NameBis)
Do While s <> "EOF"
s = Adr.GetAdressZeile2
Print s
Loop
End If
Alle Adressdaten lesen
ReadWholeAdrs, GetWholeAdrsLine2
Beschreibung
Die Adressen die den Übergabeparametern entsprechen werden ausgelesen. Wird das Ende des Resultsets erreicht<, wird der Returnwert „EOF“ zurückgegeben.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
NrVon |
Long |
Numerisch |
Ja |
Auslesen ab AdressID |
|
2. |
NrBis |
Long |
Numerisch |
Ja |
Auslesen bis AdressID |
|
3. |
NameVon |
String |
Alphanumerisch(40) |
Nein |
Auslesen ab Name Sind keine Daten eingegeben, werden alle Daten bis NameBis ausgelesen |
|
4. |
NameBis |
String |
Alphanumerisch(40) |
Ja |
Auslesen bis Name |
|
5. |
LocationVon |
String |
Alphanumerisch(40) |
Nein |
Auslesen ab Ort Sind keine Daten eingegeben, werden alle Daten bis OrtBis ausgelesen |
|
6. |
LocationBis |
String |
Alphanumerisch(40) |
Ja |
Auslesen bis Ort |
|
7. |
RegionVon |
String |
Alphanumerisch(5) |
Nein |
Auslesen ab Region Sind keine Daten eingegeben, werden alle Daten bis RegionBis ausgelesen |
|
8. |
RegionBis |
String |
Alphanumerisch(5) |
Ja |
Aulsesen bis Region |
|
9. |
GroupVon |
String |
Alphanumerisch(5) |
Nein |
Auslesen ab Gruppe Sind keine Daten eingegeben, werden alle Daten bis GroupBis ausgelesen. Siehe Beschreibung GroupBis Um die Adressen ohne Gruppe auszugeben muss die GroupVon leer übergeben werden. |
|
10. |
GroupBis |
String |
Alphanumerisch(5) |
Ja |
Auslesen bis Gruppe Beinhaltet dieses Feld die Zeichenfolge ‘zzzzz‘ und GroupVon keine Zeichen, werden alle Daten ausgelesen, ohne auf die Gruppeneinschränkung zu achten. |
|
11. |
MaxCount |
Long |
Numerisch |
Ja |
Einschränkung für Anzahl der Zeilen die ausgegeben werden |
Returnwerte
ReadWholeAdrs initialisiert das Lesen und gibt keinen Returnwert zurück.
GetWholeAdrsLine2 gibt als Returnwert eine Zeile des Resultsets zurück. Einzelne Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
Die Zeile beinhaltet folgende Felder:
|
Nr. |
Feldname |
Erklärung |
|---|---|---|
|
1. |
adrnbr |
Interne Adressnummer. Wird nicht ausgegeben bei der Methode |
|
2. |
name |
Name |
|
3. |
vorname |
Vorname |
|
4. |
adresse1 |
Adresse 1 |
|
5. |
adresse2 |
Adresse 2 |
|
6. |
adresse3 |
Adresse 3 |
|
7. |
postfach |
Postfach |
|
8. |
countrycode |
Landeskürzel |
|
9. |
plz |
Postleitzahl |
|
10. |
ort |
Ortschaft |
|
11. |
telefon1 |
Telefonummer 1 |
|
12. |
telefon2 |
Telefonummer 2 |
|
13. |
telefax |
Telefaxnummer |
|
14. |
|
E-Mail Adresse |
|
15. |
region |
Region z.B. Kanton Luzern |
|
16. |
adrtyp |
Adressen-Typ |
|
17. |
ausrichtung |
‘D’: Verkauf, ‘K’: Einkauf, ‘ ‘ keine Ausrichtung |
|
18. |
anrede |
Anrede |
|
19. |
persanrede |
Persönliche Anrede |
|
20. |
anspartner |
Ansprechspartner |
|
21. |
sprachcode |
Sprach-Code |
|
22. |
userwert1 |
Individuelle Informationen (Adressen Tab 2) |
|
23. |
userwert2 |
Individuelle Informationen (Adressen Tab 2) |
|
24. |
userwert3 |
Individuelle Informationen (Adressen Tab 2) |
|
25. |
userwert4 |
Individuelle Informationen (Adressen Tab 2) |
|
26. |
userwert5 |
Individuelle Informationen (Adressen Tab 2) |
|
27. |
userwert6 |
Individuelle Informationen (Adressen Tab 2) |
|
28. |
userwert7 |
Individuelle Informationen (Adressen Tab 2) |
|
29. |
userwert8 |
Individuelle Informationen (Adressen Tab 2) |
|
30. |
userwert9 |
Individuelle Informationen (Adressen Tab 2) |
|
31. |
userwert10 |
Individuelle Informationen (Adressen Tab 2) |
|
32. |
userwert11 |
Individuelle Informationen (Adressen Tab 2) |
|
33. |
userwert12 |
Individuelle Informationen (Adressen Tab 2) |
|
34. |
usertext1 |
Individuelle Informationen (Adressen Tab 2) |
|
35. |
usertext2 |
Individuelle Informationen (Adressen Tab 2) |
|
36. |
usertext3 |
Individuelle Informationen (Adressen Tab 2) |
|
37. |
usertext4 |
Individuelle Informationen (Adressen Tab 2) |
|
38. |
usertext5 |
Individuelle Informationen (Adressen Tab 2) |
|
39. |
usertext6 |
Individuelle Informationen (Adressen Tab 2) |
|
40. |
usertext7 |
Individuelle Informationen (Adressen Tab 2) |
|
41. |
usertext8 |
Individuelle Informationen (Adressen Tab 2) |
|
42. |
usertext9 |
Individuelle Informationen (Adressen Tab 2) |
|
43. |
usertext10 |
Individuelle Informationen (Adressen Tab 2) |
|
44. |
usertext11 |
Individuelle Informationen (Adressen Tab 2) |
|
45. |
usertext12 |
Individuelle Informationen (Adressen Tab 2) |
|
46. |
inddte1 |
Individuelle Zusätze (Adressen Tab 3) |
|
47. |
inddte2 |
Individuelle Zusätze (Adressen Tab 3) |
|
48. |
inddte3 |
Individuelle Zusätze (Adressen Tab 3) |
|
49. |
inddte4 |
Individuelle Zusätze (Adressen Tab 3) |
|
50. |
inddte5 |
Individuelle Zusätze (Adressen Tab 3) |
|
51. |
inddte6 |
Individuelle Zusätze (Adressen Tab 3) |
|
52. |
indtxt1 |
Individuelle Zusätze (Adressen Tab 3) |
|
53. |
indtxt2 |
Individuelle Zusätze (Adressen Tab 3) |
|
54. |
indtxt3 |
Individuelle Zusätze (Adressen Tab 3) |
|
55. |
indtxt4 |
Individuelle Zusätze (Adressen Tab 3) |
|
56. |
indtxt5 |
Individuelle Zusätze (Adressen Tab 3) |
|
57. |
indtxt6 |
Individuelle Zusätze (Adressen Tab 3) |
|
58. |
IsKontokorrent |
Ja/Nein |
|
59. |
Mobil |
Mobile-Nummer |
|
60. |
KontaktNbr |
Interne Kontaktlaufnummer des Ansprechpartners |
|
61. |
Stammcode |
Adressstammcode |
|
62. |
SMSJN |
SMS |
|
63. |
URL |
Internet |
|
64 |
Werbung |
Werbung J/N für CRM |
|
65 |
Gesperrt |
Gesperrt J/N für CRM |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Adressen lesen
Call Adressen.ReadWholeAdrs(NrVon,NrBis,NameVon,NameBis, _ LocationVon,LocationBis,RegionVon,RegionBis,GroupVon,GroupBis, _ MaxCount)
Do While s <> "EOF"
s = Adr.GetWholeAdrsLine2
Print s
Loop
End If
Einzelne Adresse mittels Adressnummer lesen
GetAdresse2
Beschreibung
Die Adresse mit der entsprechenden AdressID wird ausgelesen.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressID |
Long |
Numerisch |
Ja |
Adressen-Identifikation der zu lesenden Adresse. |
Returnwerte
Die Methode GetAdresse2() liefert als Rückgabewerte alle Informationen zu der eingegebenen AdressID zurück. Einzelne Felder sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
Die Zeile entspricht derjenigen der Methode Alle Adressdaten lesen, ausser dass das erste Feld (interne Adressnummer) nicht ausgegeben wird.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Adresse lesen
s = Adr.GetAdresse2(AdressID)
Print s
End If
Bankstamm schreiben
WriteZahlungsverbindung3, WriteZahlungsverbindung4, WriteZahlungsverbindung5, GetZahlungsverbiLaufnr
Beschreibung
Es handelt sich hier um die Zahlungsverbindung des Mandanten (in SBS Finanz unter Stammdaten, Zahlungsverbindungen). Siehe auch Methode: Bankenstamm Zusatzdaten setzen.
Die Methode WriteZahlungsverbindung4 legt eine Mandantenbank an.
Parameter
Parameter-Liste
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
BankTyp |
String |
Alphanumerisch (1) |
Ja |
Nur Werte B=Bank, P=Post, S=ZA, A=Kreditkartenacquirer, C=Barfaktura |
|
2. |
BankKontoNr |
String |
Alphanumerisch (35) |
Ja |
Bankkontonummer |
|
3. |
BankName |
String |
Alphanumerisch (40) |
Ja |
Bankname |
|
4. |
BankAdr1 |
String |
Alphanumerisch (30) |
Nein |
Bankadresse 1 |
|
5. |
BankAdr2 |
String |
Alphanumerisch (30) |
Nein |
Bankadresse 2 |
|
6. |
BankPLZ |
String |
Alphanumerisch (10) |
Nein |
Postleitzahl der Bank |
|
7. |
BankOrt |
String |
Alphanumerisch (30) |
Ja |
Ortschaft der Bank |
|
8. |
BankLand |
String |
Alphanumerisch (5) |
Ja |
Landeskürzel der Bank |
|
9. |
BankClearingNr |
String |
Alphanumerisch (12) |
Ja |
Clearing-Nummer der Bank |
|
10. |
BankAktiv |
String |
Alphanumerisch (1) |
Ja |
Aktiv J/N: Kredi/Personal |
|
11. |
BankSwift |
String |
Alphanumerisch (30) |
Ja |
Swift-Nummer |
|
12. |
BankPCKonto |
String |
Alphanumerisch (30) |
Ja |
Postcheck-Nummer der Bank |
|
13. |
WhgID |
String |
Alphanumerisch (3) |
Ja |
Währungs-Identifikation |
|
14. |
KredLimit |
String |
Numerisch (17.2) |
Nein |
Kredit-Limit |
|
15. |
KtoFibu |
String |
Alphanumerisch (15) |
Ja |
Fibukonto |
|
16. |
ESRTeilnNbr |
String |
Numerisch |
Nein |
Teilnehmernummer |
|
17. |
ESRMode |
String |
Numerisch |
Ja |
Vordefinierte Werte: 0 – kein ESR, 1 – 5 Stellen Teilnehmer ; 15 Ref.Nummer, 2 – 9 Stellen Teilnehmer ; 16 Ref.Nummer, 3 – 9 Stellen Teinehmer ; 27 Ref.Nummer |
|
18. |
ESRDatei |
String |
Alphanumerisch (30) |
Ja |
ESR-Datei |
|
19. |
ESRIDNr |
String |
Alphanumerisch (20) |
|
Identifikationsnummer |
|
20. |
ESRFrNr |
String |
Alphanumerisch (20) |
|
Freie Referenz, wenn ESRMode 3 |
|
21. |
ESRBetrag |
String |
Alphanumerisch (1) |
|
ESR-Betrag |
|
22. |
ESRSize |
String |
Numerisch |
Ja |
Vordefinierte Werte 100 oder 128 |
|
23. |
ESRIDNbrVon |
String |
Numerisch |
Ja |
Identifikationsnummer von |
|
24. |
ESRIDNbrLen |
String |
Numerisch |
Ja |
Identifikationsnummer Länge |
|
25. |
ESRFrNbrVon |
String |
Numerisch |
Ja |
Freie Referenz von |
|
26. |
ESRFrNbrLen |
String |
Numerisch |
Ja |
Freie Referenz Länge |
|
27. |
ESRKNbrVon |
String |
Numerisch |
Ja |
Kundennummer von |
|
28. |
ESRKNbrLen |
String |
Numerisch |
Ja |
Kundennummer Länge |
|
29. |
ESRBNbrVon |
String |
Numerisch |
Ja |
Belegnummer von |
|
30. |
ESRBNbrLen |
String |
Numerisch |
Ja |
Belegnummer Länge |
|
31. |
DTAParam |
String |
Alphanumerisch (30) |
|
DTA Vertragsnummer |
|
32. |
DTAAuftraggeberID |
String |
Alphanumerisch (5) |
|
DTA Auftraggeber-ID |
|
33. |
LSVAbsenderID |
String |
Alphanumerisch (5) |
|
LSV Absender-Identifikation |
|
34. |
LSVEmpfaengerID |
String |
Alphanumerisch (5) |
|
LSV Empfänger-Identifikation |
|
35. |
DTAAbsenderID |
String |
Alphanumerisch (5) |
|
DTAAbsender ID |
|
36. |
ESRMikroNbr1 |
String |
Numerisch |
Ja |
Mikrofilmnummer 1 |
|
37. |
ESRMikroNbr2 |
String |
Numerisch |
Ja |
Mikrofilmnummer 2 |
|
38. |
ESRMikroNbr3 |
String |
Numerisch |
Ja |
Mikrofilmnummer 3 |
|
39. |
ESRParam |
String |
Alphanumerisch (30) |
|
ESR-Parameter |
|
40. |
LSVParam |
String |
Alphanumerisch (30) |
|
LSV-Parameter |
|
41. |
SADdatenid |
String |
Alphanumerisch (30) |
|
SAD-ID |
|
42. |
SADpcnrtax |
String |
Alphanumerisch (30) |
|
SAD-PC Nummer |
|
43. |
DTAverdichtetJN |
String |
Alphanumerisch (1) |
Ja |
DTA verdichtet |
|
44. |
SADauftragsnr |
Integer |
Numerisch |
Ja |
SAD-Auftragsnummer |
|
45. |
baddatenidin |
String |
Alphanumerisch (20) |
Nein |
Belastungsauftragsdienst ID Defaultwert = „“ |
|
46. |
badteilnbrin |
String |
Numerisch |
Nein |
Belastungsauftragsdienst Teilnehmernummer Defaultwert = „“ |
|
47. |
ClearingKto |
String |
Alphanumerisch (2) |
Nein |
Defaultwert = „“, wird noch nicht verwendet |
|
48. |
Zahlkonto |
String |
|
Nein |
Defaultwert = „“ |
|
49. |
Zahlkonto |
String |
Alphanumerisch (1) |
Nein |
Defaultwert = „N“ |
|
50. |
Sammelzahlung |
String |
Alphanumerisch (1) |
Nein |
Defaultwert = „N“ |
|
51. |
AvisAbBeleg |
String |
Numerisch |
Nein |
Defaultwert = „0“ |
|
52. |
IsVorschlag |
String |
Alphanumerisch (1) |
Nein |
Definiert ob die angegebene Bank als Vorschlag definiert sein muss. Nur Werte J/N, Defaultwert = N |
|
53. |
IBAN |
String |
Alphanumerisch (35) |
Nein |
Defaultwert = „“ |
|
54. |
IPISupported |
String |
Alphanumerisch (1) |
Nein |
Defaultwert = „N“ |
|
55. |
IsAktivBA |
String |
Alphanumerisch (1) |
Nein |
Aktiv J/N: Debibelastung |
|
56. |
IsAktivDZ |
String |
Alphanumerisch (1) |
Nein |
Aktiv J/N: Debi-Zahlung Defaultwert = „NOT_SET“à schreibt gleichen Wert wie BankAktiv |
|
57. |
KstNr |
String |
Alphanumerisch (15) |
Nein |
Kostenstelle für Bilanzkonto-Splitting |
Returnwerte
Die Methode GetZahlungsverbLaufnr holt die zugeteilte Banklaufnummer.
Bankenstamm Zusatzdaten setzen
SetBankInfo, SetBankInfo2
SetBankInfo(Parameter siehe Tabelle)
SetBankInfo2(Parameter siehe Tabelle)
Beschreibung
Um eine Zahlungsverbindung zu erfassen und upzudaten sind die Methoden WriteZahlungsverbindung und UpdateBank vorhanden. Da Visual Basic nur 60 Parameter unterstützt, konnten diese beiden Methoden nicht erweitert werden. Neu ist die Methode SetBankInfo vorhanden, welche zusätzliche Daten der Finanz-API übergibt.
Diese Methode muss vor dem Aufruf der Methoden WriteZahlungsverbindung, UpdateBank aufgerufen werden, um diese Werte zu setzen.
Die Methode SetBankInfo hat die ersten 8 Parameter, die Methode SetBankInfo2 13 Parameter. Die Methoden sind nicht zwingend und können aufgerufen werden wenn diese benötigt werden. Durch den Parameter NOT_SET wird selbst entschieden ob der Defaultwert verwendet werden muss oder NOT_UPD.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
CheckReport |
String |
Numerisch |
Nein |
Laufnummer des Checkformulars Siehe Methode GetLandSpezAuswertungen des AXFinanz-Objekts Defaultwert: NOT_SET (0, NOT_UPD) |
|
2. |
VergAufReport |
String |
Numerisch |
Nein |
Laufnummer des Vergütungsauftrag Siehe Methode GetLandSpezAuswertungen des AXFinanz-Objekts Defaultwert: NOT_SET (0, NOT_UPD) |
|
3. |
DTALand |
String |
Alphanumerisch (5) |
Nein |
Nur Werte CH, DE, AT, und Leerzeichen Defaultwert: NOT_SET („“, NOT_UPD) |
|
4. |
DTAFile |
String |
Alphanumerisch (30) |
Nein |
Defaultwert: NOT_SET („“, NOT_UPD) |
|
5. |
SpesenKto |
String |
Alphanumerisch (15) |
Nein |
Spesenkonto/Kommissionenkonto, Defaultwert: NOT_SET („“, NOT_UPD) à ist zwingend bei Banktyp=Kreditkartenacquirer |
|
6. |
SpesenKst |
String |
Alphanumerisch (15) |
Nein |
KST/KTR Spesen/Kommissionen, Defaultwert: NOT_SET („“, NOT_UPD) à ist zwingend bei Banktyp=Kreditkartenacquirer |
|
7. |
ESRIgnoreVon |
String |
Numerisch |
Nein |
Start des ignorierende ESR-Bereichs Defaultwert: NOT_SET (0, NOT_UPD) |
|
8. |
ESRIgnoreLen |
String |
Numerisch |
Nein |
Länge des ignorierenden Bereichs Defaultwert: NOT_SET (0, NOT_UPD) |
|
9. |
isVisaMust
|
String |
Alphanumerisch (1) |
Nein |
Einstellung Kreditkartenacuirer „Debi-Zahlungsverbindung erforderlich“: (J)a, (N)ein Defaultwert: NOT_SET(„N“) |
|
10. |
isVisaMust |
String |
Alphanumerisch (1) |
Nein |
Einstellung „Transaktionsdatum erforderlich“: (J)a, (N)ein Defaultwert: NOT_SET(„N“) |
|
11. |
isVisaMust |
String |
Alphanumerisch (1) |
Nein |
Einstellung Kreditkartenacuirer „Authorisierungscode erforderlich“: (J)a, (N)ein Defaultwert: NOT_SET(„N“) |
|
12. |
isVisaMust |
String |
Alphanumerisch (1) |
Nein |
Einstellung Kreditkartenacuirer „Transaktionsnummer erforderlich“: (J)a, (N)ein Defaultwert: NOT_SET(„N“) |
|
13. |
ExtZlgVerbNr |
String |
Alphanumerisch (30) |
Nein |
Externe Zahlungsverbindungnummer |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Bankstamm Zusatzdaten setzen
Call Adr.SetBankInfo("0", "0", "", "", "3600", "", "0", "0")
Call Adr.SetBankInfo("0", "NOT_SET", "", "", "3600", "", _
"NOT_SET", "0")
Call Adr.WriteZahlungsverbindung3(xxx, xxx, xxx)
Call Adr.UpdateBank(xxx, xxx, xxx)
End If
Bankenstamm modifizieren
UpdateBank3, UpdateBank4, UpdateBank5
Beschreibung
Die Methode mutiert die Daten der Bank. Die alphanumerischen Parameter können den String NOT_UPD erhalten. Dieser String indiziert, dass diese Parameter der Buchung nicht modifiziert werden und ihr ursprünglicher Wert bleibt unverändert.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
LfNr |
Long |
Numerisch |
Ja |
Die Laufnummer der Bank |
|
2. |
BankKontoNr |
String |
Alphanumerisch(35) |
Ja |
Bankkontonummer |
|
3. |
BankName |
String |
Alphanumerisch(40) |
Ja |
Bankname |
|
4. |
BankAdr1 |
String |
Alphanumerisch(30) |
Ja |
Bankadresse 1 |
|
5. |
BankAdr2 |
String |
Alphanumerisch(30) |
Ja |
Bankadresse 2 |
|
6. |
BankPLZ |
String |
Alphanumerisch(10) |
Ja |
Postleitzahl der Bank |
|
7. |
BankOrt |
String |
Alphanumerisch(10) |
Ja |
Ortschaft der Bank |
|
8. |
BankLand |
String |
Alphanumerisch(5) |
Ja |
Landeskürzel der Bank |
|
9. |
BankClearingNr |
String |
Alphanumerisch(12) |
Ja |
Clearing-Nummer der Bank |
|
10. |
BankAktiv |
String |
Alphanumerisch(1) |
Ja |
J/N |
|
11. |
BankSwift |
String |
Alphanumerisch(30) |
Ja |
Swift-Nummer |
|
12. |
BankPCKonto |
String |
Alphanumerisch(30) |
Ja |
Postcheck-Nummer |
|
13. |
WhgID |
String |
Alphanumerisch(3) |
Ja |
Währungs-Identifikation |
|
14. |
KredLimit |
String |
Numerisch(17.2) |
Nein |
Kredit-Limit |
|
15. |
KtoFibu |
String |
Alphanumerisch(15) |
Ja |
Fibukonto |
|
16. |
ESRTeilnNbr |
String |
Numerisch |
Nein |
Teilnehmernummer |
|
17. |
ESRMode |
String |
Numerisch |
Ja |
Vordefinierte Werte: 0 – kein ESR, 1 – 5 Stellen Teilnehmer ; 15 Ref.Nummer, 2 – 9 Stellen Teilnehmer ; 16 Ref.Nummer, 3 – 9 Stellen Teinehmer ; 27 Ref.Nummer |
|
18. |
ESRDatei |
String |
Alphanumerisch(30) |
Ja |
ESR-Datei |
|
19. |
ESRIDNr |
String |
Alphanumerisch(20) |
|
Identifikationsnummer |
|
20. |
ESRFrNr |
String |
Alphanumerisch(20) |
|
Freie Referenz, wenn ESRMode 3 |
|
21. |
ESRBetrag |
String |
Alphanumerisch(1) |
|
ESR-Betrag |
|
22. |
ESRSize |
String |
Numerisch |
|
Vordefinierte Werte 100 oder 128 |
|
23. |
ESRIDNbrVon |
String |
Numerisch |
|
Identifikationsnummer von |
|
24. |
ESRIDNbrLen |
String |
Numerisch |
|
Identifikationsnummer Länge |
|
25. |
ESRFrNbrVon |
String |
Numerisch |
|
Freie Referenz von |
|
26. |
ESRFrNbrLen |
String |
Numerisch |
|
Freie Referenz Länge |
|
27. |
ESRKNbrVon |
String |
Numerisch |
|
Kundennummer von |
|
28. |
ESRKNbrLen |
String |
Numerisch |
|
Kundennummer Länge |
|
29. |
ESRBNbrVon |
String |
Numerisch |
|
Belegnummer von |
|
30. |
ESRBNbrLen |
String |
Numerisch |
|
Belegnummer Länge |
|
31. |
DTAParam |
String |
Alphanumerisch(30) |
|
DTA Vertragsnummer |
|
32. |
DTAAuftraggeberID |
String |
Alphanumerisch(5) |
|
DTA Auftraggeber-ID |
|
33. |
LSVAbsenderID |
String |
Alphanumerisch(5) |
|
LSV Absender-Identifikation |
|
34. |
LSVEmpfaengerID |
String |
Alphanumerisch(5) |
|
LSV Empfänger-Identifikation |
|
35. |
DTAAbsenderID |
String |
Alphanumerisch(5) |
|
DTAAbsender ID |
|
36. |
ESRMikroNbr1 |
String |
Numerisch |
|
Mikrofilmnummer 1 |
|
37. |
ESRMikroNbr2 |
String |
Numerisch |
|
Mikrofilmnummer 2 |
|
38. |
ESRMikroNbr3 |
String |
Numerisch |
|
Mikrofilmnummer 3 |
|
39. |
ESRParam |
String |
Alphanumerisch(30) |
|
ESR-Parameter |
|
40. |
LSVParam |
String |
Alphanumerisch(30) |
|
LSV-Parameter |
|
41. |
SADdatenid |
String |
Alphanumerisch(30) |
|
SAD-ID |
|
42. |
SADpcnrtax |
String |
Alphanumerisch(30) |
|
SAD-PC Nummer |
|
43. |
DTAverdichtetJN |
String |
Alphanumerisch(1) |
Ja |
DTA verdichtet |
|
44. |
SADauftragsnr |
String |
Numerisch |
|
SAD-Auftragsnummer |
|
45. |
baddatenidin |
String |
Alphanumerisch(20) |
Nein |
Belastungsauftragsdienst ID Defaultwert = NOT_UPD |
|
46. |
badteilnbrin |
String |
Numerisch |
Nein |
Belastungsauftragsdienst Teilnehmernummer, Defaultwert = NOT_UPD |
|
47. |
ClearingKto |
String |
Alphanumerisch(2) |
Nein |
Defaultwert = NOT_UPD Wird fest auf NOT_UPD gesetzt. |
|
48. |
Zahlkonto |
String |
|
Nein |
Defaultwert = NOT_UPD Wird fest auf NOT_UPD gesetzt. |
|
49. |
Zahlkonto |
String |
Alphanumerisch(1) |
Nein |
Defaultwert = NOT_UPD |
|
50. |
Sammelzahlung |
String |
Alphanumerisch(1) |
Nein |
Defaultwert = NOT_UPD |
|
51. |
AvisAbBeleg |
String |
Numerisch |
Nein |
Defaultwert = NOT_UPD |
|
52. |
IsVorschlag |
String |
Alphanumerisch(1) |
Nein |
Definiert ob die angegebene Bank als Vorschlag definiert sein muss. Nur Werte J/N, Defaultwert = NOT_UPD |
|
53. |
IBAN |
String |
Alphanumerisch(35) |
Nein |
Defaultwert = NOT_UPD |
|
54. |
IPISupported |
String |
Alphanumerisch(1) |
Nein |
Defaultwert = NOT_UPD |
|
55. |
IsAktivBA |
String |
Alphanumerisch(1) |
Nein |
Defaultwert = NOT_UPD |
|
56. |
IsAktivDZ |
String |
Alphanumerisch(1) |
Nein |
Defaultwert = NOT_UPD |
|
57. |
KstNr |
String |
Alphanumerisch(15) |
Nein |
Kostenstelle für Bilanzkonto-Splitting Defaultwert = NOT_UPD |
Interne Zahlungsverbindungslaufnummer lesen
GetIntZahlVerbNr
Beschreibung
Die Methode mutiert die Daten der Bank. Die alphanumerischen Parameter können den String NOT_UPD erhalten. Dieser String indiziert, dass diese Parameter der Buchung nicht modifiziert werden und ihr ursprünglicher Wert bleibt unverändert.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
extZahlVerbNr |
String |
Alphanumerisch(30) |
Ja |
Externe Zahlunsverbindungslaufnummer |
Returnwert
Diese Methode gibt als Returnwert die interne Zahlungsverbindungslaufnummer zur übergebenen externen zurück. Die externe Laufnummer ist pro Debitor eindeutig und kann vom Benutzer definiert werden.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Interne Zahlungsverbindungslaufnummer lesen
intLfNbr = Adr.GetIntZahlVerbNr(extZahlVerbNr)
End If
Bankenstamm auslesen
ReadZahlungsverbindung, GetZahlungsverbZeile2
Beschreibung
Die Zahlungsverbindungen werden ausgelesen. Wird das Ende des Resultsets erreicht, wird der Returnwert „EOF“ zurückgegeben.
Parameter
Die Methoden haben keine Parameter.
Returnwert
ReadZahlungsverbindung initialisiert das Lesen und gibt keinen Returnwert zurück.
GetZahlungsverbZeile2 gibt als Returnwert eine Zeile des Resultsets zurück. Einzelne Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
Eine Zeile beinhaltet folgende Felder:
|
Nr. |
Feldname |
Erklärung |
|---|---|---|
|
1. |
lfnbr |
Laufnummer |
|
2. |
dknbr |
Debitorennummer |
|
3. |
whgid |
Währung des Debitors |
|
4. |
typ |
Bank Typ (D) |
|
5. |
kontonr |
Bankkontonummer |
|
6. |
kontotext |
Konto-Text |
|
7. |
name |
Bankname |
|
8. |
adresse1 |
Bankadresse 1 |
|
9. |
adresse2 |
Bankadresse 2 |
|
10. |
ccode |
Land der Bank |
|
11. |
plz |
Postleitzahl der Bank |
|
12. |
ort |
Ortschaft der Bank |
|
13. |
clearing |
Clearing-Nummer der Bank |
|
14. |
isaktiv |
Bank aktiv = J oder N (Eigene Zahlungsverbindung: aktiv für Kredi/Personal) |
|
15. |
swift |
SWIFT-Nummer |
|
16. |
kontoart |
B=Bank, P=Post, S=ZA, A=Kreditkartenacquirer, C=Barfaktura |
|
17. |
esrparam |
ESR-Parameter |
|
18. |
dtaparam |
DTA-Parameter |
|
19. |
lsvparam |
LSV-Parameter |
|
20. |
pckonto |
Postcheck-Konto der Bank |
|
21. |
kredlimit |
Kredit-Limit |
|
22. |
ktofibu |
Fibukonto |
|
23. |
teilnnbr |
ESR Teilnehmernummer |
|
24. |
absenderid |
Absender-Identifikation |
|
25. |
auftraggeberid |
Auftraggeber-Identifikation |
|
26. |
dtaerstdte |
DTA Erstellungsdatum |
|
27. |
dtaverdte |
DTA Verarbeitungsdatum |
|
28. |
esrmode |
ESR-Modus |
|
29. |
esrdatei |
ESR-Datei |
|
30. |
esridnr |
ESR-Identifikation |
|
31. |
esrfrnr |
Freie ESR Nummer |
|
32. |
esrbetrag |
ESR-Betrag |
|
33. |
esrsize |
ESR-Grösse |
|
34. |
esridnbrvon |
Kundenidentifikationsnummer von |
|
35. |
esridnbrlen |
Anzahl Zeichen Kundenidentifikationsnummer |
|
36. |
esrfrnbrvon |
Freie Nummer von |
|
37. |
esrfrnbrlen |
Anzahl Zeichen freie Nummer |
|
38. |
esrknbrvon |
Kundennummer von |
|
39. |
esrknbrlen |
Anzahl Zeichen Kundennummer |
|
40. |
esrbnbrvon |
Belegnummer von |
|
41. |
esrbnbrlen |
Anzahl Zeichen Belegnummer |
|
42. |
esrmikronbr1 |
Mikrofilmnummer 1 |
|
43. |
esrmikronbr2 |
Mikrofilmnummer 2 |
|
44. |
esrmikronbr3 |
Mikrofilmnummer 3 |
|
45. |
lsvabsid |
LSV Absender-Identifikation |
|
46. |
lsvempid |
LSV Empfänger-Identifikation |
|
47. |
saddatenid |
SAD-ID |
|
48. |
sadpcnrtax |
SAD-PC Nummer |
|
49. |
sadauftragsnr |
SAD-Auftragsnummer |
|
50. |
dtaverdichten |
DTA verdichten |
|
51. |
scheckart |
Scheckart |
|
52. |
schecknbr |
Schecknummer |
|
53. |
badteilnbr |
BAD-Teilnehmernummer |
|
54. |
baddatenid |
BAD Datenidentifikation |
|
55. |
IsVorschlag |
Ja/Nein |
|
56. |
IBAN |
International Bank Account Number |
|
57. |
CheckReport |
Reportnummer für Deutschen Scheck |
|
58. |
VergAufReport |
Report Vergütungsauftrag |
|
59. |
DTALand |
DTA-Land |
|
60. |
DTAFile |
DTA-Datei |
|
61. |
SpesenKto |
Spesenkonto/ Kommissionenkonto |
|
62. |
SpesenKst |
KST/KTR Spesen/ Kommissionen |
|
63. |
ESRIgnoreVon |
Position Zeichen ignorieren |
|
64. |
ESRIgnoreLen |
Anzahl Zeichen ignorieren |
|
65. |
IsEzag |
"J"=wenn Ezagformat "S" oder "E" / "N"=wenn Ezagformat leer |
|
66. |
IsDebidirect |
J/N |
|
67. |
IPISupported |
J/N |
|
68. |
ReportUeberAuf |
Report Überweisungsaufforderung |
|
69. |
IsAktivBA |
Eigene Zahlungsverbindung aktiv für Debibelastung J/N |
|
70. |
IsAktivDZ |
Eigene Zahlungsverbindung aktiv für Debitorenzahlen J/N |
|
71. |
LSVFormat |
LSV-Format |
|
72. |
WwwLink |
Internet-Adresse der Bank |
|
73. |
Briefbetreff |
Briefbetreff Überweisungsaufforderung |
|
74. |
Ezagformat |
Kein EZAG=leer, (S)AD-Format, (E)ZAG-Format |
|
75. |
lsvbadsamlzlg |
Sammelzahlung aktiv J/N |
|
76. |
lsvbadsamzlgavis |
Sammelzahlung avisieren J/N |
|
77. |
lsvbadanzahlavis |
Avisieren ab Anzahl Belege |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Zahlungsverbindungen auslesen
Call Adr.ReadZahlungsverbindung
Do While s <> "EOF"
s = Adr.GetZahlungsverbZeile2
Print s
Loop
End If
Bank löschen
DropBank
Beschreibung
Die Bank, welche durch BankID bestimmt wird, wird gelöscht.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
BankID |
Long |
Numerisch |
Ja |
Bank-Identifikation |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Bank löschen
Adr.DropBank(1234)
End If
Zusatztexte erfassen
WriteZusatzText2
Beschreibung
Diese Methode schreibt die Zusatztexte, dessen HelpID‘s in der Methode SetZusatzText referenziert sind.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
HelpID |
String |
Alphanumerisch(15) |
Ja |
Referenz ID |
|
2. |
AusBox |
Long |
Numerisch |
Ja |
Nummer des Comboboxes, Für welchen der Text bestimmt ist. (1 bis 6) |
|
3. |
Sequenz |
Long |
Numerisch |
Ja |
Reihenfolgenummer des Textes in der aufklappbaren Comboboxliste |
|
4. |
Typ |
String |
Alphanumerisch(1) |
Ja |
Gibt an für wen der Zusatztext bestimmt ist: A-Adresse, D-Debitor, K-Kreditor Wird z.B. D angegeben, ist der Zusatztext nur bei der Methode SetZusatzText des Debitors verwendbar. |
|
5. |
Kurztext |
String |
Alphanumerisch(50) |
Ja |
Der eigentliche Text |
Returnwert
Es gibt keinen Returnwert.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Zusatztexte erfassen
Adr.WriteZusatzText2("ReferenzID",1,1, "A","Text")
End If
Adressgruppe anlegen
AddGruppe
Beschreibung
Diese Methode erstellt eine neue Adressgruppe.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
ID |
String |
Alphanumerisch(5) |
Ja |
Referenz ID |
|
2. |
Text |
String |
Alphanumerisch(50) |
Ja |
Beschreibung |
|
3. |
TypAPR |
String |
Alphanumerisch(1) |
Ja |
Typ der Adressgruppe: A-Adressengruppe, P-Preisgruppe, R-Rabattgruppe |
Returnwert
Es gibt keinen Returnwert.
Adressgruppe löschen
DropGruppe
Beschreibung
Diese Methode löscht eine Adressgruppe.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
ID |
String |
Alphanumerisch(5) |
Ja |
Referenz ID |
Returnwert
Es gibt keinen Returnwert.
Adressgruppe modifizieren
UpdateGruppe
Beschreibung
Diese Methode mutiert eine Adressgruppe.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
ID |
String |
Alphanumerisch(5) |
Ja |
Referenz ID |
|
2. |
Text |
String |
Alphanumerisch(50) |
Ja |
Beschreibung |
|
3. |
TypAPR |
String |
Alphanumerisch(1) |
Ja |
Typ der Adressgruppe A-Adressengruppe, P-Preisgruppe,R-Rabattgruppe |
Returnwert
Es gibt keinen Returnwert.
Adressen in eine Adressgruppe einreihen
BindAdrAdrgrp
Beschreibung
Diese Methode bindet eine Adresse zu der Adressgruppe.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
AdressID |
Long |
Numerisch |
Ja |
Adressen-Identifikation |
|
2. |
GrpID |
String |
Alphanumerisch(5) |
Ja |
Gruppen-Identifikation |
Returnwert
Es gibt keinen Returnwert.
Clearingverzeichnis auslesen
ReadClearingVerzeichnis, GetClearingVerzeichnis
Beschreibung
Das Clearingverzeichnis wird ausgelesen. Wird das Ende des Resultsets erreicht, wird der Returnwert „EOF“ zurückgegeben.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
Land |
String |
Alphanumerisch(5) |
Nein |
Defaultwert CH |
Returnwert
ReadClearingVerzeichnis initialisiert das Lesen und gibt keinen Returnwert zurück.
GetClearingVerzeichnisZeile gibt als Returnwert eine Zeile des Resultsets zurück. Einzelne Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
|
Nr. |
Feldname |
Erklärung |
|---|---|---|
|
1. |
clearing |
Clearingnummer |
|
2. |
name |
Name |
|
3. |
Plz |
Postleitzahl |
|
4. |
ort |
Ort |
|
5. |
adresse2 |
Adressezeile 2 |
|
6. |
adresse1 |
Adresszeile 1 |
|
7. |
ccode |
Ländercode |
|
8. |
swift |
SWIFT |
|
9. |
pckonto |
Postcheck-Kontonummer |
|
10. |
sort |
Wird nicht gebraucht. Ist immer 1. |
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Clearingverzeichnis auslesen
Call Adr.ReadClearingVerzeichnis("CH")
Do While s <> "EOF"
s = Adr.GetClearingVerzeichnisZeile
Print s
Loop
End If
Höchste Adressnummer holen
GetMaxAdrNbr
Beschreibung
Das Clearingverzeichnis wird ausgelesen. Wird das Ende des Resultsets erreicht, wird der Returnwert „EOF“ zurückgegeben.
Parameter
Diese Methode hat keine Parameter.
Returnwert
Die Methode GetMaxAdrNbr() liefert als Rückgabewert die höchste Adressnummer (Numerisch) der Simultan-Datenbank.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Höchste Adressnummer holen
MaxAdrNbr = Adressen.GetMaxAdrNbr
MsgBox MaxAdrNbr
End If
Reservierter Adressnummerbereich ignorieren
SetCheckReservierterNbrBereich
Beschreibung
Der reservierte Adressnummernbereich wird beim Speichern einer neuen Adresse über das API normalerweise ignoriert (WriteAdresse, StoreAdresse), es wird unabhängig von dieser Definition in den Adressbereich geschrieben. Wird SetCheckReservierterNbrBereich mit dem Parameter J aufgerufen, so verhält sich das API wie das Programm und der reservierte Bereich wird überprüft. Achtung, SetCheckReservierterNbrBereich muss vor dem Schreiben einer Adresse aufgerufen werden.
Bei StoreAdresse wird ein Fehler generiert und bei WriteAdresse wird eine Adressnummer ausserhalb des reservierten Bereiches verwendet.
Parameter
|
Nr. |
Feldname |
Parametertyp |
Typ des Wertes |
Zwingend |
Erklärung |
|---|---|---|---|---|---|
|
1. |
CheckResAdrBereich |
String |
Alphanumerisch(1) |
Ja |
Zugelassene Werte: „J“ für überprüfen und „N“ für ignorieren |
Returnwert
Die Methode hat keinen Returnwert.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Adressnummerbereich überprüfen
SetCheckReservierterNbrBereich(„J“)
//Adresse schreiben
Adress_ID = Adr.WriteAdresse2("Muster","Hans", ...)
End If
Korrespondenzadresse lesen
GetKorrespondenzAdresse
Beschreibung
Es wird die Korrespondenzadresse für Debitoren- und Kreditorenberichte aus den Einstellungen gelesen.
Parameter
Die Methode hat keine Parameter.
Returnwert
Die Methode GetKorrespondenzAdresse () liefert als Rückgabewerte alle Informationen zu der eingegebenen AdressID zurück. Einzelne Felder sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).
Die Zeile entspricht derjenigen der Methode Alle Adressdaten lesen, ausser dass das erste Feld (interne Adressnummer) nicht ausgegeben wird.
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Adresse lesen
s = Adr.GetKorrespondenzAdresse()
Print s
End If
Position der Korrespondenzadresse lesen
GetPosKorrespondenzAdresse
Beschreibung
Es wird die Position der Korrespondenzadresse für Debitoren- und Kreditorenberichte aus den Einstellungen gelesen.
Parameter
Die Methode hat keine Parameter.
Returnwert
Die Methode GetPosKorrespondenzAdresse () kann folgende Rückgabewerte liefern:
L = Links
R = Rechts
U = Unterdrücken
Beispiel
//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")
//AXiAdr Objekt holen.
Set Adr = Finanz.GetAdrObj
//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ","2010/01")
//Adresse lesen
s = Adr.GetPosKorrespondenzAdresse()
Print s
End If