libreoffice-canzeley-client 0.5.0-2 / usr / lib / libreoffice / share / extensions / canzeley-client / Kanzleiprogramm / SystemAdminMod1.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="SystemAdminMod1" script:language="StarBasic">REM                        *****  BASIC  *****
REM        	              ***** Canzeley *****
REM              Copyright (C) 2008, 2009, 2010 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 - SystemAdminMod1 ****

Option Explicit

Private oTaskauswahl As Object
Private iCounter As Integer
Private sPruef As String


REM ** Diese Makro erzeugt unter Verwendung des Dialogs SystemAdminDia **
REM ** die Systemadministrationsauswahl **
Sub CreateSystemAdminDia

Dim sTitel As String

	sTitel = &quot;Systemadministration&quot;
	iKanzleiDia1Flag = 1
	
	oDlg.endExecute()
	
	DialogLibraries.LoadLibrary(&quot;Kanzleiprogramm&quot;)
	oDlg = CreateUnoDialog(DialogLibraries.Kanzleiprogramm.SystemAdminDia)
	oDlg.Title = sTitel
	
	oTaskauswahl = oDlg.getControl(&quot;SystemAuswahlListBox&quot;)
	
		oTaskauswahl.addItem(&quot;Auswertungen&quot;, 0)
		oTaskauswahl.addItem(&quot;Gericht anlegen&quot;, 1)
		oTaskauswahl.addItem(&quot;Gerichtsart anlegen&quot;, 2)
		oTaskauswahl.addItem(&quot;Sachbearbeiter anlegen&quot;, 3)
		oTaskauswahl.addItem(&quot;Sachgebiet anlegen&quot;, 4)
		oTaskauswahl.addItem(&quot;Herkunft anlegen&quot;, 5)
		oTaskauswahl.addItem(&quot;Anrede und Briefanrede anlegen&quot;, 6)
		oTaskauswahl.addItem(&quot;Statusbezeichnung anlegen&quot;, 7)
		oTaskauswahl.addItem(&quot;Wiedervorlagegrund anlegen&quot;, 8)
		oTaskauswahl.addItem(&quot;Vorlagen erfassen - Personen&quot;, 9)
		oTaskauswahl.addItem(&quot;Vorlagen erfassen - Gerichte&quot;, 10)
		oTaskauswahl.addItem(&quot;Version Canzeley&quot;, 11)
				
	oDlg.Execute()	

End Sub


REM ** Dieses Makro prueft, welche Aufgabe in der Systemadministrationsauswahl ausgewaehlt wurde, **
REM ** und ruft das entsprechende Makro auf **
REM ** Es wird durch Klicken auf die Schaltfäche &quot;SystemAdminDia.AuswahlButton&quot; aufgerufen **
Sub SystemTaskauswahl
	
	Select Case oTaskauswahl.SelectedItem
	
		Case &quot;Auswertungen&quot;
			oDlg.endExecute()
			AuswertungenDia
		Case &quot;Gericht anlegen&quot;
			oDlg.endExecute()
			GerichtAnlegen
		Case &quot;Gerichtsart anlegen&quot;
			oDlg.endExecute()		
			SystemPflegeMod1.GerichtsartAnlegen
		Case &quot;Sachbearbeiter anlegen&quot;
			oDlg.endExecute()
			SystemPflegeMod1.SachbearbeiterAnlegen
		Case &quot;Sachgebiet anlegen&quot;
			oDlg.endExecute()
			SystemPflegeMod1.SachgebietAnlegen
		Case &quot;Herkunft anlegen&quot;
			oDlg.endExecute()
			SystemPflegeMod1.HerkunftAnlegen	
		Case &quot;Anrede und Briefanrede anlegen&quot;
			oDlg.endExecute()
			SystemPflegeMod1.AnredeBriefanredeAnlegen
		Case &quot;Statusbezeichnung anlegen&quot;
			oDlg.endExecute()
			SystemPflegeMod1.StatusAnlegen
		Case &quot;Wiedervorlagegrund anlegen&quot;
			oDlg.endExecute()
			SystemPflegeMod1.WiedervorlagegrundAnlegen
		Case &quot;Vorlagen erfassen - Personen&quot;
			oDlg.endExecute()
			VorlagenErfMod.VorlagenErfassenPersonen
		Case &quot;Vorlagen erfassen - Gerichte&quot;
			oDlg.endExecute()
			VorlagenErfMod.VorlagenErfassenGerichte
		Case &quot;Herkunft&quot;
			HerkunftMod1.HerkunftAuswerten
		Case &quot;Sachbearbeiter&quot;
			HerkunftMod1.SachbearbeiterAuswerten
		Case &quot;Sachgebiete&quot;
			HerkunftMod1.SachgebietAuswerten
		Case &quot;Version Canzeley&quot;
			MsgBox (&quot;Canzeley &quot;+csVersion+&quot; - &quot;+csBuild, 64, &quot;Version und Build:&quot;)
		Case else
			AktenAWMod.Aktenauswahl
				
	End Select
		
End Sub


REM ** Dieses Makro wird beim Mausklick im Kontrollelement SystemAdminDia.SystemAuswahlListBox ausgeloest **
REM ** Wird zweimal nacheinander auf dieselbe Aufgabe geklickt, wird diese ausgewaehlt und gestartet **
Sub SystemTaskauswahlAlternativMaus

	If iCounter = 0 Then
		
		iCounter = 1
		sPruef = oTaskauswahl.SelectedItem
		Exit Sub
		
	Else
	
		If sPruef = oTaskauswahl.SelectedItem Then 
			iCounter = 0
			sPruef = &quot;&quot;
		SystemTaskauswahl
		Else
			iCounter = 0
			sPruef = &quot;&quot;
		End If
		
	End If
		
End Sub


REM ** Dieses Makro wird beim Tastendruck im Kontrollelement SystemAdminDia.SystemAuswahlListBox ausgeloest **
REM ** Wird wird Return gedrueckt, so wird die ausgewaehlte Aufgabe gestartet **
Sub SystemTaskauswahlAlternativKeybord(Event As Object)

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

End Sub


Sub GerichtAnlegen

	MsgBox (&quot;Bitte zunächst prüfen, ob das Gericht schon angelegt wurde!&quot;, 48, &quot;Ne bis in idem&quot;)

	iGerichtNeuFlag = 1
AdressenAWMod1.GerichtsDatenAnzeigen

End Sub


Sub AuswertungenDia

Dim sTitel As String

	sTitel = &quot;Auswertungen&quot;
	iKanzleiDia1Flag = 2
	
	oDlg.endExecute()
	
	DialogLibraries.LoadLibrary(&quot;Kanzleiprogramm&quot;)
	oDlg = CreateUnoDialog(DialogLibraries.Kanzleiprogramm.SystemAdminDia)
	oDlg.Title = sTitel
	
	oTaskauswahl = oDlg.getControl(&quot;SystemAuswahlListBox&quot;)
	
		oTaskauswahl.addItem(&quot;Herkunft&quot;, 0)
		oTaskauswahl.addItem(&quot;Sachbearbeiter&quot;, 1)
		oTaskauswahl.addItem(&quot;Sachgebiete&quot;, 2)
				
	oDlg.Execute()	
			
End Sub


REM ** Dieses Makro wird beim Mausklick im Kontrollelement SystemAdminDia.AbbruchButton ausgeloest **
Sub SystemAdminDiaAbbruchButton

	Select Case iKanzleiDia1Flag
	
		Case 1
			HauptAWMod.Hauptauswahl
		Case 2	
			CreateSystemAdminDia
		Case Else
			AktenAWMod.Aktenauswahl
				
	End Select
		
End Sub

</script:module>