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

Option Explicit

Private iPruef As Integer
Private iAenderung  As Integer
Private sInputBox As String
Private aStatus()
Private aAktenGerichteID()
Private sAktenzeichenNeu As string
Private sGerichtsKurzrubrumNeu As String
Private sTitelAkte As String
Private iGerichtsAuswahl As Integer
Private sGericht As String
Private aGerichtsNr()
Private aWiedervorlagen()
Private aWiedervorlagenID()
Private iAktenAnsStep As Integer

Sub Aktenanzeige1

Datenabfrage

	iG=0 : i=0 : iW = 0 
REM : iP=0
	
PersonenReload
	
End Sub


Sub Datenabfrage
	
	sRegisterNr = sRegNummer
	
SQLMod.AktenAnsMod1Abfrage1a

	While (oResultSet.next)
		iAktenID = oResultSet.getInt(1)
		sID = Cstr(iAktenID)
		sKurzrubrum = oResultSet.getString(2)
		sAktenzeichen = oResultSet.getString(3)
		sWegen = oResultSet.getString(4)
		sAnmerkungAkte = oResultSet.getString(5)
	Wend
	
SQLMod.AktenAnsMod1Abfrage1b

	While (oResultSet.next)	
		sReferat = oResultSet.getString(1)
	Wend
		
End Sub


Sub Aktenanzeige1Dialog

	DialogLibraries.LoadLibrary(&quot;Kanzleiprogramm&quot;)
	oDlg = CreateUnoDialog(DialogLibraries.Kanzleiprogramm.AktenAnsDia)

End Sub

	
Sub Aktenanzeige1StandardDaten

Dim oLabel As Object
	
	oLabel = oDlg.getControl(&quot;IDNrLabel&quot;)
	oLabel.model.Label=sID

	oLabel = oDlg.GetControl(&quot;RegNrLabel&quot;)
	oLabel.model.Label=sRegisterNr

	oLabel = oDlg.GetControl(&quot;RubrumLabel&quot;)
	oLabel.model.Label=sKurzrubrum

	oLabel = oDlg.GetControl(&quot;AZLabel&quot;)
	oLabel.model.Label=sAktenzeichen

	oLabel = oDlg.GetControl(&quot;WegenLabel&quot;)
	oLabel.model.Label=sWegen
	
	oLabel = oDlg.GetControl(&quot;ReferatLabel&quot;)
	oLabel.model.Label=sReferat
	
End Sub


Sub StandardDatenAnpassung

Dim sBitte As String

	sBitte = &quot;Bitte auswählen!&quot;

	If sReferat = sBitte  Then sReferat = &quot;&quot;
	If sHerkunft = sBitte Then sHerkunft = &quot;&quot;
	If sSachbearbeiter = sBitte Then sSachbearbeiter = &quot;&quot;
	
End Sub


REM ** Die folgenden Makros zeigt die zur Akte gehoerenden Personen an **
Sub PersonenReload

	iP = 0
StandardDatenAnpassung	
PersonenOhneReload

End Sub


Sub PersonenOhneReload

	oDlg.endExecute()
Aktenanzeige1Dialog	
Aktenanzeige1StandardDaten
Aktenanzeige1Personen
	oDlg.Execute()
		
End Sub


Sub Aktenanzeige1Personen

	iAktenAnsStep = 1
Aktenanzeige1Seite1
AnmerkungAnzeige
DatenAktenanzeige1Seite1
		
End Sub


Sub Aktenanzeige1Seite1

	oDlg.getModel().Step = 1
	oDlg.Title = &quot;Akte: &quot;+sRegisterNr+&quot; &quot;+sKurzrubrum+&quot; - Personen&quot;
	oTaskLabel=oDlg.GetControl(&quot;TaskLabel&quot;)
	oTaskLabel.Text=&quot;Adressen&quot;
	oDlg.getControl(&quot;PersonenButton&quot;).enable = False
	oDlg.getControl(&quot;GerichteButton&quot;).enable = True
	oDlg.getControl(&quot;DokumenteButton&quot;).enable = True
	oDlg.getControl(&quot;AkteButton&quot;).enable = True
	oDlg.getControl(&quot;WiedervorlagenButton&quot;).enable = True
    	  	                                                                                                                                                 
End Sub


Sub DatenAktenanzeige1Seite1

	If iP=0 Then

		SQLMod.AktenAnsMod1Abfrage2
		PersonenErgebnisArrayFuellen
		
	End If
		
PersonenAuswahlfeldFuellen
	
End Sub


Sub PersonenErgebnisArrayFuellen

Dim sErgebnis As String
		
	ReDIM aPersonenErgebnis()
	ReDIM aAuswahl()
	ReDIM aStatus()

	While (oResultSet.next)

		ReDIM Preserve aPersonenErgebnis(iP)
		ReDIM Preserve aAuswahl(iP)
		ReDIM Preserve aStatus(iP)
		aAuswahl(iP) = oResultSet.getInt(1)
		aStatus(iP) = oResultSet.getString(10)
		sErgebnis = oResultSet.getString(10)+&quot;:   &quot;+oResultSet.getString(2)+&quot; &quot;+oResultSet.getString(3)+&quot; &quot;+ _
		oResultSet.getString(4)+&quot; &quot;+oResultSet.getString(5)+&quot; &quot;+ _
		oResultSet.getString(6)+&quot; &quot;+oResultSet.getString(7)+&quot; Fax: &quot;+ _
		oResultSet.getString(8)
			
		If oResultSet.getString(9) &lt;&gt;&quot;&quot; Then
			sErgebnis = sErgebnis+ &quot; - Zeichen: &quot;+oResultSet.getString(9)
		End If
		
		If oResultSet.getString(11) &lt;&gt;&quot;&quot; Then
			sErgebnis = sErgebnis+ &quot; AP: &quot;+oResultSet.getString(11)
		End If
				
		aPersonenErgebnis(iP)=sErgebnis
		iP=iP+1
		
	Wend
		
End Sub


Sub PersonenAuswahlfeldFuellen		
		
	oAuswahl = oDlg.getControl(&quot;Auswahlfeld&quot;)
	oAuswahl.removeItems(0, oAuswahl.getItemCount())
		
	For i= LBound(aPersonenErgebnis) To UBound(aPersonenErgebnis)
		oAuswahl.addItem(aPersonenErgebnis(i), i)
	Next i
	
	
End Sub


REM ** Dieses Makro wird beim Betaetigen der Schaltflaeche &quot;AktenAnsDia.PersonBearbeitenButton&quot; **
REM ** aufgerufen **
Sub Adressauswahl

iPruef = 0

AuswahlPruefen

	If iPruef = 0 Then
		iAdresseFrom = 1
	AdressenMod1.Adressenanzeige
    End If
    
End Sub


Sub AnmerkungAnzeige

Dim oLabel As Object

	oLabel = oDlg.GetControl(&quot;AnmerkungTextLabel&quot;)
	oLabel.model.Label=sAnmerkungAkte
	
End Sub


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

	iPruef = 0

AuswahlPruefen

	If iPruef = 0 Then
	VorlagenAWMod1.VorlagenauswahlPersonen
	End If
	
End Sub


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

	iPruef = 0

AuswahlPruefen

	If iPruef = 0 Then
		AdressstringBilden
	End If
	
End Sub


Sub AuswahlPruefen

Dim sAItem As String

	If oAuswahl.SelectedItem = &quot;&quot; Then
		MsgBox (&quot;Bitte Person auswählen&quot;,48,&quot;Fehlende Personenauswahl&quot;)
		iPruef = 1
	Else
		sAItem = oAuswahl.SelectedItem
				
		For i= LBound(aPersonenErgebnis) To UBound(aPersonenErgebnis)
			If aPersonenErgebnis(i) = sAItem Then Exit For
		Next i
	
		iAdressenID = aAuswahl(i)
		sStatus = aStatus(i)
		i = 0
	End If
	
End Sub


Sub AdressstringBilden

Dim sAdressstring As String

SQLMod.AdressenMod1Abfrage1
AdressenMod1.AdressenAuswertung

	sAdressstring = &quot;&quot;
	
	If sFirmaText &lt;&gt; &quot;&quot; Then	
		sAdressstring = sFirmaText+&quot;, &quot;
	End If
		
	If sNameText &lt;&gt; &quot;&quot; Then
		
		If sVornameText &lt;&gt; &quot;&quot; Then
			sAdressstring = sAdressstring+sVornameText+&quot; &quot;
		End If
			
		sAdressstring = sAdressstring+sNameText+&quot;, &quot;
			
	End If
	
	If sStrasseText &lt;&gt; &quot;&quot; Then
		sAdressstring = sAdressstring+sStrasseText _
			+&quot;, &quot;+sPLZText+&quot; &quot;+sOrtText+&quot;, &quot;
	End If
		
	If sLandText &lt;&gt; &quot;&quot; Then
		sAdressstring = sAdressstring+sLandText+&quot;, &quot;
	End If
		
DiaMod1.AktenAnsAdressDia (sAdressstring)
	
End Sub


REM ** Das folgenden Makros wird beim Betaetigen des &quot;AktenAnsDia.ZeichenButton&quot; **
REM ** ausgeloest **
Sub ZeichenBearbeiten

	iPruef = 0

AuswahlPruefen

	If iPruef &gt; 0 Then Exit Sub

ZeichenDatenErmitteln
TitelAkte
DiaMod1.AktenAnsZeichenUndAP (sTitelAkte, sInputBox)
Aktenanzeige1

End Sub


Sub ZeichenDatenErmitteln

Dim sFirmaZ As String
Dim sVornameZ As String
Dim sNameZ As String

AuswahlPruefen

SQLMod.AktenAnsMod1Abfrage5

	While (oResultSet.next)
		sAktenAdressenID = CStr(oResultSet.getInt(1))
		sFirmaZ = oResultSet.getString(2)
		sVornameZ = oResultSet.getString(3)
		sNameZ = oResultSet.getString(4)
		sZeichen = oResultSet.getString(5)
		sAnsprechperson = oResultSet.getString(6)
		sAPTelefon = oResultSet.getString(7)
		sAPTelefax = oResultSet.getString(8)
	Wend
	
	If sFirmaZ = &quot;&quot; Then
		sInputBox = sVornameZ + &quot; &quot; + sNameZ
	Else
		sInputBox = sFirmaZ
	End If

End Sub


REM ** Dieses Makro wird von den Makros ZeichenBearbeiten, PersonLoeschen, **
REM ** GeschaeftszeichenUndRubrumAendern und GerichtLoeschen aufgerufen **
Sub TitelAkte

	sTitelAkte = &quot;Akte: &quot; + sRegisterNr + &quot; &quot; + sKurzrubrum
	
End Sub


REM ** Dieses Makro wird beim Betaetigen der Schaltflaechen &quot;AktenAnsDia.PersonLoeschenButton&quot; **
REM ** aufgerufen **
Sub PersonLoeschen

Dim iAntwort As Integer
Dim sFrageString As String

ZeichenDatenErmitteln

TitelAkte
	
	sFrageString = &quot;Wollen Sie die Person &quot;+sInputBox+&quot; in der &quot;+sTitelAkte+&quot; wirklich löschen?&quot;
	
	iAntwort = MsgBox (sFrageString, 4+16+256, &quot;Nur noch eine Frage:&quot;)

	If iAntwort = 7 Then Exit Sub

SQLMod.AktenAnsMod1DeletePerson
PersonenReload

End Sub


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

	iAdresseFrom = 3

AdressenMod2.AdresseAkteEinfuegen

End Sub


REM ** Die folgenden Makros zeigt die zur Akte gehoerenden Gerichte an **
Sub GerichtReload

	iG = 0
StandardDatenAnpassung	
GerichtOhneReload

End Sub


Sub GerichtOhneReload

 	oDlg.endExecute()
Aktenanzeige1Dialog
Aktenanzeige1StandardDaten
Aktenanzeige1Gerichte
	oDlg.Execute()

End Sub


Sub Aktenanzeige1Gerichte

	iAktenAnsStep = 2
Aktenanzeige1Seite2
DatenAktenanzeige1Seite2	

End Sub


Sub Aktenanzeige1Seite2

	oDlg.getModel().Step = 2
	oDlg.Title = &quot;Akte: &quot;+sRegisterNr+&quot; &quot;+sKurzrubrum+&quot; Gerichte&quot;
	oTaskLabel=oDlg.GetControl(&quot;TaskLabel&quot;)
	oTaskLabel.Text=&quot;Gerichte&quot;
	oDlg.getControl(&quot;PersonenButton&quot;).enable = True
	oDlg.getControl(&quot;GerichteButton&quot;).enable = False
	oDlg.getControl(&quot;DokumenteButton&quot;).enable = True
	oDlg.getControl(&quot;AkteButton&quot;).enable = True
    oDlg.getControl(&quot;WiedervorlagenButton&quot;).enable = True
                                                                                                                                        
End Sub


Sub DatenAktenanzeige1Seite2

	If iG=0 Then
	
		SQLMod.AktenAnsMod1Abfrage3
		GerichteErgebnisArrayBilden
		GerichtsBezeichnungBilden
		
	End If
	
GerichtsAuswahlfeldFuellen	
	
End Sub


Sub GerichteErgebnisArrayBilden

Dim sErgebnis As String
	
	ReDim aGericht()
	ReDIM aGerichteErgebnis()
	ReDIM aAktenGerichteID()
	ReDIM aGerichtsNr()

	While (oResultSet.next)

		ReDIM Preserve aGerichteErgebnis(iG)
		ReDIM Preserve aAktenGerichteID(iG)
		ReDIM Preserve aGerichtsNr(iG)
			
		aAktenGerichteID(iG) = oResultSet.getInt(1)
		aGerichtsNr(iG) = oResultSet.getInt(2)
		sErgebnis = oResultSet.getString(3)+&quot; &quot;+oResultSet.getString(4)+&quot; &quot;+oResultSet.getString(5)+&quot; &quot;+ _
		oResultSet.getString(6)+&quot; Tel.: &quot;+ _
		oResultSet.getString(7)+&quot; Fax: &quot;+oResultSet.getString(8)
			
		If oResultSet.getString(9) &lt;&gt;&quot;&quot; Then
			sErgebnis = sErgebnis+ &quot; - Geschäftszeichen: &quot;+oResultSet.getString(9)
		End If
			
		If oResultSet.getString(10) &lt;&gt;&quot;&quot; Then
			sErgebnis = sErgebnis+ &quot; - &quot;+oResultSet.getString(10)
		End If
			
		aGerichteErgebnis(iG)=sErgebnis
		iG=iG+1
			
	Wend

End Sub


Sub GerichtsBezeichnungBilden
		
	For i= LBound(aGerichteErgebnis) To UBound(aGerichteErgebnis)
	
		sGericht=aGerichteErgebnis(i)
		aGericht=Split(sGericht)
		
		sGerichtsart = aGericht(0)
		
SQLMod.AktenAnsMod1Abfrage4

		While (oResultSet.next)
			aGericht(0)=oResultSet.getString(1)
		Wend
		
		If aGericht(0) = sGerichtsart Then
		
			sGerichtsart = aGericht(UBound(aGericht))
			
		SQLMod.AktenAnsMod1Abfrage4

			While (oResultSet.next)
				aGericht(UBound(aGericht))=oResultSet.getString(1)
			Wend
			
		End If
		
		sGericht=Join(aGericht())
		aGerichteErgebnis(i)=sGericht
		
	Next i
	
End Sub


Sub GerichtsAuswahlfeldFuellen
		
	oAuswahl = oDlg.getControl(&quot;Auswahlfeld&quot;)
	oAuswahl.removeItems(0, oAuswahl.getItemCount())
		
	For i= LBound(aGerichteErgebnis) To UBound(aGerichteErgebnis)
			oAuswahl.addItem(aGerichteErgebnis(i), i)
	Next i
	
End Sub


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

	iPruef = 0

GerichtAuswahlPruefen

	If iPruef = 0 Then
	VorlagenAWMod1.VorlagenauswahlGerichte
	End If
	
End Sub


REM ** Dieses Makro wird beim Betaetigen der Schaltflaechen &quot;AktenAnsDia.GerichtsdatenAendernButton&quot; **
REM ** aufgerufen **
Sub GerichtsdatenAendern

	iPruef = 0
	
GerichtAuswahlPruefen

	If iPruef = 0 Then
	
		iGerichtFrom = 1
				
	GerichtMod1.Gerichtsanzeige
	
	End If
  
End Sub


REM ** Dieses Makro wird beim Betaetigen der Schaltflaechen &quot;AktenAnsDia.GeschaeftszeichenAendernButton&quot; **
REM ** aufgerufen **
Sub GeschaeftszeichenUndRubrumAendern

	iPruef = 0
	
GerichtAuswahlPruefen

	If iPruef &gt; 0 Then Exit Sub
	
GeschaeftszeichenUndRubrumErmitteln
TitelAkte
GerichtStringBilden
DiaMod1.AktenAnsGeschaeftszeichenUndRubrum (sTitelAkte)
GerichtReload
	
End Sub


Sub GeschaeftszeichenUndRubrumErmitteln

SQLMod.AktenAnsMod1Abfrage6

	While (oResultSet.next)
		sGeschaeftszeichen = oResultSet.getString(1)
		sGerichtsKurzrubrum = oResultSet.getString(2)
	Wend
	
End Sub


Sub GerichtStringBilden

ReDim aGericht()

	aGericht=Split(aGerichteErgebnis(iGerichtsAuswahl))
	sGericht = aGericht(0) + &quot; &quot; + aGericht(1)
	
End Sub


REM ** Dieses Makro wird beim Betaetigen der Schaltflaechen &quot;AktenAnsDia.GerichtLoeschenButton&quot; **
REM ** aufgerufen **
Sub GerichtLoeschen

Dim iAntwort As Integer
Dim sFrageString As String

GerichtAuswahlPruefen

	If iPruef = 0 Then
	
	GerichtStringBilden
	TitelAkte
	
		sFrageString = &quot;Wollen Sie das &quot;+sGericht+&quot; in der &quot;+sTitelAkte+&quot; wirklich löschen?&quot;
	
		iAntwort = MsgBox (sFrageString, 4+16+256, &quot;Nur noch eine Frage:&quot;)

		If iAntwort = 7 Then Exit Sub

	SQLMod.AktenAnsMod1DeleteGericht
	GerichtReload	
			
	End If
	
End Sub


Sub GerichtAuswahlPruefen (Optional iNoAuswahl As Integer)

Dim sAItem As String
Dim iGerichtsID As Integer

	If oAuswahl.SelectedItem = &quot;&quot; Then
		MsgBox (&quot;Bitte Gericht auswählen&quot;,48,&quot;Fehlende Gerichtsauswahl&quot;)
		iPruef = 1 : iNoAuswahl = 1
	Else
		sAItem = oAuswahl.SelectedItem
				
		For i= LBound(aGerichteErgebnis) To UBound(aGerichteErgebnis)
			If aGerichteErgebnis(i) = sAItem Then Exit For
		Next i
		
		iGerichtsAuswahl = i
		iAktenGerichteID = aAktenGerichteID(i)
		iGerichtsID = aGerichtsNr(i)
		sAktenGerichteID = CStr(iAktenGerichteID)
		sGerichtsID =  CStr(iGerichtsID)
		i = 0
	End If
	
End Sub


REM ** Die folgenden Makros zeigt die zur Akte gehoerenden Dokumente an **
Sub Aktenanzeige1Dokumente

Dim sUrl As String
Dim oVDlg As Object
Dim iVDlg As Integer
Dim sFile As String
Dim oDoc As Object

REM * Verzeichnispfad wird festgelegt, damit Dateiauswahldialog *
REM * im zur Akte gehoerenden Verzeichnis geoeffnet wird. *
FSMod.Mounttest
FSMod.DocPfad

	sURL = ConvertToURL(sDocPfad + sRegisterNr + &quot;/&quot;)

REM * Dateiauswahldialog wird aufgerufen *
	oVDlg = CreateUnoService(&quot;com.sun.star.ui.dialogs.FilePicker&quot;)
	oVDlg.setDisplayDirectory(sUrl)
	iVDlg = oVDlg.Execute()
	

REM * Wenn &quot;Öffnen&quot; gedrueckt wurde, ist iVDlg = 1, sonst 0 *
REM * Wenn &quot;Öffnen&quot; gedrueckt wurde, wird die ausgewählte Datei *
REM * geoeffnet *
        If iVDlg = 1 Then
        
			sFile = oVDlg.Files(0)
		DokumentOeffnen (sFile)
			
        End If
    
End Sub


Sub DokumentOeffnen (sFile As String)

Dim iAntwort As Integer

	If (Right(sFile, 4) = &quot;.pdf&quot; Or Right(sFile, 4) = &quot;.PDF&quot;) And (sPDFVuD &lt;&gt; &quot;&quot;) Then
	
		iAntwort = MsgBox (&quot;Wollen Sie diese Datei mit dem PDF-Reader öffnen?&quot;, 3+32+128, &quot;PDF-Reader: &quot; &amp; sPDFVuD)
	
		Select Case iAntwort
				
			Case 6 REM * &quot;Ja&quot; *
				Shell(sPDFVuD,0,sFile)
		
			Case 7 REM * &quot;Nein&quot; *
			OOoDocOeffnen (sFile)

			Case 2 REM * &quot;Abbrechen&quot; *
				Exit Sub
				
			Case Else
				Exit Sub
		
		End Select

	Else
	
	OOoDocOeffnen (sFile)
	
	End If

End Sub


Sub OOoDocOeffnen (sFile As String)

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(sFile, &quot;_blank&quot;, 0, aArgs())
		
End Sub


REM ** Die folgenden Makros zeigt die zur Akte gehoerenden Wiedervorlagen an **
Sub WiedervorlagenReload

	iW = 0
StandardDatenAnpassung	
WiedervorlagenOhneReload

End Sub


Sub WiedervorlagenOhneReload

	oDlg.endExecute()
Aktenanzeige1Dialog	
Aktenanzeige1StandardDaten
Aktenanzeige1Wiedervorlagen
	oDlg.Execute()
		
End Sub


Sub Aktenanzeige1Wiedervorlagen

	iAktenAnsStep = 4
Aktenanzeige1Seite4
DatenAktenanzeige1Seite4	

End Sub


Sub Aktenanzeige1Seite4

	oDlg.getModel().Step = 4
	oDlg.Title = &quot;Akte: &quot;+sRegisterNr+&quot; &quot;+sKurzrubrum+&quot; Wiedervorlagen&quot;
	oTaskLabel=oDlg.GetControl(&quot;TaskLabel&quot;)
	oTaskLabel.Text=&quot;Wiedervorlagen&quot;
	oDlg.getControl(&quot;PersonenButton&quot;).enable = True
	oDlg.getControl(&quot;GerichteButton&quot;).enable = True
	oDlg.getControl(&quot;DokumenteButton&quot;).enable = True
	oDlg.getControl(&quot;AkteButton&quot;).enable = True
    oDlg.getControl(&quot;WiedervorlagenButton&quot;).enable = False
                                                                                                                                            
End Sub


Sub DatenAktenanzeige1Seite4

	If iW=0 Then
	
		SQLMod.AktenAnsMod1Abfrage7
		WiedervorlagenErgebnisArrayBilden
		
	End If
	
WiedervorlagenAuswahlfeldFuellen	
	
End Sub


Sub WiedervorlagenAuswahlfeldFuellen

	oAuswahl = oDlg.getControl(&quot;Auswahlfeld&quot;)
	oAuswahl.removeItems(0, oAuswahl.getItemCount())
	
	For i= LBound(aWiedervorlagen) To UBound(aWiedervorlagen)
		oAuswahl.addItem(aWiedervorlagen(i), i)
	Next i
	
End Sub


Sub WiedervorlagenErgebnisArrayBilden

Dim sErgebnis As String
ReDim aWiedervorlagen()
ReDim aWiedervorlagenID()
Dim dWvlDatum As Date
Dim sWvldatum As String

	i=0
	While (oResultSet.next)

		ReDIM Preserve aWiedervorlagen(i)
		ReDim Preserve aWiedervorlagenID(i)
		
		aWiedervorlagenID(i) = oResultSet.getInt(1)
		
		sWvldatum = oResultSet.getString(2)
		sWvldatum = SQLMod.DatumDB2Prog (sWvldatum)
							
		sErgebnis = sWvldatum+&quot; - &quot;+oResultSet.getString(3)
		aWiedervorlagen(i)=sErgebnis
		i=i+1
	
	Wend
	

End Sub


REM ** Dieses Makro wird durch Klicken auf die Schaltfäche &quot;AktenDia.WvlLoeschenButton aufgerufen **
Sub WiedervorlageLoeschen

	iPruef = 0
WiedervorlagenAuswahlPruefen
	If iPruef = 1 Then Exit Sub
	
SQLMod.AktenAnsMod1DeleteWiedervorlage	
WiedervorlagenReload

End Sub


Sub WiedervorlagenAuswahlPruefen

Dim sAItem As String

	If oAuswahl.SelectedItem = &quot;&quot; Then
		MsgBox (&quot;Bitte Wiedervorlage auswählen&quot;,48,&quot;Fehlende Auswahl&quot;)
		iPruef = 1
	Else
		sAItem = oAuswahl.SelectedItem
				
		For i= LBound(aWiedervorlagen) To UBound(aWiedervorlagen)
			If aWiedervorlagen(i) = sAItem Then Exit For
		Next i
		
		iWiedervorlagenID = aWiedervorlagenID(i)
		i = 0
	
	End If
	
End Sub


REM ** Dieses Makro wird durch Klicken auf die Schaltfäche &quot;AktenDia.WvlAendernButton aufgerufen **
Sub WiedervorlageAendern

	iPruef = 0
WiedervorlagenAuswahlPruefen
	If iPruef = 1 Then Exit Sub
		
WiedervorlageWerteErmitteln
WvMod1.WiedervorlageAendern2

End Sub


Sub WiedervorlageWerteErmitteln

SQLMod.AktenAnsMod1Abfrage8

	While (oResultSet.next)
		sWvDatum = oResultSet.getString(1)
		sWvlGrund = oResultSet.getString(2)
	Wend

End Sub


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

FSMod.Mounttest

	If iMountTest = 1 Then
	
	VermerkVorlageLaden
	VorlagenMod1.TextmarkeRegisterNr	
	VorlagenMod1.TextmarkeKurzrubrum
		sFilename = &quot;Vermerk&quot;
		sVorlagenBezeichnung = &quot;&quot;
	VorlagenMod1.FilenameBilden
	FSMod.DokumentSpeichern

		
	Else	
		MsgBox (&quot;Vorlage kann nicht geladen werden!&quot;,16,&quot;Mounttest fehlgeschlagen!&quot;)
	End If

End Sub


Sub VermerkVorlageLaden

Dim sUrl As String
Dim anoArgs()

FSMod.Vorlagenpfad

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



REM ** Das folgende Makro wird beim Betaetigen der Abbruchbuttons ausgeloest **
Sub AktenAnsDiaAbbruchButton

	oDlg.endExecute()
	
AktenAWMod.CreateAktenauswahlDia (&quot;Aktenauswahl&quot;)
	
	If iAktenAWFlag = 1 Then

		oDlg.getModel().Step = 1
	
		oDlg.getControl(&quot;AktenAuswahl&quot;).enable = False
		oDlg.getControl(&quot;AktenLabel&quot;).enable = False
		oDlg.getControl(&quot;AktenAuswahl&quot;).setLabel (&quot;Akte auswählen&quot;)
	
		oTextfeldR=oDlg.GetControl(&quot;Rubrum&quot;)
		oTextfeldR.model.Text=sVorgabeR
		
		oTextfeldN=oDlg.GetControl(&quot;Aktennummer&quot;)
		oTextfeldN.model.Text=sVorgabeN
		
		REM * Doppelklick-Hack *	
		sVorgabeNalt = &quot;&quot; : sVorgabeRalt = &quot;&quot;
		
		oDlg.Execute()
	
	Else
		oTextfeldName=oDlg.GetControl(&quot;NameText&quot;)
		oTextfeldName.model.Text=sVorgabeName
		AktenAWMod.AktenauswahlDiaSeite2

	End If

End Sub
</script:module>