libreoffice-canzeley-client 0.5.0-2 / usr / lib / libreoffice / share / extensions / canzeley-client / Kanzleiprogramm / AktenMod3.xba

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="AktenMod3" script:language="StarBasic">
REM                        *****  BASIC  *****
REM        	              ***** Canzeley *****
REM              Copyright (C) 2008, 2009 Dr. Michael Stehmann
REM                  info@rechtsanwalt-stehmann.de
REM This program is free software: you can redistribute it and/or modify it
REM under the terms of the GNU General Public License as published by the
REM Free Software Foundation, either version 3 of the License, or any later version.
REM This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
REM without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
REM See the GNU General Public License for more details.
REM You should have received a copy of the GNU General Public License along with this program.
REM If not, see &lt;http://www.gnu.org/licenses/&gt;.
REM                      *** Version 0.5.0 ***

REM **** Kanzleiprogramm - AktenMod3 ****
REM *** Dieses Modul dient zur Erstellung des Handaktenbogens ***

Option Explicit
 
Private oTextmarke as Object
Private oCursor as Object
Private sTextmarkeName As String
Private sTextmarkeString As String
Private sPersonen As String
Private iPruef As Integer
Private sLoS As String	REM &quot;geladen&quot; oder &quot;gespeichert&quot;
Private aAdressenID()

REM ** Dieses Makro wird durch Klicken auf die **
REM ** Schaltfäche &quot;AkteAnsDia.HandaktenButton&quot; aufgerufen **
Sub HandakteMain

	iPruef = 0
HandaktenbogenMounttest
	If iPruef = 1 Then Exit Sub
SQLMod.AktenMod3Abfrage1
PersonenStringBilden
	If iPruef = 1 Then Exit Sub
HandaktenbogenTextmarken
BogenSpeichern

End Sub


Sub Hinweis

		MsgBox (&quot;Vorlage kann nicht &quot;+sLoS+&quot; werden!&quot;,16,&quot;Mounttest fehlgeschlagen!&quot;)

End Sub


Sub HandaktenbogenMounttest

FSMod.Mounttest

	If iMountTest = 1 Then
	
	HandaktenbogenVorlageLaden
		
	Else
	
		sLoS = &quot;geladen&quot;	
	Hinweis
		iPruef = 1
		
	End If
	
	
End Sub


Sub HandaktenbogenVorlageLaden

Dim sUrl As String
Dim anoArgs()

FSMod.Vorlagenpfad

	sUrl = ConvertToURL(sVorlagenPfad+&quot;Sonstiges/Handaktenbogen.ott&quot;)
	oDoc = StarDesktop.loadComponentFromURL(sUrl, &quot;_blank&quot;, 0, anoArgs())
		
End Sub


Sub BogenSpeichern

FSMod.Mounttest

	If iMountTest = 1 Then

		sFilename=&quot;Handaktenbogen&quot;
	FSMod.DokumentSpeichern
	
	Else
	
		sLoS = &quot;gespeichert&quot;
	Hinweis
	
	End If
		
End Sub


Sub PersonenStringBilden

Dim iAntwort As Integer
Dim sIBANKonten As String

PersonenErgebnisArrayBilden

	If iP = 0 Then
		iAntwort = MsgBox (&quot;Ein Handaktenbogen ohne Personen erscheint nicht sinnvoll!&quot;+CHR(13)+&quot;Trotzdem weitermachen?&quot;, 4+32+256,&quot;Bisher keine Personen der Akte zugeordnet!&quot;
		If iAntwort = 7 Then iPruef = 1
		Exit Sub
	End If
	
	sPersonen = aPersonenErgebnis(0)
	sIBANKonten = IBANDiaMod.IBAN4Handaktenbogen(aAdressenID(0))
	If sIBANKonten &lt;&gt; &quot;&quot; Then sPersonen = sPersonen+sIBANKonten
	
	i = 0
	For i = LBound(aPersonenErgebnis)+1 To UBound(aPersonenErgebnis)
		sPersonen = sPersonen+CHR(13)+aPersonenErgebnis(i)
		sIBANKonten = IBANDiaMod.IBAN4Handaktenbogen(aAdressenID(i))
		If sIBANKonten &lt;&gt; &quot;&quot; Then sPersonen = sPersonen+sIBANKonten
	Next i

End Sub


Sub PersonenErgebnisArrayBilden

Dim sErgebnis As String
Dim sIBANKonten As String

	iP = 0	
	ReDIM aPersonenErgebnis()

	While (oResultSet.next)

		ReDIM Preserve aPersonenErgebnis(iP)
		ReDIM Preserve aAdressenID(iP)
		
		sErgebnis = oResultSet.getString(1)+&quot;:&quot;+CHR(10)
		If oResultSet.getString(2) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+oResultSet.getString(2)+CHR(10)
		If oResultSet.getString(3) &lt;&gt; &quot;&quot; Then
			If oResultSet.getString(4) &lt;&gt; &quot;&quot; Then
				sErgebnis = sErgebnis+oResultSet.getString(3)+&quot; &quot;
			Else
				sErgebnis = sErgebnis+oResultSet.getString(3)+CHR(10)
			End If
		End If
		If oResultSet.getString(4) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+oResultSet.getString(4)+CHR(10)
		If oResultSet.getString(21) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+oResultSet.getString(21)+CHR(10)
		If oResultSet.getString(5) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+oResultSet.getString(5)+CHR(10)
		If oResultSet.getString(20) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Postfach &quot;+oResultSet.getString(20)+CHR(10)
		sErgebnis = sErgebnis+oResultSet.getString(6)+&quot; &quot;+oResultSet.getString(7)+CHR(10)
		If oResultSet.getString(8) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Tel.: &quot;+oResultSet.getString(8)+CHR(10)
		If oResultSet.getString(9) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Privat : &quot;+oResultSet.getString(9)+CHR(10)
		If oResultSet.getString(10) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Fax: &quot;+oResultSet.getString(10)+CHR(10)
		If oResultSet.getString(11) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Büro: &quot;+oResultSet.getString(11)+CHR(10)
		If oResultSet.getString(12) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Mobil: &quot;+oResultSet.getString(12)+CHR(10)
		If oResultSet.getString(13) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Mail: &quot;+oResultSet.getString(13)+CHR(10)
		If oResultSet.getString(14) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+oResultSet.getString(14)+ _
		&quot; BLZ: &quot;+oResultSet.getString(15)+CHR(10)+&quot;KontoNr.: &quot;+oResultSet.getString(16)+CHR(10)
		
		If oResultSet.getString(17) &lt;&gt; &quot;&quot; Then
			sGeburtsDate = SQLMod.DatumDB2Prog (oResultSet.getString(17))
			sErgebnis = sErgebnis+&quot;*&quot;+sGeburtsDate+CHR(10)
		End If
		
		If oResultSet.getString(18) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+&quot;Zeichen: &quot;+oResultSet.getString(18)+CHR(10)
		If oResultSet.getString(19) &lt;&gt; &quot;&quot; Then sErgebnis = sErgebnis+oResultSet.getString(19)+CHR(10)
	
		aAdressenID(iP) = oResultSet.getInt(22)
		aPersonenErgebnis(iP)=sErgebnis
		iP=iP+1
	
	Wend
		
End Sub


Sub HandaktenbogenTextmarken

TextmarkeRegisterNr
TextmarkeAktenzeichen
TextmarkeKurzrubrum	
TextmarkeWegen
TextmarkeAnlagedatum
TextmarkeSachgebiet
TextmarkeSachbearbeiter
TextmarkeHerkunft
TextmarkeLAenderung
TextmarkePersonen

End Sub


Sub HandaktenbogenTextmarkeStringZuordnen

	If oDoc.getBookmarks().hasByName(sTextmarkeName) = True Then
		oTextmarke = oDoc.getBookmarks().getByName(sTextmarkeName)
		oCursor = oDoc.Text.createTextCursorByRange(oTextmarke.Anchor)
		oCursor.String = sTextmarkeString
	End If

End Sub


Sub TextmarkeRegisterNr	
	
	sTextmarkeName = &quot;RegisterNr&quot;
	sTextmarkeString = sRegisterNr
		
HandaktenbogenTextmarkeStringZuordnen	
		
End Sub


Sub TextmarkeAktenzeichen
	
	sTextmarkeName = &quot;Aktenzeichen&quot;
	sTextmarkeString = sAktenzeichen
		
HandaktenbogenTextmarkeStringZuordnen	
		
End Sub


Sub TextmarkeKurzrubrum	
	
	sTextmarkeName = &quot;Kurzrubrum&quot;
	sTextmarkeString = sKurzrubrum
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


Sub TextmarkeWegen
	
	sTextmarkeName = &quot;Wegen&quot;
	sTextmarkeString = sWegen
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


Sub TextmarkeAnlagedatum
	
	sTextmarkeName = &quot;Anlagedatum&quot;
	sTextmarkeString = sAnlagedatumLabel
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


Sub TextmarkeSachgebiet
	
	sTextmarkeName = &quot;Sachgebiet&quot;
	sTextmarkeString = sReferat
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


Sub TextmarkeSachbearbeiter
	
	sTextmarkeName = &quot;Sachbearbeiter&quot;
	sTextmarkeString = sSachbearbeiter
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


Sub TextmarkeHerkunft
	
	sTextmarkeName = &quot;Herkunft&quot;
	sTextmarkeString = sHerkunft
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


Sub TextmarkeLAenderung
	
	sTextmarkeName = &quot;LAenderung&quot;
	sTextmarkeString = sLAenderungLabel
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


Sub TextmarkePersonen
	
	sTextmarkeName = &quot;Personen&quot;
	sTextmarkeString = sPersonen
		
HandaktenbogenTextmarkeStringZuordnen	
	
End Sub


</script:module>