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

Option Explicit

Private sAenderungsdatum As String


REM ** Updaten der ausgewaehlten Akte **
Sub AktenUpdate

Aenderungsdatum
Update
SQLMod.Updaten
AktenMod1.AktenanzeigeRefresh

End Sub


REM ** Ablegen der ausgewaehlten Akte **
REM ** Dieses Makro wird vom Makro AktenAWMod.RegNummerIsolieren aufgerufen **
Sub AkteAblegen

Dim sMitteilung As String
Dim iAntwort0 As Integer
Dim iAntwort1 As Integer

	sRegisterNr = sRegNummer
	
SQLMod.AktenAnsMod1Abfrage1a

	While (oResultSet.next)
		iAktenID = oResultSet.getInt(1)
		sID = Cstr(iAktenID)
		sKurzrubrum = oResultSet.getString(2)
	Wend
	
	sMitteilung = &quot;Die Akte &quot;+sRegisterNr+ &quot; - &quot;+sKurzrubrum+&quot; wird (ohne Ablagenummer und -notiz) abgelegt!&quot;
	iAntwort0 = MsgBox (sMitteilung, 1+48+128, &quot;Achtung&quot;)
	
	If iAntwort0 = 1 Then REM * &quot;OK&quot; *
	
	REM * Ablagedatum ist aktuelles Datum *	
	AktenAnlMod1.DatumHeute
		sAblagedatum = &quot;&apos;&quot;+sDatumHeute+&quot;&apos;&quot;
		
		sUpdate = &quot;Akteabgelegt=&apos;1&apos;, Ablagedatum=&quot;+sAblagedatum+&quot;,&quot;

	Aenderungsdatum
	Update
	SQLMod.Updaten
	
		iAntwort1 = MsgBox (&quot;Weitere Akte ablegen?&quot;, 4+32+128, &quot;Frage:&quot;)
		 
		If iAntwort1 = 6 Then REM * &quot;Ja&quot; *
		AktenAWMod.AkteAblegen
		Else REM * &quot;Nein&quot;
		HauptAWMod.Hauptauswahl
		End If
	
	Else REM * &quot;Abbrechen&quot; *
	
	HauptAWMod.Hauptauswahl
	
	End If
	
End Sub


REM Werte
Sub RegisterNr

Dim oRegisterNr As Object
Dim iAntwort As Integer
	
	oRegisterNr = oDlg.getControl(&quot;RegNrText&quot;)
	sRegisterNr = oRegisterNr.getText()
	
	If sRegisterNr = sRegNummer Then
		
		Exit Sub
	
	Else

		iAntwort = MsgBox (&quot;Wollen Sie wirklich die Registernummer ändern?&quot;, 4+16+256, &quot;Achtung !&quot;)

		If iAntwort = 7 Then
			Exit Sub
		End If
		
	End If
	
	sRegNummer = sRegisterNr
	
	sUpdate = &quot;RegisterNr=&apos;&quot;+sRegisterNr+&quot;&apos;,&quot;
	
AktenUpdate

End Sub


Sub	Kurzrubrum

Dim oKurzrubrum As Object

	oKurzrubrum = oDlg.getControl(&quot;RubrumText&quot;)
	If sKurzrubrum = oKurzrubrum.getText() Then Exit Sub
	sKurzrubrum = oKurzrubrum.getText()
	sUpdate = &quot;Kurzrubrum=&apos;&quot;+sKurzrubrum+&quot;&apos;,&quot;
	
AktenUpdate

End Sub


Sub Aktenzeichen

Dim oAktenzeichen As Object
	
	oAktenzeichen = oDlg.getControl(&quot;AktenzeichenText&quot;)
	
	If sAktenzeichen = oAktenzeichen.getText() Then Exit Sub
	
	sAktenzeichen = oAktenzeichen.getText()
	sUpdate = &quot;Aktenzeichen=&apos;&quot;+sAktenzeichen+&quot;&apos;,&quot;
	
AktenUpdate

End Sub


Sub Wegen

Dim oWegen As Object
		
	oWegen = oDlg.getControl(&quot;WegenText&quot;)
	
	If sWegen = oWegen.getText() Then Exit Sub
	
	sWegen = oWegen.getText()
	sUpdate = &quot;Wegen=&apos;&quot;+sWegen+&quot;&apos;,&quot;

AktenUpdate

End Sub


Sub AnmerkungAkte

Dim oAnmerkungAkte As Object
		
	oAnmerkungAkte = oDlg.getControl(&quot;AnmerkungText&quot;)
	
	If  sAnmerkungAkte = oAnmerkungAkte.getText() Then Exit Sub
	
	sAnmerkungAkte = oAnmerkungAkte.getText()
	sUpdate = &quot;Anmerkung=&apos;&quot;+sAnmerkungAkte+&quot;&apos;,&quot;

AktenUpdate

End Sub


Sub Referat

	If sReferat = oReferatListBox.SelectedItem Or oReferatListBox.SelectedItem = &quot;&quot; Then Exit Sub
	
	sReferat = oReferatListBox.SelectedItem
	
SQLMod.AktenMod2Abfrage1
	
	While (oResultSet.next)
		iReferatNr = oResultSet.getInt(1)
	Wend
		
	sUpdate = &quot;ReferatNr=&apos;&quot;+iReferatNr+&quot;&apos;,&quot;

	iAktenSeite = 1
	
AktenUpdate
	
End Sub


Sub Sachbearbeiter

	If sSachbearbeiter = oSachbearbeiterListBox.SelectedItem Or oSachbearbeiterListBox.SelectedItem = &quot;&quot; Then Exit Sub
	
	sSachbearbeiter = oSachbearbeiterListBox.SelectedItem
	
SQLMod.AktenMod2Abfrage2
	
	While (oResultSet.next)
		iSachbearbeiterNr = oResultSet.getInt(1)
	Wend
		
	sUpdate = &quot;Sachbearbeiter=&apos;&quot;+iSachbearbeiterNr+&quot;&apos;,&quot;

AktenUpdate
	
End Sub


Sub Herkunft


	If sHerkunft = oHerkunftListBox.SelectedItem Or oHerkunftListBox.SelectedItem = &quot;&quot; Then Exit Sub
	
	sHerkunft = oHerkunftListBox.SelectedItem
	
SQLMod.AktenMod2Abfrage3
	
	While (oResultSet.next)
		iHerkunftNr = oResultSet.getInt(1)
	Wend

	sUpdate = &quot;Herkunft=&apos;&quot;+iHerkunftNr+&quot;&apos;,&quot;

AktenUpdate
	
End Sub
	

Sub AblagedatumSetzen

Dim oAbgelegtCheckBox As Object

	oAbgelegtCheckBox = oDlg.getControl(&quot;AkteabgelegtCheckBox&quot;).getModel()

	sAkteabgelegt = oAbgelegtCheckBox.state

	If oAbgelegtCheckBox.state = 1 Then
	AktenAnlMod1.DatumHeute
		sAblagedatum = &quot;&apos;&quot;+sDatumHeute+&quot;&apos;&quot;
	Else
		sAblagedatum = &quot;NULL&quot;
	End If
	
	sUpdate = &quot;Akteabgelegt=&apos;&quot;+sAkteabgelegt+&quot;&apos;, Ablagedatum=&quot;+sAblagedatum+&quot;,&quot;

AktenUpdate
	
End Sub


Sub Ablagedatum

Dim sAblagedatumNeu As String
Dim iAntwort As Integer

	sAblagedatumNeu = oDlg.getControl(&quot;AblageDate&quot;).getAccessibleContext.text
	
	If sAblagedatumNeu &lt;&gt; &quot;&quot; Then
	
		If sAblagedatum = sAblagedatumNeu Then

			Exit Sub
		
		Else
	
			iAntwort = MsgBox (&quot;Wollen Sie wirklich das Ablagedatum ändern?&quot;, 4+16+256, &quot;Achtung !&quot;)

			If iAntwort = 7 Then
				Exit Sub
			End If
		
		End If
	
		sAblagedatum = sAblagedatumNeu
		sAblagedatum = SQLMod.DatumProg2DB (sAblagedatum)
		sUpdate = &quot;Ablagedatum=&quot;+sAblagedatum+&quot;,&quot;
			
	End If
	
AktenUpdate

End Sub


Sub AblageNr

Dim oAblageNr As Object

	oAblageNr = oDlg.getControl(&quot;AblageNrText&quot;)
	
	If sAblageNr = oAblageNr.getText() Then Exit Sub
	
	sAblageNr = oAblageNr.getText()
	sUpdate = &quot;AblageNr=&apos;&quot;+sAblageNr+&quot;&apos;,&quot;
	
AktenUpdate

End Sub


Sub AblageNotizen	
	
Dim oAblageNotizen As Object
	
	oAblageNotizen = oDlg.getControl(&quot;AblagenotizenText&quot;)
	
	If sAblageNotizen = oAblageNotizen.getText() Then Exit Sub
	
	sAblageNotizen = oAblageNotizen.getText()
	sUpdate = &quot;AblageNotizen=&apos;&quot;+sAblageNotizen+&quot;&apos;,&quot;
		
AktenUpdate

End Sub


Sub Aenderungsdatum

AktenAnlMod1.DatumHeute
	
	sAenderungsdatum =&quot;LetzteAenderung=&apos;&quot;+sDatumHeute+&quot;&apos;&quot;

End Sub


Sub Update

	sUpdate = SQLMod.String2DB(sUpdate)
	
	sUpdate = &quot;Update Akten SET &quot; + sUpdate + sAenderungsdatum  + &quot;WHERE `ID` LIKE &apos;&quot;+sID+&quot;&apos;&quot;

End Sub

</script:module>