libreoffice-canzeley-client 0.5.0-2 / usr / lib / libreoffice / share / extensions / canzeley-client / Kanzleiprogramm / VorlagenAWMod1.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="VorlagenAWMod1" 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 - VorlagenAWMod1 ****

Option Explicit

Private aErgebnis()
Private sUrl As String
Private sVorlage As String
Private iCounter As Integer
Private sPruef As String
Private iVD As Integer REM 16 = Verzeichnisse, 0 = Dateien
Private iVAnzahl As Integer
Private sUrlVorlage As String
Private sVzTrenner As String


REM ** Das folgende Makro wird beim Betaetigen des &quot;AktenAnsDia.AdresseNachTextButton&quot; **
REM ** ausgeloest **
Sub VorlagenauswahlPersonen

Dim sTitel As String

	sPoGFlag = &quot;P&quot;
	
	sTitel = &quot;Vorlagenauswahl - Personen&quot;
	sVorlagenLabel = &quot;Auswählen&quot;
		
CreateVorlagenAWDia (sTitel)

VorlagenPersonen

End Sub


REM ** Das folgende Makro wird beim Betaetigen des &quot;AktenAnsDia.AnsGerichtButton&quot; ausgeloest **
Sub VorlagenauswahlGerichte

Dim sTitel As String

	sPoGFlag = &quot;G&quot;

	sTitel = &quot;Vorlagenauswahl - Gerichte&quot;
	sVorlagenLabel = &quot;Auswählen&quot;
	
CreateVorlagenAWDia (sTitel)

VorlagenGerichte

End Sub


Sub CreateVorlagenAWDia(sTitel As String)

Dim oAuswahlButton As Object

	DialogLibraries.LoadLibrary(&quot;Kanzleiprogramm&quot;)
	oDlg2 = CreateUnoDialog(DialogLibraries.Kanzleiprogramm.VorlagenAWDia)
	oDlg2.Title = sTitel
	
	oAuswahlButton = oDlg2.getControl(&quot;AuswahlButton&quot;)
	oAuswahlButton.setLabel(sVorlagenLabel)
	
	If iOs = 1 Then sVzTrenner = &quot;\&quot; Else sVzTrenner = &quot;/&quot;
	sVPfad = sVzTrenner
	oDlg2.getControl(&quot;PfadLabel&quot;).text = sVPfad
	
End Sub


Sub VorlagenPersonen

FileSystem

	sUrl = sVorlagenPfad+&quot;Personen/&quot;
	
EintraegeFeststellen	

	oDlg2.Execute()
	
End Sub


Sub FileSystem

	If iOs = 4  And iAutoMount = 1 Then FSMod.Mounttest
	
FSMod.VorlagenPfad
	
End Sub


Sub EintraegeFeststellen

Dim aDateien()
Dim iVerz As Integer

	iVAnzahl = 1
	ReDIM aErgebnis(1)
	iVD = 16
VorlagenDateienErfassen

	aErgebnis = Sort (aErgebnis)

	If iVAnzahl &gt; 1 Then
		ReDIM Preserve aErgebnis(iVAnzahl+1)
		aErgebnis(iVAnzahl+1) = csTrenner
		iVAnzahl = iVAnzahl+2
	Else
		iVAnzahl = 1
	End If
	
	iVerz = iVAnzahl
				
	iVD = 0
VorlagenDateienErfassen

	For i = iVerz To UBound(aErgebnis)
		Redim Preserve aDateien(i)
		aDateien(i) = aErgebnis(i)
	Next i
	
	aDateien = Sort (aDateien)
	
	For i = iVerz To UBound(aErgebnis)
		aErgebnis(i) = aDateien(i)
	Next i

VorlagenListboxFuellen

End Sub


Sub VorlagenDateienErfassen

Dim sNaechsteDatei As String
Dim iUnterV As Integer

	ReDIM Preserve aErgebnis(iVAnzahl)

	If Right(sUrl, 9) &lt;&gt; &quot;Personen/&quot; And  Right(sUrl, 9) &lt;&gt; &quot;Gerichte/&quot; Then
		iUnterV = 1
	Else
	 	iUnterV = 0
	End If

	sNaechsteDatei = Dir(sUrl, iVD)
	ReDIM Preserve aErgebnis(iVAnzahl)
	
	If sNaechsteDatei = &quot;&quot; And iVD = 0 Then sNaechsteDatei = &quot;Keine Vorlagen gefunden!&quot;
	If sNaechsteDatei = &quot;&quot; And iVD = 16 Then sNaechsteDatei = &quot;..&quot;
	
	aErgebnis(iVAnzahl) = sNaechsteDatei
	
	If aErgebnis(iVAnzahl) = &quot;.&quot; Then iVAnzahl = iVAnzahl - 1

	Do While sNaechsteDatei &lt;&gt; &quot;&quot;
	
		iVAnzahl=iVAnzahl+1
		ReDIM Preserve aErgebnis(iVAnzahl)
		sNaechsteDatei = Dir()
		aErgebnis(iVAnzahl) = sNaechsteDatei
		If iUnterV = 0 And 	aErgebnis(iVAnzahl)	= &quot;..&quot; Then iVAnzahl=iVAnzahl-1
		
	Loop
	
End Sub


Function Sort (aEntry())

REM * Algorithmus nach http://docs.sun.com/app/docs/doc/819-1326/6n3mlokth *

Dim iCount As Integer
Dim iCount2 As Integer
Dim sTemp As String
Dim iMin As Integer
Dim iMax As Integer
Dim i As Integer

	iMin = LBound(aEntry)
	iMax = UBound(aEntry)

   For iCount = iMin To iMax
       For iCount2 = iCount + 1 To iMax
         If aEntry(iCount) &gt; aEntry(iCount2) Then
            sTemp = aEntry(iCount)
            aEntry(iCount) = aEntry(iCount2)
            aEntry(iCount2) = sTemp
         End If
       Next iCount2
    Next iCount
    
REM * Variable muss wie Funktion heißen! *   
Sort = aEntry
    
End Function


Sub VorlagenListboxFuellen

	oVorlagenauswahl = oDlg2.getControl(&quot;VorlagenListBox&quot;)
	oVorlagenauswahl.removeItems(0, oVorlagenauswahl.getItemCount())
	
	For i= LBound(aErgebnis) To UBound(aErgebnis)
		oVorlagenauswahl.addItem(aErgebnis(i), i)
	Next i
			
End Sub


Sub VorlagenGerichte

FileSystem
	
	sUrl = sVorlagenPfad+&quot;Gerichte/&quot;
	
EintraegeFeststellen	

	oDlg2.Execute()

End Sub


REM ** Dieses Makro wird bei der Auswahl eines Eintrages in der **
REM ** &quot;VorlagenAWDia.VorlagenListBox&quot; ausgeloest **
Sub BeschreibungLabelFuellen

Dim sBeschreibung As String
Dim sDBUrl As String

	sVorlage = oVorlagenauswahl.SelectedItem
	
	Select Case sVorlage
		
		Case &quot;..&quot;
			sBeschreibung = &quot;Zurück zum übergeordneten Verzeichnis&quot;
		
		Case csTrenner
			sBeschreibung = &quot;Nur ein Trennstrich&quot;
			
		Case Else	
			If sPoGFlag = &quot;G&quot; Then
				sDBUrl = ConvertToUrl(&quot;Gerichte&quot;+sVPfad)
			Else
				sDBUrl = ConvertToUrl(&quot;Personen&quot;+sVPfad)
			End If
		
			sDBUrl = Right(sDBUrl, Len(sDBUrl)-8)
	
		SQLMod.VorlagenAWMod1Abfrage1 (sVorlage, sDBUrl)
		
			While (oResultSet.next)
		
				sBeschreibung = oResultSet.getString(1)
				sVorlagenBezeichnung  = oResultSet.getString(2)
								
			Wend
	
			If sBeschreibung = &quot;&quot; Then sBeschreibung = &quot;Beschreibung nicht vorhanden.&quot;
	
	End Select
	
	oDlg2.getControl(&quot;BeschreibungLabel&quot;).text = sBeschreibung
	
End Sub


REM ** Das folgende Makro wird beim Betaetigen des &quot;VorlagenAWDia.AuswahlButton&quot; ausgeloest **
Sub VorlagenAuswahl

Dim iAntwort As Integer

	sVorlage = oVorlagenauswahl.SelectedItem
		
	Select Case sVorlage

REM * Pruefen, ob eine Vorlage ausgewaehlt wurde und ausgewaehlte Vorlage feststellen *
		Case &quot;&quot;
			MsgBox (&quot;Bitte Vorlage auswählen&quot;,48,&quot;Fehlende Vorlagenauswahl&quot;)
			Exit Sub
		Case csTrenner
			MsgBox (&quot;Das war nur ein Trennstrich!&quot;, 0, &quot;&quot;)
			Exit Sub
	
REM * Meldung, wenn das entsprechende Vorlagenverzeichnis leer ist*
REM * und trotzdem ausgewaehlt wurde *
		Case &quot;Keine Vorlagen gefunden!&quot;
		MsgBox(&quot;Leider steht keine Vorlage zur Verfügung&quot;,48,sVorlage)
		
		Case Else
			If Right(sVorlage, 4) = &quot;.ott&quot; Then

REM * Vorlage laden *
REM * und Makros zum Ausfüllen der Textmarken aufrufen oder Vorlagedaten einlesen *
				sUrlVorlage = ConvertToURL(sUrl+sVorlage)
	
			VorlageLaden
			
				If sVorlagenLabel = &quot;Auswählen&quot; Then
			
					oDlg2.endExecute()
				
					If sPoGFlag = &quot;G&quot; Then
					VorlagenMod1.GerichtsVorlage
					Else	
					VorlagenMod1.PersonenVorlage
					End If
				
				Else
			
				VorlagenErfMod.VorlageDatenEinlesen
			
				End If
			
			Else
		
				If sVorlagenLabel = &quot;Auswählen&quot; Then
			
				UrlAendern
			
				Else
					If sVorlage =&quot;..&quot; Then
					UrlAendern	
					Else
						iAntwort = MsgBox (&quot;Wollen Sie dieses Verzeichnis erfassen?&quot;, 4+32+256, &quot;Erfassen oder Wechseln?&quot;)

						If iAntwort = 7 Then
						UrlAendern
						Else
						VorlagenErfMod.VerzeichnisErfassen
						End If
					End If
					
				End If
			
			End If
		
	End Select
			
End Sub


Sub UrlAendern

Dim aUrl()
Dim aPfad()

	If sVorlage = &quot;..&quot; Then
	
		aUrl = Split(sUrl,&quot;/&quot;)
		aPfad = Split(sVPfad, sVzTrenner)
		
		sUrl = &quot;&quot;
		sVPfad = &quot;&quot;
		
		For i = LBound(aUrl) To UBound(aUrl)-2
			sUrl = sUrl+aUrl(i)+&quot;/&quot;
		Next i
		
		For i = LBound(+aPfad) To UBound(aPfad)-2
			sVPfad = sVPfad+aPfad(i)+sVzTrenner
		Next i
	
	Else
	
		sUrl = sUrl + sVorlage + &quot;/&quot;
		sVPfad = sVPfad + sVorlage + sVzTrenner
		
	End If
	
	oDlg2.getControl(&quot;PfadLabel&quot;).text = sVPfad
	
EintraegeFeststellen
	
End Sub

		
REM ** Dieses Makro wird beim Mausklick im Kontrollelement  VorlagenAWDia.VorlagenListBox ausgeloest **
REM ** Wird zweimal nacheinander auf dieselbe Vorlage geklickt, wird diese ausgewaehlt und geladen **
Sub VorlagenAuswahlAlternativMaus

BeschreibungLabelFuellen
	
	If oVorlagenauswahl.SelectedItem = &quot;&quot; Then Exit Sub
	
	If iCounter = 0 Then
	
		iCounter = 1
		sPruef = oVorlagenauswahl.SelectedItem
		Exit Sub
		
	Else
	
		If sPruef = oVorlagenauswahl.SelectedItem Then 
			iCounter = 0
			sPruef = &quot;&quot;
		VorlagenAuswahl
		Else
			iCounter = 0
			sPruef = &quot;&quot;
		End If
		
	End If
		
End Sub


REM ** Dieses Makro wird beim Tastendruck im Kontrollelement VorlagenAWDia.VorlagenListBox ausgeloest **
REM ** Wird wird Return gedrueckt, so wird die ausgewaehlte Vorlage geladen **
Sub VorlagenAuswahlAlternativKeybord(Event As Object)

	If Event.KeyCode = com.sun.star.awt.Key.RETURN Then VorlagenAuswahl	

End Sub


Sub VorlageLaden

Dim aArgs(0) As New com.sun.star.beans.PropertyValue

	aArgs(0).Name = &quot;MacroExecutionMode&quot;
	aArgs(0).Value = com.sun.star.document.MacroExecMode.ALWAYS_EXECUTE_NO_WARN

	oDoc = StarDesktop.loadComponentFromURL(sUrlVorlage, &quot;_blank&quot;, 0, aArgs())

End Sub


REM ** Das folgende Makro wird beim Betaetigen des &quot;VorlagenAWDia.AbbruchButton&quot; ausgeloest **
Sub Abbruch

	oDlg2.endExecute()
	
	If sVorlagenLabel = &quot;Erfassen&quot; Then SystemAdminMod1.CreateSystemAdminDia
	
End Sub


REM ** Das folgende Makro wird beim Betaetigen des &quot;VorlagenAWDia.HauptauswahlButton&quot; ausgeloest **
Sub Hauptauswahl

	oDlg2.endExecute()
	
HauptAWMod.Hauptauswahl

End Sub


</script:module>