AXFinanz – Allgemeine Methoden – Infoniqua Demo

Achtung

Neu auf die Version 2022.0 und 2021.0 SP3 musste die Fehlernummer 15 auf 525 geändert werden, da sonst in C# bei diesem Fehler anstelle einer COM-Exception eine TypeLoad-Exception geworfen wurde.

Allgemein

Mit Hilfe der Finanz API (früher ActiveX-Server) von Infoniqa ONE 200 können Sie SBS Objekte und Methoden in Ihrem Programm verwenden und eine nahtlose Integration erreichen.

Weitere einführende Informationen sind im Dokument API-Allgemein zu finden.

Datenbank öffnen

ConnectSBSdb

Beschreibung

Erstellt die Verbindung mit der SBS-Datenbank. Diese Methode muss zwingend aufgerufen werden, um weitere Methoden ausführen zu können.

Mittels der Schnittstelle ConnectSBSdbNoPromptCrypted kann man sich mit einem von Infoniqa ONE 200 verschlüsselten Passwort anmelden.

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Datenquelle	String	Alphanumerisch	Ja	„Simultan_MSSQL65“
2.	Datenbank	String	Alphanumerisch	Ja	„SBS“
3.	Benutzer	String	Alphanumerisch	Ja	„Test0“
4.	Passwort	String	Alphanumerisch	Ja	„ “
5.	Sprachcode	String	Numerisch	Nein	Codetabelle-Zugriffsparameter Als Defaultwert wird der Sprachcode des eingeloggenden Benutzers verwendet (0 oder leer mtigeben). Siehe Windows-Dokumentation oder Inhalt der Tabelle „sprachauswahl“ (z.B. bei den Debi und Kredistämmen nötig)
6.	Applikationsname	String	Alphanumerisch	Nein	Als Defaultwert wird SBSxas verwendet Wird ein anderer Applikationsname übergeben treten Performance-Probleme auf, und die Ausführung verlangsamt sich.

Returnwert

Beim Einloggen auf die Datenbank wird eine Lizenzprüfung vorgenommen. Als Warnings für Lizenzprobleme können folgende Warnungen erscheinen (Das benutzen der Methoden im AXFinanz Objekt ist in jedem Fall weiterhin möglich!)

Nummer	ID	Text
10020	W_LIZENZINFO	Ihre Lizenz ist abgelaufen. Es stehen nur die Methoden des Objekts AXFinanz zur Verfügung.
10021	W_LIZENZINFO_BSE	Ihre Lizenz ist abgelaufen. Es stehen nur die Methoden der Objekte AXFinanz und BSExt zur Verfügung.
10034	W_LIZENZINFO	Lizenzlimite wurde überschritten. Mit dieser Lizenz können sich maximal X Instanz(en) der API auf die Datenbank einloggen.
10036	W_LIZENZEXPIRESOON	Die Lizenznummer ist gültig, wird jedoch in weniger als 30 Tage ablaufen.
10038	W_LIZENZCANTDETECT	Starten Sie den SQLWizard und führen Sie den Menüpunkt: 'Berechtigung: Datenbankberechtigungen regenerieren' aus.
10039	W_LIZENZVERSION	Die Version der Lizenznummer und die Produktversion sind unterschiedlich. Es stehen nur die Methoden des Objekts AXFinanz zur Verfügung.
10040	W_LIZENZERROR	Ihre Lizenz ist ungültig. Es stehen nur die Methoden des Objekts AXFinanz zur Verfügung.
514	E_LIZENZSERVER_NOT_DEFINED	Lizenzserver nicht gefunden
515	E_LIZENZSERVER_UNKNOW	Lizenzserver unbekannt
516	E_LIZENZSERVER_NOT_RUNNING	Lizenzserver nicht gestartet
517	E_LIZENZSERVER_NO_FEATURES	Lizenzserver - Keine Lizenzopton vorhanden
518	E_LIZENZSERVER_UNKNOW_ERROR	Lizenzserver – Unbekannter Fehler

Bemerkung

Erscheint der Fehler mit der Nummer 3 so handelt es sich um einen ODBC Error. Der genaue Fehlertext kann dann mit der Methode GetODBCConnectionErrorString eruiert werden.

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//Verbindung zur Datenbank herstellen
on error resume next

Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")

e=err.number and 65535
If e = 0 Then
msgbox "Anmeldung erfolgreich"
ElseIf e = 3 Then

msgbox Finanz.GetODBCConnectionErrorString
ElseIf e < 10000 Then
msgbox "Warnung"
Else

msgbox "Error"
End If

Mandant öffnen

OpenMandant

Beschreibung

Öffnet den eingegebenen Mandanten in der SBS-Datenbank. Wird keine Periode übergeben, so wird die Periode verwendet, die das aktuelle Datum beinhaltet.

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Mandanten-ID	String	Alphanumerisch (2)	Ja	„ZZ“
2.	Periode	String	Alphanumerisch (7)	Nein	„1997/01“

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//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","")
End If

Mandant überprüfen

CheckMandant

Beschreibung

Überprüft die Existenz des Mandanten in der SBS-Datenbank. Returnwert ist boolisch. Gibt es den eingegebenen Mandanten, ist der Returnwert TRUE.

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Mandanten-ID	String	Alphanumerisch(2)	Ja	„ZZ“

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
MsgBox Finanz.GetODBCConnectionErrorString
Else
//Mandant überprüfen
If  Finanz.CheckMandant("ZZ") = 1 Then
MsgBox "Mandant existiert"
Else
MsgBox "Mandant existiert nicht"
End If
End If

Zugriff überprüfen

CheckAccess

Beschreibung

Überprüfung der Zugriffsberechtigungsstufe des angemeldeten Benutzers für den gewählten Mandanten.

Der Returnwert ist vom Typ BOOL. Hat der Benutzer die aufgeführte Berechtigungsstufe, ist der Returnwert TRUE.

Parameter

Nr.

Feldname

Parametertyp

Typ des Wertes

Zwingend

Erklärung

Stufe

Integer

Numerisch

Zugelassene Werte:

0 – Administratorstufe,

1 – Hauptbuchhalterstufe,

2 – Debitorenbuchhalterstufe,

3 – Kreditorenbuchhalterstufe,

4 – Lohnbuchhalterstufe
6 – Betriebsbuchhalter

13 - Connect

14 – Darlehensbuchhalterstufe
18 – Workflow-Statusänderung

Mandanten-ID

String

Alphanumerisch (2)

Mandanten-Identifikation „ZZ“

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//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")
//Prüft ob Mandant Berechtigung hat
If Finanz.CheckAccess(2,"ZZ") = 1 Then
MsgBox "Mandant hat Debitorenberechtigung"
Else
MsgBox "Mandant hat keine Debitorenberechtigung"
End If
End If

Es wird überprüft, ob der angemeldete Benutzer zu den Debitorenoperationen berechtigt ist.

Konditionenliste lesen

ReadKond, GetKondListe

Beschreibung

Die Konditionenliste des angegebenen Mandanten wird ausgelesen. Durch Zeilenindexierung des Resultsets kann zu den einzelnen Zeilen beliebig zugegriffen werden. Wird der Zeilenindex der Zeilenanzahl überschritten, ist der Returnwert ‚EOF‘.

Parameter

Parameter von ReadKond

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Mandanten-ID	String	Alphanumerisch (2)	Ja	„ZZ“

Parameter von GetKondListe

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Zeilenindex	Long	Numerisch	Ja	Zeilenindex >= 0

Returnwert

ReadKond gibt als Returnwert die Zeilenanzahl des Resultsets zurück.

GetKondListe(idx) gibt als Returnwert die Zeile „idx“ des Resultsets zurück. Die einzelnen 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.	kondnbr	Konditionsnummer
2.	lfnbr	Laufnummer
3.	kondtext	Text
4.	verftage	Verfalltage
5.	satz	Satz
6.	tolnbr	Toleranz
7.	akzttage	Akzeptanztage
8.	status	1=aktiv, 0=nicht aktiv

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//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")

//Konditionenliste lesen
lfnbr = Finanz.ReadKond("ZZ")
For ix = 0 To lfnbr
s = Finanz.GetKondListe(ix)
If s = "EOF" Then Exit For End If
Print s
Next
End If

Zusätzliche Mandanteninformation lesen

GetMandExtInfo

GetMandExtInfo (Mandanten-ID)

Beschreibung

Liest die Zusatzinformation des angegebenen Mandanten.

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Mandanten-ID	String	Alphanumerisch (2)	Ja	„ZZ“

Returnwert

Die Methode GetMandExtInfo liefert als Returnwert die Zusatzinformationen des Mandanten. Die einzelnen Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).

Die Zusatzinformation beinhaltet folgende Felder:

Nr.	Feldname	Erklärung
1.	name	Name
2.	adresse	Adresse
3.	plz	Postleitzahl
4.	ort	Ort
5.	telefon	Telefon-Nummer
6.	telefax	Telefax-Nummer
7.	whgid	Währungs-ID
8.	mwstnr	Mehrwertsteuer-Nummer
9.	mwstpsatz	Mehrwertsteuer-Satz
10.	kstrg	Kostenstelle aktiv
11.	ktonreb	Kontonummer Eröffnungsbilanz
12.	ebtext	Einzelbuchungs-Text
13.	sbtext	Sammelbuchungs-Text
14.	kdtext	Text Kursdifferenzbuchungen
15.	fbhgtoshow	Anz. anzuzeigende Fibubuchungen
16.	bbhgtoshow	Anz. anzuzeigende Korebuchungen
17.	zbtext	Text autom. Zinsbuchungen
18.	mwstabrart	Mehrwertsteuer-Abrechnungsart
19.	incrbelnbrf	Inkrementelle Fibubelegnummer
20.	incrbelnbrb	Inkrementelle Bebubelegnummer
21.	usanz	Usanz
22.	dtadatei	DTA-Datei
23.	dtawhgid	DTA Währungs-ID
24.	dtaccode	DTA-Ländercode
25.	zlgtext	Zahlungs-Text
26.	sktext	Text Skontoausbuchungen
27.	incrbelnbrk	Inkrementelle Kredibelegnummer
28.	incrbelnbrd	Inkrementelle Debitorenbelegnummer
29.	tzlgtext	Teilzahlungstext
30.	vzlgtext	Vorauszahlungstext
31.	debitext1	Debitorenzusatztext 1
32.	debitext2	Debitorenzusatztext 2
33.	debitext3	Debitorenzusatztext 3
34.	debitext4	Debitorenzusatztext 4
35.	debitext5	Debitorenzusatztext 5
36.	debitext6	Debitorenzusatztext 6
37.	debitext7	Debitorenzusatztext 7
38.	debitext8	Debitorenzusatztext 8
39.	debitext9	Debitorenzusatztext 9
40.	debitext10	Debitorenzusatztext 10
41.	debitext11	Debitorenzusatztext 11
42.	debitext12	Debitorenzusatztext 12
43.	debitext13	Debitorenzusatztext 13
44.	debitext14	Debitorenzusatztext 14
45.	debitext15	Debitorenzusatztext 15
46.	debitext16	Debitorenzusatztext 16
47.	debitext17	Debitorenzusatztext 17
48.	debitext18	Debitorenzusatztext 18
49.	debitext19	Debitorenzusatztext 19
50.	debitext20	Debitorenzusatztext 20
51.	debitext21	Debitorenzusatztext 21
52.	debitext22	Debitorenzusatztext 22
53.	debitext23	Debitorenzusatztext 23
54.	debitext24	Debitorenzusatztext 24
55.	kreditext1	Kreditorenzusatztext 1
56.	kreditext2	Kreditorenzusatztext 2
57.	kreditext3	Kreditorenzusatztext 3
58.	kreditext4	Kreditorenzusatztext 4
59.	kreditext5	Kreditorenzusatztext 5
60.	kreditext6	Kreditorenzusatztext 6
61.	kreditext7	Kreditorenzusatztext 7
62.	kreditext8	Kreditorenzusatztext 8
63.	kreditext9	Kreditorenzusatztext 9
64.	kreditext10	Kreditorenzusatztext 10
65.	kreditext11	Kreditorenzusatztext 11
66.	kreditext12	Kreditorenzusatztext 12
67.	kreditext13	Kreditorenzusatztext 13
68.	kreditext14	Kreditorenzusatztext 14
69.	kreditext15	Kreditorenzusatztext 15
70.	kreditext16	Kreditorenzusatztext 16
71.	kreditext17	Kreditorenzusatztext 17
72.	kreditext18	Kreditorenzusatztext 18
73.	kreditext19	Kreditorenzusatztext 19
74.	kreditext20	Kreditorenzusatztext 20
75.	kreditext21	Kreditorenzusatztext 21
76.	kreditext22	Kreditorenzusatztext 22
77.	kreditext23	Kreditorenzusatztext 23
78.	kreditext24	Kreditorenzusatztext 24
79.	skontoaktiv	Skonto oder Rückvergütung
80.	vstufe1	Verfallstufe 1
81.	vstufe2	Verfallstufe 2
82.	vstufe3	Verfallstufe 3
83.	isdebidirect	Debitorendirektverbuchen ja oder nein
84.	iskredidirect	Kreditorendirektverbuchen ja oder nein
85.	iskredibrutto	Kreditoren-Bruttoverbuchung aktiv
86.	sprcode	Sprach-Code
87.	defexpsteuer	Default Export Steuersatz
88.	rundung	Rundung
89.	isabschlbuch	Abschlussbuchung anzeigen
90.	zeigeeigbuch	Nur eigene Buchungen anzeigen
91.	defimpsteuer	Default Import Steuersatz
92.	resnum1	Flag Habenbuchungstexte aktiv (0=inaktiv 1= aktiv)
93.	isdeutsch	Laufenberg-Flag
94.	avisabtage	Druck Zahlungsavis ab anz. Belege
95.	textdebifakt	Vorschlagstext für Debi-Fakturen
96.	textkredifakt	Vorschlagstext für Kreditoren-Fakturen
97.	Isvorerfassung	Kreditoren vorerfassen
98.	textsteuerbhg	Vorschlagstext für Steuerbuchungen
99.	bmppath	Pfad für Bilder
100.	anzadr	Anzahl anzuzeigende Datensätze im Grid
101.	verrtext	Text für Ausgleich per Verrechnung
102.	anltext1	Individueller Anlagetext 1
103.	anltext2	Individueller Anlagetext 2
104.	anltext3	Individueller Anlagetext 3
105.	anltext4	Individueller Anlagetext 4
106.	anltext5	Individueller Anlagetext 5
107.	anltext6	Individueller Anlagetext 6
108.	anltext7	Individueller Anlagetext 7
109.	anltext8	Individueller Anlagetext 8
110.	anltext9	Individueller Anlagetext 9
111.	anltext10	Individueller Anlagetext 10
112.	anltext11	Individueller Anlagetext 11
113.	anltext12	Individueller Anlagetext 12
114.	anltext13	Individueller Anlagetext 13
115.	anltext14	Individueller Anlagetext 14
116.	anltext15	Individueller Anlagetext 15
117.	lsvbadzlgnbr	Zahllaufnummer für LSV / BAD
118.	textgutschrift	Gutschrifts-Text
119.	textspesen	Text Spesen
120.	Issichtbar	Mandant sichtbar
121.	textdebigs	Vorschlagstext für Debi-Gutschriften
122.	defdebibhgtext	Debitoren-Buchungstext
123.	defkredibhgtext	Kreditoren-Buchungstext
124.	adrtext1	Individueller Adresstext 1
125.	adrtext2	Individueller Adresstext 2
126.	adrtext3	Individueller Adresstext 3
127.	adrtext4	Individueller Adresstext 4
128.	adrtext5	Individueller Adresstext 5
129.	adrtext6	Individueller Adresstext 6
130.	adrtext7	Individueller Adresstext 7
131.	adrtext8	Individueller Adresstext 8
132.	adrtext9	Individueller Adresstext 9
133.	adrtext10	Individueller Adresstext 10
134.	adrtext11	Individueller Adresstext 11
135.	adrtext12	Individueller Adresstext 12
136.	adrtext13	Individueller Adresstext 13
137.	adrtext14	Individueller Adresstext 14
138.	adrtext15	Individueller Adresstext 15
139.	adrtext16	Individueller Adresstext 16
140.	adrtext17	Individueller Adresstext 17
141.	adrtext18	Individueller Adresstext 18
142.	adrtext19	Individueller Adresstext 19
143.	adrtext20	Individueller Adresstext 20
144.	adrtext21	Individueller Adresstext 21
145.	adrtext22	Individueller Adresstext 22
146.	adrtext23	Individueller Adresstext 23
147.	adrtext24	Individueller Adresstext 24
148.	<inaktiv>	Immer leer
149.	dtalfnbr	DTA Laufnummer für Deutschland
150.	sekkaerlbhgart	Buchungsart für Sekundärkostenart
151.	eurowhgid	Eurowährung
152.	eurorechdte	Datum der Euroumstellung
153.	fixkurs	Fix-Kurs
154.	zlgtextk	Zahlungstext Kreditoren
155.	zlgtextvar	Zahlungstext
156.	runddifftxt	Text Rundungsdifferenz
157.	runddiffabweich	Zahlungstext Kreditoren verdichtet
158.	kzlgtextverdicht	Zahlungstext Kreditoren Verdichten
159.	plausproj	Projekt plausibilisieren
160.	kakstsort	Kostenarten/Kostenstellen Sort
161.	kredkontr	Kreditkontrolle
162.	iscached	Caching für Fibukonti aktivieren
163.	<inaktiv>	Leer
164.	incrbelnbrdz	Inkrementelle Belegnummer Debitorenzahlung
165.	incadrnbr	Adressnummer automatisch erhöhen
166.	plausprojdtebis	Plausibilitätsprojekt: Datum bis
167.	<inaktiv>	Leer
168.	lsvmitteiltxt	LSV/ Debi Direct: Mitteilungstext
169.	lsvsammeltxt	LSV Text Sammelzahlung
170.	kkaktiv	Kontokorrent aktiviert
171.	anzkarenztage	Anzahl Karenztage
172.	isclearingzwingend	Wir nicht mehr verwendet (immer ‚N‘)
173.	zlgtextvark	Variante Zahltext
174.	umlagetxt	Umlagetext
175.	verrechnungtxt	Text Verrechnung
176.	dvnbr	Datenverarbeitungsnummer
177.	dtaccode	DTA –Landeskürzel
178.	sammeldta	SammelDTA erstellen
179.	isextkons	Externe Konsolidierung aktiv
180.	konsktonr	Kontenplannummer zur externen Konsolidierung
181.	konsgeselnr	Gesellschaftsnummer zur externen Konsolidierung
182.	konsunternehmer	Unternehmensbereich zur externen Konsolidierung
183.	konssachktonr	Sachkonto für Umlage zur externen Konsolidierung
184.	plausprojbhg	Plausibilitätsprojekte Buchungen
185.	extzins	Flag Erweitertes Zinsrechnen
186.	febanking	E-Banking Fibu aktivieren
187.	aebanking	E-Banking Auftrag aktivieren
188.	pebanking	E-Banking Personal aktivieren

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//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")

//Mandanteninformation lesen
tmp = Finanz.GetMandExtInfo("ZZ")
arr = Split(tmp,"{>}")

For ix = 0 To Ubound(arr,1)-1
s = Finanz.GetKondListe(ix)
If s = "EOF" Then Exit For End If
Print s
Next
End If

Mandantenliste lesen

ReadMand, ReadMand2, GetMandListe

Beschreibung

Die Mandantenliste wird ausgelesen. Durch die Indexierung der Resultsetszeilen kann zu den einzelnen Zeilen beliebig zugegriffen werden. Wird der Zeilenindex der Zeilenanzahl überschritten, ist der Returnwert ‚EOF‘.

Parameter

Parameter von ReadMand2

Nr.

Feldname

Parametertyp

Typ des Wertes

Zwingend

Erklärung

CheckRights

String

Bestimmt ob Zugriffsrechte des Benutzers beachtet werden sollen.

N=Zugriffsrechte nicht beachten: Alle Mandanten werden ausgelesen (entspricht der Methode ReadMand)

J=Zugriffsrechte beachten. Es werden nur Mandanten ausgelesen, für die der eingeloggte Benutzer Zugriffsrecht hat.

Parameter von GetMandListe

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Zeilenindex	Long	Numerisch	Ja	Zeilenindex >= 0

Returnwert

ReadMand gibt als Returnwert die Zeilenanzahl des Resultsets zurück.

GetMandListe(idx) gibt als Returnwert die Zeile „idx“ des Resultsets zurück. Die einzelnen Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).

Die Returnzeile beinhaltet folgende Felder:

Nr.	Feldname	Erklärung
1.	mandid	Mandantenidentifikation
2.	name	Name
3.	adresse	Adresse
4.	plz	Postleitzahl
5.	ort	Ort
6.	mwstabrart	Mehrwertsteuer-Abrechnungsart
7.	eurorechdte	Euroberechnung ab diesem Datum
8.	altbasiswhg	Alte Basiswährung

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//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")

//Mandantenliste lesen
lfnbr = Finanz.ReadMand

For ix = 0 To lfnbr
s = Finanz.GetMandListe(ix)
If s = "EOF" Then Exit For End If
Print s
Next
End If

Periodenliste lesen

ReadPeri, GetPeriListe

Beschreibung

Die Periodenliste (Geschäftsjahre) wird ausgelesen. Durch Indexierung der Zeilen des Resultsets kann zu den einzelnen Zeilen beliebig zugegriffen werden. Wird der Zeilenindex der Zeilenanzahl überschritten, ist der Returnwert ‚EOF‘.

Parameter

Parameter von ReadPeri

Nr.

Feldname

Parametertyp

Typ des Wertes

Zwingend

Erklärung

Mandanten-ID

String

Alphanumerisch (2)

„ZZ“

PeriID

String

Alphanumerisch (7)

Nein

Defaultwert „“

Wird keine PeriID übergeben werden alle Perioden des Mandanten ausgelesen, ansonst nur die selektierte

Parameter von GetPeriListe

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Zeilenindex	Long	Numerisch	Ja	Zeilenindex >= 0

Returnwert

ReadPeri gibt als Returnwert Zeilenanzahl des Resultsets zurück.

GetPeriListe(idx) gibt als Returnwert die Zeile „idx“ des Resultsets zurück. Die einzelnen Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).

Die Returnzeile beinhaltet folgende Felder:

Nr.	Feldname	Erklärung
1.	periid	Identifikation
2.	peritext	Bezeichnung
3.	status	Status (A,O,P)
4.	dtevon	Geschäftsjahr von
5.	dtebis	Geschäftsjahr bis
6.	bhgdtevon	Buchungsdatum von
7.	bhgdtebis	Buchungsdatum bis
8.	kstsachabgr	KST Sachliche
9.	teqnbr	Interne Nummer des Geschäftsjahres

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//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")

//Periodenliste lesen
lfnbr = Finanz.ReadPeri("ZZ", “2006/01”)

For ix = 0 To lfnbr
s = Finanz.GetPeriListe(ix)
If s = "EOF" Then Exit For End If
Print s
Next
End If

Steuer-ID Liste lesen

ReadStID, GetStIDListe2

Beschreibung

Die Steuer-ID Liste wird ausgelesen. Durch Indexierung der Zeilen des Resultsets kann zu den einzelnen Zeilen beliebig zugegriffen werden. Wird der Zeilenindex der Zeilenanzahl überschritten, ist der Returnwert ‚EOF‘.

Parameter

Parameter von ReadStID

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Mandanten-ID	String	Alphanumerisch (2)	Ja	„ZZ“

Parameter von GetStIDListe2

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Zeilenindex	Long	Numerisch	Ja	Zeilenindex >= 0

Returnwert

ReadStID gibt als Returnwert Zeilenanzahl des Resultsets zurück.

GetStIDListe2(idx) gibt als Returnwert die Zeile „idx“ des Resultsets zurück. Die einzelnen Felder, sind durch den FeldDelim getrennt (siehe Kapitel Trennzeichen setzen).

Beschreibung des Resultsets siehe im Kapitel Steuerstamm lesen (alt) bei der gleichnamigen Methode.

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//Verbindung zur Datenbank herstellen
If Finanz.ConnectSBSdb("MSSQLSimultan", "SBS", "Test1", "", "", "") = 3
Then
MsgBox Finanz.GetODBCConnectionErrorString()
Else
//Mandant öffnen
Call Finanz.OpenMandant("ZZ", "2006/01")

//Periodenliste lesen
lfnbr = Finanz.ReadStID("ZZ")
For ix = 0 To lfnbr
s = Finanz.GetStIDListe2(ix)
If s = "EOF" Then Exit For End If
Print s
Next
End If

Trennzeichen setzen

SetDelimiters2, SetOutDelimiters

Beschreibung

Diese Methoden setzen die Trennzeichen. Trennzeichen sind als Trenner einzelner Ein- und Ausgabe-Felder und Resultset-Sätze überall dort verwendet, wo in einem Stringparameter mehrere Werte übergeben werden. Keine zwei Trenner der Methode SetDelimiters oder SetOutDelimiters dürfen gleich sein. Die Methode SetDelimiters setzt die Trenner für Input-Felder (z.B in der Methode SetVerteilung – die Trenner in den Steuerfelder). Die Methode SetOutDelimiters setzt die Trenner für die Output-Felder (z.B. alle Get-Methoden, wo Zeilen retourniert sind).

Parameter

Parameter von SetDelimiters2

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Rec_Trenner	String	Alphanumerisch(n)	Ja	Initialwert: {>}
2.	Feld_Trenner	String	Alphanumerisch(n)	Ja	Initialwert: {<}
3.	KstKtr_Trenner	String	Alphanumerisch(n)	Ja	Initialwert: {-}

Parameter von SetOutDelimiters

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	RecDelim	String	Alphanumerisch(n)	Ja	Initialwert: {<}
2.	FeldDelim	String	Alphanumerisch(n)	Ja	Initialwert: {>}

Bemerkung

Ein Feld Separator trennt Daten einer Datenstruktur. Können verschiedene Daten eingegeben werden, müssen diese durch Record Separatoren getrennt sein.

So z.B. bei der Methode BindLaKstKa müssen die einzelnen Felder (Kart, Kst) durch Feld Separatoren getrennt und mit einem Record Separator abgeschlossen sein.

Ausnahme: Die Methode GetSteuerFeld retourniert die Felder durch Input Trenner (d.h. Feld_Trenner und Rec_Trenner der Methode SetDelimiters2) getrennt, weil das Ergebnis als ein Input Feld in den Belege Schreiben Methoden übergeben werden kann.

Beispiel

Call Finanz.SetDelimiters2(",", ";", ":")
Call Finanz.SetOutDelimiters(",", ";")

Ein neues Finanz-Objekt erstellen

DuplicateObject

Parameter

Nr.

Feldname

Parametertyp

Typ des Wertes

Zwingend

Erklärung

Connect

Long

Numerisch

Nein

Defaultwert 0

0 – Es wird ein leeres Objekt erstellt. Nachfolgend sind die Methoden ConnectSBSdb und OpenMandant aufzurufen.

1 - Es wird ein zu der selben Datenbank angemeldetes Objekt erstellt, wie das elterliche Objekt. Es ist noch die Methode OpenMandant auszuführen.

2 – Das neue Objekt ist zu der selben Datenbank und zum selben Mandant angemeldet, wie das elterliche Objekt.

Returnwert

Gibt als Returnwert einen Pointer auf ein neuerstelltes Finanzobjekt zurück. Wird die Methode mehrmals aufgerufen, so werden auch mehrere Objekte erstellt.

Bemerkung

Die Anmeldung des neuen Objekts erfolgt auf Grund der Anmeldung des elterlichen Objektes. Falls beim elterlichen Objekt alle zu Datenbankanmeldung notwendige Parameter (Parameter der Methode ConnectSBSdb) übergeben wurden, wird das Objekterstellen ohne zusätzlicher Abfrage im Login-Dialog des SQL-Servers ablaufen. Ansonsten müssen die fehlenden Parameter auch beim Aufruf der Methode DuplicateObjekt im Dialogfenster des SQL-Servers nochmals eingegeben werden. Der Mandantenauswahl erfolgt im Programm ohne interaktiv eingreifen zu müssen.

Beispiel

Dim Finanz,FinanzNew As AXFinanz

Set FinanzNew = Finanz.DuplicateObjekt(1)

Es wird ein Objekt FinanzNew erstellt, welcher zu der selben Datenbank, wie das Objekt Finanz, angemeldet ist. Mandant ist noch zu öffnen.

Existenz einer Periode überprüfen

CheckPeriode

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	MandantID	String	Alphanumerisch (2)	Ja	Mandant-Identifikation
2.	Periode	String	Alphanumerisch (7)	Ja	Periode-Identifikation

Returnwert

Gibt TRUE als Returnwert zurück, falls die angegebene Periode im angegebenen Mandant definiert ist. Ansonsten ist der Returnwert FALSE.

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//Verbindung zur Datenbank herstellen
If Finanz.ConnectSBSdb("MSSQLSimultan", "SBS", "Test1", "", "", "") = 3
Then
MsgBox Finanz.GetODBCConnectionErrorString()
Else
// Mandant überprüfen
If Finanz.CheckMandant(mandidin) = 1 Then
//Mandant öffnen
Call Finanz.OpenMandant("ZZ", "2010/01")

//Existenz der Periode prüfen
If Finanz.CheckPeriode("ZZ", "2010/01") = 1 Then
MsgBox "Periode ist im angegebenen Mandant definiert!"
Else
MsgBox "Periode ist im angegebenen Mandant nicht definiert!"
End If
Else
MsgBox "Mandant existiert nicht"
End If
End If

Konvertierung Nummer zu einem String

ToString

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	Format	String	Alphanumerisch (n)	Ja	Format-String
2.	Nummer	Double	Numerisch (17.2)	Ja	Input-Wert

Returnwert

Gibt formatierte Nummer in einen String als Returnwert zurück.

Bemerkung

Formatstring ist gemäss C/C++ Konvention. Die Konvertierung erfolgt unabhängig von der Einstellung des Dezimalstellentrennzeichens in Ländereinstellung. Als Trennzeichen wird immer ein Punkt verwendet.

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

Dim Num As Double
Dim Numstr As String

Numstr = Finanz.ToString ("%.2f", 1234.567)

//Ergebnis: 1234.57

Feld aus einem komplexen String extrahieren

GetSubfield

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	FeldNummer	Long	Numerisch	Ja	Feld Nummer
2.	Trenner	String	Alphanumerisch(n)	Ja	Trenner
3.	InString	String	Alphanumerisch(n)	Nein	Zeichenkette

Returnwert

Retourniert das Feld Nummer FeldNummer aus dem InString. Felder sind Durch „Trenner“ getrennt.

Parameter:

Bemerkung

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

Dim InString, Trenner, Part As String
Dim FeldNummer As Integer

Trenner = "{%}"
InString = "10 {%}50 {%}400{%}"
FeldNummer = 2
Part = Finanz.GetSubfield (2, Trenner, InString)

//Ergebnis: 400

Logstring lesen

GetCallLog

Parameter

Die Methode hat keine Parameter.

Returnwert

Retourniert einen Logstring. Jeder Logstring beinhaltet den Namen und die Parameter der aufgerufenen Methode.

Der Logstring dient zur Erleichterung der Fehlersuche.

Bemerkung

Nach dem Aufruf dieser Methode bleibt der Logstring unverändert:

Beispiel

Private Sub Command33_Click()
On Error GoTo ErrorHandler

Call Kredi.SetCommonInfo2( ...
Call Kredi.SetExtendedInfo2(...
Call Kredi.SetZahlungsverbindung(...
...

Exit Sub

ErrorHandler:
    b = Err.Number And 65535
    If b <> 0 Then
        Msg = "Error # " & Str(b) &  _
            & Chr(13) & Err.Description _
            & Chr(13)& "Last called Method: " _
            & Finanz.GetCallLog()
        MsgBox Msg
    End If
    Err.Clear

Exit Sub

End Sub

Version des ActiveX-Servers lesen

GetVersion

Parameter

Die Methode hat keine Parameter.

Returnwert

Die Methode GetVersion liefert als Returnwert die Version des ActiveX-Servers. Somit kann überprüft werden, ob zum ActiveX-Server der richtige Client verwendet wird.

Nr.	Feldname	Erklärung
1.	Version	z.B. 5.0.0.1120

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

MsgBox Finanz.GetVersion()

Logoninformationen des Benutzers lesen

GetLogonInfo

Parameter

Die Methode hat keine Parameter.

Returnwert

Die Methode GetLogonInfo liefert als Returnwert Informationen wie sich der Benutzer auf den ActiveX-Server
eingeloged hat.

Einzelne Felder, wie in der unteren Tabelle beschrieben, sind durch den FeldDelim getrennt
(siehe Kapitel Trennzeichen setzen).

Nr.	Feldname	Erklärung
1.	dsn	Datasource Name z.B. MSSQLSimultan
2.	dbName	Datenbank
3.	uid	UserID
4.	pwd	Passwort
5.	locale	Sprachcode
6.	applName	Applikations-Name
7.	mandid	Mandant
8.	peri	Periode
9.	server	Server zur zugehörigen DSN
10.	IsNTSecurity	Gibt an, ob Windows NT-Authentifizierung verwendet wird. Mögliche Werte: [0,1]
11.	SQLUser	Der Name des eingelogten Users
12.	UserIdNbr	Die zum eingelogten User gehörende UserIdNbr
13.	Sprachcode	Sprachcode (der beim Login mitgegebene oder der Standard des eingeloggten Benutzers, wie Parameter oben)
14.	Spezielle Buildnummer	Gibt die Release Buildnummer zurück (enthält nur bei Prerelease Versionen einen Wert)
15.	Lizenzierungsserver	Gibt den verwendeten Lizenzierungsserver zurück

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//Verbindung zur Datenbank herstellen
If Finanz.ConnectSBSdb("MSSQLSimultan", "SBS", "Test1", "", "", "") = 3
Then
MsgBox Finanz.GetODBCConnectionErrorString()
Else
//Logoninformationen des Benutzers lesen
s = Finanz.GetLogonInfo
Print s
End If

SpezLandAuswertungen lesen

ReadSpezLandAuswertungen, GetSpezLandAuswertungenZeile

Beschreibung

Die SpezLandAuswertungen werden ausgelesen. Wird das Ende des Resultsets erreicht, wird der Returnwert „EOF“ zurückgegeben.

Parameter

Die Methode hat keine Parameter.

Returnwert

ReadSpezLandAuswertungen initialisiert das Lesen und gibt keinen Returnwert zurück.

GetSpezLandAuswertungene 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.	Gruppe	Gruppe
3.	Repbez	Report-Bezeichnung
4.	Repname	Reportname

Beispiel

Call Finanz.ReadSpezLandAuswertungen()
While Teile <> "EOF"
    Teile = Finanz.GetSpezLandAuswertungenZeile()
Wend

Generierte Datenbanken der Applikationen lesen

DatabaseGenerated

Beschreibung

Diese Methode gibt an, für welche Applikationen die Datenbank generiert wurde. Für die Applikation Finanz wird kein Wert ausgelesen, da wenn diese Verbindung erfolgreich zur Datenbank gemacht werden konnte die Datenbank für Finanz existiert, weiterhin muss mein erstellen der Datenbank die Scripts für Finanz immer gewählt sein.

Parameter

Die Methode hat keine Parameter.

Returnwert

DatabaseGenerated gibt als Returnwert eine Zeile 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.	Auftrag	1 die Datenbank wurde für Auftrag erstellt. 0 die Datenbank wurde für Auftrag nicht erstellt.
2.	Personal	““
3.	Heim	““
4.	Connect	““

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
    MsgBox Finanz.GetODBCConnectionErrorString
Else
//Generierte Datenbanken der Applikationen lesen
s = Finanz.DatabaseGenerated
Print s
End If

Errortext mit dem Errorcode lesen

GetResourceByErrCode

Beschreibung

Diese Methode gibt den Errortext anhand des Errorcodes zurück. Der Errortext kann normalerweise aus dem Errorobjekt heraus verwendet werden, verwenden Sie diese Methode für das nachträgliche holen des Errortextes (z.B. um ein Errorlog zu erstellen).

Parameter

Nr.	Feldname	Parametertyp	Typ des Wertes	Zwingend	Erklärung
1.	ErrCode	Integer	Nummerisch	Ja	Error-Code

Returnwert

GetResourceByErrCode gibt als Returnwert einen String zurück mit der Fehlermeldung in der Sprache mit welcher eingeloggt wurde.

Beispiel

//AXFinanz Objekt instanzieren.
Set Finanz = CreateObject("SBSxas.AXFinanz")

//Verbindung zur Datenbank herstellen
Call Finanz. ConnectSBSdb ("MSSQLSimultan ", "SBS", "test1", "", "", "")
e=err.number and 65535
If e = 3 Then
    MsgBox Finanz.GetODBCConnectionErrorString
Else
//Errortext mit dem Errorcode lesen
MsgBox Finanz.GetResourceByErrCode(22)
End If

Einstellung der doppelten Belegnummerüberprüfung ermitteln oder setzen

CheckDoubleIntBelNbr

Beschreibung

Die Variable CheckDoubleIntBelNbr kann die Werte J, N oder W enthalten. Der Initialwert wird aus der Finanz-Applikation übernommen. Der Wert muss nur einmal gesetzt werden. Bei jedem Schreiben einer Buchung wird der einmal zuvor gesetzte Wert übernommen, bis ein anderer Wert gesetzt wird oder das Objekt zerstört wird.

Gesetzer Wert	Ergebnis
J	Eine Fehlermeldung wird generiert
N	Es wird keine Prüfung vorgenommen
W	Eine Warnung wird generiert

Bemerkung

Die Belegnummer wird über alle Hauptbuchbuchungen geprüft und muss bei J eindeutig sein.

Beispiel

Variable ermitteln
eindeutig = Fibu.CheckDoubleIntBelNbr

Variable setzen
Fibu.CheckDoubleIntBelNbr = „N“