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

Option Explicit

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

REM ** Diese Makro erzeugt unter Verwendung des Dialogs HauptAWDia **
REM ** die Hauptauswahl **
Sub Hauptauswahl

	oDlg.endExecute()
	
HauptauswahlOhne

End Sub


Sub HauptauswahlOhne

Dim sTitel As String

	sTitel = &quot;Aufgabenauswahl&quot;
		
	DialogLibraries.LoadLibrary(&quot;Kanzleiprogramm&quot;)
	oDlg = CreateUnoDialog(DialogLibraries.Kanzleiprogramm.HauptAWDia)
	oDlg.Title = sTitel
	
	oTaskauswahl = oDlg.getControl(&quot;AuswahlListBox&quot;)
	
		oTaskauswahl.addItem(&quot;Akte bearbeiten&quot;, 0)
		oTaskauswahl.addItem(&quot;Akten suchen nach Personen&quot;, 1)
		oTaskauswahl.addItem(&quot;Wiedervorlagen anzeigen&quot;, 2)
		oTaskauswahl.addItem(&quot;Personendaten anzeigen&quot;, 3)
		oTaskauswahl.addItem(&quot;Gerichtsdaten anzeigen&quot;, 4)
		oTaskauswahl.addItem(&quot;Personendaten anlegen&quot;, 5)
		oTaskauswahl.addItem(&quot;Akte ablegen&quot;, 6)
		oTaskauswahl.addItem(&quot;Neue Akte anlegen&quot;, 7)		
        oTaskauswahl.addItem(csTrenner, 8)		
		oTaskauswahl.addItem(&quot;Neues Dokument&quot;, 9)
		oTaskauswahl.addItem(&quot;Dokument freigeben&quot;, 10)
        oTaskauswahl.addItem(csTrenner, 11)
        oTaskauswahl.addItem(&quot;Programm beenden&quot;, 12)
        oTaskauswahl.addItem(csTrenner, 13)
        oTaskauswahl.addItem(&quot;Systemadministration&quot;, 14)
		
	oDlg.Execute()	
	
End Sub


REM ** Dieses Makro prueft, welche Aufgabe in der Hauptauswahl ausgewaehlt wurde, **
REM ** und ruft das entsprechende Makro auf **
REM ** Es wird durch Klicken auf die Schaltfäche &quot;HauptAWDia.AuswahlButton&quot; aufgerufen **
Sub Taskauswahl

	iWarnung = 0
	
	Select Case oTaskauswahl.SelectedItem
		
		Case &quot;Akte bearbeiten&quot;
			oDlg.endExecute()
			AktenAWMod.Aktenauswahl
		Case &quot;Neue Akte anlegen&quot;
			AbfrageAnlage
				If iWarnung = 1 Then			
				Hauptauswahl
				Else
				AktenAnlMod1.AktenNeuanlage
				End If
		Case &quot;Akten suchen nach Personen&quot;
			oDlg.endExecute()
			AktenAWMod.AktenauswahlnachPerson
		Case &quot;Wiedervorlagen anzeigen&quot;
			WvMod1.TagesWiedervorlagenAnzeigen
		Case &quot;Personendaten anzeigen&quot;
			AdressenAWMod1.AdressendatenAnzeigen
		Case &quot;Personendaten anlegen&quot;
			FragePersonNeuAnlegen
		Case &quot;Gerichtsdaten anzeigen&quot;
			iGerichtNeuFlag = 0	
			AdressenAWMod1.GerichtsDatenAnzeigen
		Case &quot;Akte ablegen&quot;
			AktenAWMod.AkteAblegen
		Case &quot;Neues Dokument&quot;
			NeuesDokument		
		Case &quot;Dokument freigeben&quot;
			oDlg.endExecute()
			Warnung			
				If iWarnung = 1 Then			
				Hauptauswahl
				Else
				NeuesDokument
				HauptauswahlOhne
				End If			
		Case &quot;Programm beenden&quot;
			oDlg.endExecute()
			Start.Abbruch
		Case &quot;Systemadministration&quot;
			SystemAdminMod1.CreateSystemAdminDia
		Case csTrenner
			MsgBox (&quot;Das war nur ein Trennstrich!&quot;, 0, &quot;&quot;)
		Case else
			oDlg.endExecute()
			AktenAWMod.Aktenauswahl
				
	End Select
		
End Sub

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

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


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

	If Event.KeyCode = com.sun.star.awt.Key.RETURN Then Taskauswahl
		
End Sub


Sub FragePersonNeuAnlegen

Dim iAntwort As Integer

	iAntwort = MsgBox (&quot;Wollen Sie wirklich eine Person ohne Zuordnung neu anlegen?&quot;, 4+32+256, &quot;Person ohne Zuordnung zu Akte:&quot;)

	If iAntwort = 6 Then AdressenMod2.AdresseEinfuegen

End Sub


Sub Warnung

Dim iAntwort As Integer

	iAntwort = MsgBox(&quot;Dieses Fenster darf nicht vor der Beendigung dess Programms geschlossen werden,&quot;+Chr(13) _
	+&quot;da OpenOffice.org sonst bei Beendigung des Programms abstürzt!&quot;,1+48+256,&quot;Wichtige Warnung:&quot;)
	
	If iAntwort = 2 Then iWarnung = 1

End Sub


Sub AbfrageAnlage

Dim iAntwort As Integer

	iAntwort = MsgBox(&quot;Soll eine neue Akte angelegt werden?&quot;,4+32+256,&quot;Vorsichtshalber gefragt:&quot;)	

	If iAntwort = 7 Then iWarnung = 1
	
End Sub


Sub NeuesDokument

Dim sNeuURL As String
Dim oNeuDoc As Object
Dim anoArgs()

        sNeuURL = &quot;private:factory/swriter&quot;
        oNeuDoc = StarDesktop.loadComponentFromURL(sNeuURL, &quot;_blank&quot;, 0, anoArgs())

End Sub


REM ** Das folgende Makro wird beim Betaetigen des Abbruchbuttons ausgeloest **
Sub HauptAWDiaAbbruchButton

		oDlg.endExecute()

AktenAWMod.Aktenauswahl

End Sub

</script:module>