SUB _ExportPfad (oEvent AS OBJECT) ' NACH AKTUALISIERUNG VERSCHOBEN!
'kann auch für sich aufgerufen werden
' mit EINEM Wort unter Zusatzinformationen
	DIM oDoc AS OBJECT
	DIM oDB AS OBJECT
	DIM oFeld AS OBJECT
	oDoc = thisComponent	
	oDB = ThisComponent.Parent
	stDBDir = Left(oDB.Location,Len(oDB.Location)-Len(oDB.Title))
	oDrawpage = oDoc.Drawpage
	stZusatz = oEvent.Source.Model.Tag
	Select Case stZusatz
    	Case "Email" 'wird verwendet in 7b - Mailmerge
			stPrintDir = stDBDir & "MailMerge/"
			xstPrintDir = Mid(stPrintDir,9)
			oForm = oDrawpage.Forms.getByName("Formular_Pfad")
			oFeld1 = oForm.getByName("Beschriftungsfeld_PfadDateiName")
			oFeld1.Label = " Exportpfad: " & xstPrintDir	
		Case "BZSt_Export" 'wird verwendet in 8b - SteuerVerwaltung
			stPrintDir = stDBDir & "BZSt_Export/"
			xstPrintDir = Mid(stPrintDir,9)
			oForm = oDrawpage.Forms.getByName("Formular_Pfad")
			oFeld1 = oForm.getByName("Beschriftungsfeld_PfadDateiName")
			oFeld1.Label = " Exportpfad: " & xstPrintDir	
		Case "BZSt_Import" ' wird verwendet in 8b - SteuerVerwaltung Maustaste gedrückt
			stPrintDir = stDBDir & "BZSt_Import/"
			xstPrintDir = Mid(stPrintDir,9)
			oForm2 = oDrawpage.Forms.getByName("Formular_ImportDatei")
			oFeld2 = oForm2.getByName("DateiPfadSuche")
			oFeld2.Text = xstPrintDir	
		Case Else 'nur Datenbankpfad
			stPrintDir = stDBDir
			xstPrintDir = Mid(stPrintDir,9)
			oForm = oDrawpage.Forms.getByName("Formular_Pfad")
			oFeld1 = oForm.getByName("Beschriftungsfeld_PfadDateiName")
			oFeld1.Label = " Datenbankpfad: " & xstPrintDir	
	End Select
END SUB

SUB Antwort_CSV_holen (oEvent AS OBJECT)
' importiert Daten aus den Antwortdateien IDSERV, KISTAM und KISTAKOM direkt in die Tabelle SteuerDaten
'
REM Steuerung durch 2 kommagetrennte Einträge in "Zusatzinformation" in den Eigenschaften des Kontrollfeldes
REM 1.Typ der Quelldatei : KiStAM oder IdNr
REM 2.Name der Zieltabelle - SteuerDaten (kann zum Testen auch z.B. Steuerdaten-Kopie eingetragen werden)
'
DIM oDatenDatei AS OBJECT
DIM oAbfragen AS OBJECT
DIM oAbfrageergebnis AS OBJECT
DIM stQuery AS STRING
DIM iNumber As Integer
DIM sDatei AS STRING
DIM stTag AS STRING
DIM sp AS INTEGER
DIM splast AS INTEGER
DIM z AS INTEGER

	stTag = oEvent.Source.Model.Tag 'Tag wird unter den Zusatzinformationen eingegeben
	aForms() = Split(stTag, ",")	
	stTyp = Trim(aForms(0)) 'Dateityp: IdNr oder KiStAM oder KiStAKOM
	stZiel = Trim(aForms(1))		'Name der Zieltabelle: Steuerdaten
	
	laengeTyp = Len(stTyp)
	
oFeld = oEvent.Source.Model
oForm = oFeld.Parent
' "Formular_ImportDatei"
oFeld2 = oForm.getByName( "Beschriftungsfeld_Datei")
sDatei = oFeld2.Label

'	sDatei = Dateiauswahl("Formular_ImportDatei")

	laengeDatei = Len(sDatei)
' msgbox laengeTyp & "-" & laengeDatei
	zaehler=1
	While ((zaehler <= laengeDatei-laengeTyp) and (mid (sDatei,zaehler,laengeTyp ) <> stTyp))
		zaehler = zaehler+1
	Wend
' msgbox zaehler
	if zaehler > laengeDatei - laengeTyp then
		msgbox ("Bitte erst eine Datei mit " & stTyp & " auswählen!",48,"Falscher Dateiyp")
		exit sub
	end if

REM langen Dateipfad abtrennen
xsDatei = sDatei
xsDatei_n = InStr(sDatei,"/")
'msgbox xsDatei_n
while xsDatei_n <>0 
	xsDatei = Right(xsDatei,Len(xsDatei)-xsDatei_n)
	xsDatei_n = InStr(xsDatei,"/")
'	msgbox xsDatei
wend

	janein = msgbox("Sollen wirklich Daten aus der Datei" & ChrChr$) & ">>" & ChrxsDatei xsDatei & ChrChr$) & "<<" & Chrin13) & "in die DatenbankTabelle" & ChrChr$) & ">>" & ChrstZiel& stZiel & ChrChr$) & "<<" & Chreingeleseningelesen werden Schau6+32+4,"Schau genau!")
	IF janein = 7 THEN EXIT SUB
	
	If Fileexists(sDatei) Then 
		Msgbox("Datei gefunden.",64,"")
	ELSE
		Msgbox("Datei nicht gefunden.",48,"Problem")	
		EXIT SUB
	END IF	
	iNumber = Freefile
	Open sDatei For Input As iNumber
REM Die ersten beiden Zeilen überspringen:
    Line Input #iNumber, sLine
    Line Input #iNumber, sLine

	oDatenquelle = ThisComponent.Parent.CurrentController
	If NOT (oDatenquelle.isConnected()) THEN
		oDatenquelle.connect()
	END IF
	oVerbindung = oDatenquelle.ActiveConnection()
	oSQL_Anweisung = oVerbindung.createStatement()

zaehler = 0
IF stTyp = "IdNr" THEN
REM von der IDNr-Antwort nehmen wir die Spalten 2,17,18 (MNr,ReturnCode,IdNr)
REM (Zählung ab = 0 ! ) 
    While Not eof(iNumber)
        Line Input #iNumber, sLine
        If sLine <>"" Then
 				aFelder() = Split(sLine, ";")
 				stMNr = Trim(aFelder(2))
 				stMNr = Mid(stMNr,2,Len(stMNr)-2)
 				stRetC = Trim(aFelder(17))
 				stRetC = Mid(stRetC,2,Len(stRetC)-2)
 				stIDNr = Trim(aFelder(18))
 				stIDNr = Mid(stIDNr,2,Len(stIDNr)-2)
			IF (stRetC <> "1") THEN
'			MsgBox stMNr & " wird eingetragen. (returncode = " & stRetC

REM Wenn die Mitgliedsnummer noch nicht in der Tabellle SteuerDaten existiert muss sie erst mit INSERT angelegt werden:

				stSql_MNrTest = " SELECT  """ + stZiel + """.""Mitgliedsnummer"" ""MNrTest"" FROM """ + stZiel + """ WHERE  """ + stZiel + """.""Mitgliedsnummer"" = '" + stMNr + "' "
'	msgbox stSql_MNrTest
				oResult_MNrTest = oSQL_Anweisung.executeQuery(stSql_MNrTest)
				IF NOT oResult_MNrTest.next THEN		'.next ist FALSE wenn die Abfrage kein Ergebnis liefert
					stSql_neu = " INSERT INTO """ + stZiel + """ (""Mitgliedsnummer"") VALUES ('" + stMNr + "' ) "
					oResult_neu = oSQL_Anweisung.executeQuery(stSql_neu)
					msgbox ("Mitgliedsnummer " & stMNr & " neu eingefügt",64,stZiel)
				END IF
				stSql_Ziel = "UPDATE """ + stZiel + """ SET ""Identifikationsnummer"" = '" + stIDNr + "' WHERE ""Mitgliedsnummer"" ='" + stMNr + "' "
				oResult_Ziel = oSQL_Anweisung.executeQuery(stSql_Ziel)
				zaehler = zaehler + 1
			END IF
        End If
    Wend
END IF

IF stTyp = "KiStAM" THEN
REM von der KiStAM-Antwort nehmen wir die Spalten 2,7,8,9 (MNr,ReturnCode,KiStSatz,stOeId)
REM (Zählung ab = 0 ! ) 
    While Not eof(iNumber)
        Line Input #iNumber, sLine
        If sLine <>"" Then
 				aFelder() = Split(sLine, ";")
 				stMNr = Trim(aFelder(2))
 				stMNr = Mid(stMNr,2,Len(stMNr)-2)
 				stRetC = Trim(aFelder(7))
 				stRetC = Mid(stRetC,2,Len(stRetC)-2)
 				stKiStSatz = Trim(aFelder(8))
 				stKiStSatz = Mid(stKiStSAtz,2,Len(stKiStSatz)-2)
' 				stKistSatz =  Format(stKiStSatz, "#0.00")
 				stOeId = Trim(aFelder(9))
 				stOeId = Mid(stOeId,2,Len(stOeId)-2)
			IF ((stRetC <> "1") AND (stOeId <> "")) THEN
				stSql_Ziel = "UPDATE """ + stZiel + """ SET ""KiStproz"" = " + stKiStSatz + " WHERE ""Mitgliedsnummer"" ='" + stMNr + "' "
				oResult_Ziel = oSQL_Anweisung.executeQuery(stSql_Ziel)
				stSql_Ziel = "UPDATE """ + stZiel + """ SET ""KiStOrgan"" = '" + stOeId + "' WHERE ""Mitgliedsnummer"" ='" + stMNr + "' "
				oResult_Ziel = oSQL_Anweisung.executeQuery(stSql_Ziel)
				zaehler = zaehler +1
			END IF
	   End If
    Wend
END IF 

REM folgendes ist NOCH NICHT FERTIG!!!
IF stTyp = "KiStAKOM" THEN
REM von der KiStAKOM-Antwort nehmen wir die Spalten weiss noch nicht!!!! 2,7,8,9 (MNr,ReturnCode,KiStSatz,stOeId)
REM (Zählung ab = 0 ! ) 
    While Not eof(iNumber)
        Line Input #iNumber, sLine
        If sLine <>"" Then
 				aFelder() = Split(sLine, ";")
 				stMNr = Trim(aFelder(2))
 				stMNr = Mid(stMNr,2,Len(stMNr)-2)
 				stRetC = Trim(aFelder(7))
 				stRetC = Mid(stRetC,2,Len(stRetC)-2)
 				stKiStSatz = Trim(aFelder(8))
 				stKiStSatz = Mid(stKiStSAtz,2,Len(stKiStSatz)-2)
' 				stKistSatz =  Format(stKiStSatz, "#0.00")
 				stOeId = Trim(aFelder(9))
 				stOeId = Mid(stOeId,2,Len(stOeId)-2)
			IF ((stRetC <> "1") AND (stOeId <> "")) THEN
				stSql_Ziel = "UPDATE """ + stZiel + """ SET ""KiStproz"" = " + stKiStSatz + " WHERE ""Mitgliedsnummer"" ='" + stMNr + "' "
				oResult_Ziel = oSQL_Anweisung.executeQuery(stSql_Ziel)
				stSql_Ziel = "UPDATE """ + stZiel + """ SET ""KiStOrgan"" = '" + stOeId + "' WHERE ""Mitgliedsnummer"" ='" + stMNr + "' "
				oResult_Ziel = oSQL_Anweisung.executeQuery(stSql_Ziel)
				zaehler = zaehler +1
			END IF
	   End If
    Wend
END IF 

Close #iNumber
IF zaehler = 1 THEN
	msgbox (zaehler & " Datensatz geschrieben.",64,stZiel)
	ELSE
	msgbox (zaehler & " Datensätze geschrieben.",64,stZiel)
END IF
END SUB

FUNCTION Datumgedreht ( stDat AS STRING ) AS STRING
			stmutad() = split (stDat,"-")	
			Datumgedreht = stmutad(2) & "." & stmutad(1) & "." & stmutad(0)
END FUNCTION

SUB Pfad_Einlesen( oEvent AS OBJECT) 'Aktion der Dateiauswahl bei Text verändert
REM LibreOffice-Dialoge zum Öffnen/Speichern verwenden:
REm Extras - Optionen - Allgemein
	DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM oFeld2 AS OBJECT
	DIM oFeld3 AS OBJECT
	DIM stUrl AS STRING
	DIM xsDatei AS STRING
	oFeld = oEvent.Source.Model
'xray oFeld
	oForm = oFeld.Parent
	oFeld2 = oForm.getByName( "Beschriftungsfeld_Datei") ' unsichtbar geschaltet
	IF oFeld.Text <> "" THEN
		stUrl = ConvertToUrl(oFeld.Text)
		oFeld2.Label= stUrl
	END IF

REM langen Dateipfad abtrennen für die Anzeige im sichtbaren Beschriftungsfeld
	xsDatei = stUrl
	xsDatei_n = InStr(stUrl,"/")
	while xsDatei_n <>0 
		xsDatei = Right(xsDatei,Len(xsDatei)-xsDatei_n)
		xsDatei_n = InStr(xsDatei,"/")
	wend
	oFeld3 = oForm.getByName( "Beschriftungsfeld_nurDatei")
	oFeld3.Label = xsDatei
END SUB

SUB Filter_I_Aktualisieren
Dim oDoc As Object
Dim oDrawpage As Object
Dim oneuInt As Object
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oneuInt=oDrawpage.forms.getByName( "Formular_Interessenten" )
oCol=oneuInt.Columns
oInteressent=oCol.getByName( "ID" )
oINummer=oInteressent.Value
' msgbox oINummer

REM die ID wird jetzt in die Tabelle Filter_I eingetragen
DIM oConnection AS OBJECT
DIM oSQL_Statement AS OBJECT ' das Objekt, das den SQL-Befehl ausführt
DIM stSql AS STRING ' Text des eigentlichen SQL-Befehls
DIM oResult AS OBJECT ' Ergebnis für executeQuery

oForm = oDrawpage.forms.getByName( "Formular_Filter") 'egal welches Formular
oConnection = oForm.activeConnection()
oSQL_Statement = oConnection.createStatement()

stSql = "UPDATE ""Filter_I"" SET ""Integer"" ='" + oINummer + "' WHERE ""ID""=0"
oResult = oSQL_Statement.executeQuery(stSql)

oForm.reload()
END SUB

SUB Form_aktualisieren(oEvent AS OBJECT)
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oSubForm AS OBJECT
	DIM oFeld AS OBJECT
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
'xray oEvent	
	FeldName = oEvent.Source.Model.Name
	FormName = oEvent.Source.Model.getParent.Name
' msgbox FeldName & " in " & FormName	
	oForm = oDrawpage.forms.getByName(FormName)
'xray oForm
 	oFeld = oForm.getByName(FeldName)
'xray oFeld
'	oFeld.commit()
'	oFeld.refresh()
'oUeberForm = 
'xray	oForm.Parent '.reload()
END SUB

SUB Form_Interessenten_aktualisieren
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular_Interessenten")
	oForm.reload()
END SUB

SUB neueBank_aktualisieren
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oSubForm AS OBJECT
	DIM oFeld AS OBJECT
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular_Filter")
 	oSubForm = oForm.getByName("Formular_Personen")
 	oSubSubForm = oSubForm.getByName("Formular_Bankdaten")
	oFeld1 = oSubSubForm.getByName("Listenfeld_Banken")
	oFeld1.commit()
	oFeld1.refresh()
	oFeld2 = oSubSubForm.getByName("Listenfeld_BIC")
	oFeld2.commit()
	oFeld2.refresh()
	oFeld3 = oSubSubForm.getByName("Listenfeld_BLZ")
	oFeld3.commit()
	oFeld3.refresh()
	oSubForm.reload()
END SUB

SUB neuenStromGasStatus_aktualisieren
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oSubForm AS OBJECT
	DIM oFeld AS OBJECT
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular_Filter")
 	oSubForm = oForm.getByName("Formular_Personen")
 	oSubSubForm = oSubForm.getByName("Formular_StromGas")
 	oSubSubSubForm = oSubForm.getByName("Formular_Status")
	oFeld = oSubSubSubForm.getByName("Listenfeld_StromStatus")
	oFeld.commit()
	oFeld.refresh()
	oSubForm.reload()
END SUB

SUB neuerOrt_aktualisieren
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oSubForm AS OBJECT
	DIM oFeld AS OBJECT
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular_Filter")
 	oSubForm = oForm.getByName("Formular_Personen")
 	oSubSubForm = oSubForm.getByName("Formular_Adressen")
	oFeld = oSubSubForm.getByName("Listenfeld_Orte")
	oFeld.commit()
	oFeld.refresh()
	oSubForm.reload()
END SUB

SUB neueVorwahlen_aktualisieren
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oSubForm AS OBJECT
	DIM oFeld AS OBJECT
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular_Filter")
 	oSubForm = oForm.getByName("Formular_Personen")
 	oSubSubForm = oSubForm.getByName("Formular_Kontakte")
	oFeld1 = oSubSubForm.getByName("Listenfeld_Vorwahlen1")
	oFeld1.commit()
	oFeld1.refresh()
	oFeld2 = oSubSubForm.getByName("Listenfeld_Vorwahlen2")
	oFeld2.commit()
	oFeld2.refresh()
	oSubForm.reload()
END SUB

REM TagEintrag und initiale Vorgangsnummer für ein neues Ratenkonto (Sollstellung)
REM bzw. Projektkonto (Vertragsdaten) aus der Tabelle Anteile übertragen.
REM Freigabe der Schaltflächen mit SUB VorgangID_lesen
SUB Raten_Projekt_Eintragen (oEvent AS OBJECT)
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oSubForm AS OBJECT
	DIM oSubSubForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM oZ AS OBJECT
	DIM SHZeile AS LONG
	stZusatz = oEvent.Source.Model.Tag 'Raten oder Projekt
	oDoc = thisComponent	
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular_Filter")
 	oSubForm = oForm.getByName("Formular_Personen")
	oSubSubForm = oSubForm.getByName("Formular_Konto")
	oFeld = oSubSubForm.getByName("Tabellen_Steuerelement")
	oDatenquelle = ThisComponent.Parent.CurrentController
	If NOT (oDatenquelle.isConnected()) THEN
		oDatenquelle.connect()
	END IF
	oVerbindung = oDatenquelle.ActiveConnection()
	oSQL_Anweisung = oVerbindung.createStatement()
'xray oFeld	
	wait 100
	oZ=oFeld.getRowSet()
	wait 100
	SHZeile = oZ.Row
'	msgbox ("Übernehme Zeile " & SHZeile & " der MitgliederAnteile",64,"Raten")
'xray oZ
	oSpalteM=oFeld.getByName("NumF_Mitgl") ' enthält die Mitgliedsnummer
	oSpalteD1 = oFeld.getByName("DateField1")
	oSpalteD1.HelpText = "Eintrag immer notwendig!"
	oSpalteID=oFeld.getByName("NumF_VID") ' enthält die Vorgangs-ID
	stMNr = oSpalteM.CurrentValue
	TagEintrag = oSpalteD1.CurrentValue
	f_dat = TagEintrag.Year & "-" & TagEintrag.Month & "-" & TagEintrag.Day ' DateValue("2017-09-03")
	VID = oSpalteID.CurrentValue
'msgbox MNr & ":  VID=" & VID & "  Tag=" &  TagEintrag.Day()  & "." &  TagEintrag.Month()  & "." &  TagEintrag.Year() 
	if VID = 12 THEN
		sttitel = "Neuanlage eines Ratenkontos: " & TagEintrag.Day & "." & TagEintrag.Month & "." & TagEintrag.Year
		janein = msgbox ("Soll für Mitgliedsnummer " & stMNr & " ein Ratenkontoeintrag ""Sollstellung"" erzeugt werden?",256+32+4,sttitel)
		if janein = 6 then
			stSql = "INSERT INTO ""Raten"" (""Mitgliedsnummer"",""VorgangID"",""TagZahlung"")"
			stSql = stSql & " VALUES('" + stMNr + "','2','" + f_dat + "')"
'msgbox stSql
			oResult = oSQL_Anweisung.executeQuery(stSql)
	 	 	oForm.reload()
		end if
	end if
	if VID = 50 THEN
		sttitel = "Neuanlage eines Projektkontos: " & TagEintrag.Day & "." & TagEintrag.Month & "." & TagEintrag.Year
		janein = msgbox ("Soll für Mitgliedsnummer " & stMNr & " ein Projektkontoeintrag ""Vertragsdaten"" erzeugt werden?",256+32+4,sttitel)
		if janein = 6 then
			stSql = "INSERT INTO ""ProjektDaten"" (""Mitgliedsnummer"",""VorgangID"",""TagEintrag"")"
			stSql = stSql & " VALUES('" + stMNr + "','1','" + f_dat + "')"
'msgbox stSql
			oResult = oSQL_Anweisung.executeQuery(stSql)
	 	 	oForm.reload()
		end if
	end if
END SUB	

SUB SortierungUmschalten_
Dim oDoc As Object
Dim oDrawpage As Object
Dim oneuMit As Object
	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oneuMit=oDrawpage.forms.getByName( "Formular_Mitglieder" )
'	msgbox oneuMit.Order
	IF oneuMit.Order = "Mitgliedsnummer ASC" THEN
	oneuMit.Order = "Nachname ASC"
	ELSE
	oneuMit.Order = "Mitgliedsnummer ASC"
	ENDIF
	oneuMit.reload()
END SUB

SUB vonbis_aktualisieren 'wird im Modul Serienbrief wiederholt
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oSubForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM minwert AS INTEGER
	DIM letzter AS INTEGER
	DIM oColumns AS OBJECT
	DIM oConnection AS OBJECT
	DIM oSQL_Statement AS OBJECT ' das Objekt, das den SQL-Befehl ausführt
	DIM stSql AS STRING ' Text des eigentlichen SQL-Befehls
	DIM oResult AS OBJECT ' Ergebnis für executeQuery

	oDoc = thisComponent
	oDrawpage = oDoc.drawpage
	oForm = oDrawpage.forms.getByName("Formular_Serie")

oConnection = oForm.activeConnection()
oSQL_Statement = oConnection.createStatement()
stSql = "SELECT MAX(""Mitgliedsnummer"") AS ""MAXIMIT"" FROM ""Mitglieder"""
oResult =  oSQL_Statement.executeQuery(stSql)
oColumns = oResult.columns()
'Xray oResult
IF oColumns.hasByName("MAXIMIT") THEN inIndex = oColumns.findColumn("MAXIMIT")
oresult.next
letzter=oResult.getInt(1)
'msgbox letzter

	oFeld = oForm.getByName("Num_von")
'Xray(oFeld)
	minwert=oFeld.value
	IF minwert > letzter THEN
		msgbox(letzter & " ist die höchste Mitgliedsnummer!",32,"Nööö!")
		minwert=1
		oFeld.value=minwert
	ENDIF	
	oFeld.commit()
	
	oFeld = oForm.getByName("Num_bis")
	maxwert=oFeld.value
	IF maxwert > letzter THEN
		msgbox(letzter & " ist die höchste Mitgliedsnummer!",32,"Nööö!")	
		maxwert=letzter
	ENDIF	
	IF maxwert < minwert THEN 
		msgbox("bis kann nicht kleiner sein als von!",32,"Nööö!")		
		maxwert=minwert
	ENDIF
	oFeld.value=maxwert
	oFeld.commit()
	
	oFeld = oForm.getByName("Num_aktuell")
	oFeld.Value=minwert
	oFeld.commit()
	
	oConnection = oForm.activeConnection()
	oSQL_Statement = oConnection.createStatement()


	stSql = "UPDATE ""von_bis"" SET ""von"" ='" + minwert + "' WHERE ""ID""=0"
	oResult = oSQL_Statement.executeQuery(stSql)
	stSql = "UPDATE ""von_bis"" SET ""bis"" ='" + maxwert + "' WHERE ""ID""=0"
	oResult = oSQL_Statement.executeQuery(stSql)
	stSql = "UPDATE ""von_bis"" SET ""aktuell"" ='" + minwert + "' WHERE ""ID""=0"
	oResult = oSQL_Statement.executeQuery(stSql)
	
END SUB

REM folgende Function wird nicht mehr benutzt!
Function Calc2CSV_exists as Boolean 'Sucht die Datei CalcCSV.xba
	Calc2CSV_exists = FALSE
	If Getguitype = 1 Then sFichierModule = GetRepertoirePath("user")&"\basic\Standard\Calc2CSV.xba" Else sFichierModule = GetRepertoirePath("user")&"/basic/Standard/Calc2CSV.xba"
		If Fileexists(sFichierModule) Then  Calc2CSV_exists = TRUE
if  Calc2CSV_exists Then msgbox ("Jaaaaaaaa!") Else  msgbox ("nö")
End Function

SUB Filtern_und_Drucken(oEvent AS OBJECT)
	DIM stTag AS STRING
	stTag = oEvent.Source.Model.Tag 'Zusatzinformationen: 
	aInfos() = Split(stTag, ",")	'Hier steht zuerst M oder I, dann der genaue Berichtsname
	
	DIM oDoc AS OBJECT
	DIM oDrawpage AS OBJECT
	DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM oDatenquelle AS OBJECT
	DIM oVerbindung AS OBJECT
	DIM oSQL_Anweisung AS OBJECT
	DIM stSQL AS STRING
	oDoc = thisComponent	
	oDrawpage = oDoc.Drawpage
	oForm = oDrawpage.Forms.getByName("Formular_Filter")
	oFeld = oForm.getByName("Listenfeld_Filter")
	oDatenquelle = ThisComponent.Parent.CurrentController
	If NOT (oDatenquelle.isConnected()) THEN
		oDatenquelle.connect()
	END IF

	oVerbindung = oDatenquelle.ActiveConnection()
	oSQL_Anweisung = oVerbindung.createStatement()
IF aInfos(0) = "M" THEN
	stSql = "UPDATE ""Filter_M"" SET ""Integer"" = '"+oFeld.GetCurrentValue()+"' WHERE ""ID"" = 0"
	oSQL_Anweisung.executeUpdate(stSql)
END IF	
IF aInfos(0) ="I" THEN
	stSql = "UPDATE ""Filter_I"" SET ""Integer"" = '"+oFeld.GetCurrentValue()+"' WHERE ""ID"" = 0"
	oSQL_Anweisung.executeUpdate(stSql)
END IF

' msgbox aInfo(1)
	ThisDatabaseDocument.ReportDocuments.getByName(Trim(aInfos(1))).open

END SUB

SUB Filtern_und_Mail_BACKUP(oEvent AS OBJECT)
	DIM stTag AS STRING
	stTag = oEvent.Source.Model.Tag 'Zusatzinformationen: M (Mitglied) oder I (Interessent)
	aInfos() = Split(stTag, ",")	'Hier steht zuerst M oder I, dann der genaue Berichtsname
		' leer, Strom, ...
		
DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
	DIM oFeld AS OBJECT
	DIM oDatenquelle AS OBJECT
	DIM oVerbindung AS OBJECT
	DIM oSQL_Anweisung AS OBJECT
	DIM stSQL AS STRING
DIM oFeld1a AS OBJECT
DIM oFeld1b AS OBJECT
DIM oFeld1 AS OBJECT
DIM oFeld2 AS OBJECT
DIM oFeld3 AS OBJECT
DIM oFeld4 AS OBJECT
DIM oShell AS OBJECT
DIM stFeld1 AS STRING
DIM stFeld2 AS STRING
DIM stFeld3 AS STRING
DIM stFeld4 AS STRING

oDoc = thisComponent
oDrawpage = oDoc.Drawpage
oForm = oDrawpage.Forms.getByName("Formular_Filter")
	oFeld = oForm.getByName("Listenfeld_Filter")
	oDatenquelle = ThisComponent.Parent.CurrentController
	If NOT (oDatenquelle.isConnected()) THEN
		oDatenquelle.connect()
	END IF
	oVerbindung = oDatenquelle.ActiveConnection()
	oSQL_Anweisung = oVerbindung.createStatement()

IF aInfos(0) = "M" THEN
	stSql = "UPDATE ""Filter_M"" SET ""Integer"" = '"+oFeld.GetCurrentValue()+"' WHERE ""ID"" = 0"
	oSQL_Anweisung.executeUpdate(stSql)
END IF	
IF aInfos(0) ="I" THEN
	stSql = "UPDATE ""Filter_I"" SET ""Integer"" = '"+oFeld.GetCurrentValue()+"' WHERE ""ID"" = 0"
	oSQL_Anweisung.executeUpdate(stSql)
END IF


 	oSubForm = oForm.getByName("Formular_Personen")
 	oSubSubForm = oSubForm.getByName("Formular_Kontakte")
	oFeld1a = oSubSubForm.getByName("Textfeld_Email1")
	oFeld1b = oSubSubForm.getByName("Listenfeld_Domain1")
	oNummer = oFeld1b.SelectedItems(000)
	soFeld1b = oFeld1b.getItemText(oNummer)
' oFeld2 = oForm.getByName( "E_Mail_Betreff")
' oFeld3 = oForm.getByName( "E_Mail_Inhalt")

	stFeld1 = oFeld1a.Text + "@" + soFeld1b
	IF stFeld1 = "" THEN
	msgbox "Keine Mailadresse vorhanden." & CHR( 13) & "Das Mailprogramm wird nicht aufgerufen" , 48, "Mail senden"
	END IF

' stFeld2 = Mid(ConvertToUrl( oFeld2.Text), 9)
' stFeld3 = Mid(ConvertToUrl( oFeld3.Text), 9)

IF aInfos(1) ="leer" THEN
	stFeld2 = "BESG: "
	stFeld3 = "Liebe "
END IF

IF aInfos(1) ="Strom" THEN
	stFeld2 = "BESG-Strom: erstes Feedback"
	stFeld3 = "Liebe StromkundInnen der BürgerEnergie Solingen,%0A%0A"
	stFeld3 = stFeld3 + "wir freuen uns darüber, dass Sie inzwischen von den Stadtwerken mit unserem BESG-Bürgerstrom beliefert werden!%0A%0A"
	stFeld3 = stFeld3 + "Da für uns als Genossenschaft dieses erste, gemeinsam mit den Stadtwerken entwickelte Stromprodukt auch noch neu ist, vermuten wir, dass die Abläufe noch verbesserungsfähig sind. Deshalb bitten wir herzlich um Antwort auf die folgenden Fragen:%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "-    Wie und wo haben Sie von unserm BESG-Bürgerstrom erfahren?%0A"
	stFeld3 = stFeld3 + "-    Was hat Sie davon überzeugt, den Antrag für den Bezug dieses Stroms zu stellen?%0A"
	stFeld3 = stFeld3 + "-    Wie zufrieden sind Sie mit dem Ablauf des Wechselverfahrens? Was könnte darin verbessert werden?%0A%0A"
	stFeld3 = stFeld3 + "Benötigen Sie Flyer oder zusätzliche Informationen, wenn Sie Ihren Freunden,"
	stFeld3 = stFeld3 + "Freundinnen und Bekannten unseren BESG-Bürgerstrom weiterempfehlen möchten?%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "Falls Sie darüber hinaus weitergehende Anregungen oder Fragen haben: Teilen Sie mir diese bitte auch mit!%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "Und: Empfehlen Sie uns weiter! Jede weitere Kundin, jeder weitere Kunde trägt zum Erfolg unserer Arbeit als Genossenschaft bei. Besonders würden wir uns natürlich darüber freuen, wenn wir Sie als neues Genossenschaftsmitglied gewinnen könnten!%0A"
	stFeld3 = stFeld3 + "Rufen Sie mich gerne an, wenn Sie Fragen zu unserer Arbeit haben (Tel: 0212 2333433) "
	stFeld3 = stFeld3 + "- oder schauen Sie auf unsere Internetseite http://bürgerenergie-solingen.de.%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "Mit herzlichem Gruß,%0AIngeborg Friege%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "%0A"
	stFeld3 = stFeld3 + "%0A"
END IF
oShell = createUnoService( "com.sun.star.system.SystemShellExecute")
oShell.execute( "mailto:" + stFeld1 + "?subject=" + stFeld2 + "&body=" + stFeld3,, 0)
END SUB

Function GetRepertoirePath(sInstPath as String) as String
	Dim  oPathSubstSrv as Object
	Dim sPath as String
		sInstPath = "$("+sInstPath+")"
		oPathSubstSrv = createUnoService("com.sun.star.comp.framework.PathSubstitution")
		sPath = ConvertFromUrl(oPathSubstSrv.getSubstituteVariableValue(sInstPath))
		GetRepertoirePath = sPath
End Function

REM folgende Sub wird nicht mehr benutzt!
Sub Lib_TEST ' sucht das Modul Calc2CSV
	Dim oLib as Object
    oLib = GlobalScope.BasicLibraries.Standard
    If oLib.hasByName("Calc2CSV") Then
    	msgbox ("Modul Calc2CSV ist vorhanden.")
    Else
    	msgbox ("Modul Calc2CSV muss angelegt werden!")	
    EndIf
End Sub

SUB Mailmerge(oEvent AS OBJECT) 'öffnet den Bericht, 
	REM dessen Name als Tag in den Eigenschaften des aufrufenden CommandButton 
	REM als "Zusatzinformation" eingetragen ist. (Beispiel: Tabelle_EMAIL_Mitglieder)
	DIM stTag AS STRING
	stTag = oEvent.Source.Model.Tag
	' msgbox stTag
	ThisDatabaseDocument.ReportDocuments.getByName(stTag).open
END SUB

Function Replace(Source As String, Search As String, NewPart As String)
  Dim Result As String  
  Result = join(split(Source, Search), NewPart)
  Replace = Result
End Function

REM "SEPA-Überweisung erstellen" mit funktionierender Schleife.
SUB Abfrage_in_XML(oEvent AS OBJECT)
' Exportiert Daten aus der Datenbank in eine SEPA.XML-Datei, die 
' mit dem Formular auf der Sparkassenseite
'	Online-Banking => Banking => Dateiübergabe
'	zur Sparkasse hochgelden werden kann.
REM Der Name der Abfrage steht in "Zusatzinformationen", 

REM Spaltennamen_Variablen in GROSSBUCHSTABEN der Tabelle SEPAXML
REM entsprechen den Variablen-Zeilen der XML-Vorlagen a und b
'
DIM oDatenDatei AS OBJECT
DIM oAbfragen AS OBJECT
DIM oAbf AS OBJECT
DIM oAbfrageergebnis AS OBJECT
DIM stQuery AS STRING
DIM ausNumber As Integer
DIM inaNumber As Integer
DIM inbNumber As Integer
DIM incNumber As Integer
DIM sDatei AS STRING
DIM stTag AS STRING
DIM sp AS INTEGER
DIM splast AS INTEGER

DIM oDoc AS OBJECT
DIM oDrawpage AS OBJECT
DIM oForm AS OBJECT
DIM oFeld1 AS OBJECT
DIM stDBDir AS STRING

	oPForm = oEvent.Source.Model.Parent 'das ist Formular_Serie (Tabelle von_bis)
	oConnection = oPForm.activeConnection()

	oDoc = thisComponent	
	oDB = ThisComponent.Parent
	stDBDir = Left(oDB.Location,Len(oDB.Location)-Len(oDB.Title))	' Der Titel der Datenbank wird von der URL abgetrennt.

	oDrawpage = oDoc.Drawpage
	oForm = oDrawpage.Forms.getByName("Formular_Serie")
	oFeld_Datum = oForm.getByName("Markierfeld_Datum")
	mitDatum = oFeld_Datum.State

	stTag = oEvent.Source.Model.Tag 'Tag wird unter den Zusatzinformationen eingegeben
	aForms() = Split(stTag, ",")	'Hier steht der komplette Name der Abfrage, dann "SEPA" 
	stName = Trim(aForms(0)) 'Abfrage_SEPA-b
	
REM Abfrage_SEPA-b stellt die Überweisungsdaten für den Empfänger
REM aus den Tabellen BankDaten, Banken, Dividenden zusammen.
REM Die Daten in Dividenden wurden vorher per Dividendenzentrale mit DividID = 1 
REM eingetragen.
REM Der Text  für "Verwendungszweck" (USTRD) wird von der Abfrage zusammengeetzt:
REM "Dividenden"."Kennung" || ' Mitgliedsnr. ' || "BankDaten"."Mitgliedsnummer"
	
	stZusatz = Trim(aForms(1)) ' SEPA
	
	oDatenquelle = ThisComponent.Parent.CurrentController
	If NOT (oDatenquelle.isConnected()) THEN
		oDatenquelle.connect()
	END IF
	oVerbindung = oDatenquelle.ActiveConnection()
	oSQL_Anweisung = oVerbindung.createStatement()

REM für Teil a (aus Tabelle SEPAHistorie)
	stSql = "SELECT * FROM ""Pfade_SEPA"" WHERE ""ID""='A'"
	oResult = oSQL_Anweisung.executeQuery(stSql)
	oResult.next
	stPfadvorA = oResult.getString(2)
	stDateivorA = oResult.getString(3)
	inaDatei = stDBDir & stPfadvorA & "/" & stDateivorA

REM fürAbsender= "Debitor" (aus Tabelle SEPAselbst)
	stSql = "SELECT * FROM ""Pfade_SEPA"" WHERE ""ID""='S'"
	oResult = oSQL_Anweisung.executeQuery(stSql)
	oResult.next
	stPfadvorS = oResult.getString(2)
	stDateivorS = oResult.getString(3)
	insDatei = stDBDir & stPfadvorS & "/" & stDateivorS

REM für Mitglieder-Schleife (aus Abfrage_Auszahlung)
	stSql = "SELECT * FROM ""Pfade_SEPA"" WHERE ""ID""='B'"
	oResult = oSQL_Anweisung.executeQuery(stSql)
	oResult.next
	stPfadvorB = oResult.getString(2)
	stDateivorB = oResult.getString(3)
	inbDatei = stDBDir & stPfadvorB & "/" & stDateivorB

REM Ende (fix)	
	stSql = "SELECT * FROM ""Pfade_SEPA"" WHERE ""ID""='C'"
	oResult = oSQL_Anweisung.executeQuery(stSql)
	oResult.next
	stPfadvorC = oResult.getString(2)
	stDateivorC = oResult.getString(3)
	incDatei = stDBDir & stPfadvorC & "/" & stDateivorC

REM temporäre Datei 
	stSql = "SELECT * FROM ""Pfade_SEPA"" WHERE ""ID""='T'"
	oResult = oSQL_Anweisung.executeQuery(stSql)
	oResult.next
	stPfadetmp = oResult.getString(2)
	stDatei_tmp = oResult.getString(3)
	tmpDatei = stDBDir & stPfadetmp & "/" & stDatei_tmp
	
REM Ausgabedatei zum Hochladen
	stSql = "SELECT * FROM ""Pfade_SEPA"" WHERE ""ID""='X'"
	oResult = oSQL_Anweisung.executeQuery(stSql)
	oResult.next
	stPfadex = oResult.getString(2)
	stDatei_ex = oResult.getString(3)
	IF mitDatum THEN 
		stdat() = split (Date,".")	
		isoDatum = stdat(2) & "-" & stdat(1) & "-" & stdat(0)
		stDatei_ex = isoDatum & "_" & stDatei_ex
	END IF	
	ausDatei = stDBDir & stPfadex & "/" & stDatei_ex

	janein = msgbox("Wirklich in die Datei" & ChrChr$) & ChrausDatei ausDatei & ChrChr$) & Chrausgeben"ausgeben ?",256+32+4,"Überleg nochmal:")
	IF janein = 7 THEN EXIT SUB
	
REM sammelt die Datensätze für Teil b
	If Fileexists(tmpDatei) Then Kill tmpDatei
	tmpNumber = Freefile
	Open tmpDatei For Output As tmpNumber

	If Fileexists(ausDatei) Then Kill ausDatei
	ausNumber = Freefile
	Open ausDatei For Output As ausNumber
	
	If Fileexists(inaDatei) Then
	inaNumber = Freefile
	Open inaDatei For Input As inaNumber
	Else
		msgbox inaDatei & " nicht zu finden... - breche ab."
		exit sub
	End If

	If Fileexists(insDatei) Then
	insNumber = Freefile
	Open insDatei For Input As insNumber
	Else
		msgbox insDatei & " nicht zu finden... - breche ab."
		exit sub
	End If

	If Fileexists(inbDatei) Then
	inbNumber = Freefile
	Open inbDatei For Input As inbNumber
	Else
		msgbox inbDatei & " nicht zu finden... - breche ab."
		exit sub
	End If
	
	If Fileexists(incDatei) Then
	incNumber = Freefile
	Open incDatei For Input As incNumber
	Else
		msgbox incDatei & " nicht zu finden... - breche ab."
		exit sub
	End If

REM hole die (evtl. überschriebenen) Werte für TagZahlung und Verwendungszweck aus dem Formular 
REM und trage sie in die Tabelle SEPAHistorie ein.
	oSQL_Statement = oConnection.createStatement()
	oDoc = thisComponent	
	oDrawpage = oDoc.Drawpage
	oForm = oDrawpage.Forms.getByName("Formular_SEPAHisto")
	oFeldN = oForm.getByName("NumF_DH_ID")
	sHZeile = oFeldN.Value
	oFeldD = oForm.getByName("DatF_REQDEXCTNDT")
	sTZahlung = oFeldD.Date
	sTZ =  sTZahlung.Year & "-" & sTZahlung.Month & "-" & sTZahlung.Day 
	oFeldT = oForm.getByName("Textfeld_USTRD")
	sVWZ = oFeldT.Text
	stSql = "UPDATE ""SEPAHistorie"" SET ""REQDEXCTNDT"" ='" + sTZ + "', ""USTRD_Muster"" ='" + sVWZ + "' WHERE ""ID""=" & SHZeile
	oResult = oSQL_Statement.executeQuery(stSql)	
		
REM erstelle erst den Mittelteil,
REM um die Anzahl NBTXS und Summe der ÜberweisungenCTRLSUM  zu ermitteln
REM die dann in die Tabelle SEPAHistorie eingetragen werden.

Teilb:
REM =============jetzt der Mittelteil b 
REM TagZahlung und Verwendungszweck nimmt die Abfrasge aus SEPAHistorie!

REM negativListe() definieren und Nicht(mehr)-Mitglieder aus dem Formular eintragen 
	oEForm = oPForm.getByName("Ehemalige") 'siehe Abfrage "Ehemalige"!
	soviele = oEForm.RowCount
	DIM negativListe(soviele) 'nimmt die Mitgliedsnumern auf, die NICHT gedruckt werden dürfen
	oEForm.reload()
	oEForm.first()
	stehemaligField = oEForm.findColumn("Mitgliedsnummer") 'sollte 1 sein
	ineg=0
	negativListe(ineg) = oEForm.getInt(1)
	WHILE oEForm.next
		ineg = ineg + 1
		negativListe(ineg) = oEForm.getInt(1)
	WEND

	stIDField = oPForm.findColumn("ID")
	stID = oPForm.getString(stIDField)

	stvonField = oPForm.findColumn("von")
	stvon = oPForm.getInt(stvonField)

	stbisField = oPForm.findColumn("bis")
	stbis = oPForm.getInt(stbisField)

REM ================================================================
REM Schleife der einzelnen Überweisungen
REM	Die Datensaetze werden mit PRINT #tmpNumber gesammelt
REM Aktuell-Feld wird auf "von" gesetzt
	txanzahl=0
	ctrlsumme=0.00
	staktuellField = oPForm.findColumn("aktuell")
	i = stvon
	oPForm.updateInt(staktuellField,i)
	stAusgabeb = ""

DO WHILE i < stbis+1 ' bis LOOP
	drucken = TRUE
	j=0 ' Ehemaligen überspringen
	WHILE (j < ineg + 1)
		if negativListe(j) = i then 
			drucken = FALSE
		end if	
		j=j+1
	WEND
	IF drucken THEN	
		stSql = "UPDATE ""von_bis"" SET ""aktuell"" ='" + i + "' WHERE ""ID""=0"
		oResult = oSQL_Anweisung.executeQuery(stSql)
	ELSE GOTO Labelnichtdrucken
	END IF

	oDatenDatei = oDatenquelle.DataSource
	oAbfragen = oDatenDatei.getQueryDefinitions()
	oAbf = oAbfragen.getByName( stName ) ' also mit Abfrage_SEPA-b
	stQueryb = oAbf.command 'SQL-Text der Abfrage

	oAbfrageergebnisb = oSQL_Anweisung.executeQuery(stQueryb)
	splastb= oAbfrageergebnisb.Columns.Count
	'Kopfzeile mit Spaltennamen
	stSpaltenb()=oAbfrageergebnisb.Columns.ElementNames
	oAbfrageergebnisb.next
    While (Not eof(inbNumber)) ' and oAbfrageergebnisb.next
        Line Input #inbNumber, sLine
        If sLine <>"" Then
			sp = 0
			WHILE sp < (splastb) ' + 1)
				stQueryb = "SELECT """ + stSpaltenb(sp) + """ FROM """ + stName + """ "
				oAbfrageergebnisb = oSQL_Anweisung.executeQuery(stQueryb)
				oAbfrageergebnisb.next
'REM eventuell fehlende BANKDATEN abfangen mit on error goto	!!!
				stErgebnisb = oAbfrageergebnisb.getString(1)
'				msgbox "stErgebnisb= " & stErgebnisb
				IF stSpaltenb(sp) = sLine THEN 

					if sLine = "INSTAMT" then
						ctrlsumme = ctrlsumme + stErgebnisb
					end if

					sLine = stErgebnisb
'					msgbox "!"
					GOTO Labelrausb
				END IF	
'				msgbox stErgebnisb
				sp = sp + 1
			WEND	
			Labelrausb:
		stAusgabeb = stAusgabeb & sLine
		End If
	Wend
REM	Die Datensaetze werden mit PRINT #intmp gesammelt
	PRINT #tmpNumber, stAusgabeb
	stAusgabeb = ""
	txanzahl=txanzahl + 1
	
Labelnichtdrucken:
	i = i + 1
	oPForm.updateInt(staktuellField,i)

'inbNumber wieder von vorne lesen für das nächste Mitglied:
	Close #inbNumber
	Open inbDatei For Input As #inbNumber
LOOP

Close #tmpNumber

REM aktuell im Formular wieder auf Anfangswert:
	stSql = "UPDATE ""von_bis"" SET ""aktuell"" ='" + stvon + "' WHERE ""ID""=0"
	oResult = oSQL_Anweisung.executeQuery(stSql)
	oPForm.reload()	
	wait 100

	mitDecPunkt = join(split(ctrlsumme, ","), ".")	
	stSqlsx = "UPDATE ""SEPAHistorie"" SET ""NBOFTXS"" ='" + txanzahl + "' WHERE ""ID""=" + sHZeile
	oResultsx = oSQL_Anweisung.executeQuery(stSqlsx)
	stSqlcs = "UPDATE ""SEPAHistorie"" SET ""CTRLSUM"" ='" + mitDecPunkt + "' WHERE ""ID""=" + sHZeile
	oResultcs = oSQL_Anweisung.executeQuery(stSqlcs)

REM Ende der Schleife der einzelnen Überweisungen

REM ================================================================

Teila:
' hole die SEPA-Grundeinstellungs-Variablen aus den Tabellen SEPAselbst und SEPAHistorie
' für den Teil a

	stQuery = "SELECT * FROM ""SEPAHistorie"" WHERE ID = '" + sHZeile + "'"
	oAbfrageergebnis = oSQL_Anweisung.executeQuery(stQuery)
	splastaH= oAbfrageergebnis.Columns.Count
	'Kopfzeile mit Spaltennamen = Variablennamen in den XML-Vorlagen
	stSpaltenaH()=oAbfrageergebnis.Columns.ElementNames

	stQuery = "SELECT * FROM ""SEPAselbst"" WHERE ID = '0'"
	oAbfrageergebnis = oSQL_Anweisung.executeQuery(stQuery)
	splastaS= oAbfrageergebnis.Columns.Count
	'Kopfzeile mit Spaltennamen = Variablennamen in den XML-Vorlagen
	stSpaltenaS()=oAbfrageergebnis.Columns.ElementNames

'Sammlung im String stAusgabea:
	stAusgabea = ""

REM erst mit #inaNumber aus SEPAHistorie:
    While Not eof(inaNumber)
        Line Input #inaNumber, sLine 'holt naechste Zeile aus der xml-Vorlage
        If sLine <>"" Then
'suche die passende Tabellenspalte in SEPAHistorie
			spH = 0
			WHILE spH < (splastaH) ' - 1)
				stQuery = "SELECT """ + stSpaltenaH(spH) + """ FROM ""SEPAHistorie"" WHERE ID = '" + sHZeile + "'"
				'msgbox stQuery	
				oAbfrageergebnis = oSQL_Anweisung.executeQuery(stQuery)
				oAbfrageergebnis.next
				stErgebnis = oAbfrageergebnis.getString(1)
				IF stSpaltenaH(spH) = sLine THEN 
					IF sLine = "CREDTTM" then mid(stErgebnis,11,1,"T")
					sLine = stErgebnis
					GOTO Labelrausa
				END IF	
				spH = spH + 1
			WEND	
			Labelrausa:
			stAusgabea = stAusgabea & sLine
		End If
	Wend
'msgbox "Teil a   " & chr(10) & stAusgabea

REM jetzt aus SEPAselbst
    While Not eof(insNumber)
        Line Input #insNumber, sLine 'holt naechste Zeile aus der xml-Vorlage.
	        ' Diese wird bei Übereinstimmung mit dem Spaltennamen in SEPAselbst
    	    ' durch den Wert in dieser Spalte ersetzt:
        If sLine <>"" Then
'suche die passende Tabellenspalte in SEPAHistorie
			spS = 0
			WHILE spS < (splastaS) ' - 1)
'msgbox "stSpaltenaH(spH)= " & stSpaltenaH(spH)			
				stQuery = "SELECT """ + stSpaltenaS(spS) + """ FROM ""SEPAselbst"" WHERE ID = '0'"
				'msgbox stQuery	
				oAbfrageergebnis = oSQL_Anweisung.executeQuery(stQuery)
				oAbfrageergebnis.next
				stErgebnis = oAbfrageergebnis.getString(1)
				IF stSpaltenaS(spS) = sLine THEN
					IF sLine = "DB_IBAN" THEN stErgebnis = Replace(stErgebnis," ","")
					sLine = stErgebnis
					GOTO Labelrauss
				END IF	
				spS = spS + 1
			WEND	
			Labelrauss:
			stAusgabea = stAusgabea & sLine
		End If
	Wend
	Print #ausNumber, stAusgabea 

REM ================================================================

Teilc: 'keine weiteren Informationen, nur Abschluss von Klammern
	stAusgabec = ""
    While (Not eof(incNumber))
        Line Input #incNumber, sLine
        If sLine <>"" Then
			stAusgabec = stAusgabec & sLine
		End If
	Wend

	Open tmpDatei For Input As tmpNumber 
	while not eof(tmpNumber) 
		Line Input #tmpNumber, sLine
		Print #ausNumber, sLine
	wend	
	Print #ausNumber, stAusgabec

Close #inaNumber
Close #inbNumber
Close #incNumber
Close #tmpNumber
Close #ausNumber
msgbox ("Anzahl der Einzelüberweisungen: " & txanzahl & chr(10) & "Summe der Überweisungsbeträge: " & mitDecPunkt & " €.",64,"Fertig!")
END SUB