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

Option Explicit

Private sZusatz As String
Private sBitte As String
Private iPruef As Integer


REM ** Dieses Makro wird durch Klicken auf die  Schaltfäche **
REM ** &quot;AkteAnsDia.AkteButton&quot; und durch das Makro **
REM ** &quot;AktenAnlMod1.AktenNeuanlage&quot; aufgerufen **
Sub AktenanzeigeRegNrBekannt

Datenermittlung
Aktendialog
AktenSeite
DialogAusfuehren

End Sub


REM ** Dieses Makro wird durch as Makro &quot;AktenMod2.AktenUpdate&quot; **
REM ** aufgerufen **
Sub AktenanzeigeRefresh

Datenermittlung
AktenSeite

End Sub


Sub Datenermittlung

SQLMod.AktenMod1Abfrage1
Auswertung1

SQLMod.AktenMod1Abfrage2
AuswertungSachgebiet
SQLMod.AktenMod1Abfrage3
AuswertungSachbearbeiter
SQLMod.AktenMod1Abfrage4
AuswertungHerkunft

End Sub


Sub Auswertung1

Dim dAnlagedatum As Date
Dim dLAenderung As Date

	 While (oResultSet.next)
		iAktenID = oResultSet.getInt(1)
		sID = CStr(iAktenID)
		sKurzrubrum = oResultSet.getString(2)
		sAktenzeichen = oResultSet.getString(3)
		sWegen = oResultSet.getString(4)
		iReferatNr = oResultSet.getInt(5)
		iHerkunftNr = oResultSet.getInt(11)	
		sAkteabgelegt = oResultSet.getString(6)
		sAblageDatum = CDate(oResultSet.getString(7))
		sAblageNr = oResultSet.getString(8)
		sAblageNotizen = oResultSet.getString(9)
				
		dAnlagedatum = CDate(oResultSet.getString(10))
		sAnlagedatumLabel = Day(dAnlagedatum) &amp; &quot;.&quot; &amp; Month(dAnlagedatum) _
				&amp; &quot;.&quot; &amp; Year(dAnlagedatum)
							
		dLAenderung = CDate(oResultSet.getString(12))
		sLAenderungLabel = Day(dLAenderung) &amp; &quot;.&quot; &amp; Month(dLAenderung) _
				&amp; &quot;.&quot; &amp; Year(dLAenderung)
				
		iSachbearbeiterNr = oResultSet.getInt(13)
		sAnmerkungAkte = oResultSet.getString(14)
	
	Wend
	
End Sub


REM ** Sachgebiet **
Sub AuswertungSachgebiet

	sReferat = &quot;&quot;

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

	While (oResultSet.next)
		sReferat = oResultSet.getString(1)
	Wend
	
	If sReferat = &quot;&quot; Then sReferat = sBitte
	
End Sub	
	
	
REM ** Sachbearbeiter **
Sub AuswertungSachbearbeiter

	sSachbearbeiter = &quot;&quot;

	While (oResultSet.next)
		sSachbearbeiter = oResultSet.getString(1)
	Wend
	
	If sSachbearbeiter = &quot;&quot; Then sSachbearbeiter = sBitte

End Sub


REM ** Herkunft **
Sub AuswertungHerkunft

	sHerkunft = &quot;&quot;
	
	While (oResultSet.next)
		sHerkunft = oResultSet.getString(1)
	Wend
	
	If sHerkunft = &quot;&quot; Then sHerkunft = sBitte
		
End Sub


REM ** Dialog &quot;AktenDia&quot; bauen **
Sub Aktendialog

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

End Sub


Sub DialogAusfuehren

	oDlg.execute
	
End Sub



REM ** Dieses Makro wird durch die Makros &quot;AktenMod1.AktenanzeigeRegNrBekannt&quot; **
REM ** und &quot;AktenMod1.AktenanzeigeRefresh&quot; aufgerufen **
Sub AktenSeite

AktenDiaTitel
DatenAktenLinks
DatenAktenRechts
AktendialogStandardDaten

End Sub


Sub AktenDiaTitel

TitelZusatz

	oDlg.Title = sRegisterNr+&quot; &quot;+sKurzrubrum+sZusatz+&quot; - Akte&quot;
                                                                 
End Sub


Sub DatenAktenLinks

	oDlg.getControl(&quot;RegNrText&quot;).text = sRegisterNr
	oDlg.getControl(&quot;RubrumText&quot;).text = sKurzrubrum
	oDlg.getControl(&quot;AktenzeichenText&quot;).text = sAktenzeichen
	oDlg.getControl(&quot;WegenText&quot;).text =	sWegen
	oDlg.getControl(&quot;ReferatAnzLabel&quot;).text = sReferat
	oDlg.getControl(&quot;SachbearbeiterAnzLabel&quot;).text = sSachbearbeiter
	oDlg.getControl(&quot;HerkunftAnzLabel&quot;).text = sHerkunft
	oDlg.getControl(&quot;AnmerkungText&quot;).text = sAnmerkungAkte
	
ReferatListBox	
SachbearbeiterListBox
HerkunftListBox

End Sub


Sub ReferatListBox

Dim aReferatTextRoh()
Dim aReferatText()
Dim iItem As Integer

SQLMod.AktenMod1Abfrage5

	i=0
	
	While (oResultSet.next)
	
		ReDIM Preserve aReferatTextRoh(i)
		aReferatTextRoh(i) = oResultSet.getString(1)
		i=i+1
				
	Wend


	iItem = 0

	For i= LBound(aReferatTextRoh) To UBound(aReferatTextRoh)
		
		ReDIM Preserve aReferatText(i)
		
		If aReferatTextRoh(i) &lt;&gt; sReferat And aReferatTextRoh(i) &lt;&gt; &quot;&quot; Then
			aReferatText(iItem) = aReferatTextRoh(i)
			iItem = iItem + 1
		End If
		
	Next i
	
	oReferatListBox = oDlg.getControl(&quot;ReferatListBox&quot;)
	oReferatListBox.removeItems(0, oReferatListBox.getItemCount())
	
	For i= LBound(aReferatText) To UBound(aReferatText)
		oReferatListBox.addItem(aReferatText(i), i)
	Next i
	
End Sub


Sub SachbearbeiterListBox

Dim aSachbearbeiterTextRoh()
Dim aSachbearbeiterText()
Dim iItem As Integer

SQLMod.AktenMod1Abfrage6

	i=0
	
	While (oResultSet.next)
	
		ReDIM Preserve aSachbearbeiterTextRoh(i)
		aSachbearbeiterTextRoh(i) = oResultSet.getString(1)
		i=i+1
				
	Wend


	iItem = 0

	For i= LBound(aSachbearbeiterTextRoh) To UBound(aSachbearbeiterTextRoh)
		
		ReDIM Preserve aSachbearbeiterText(i)
		
		If aSachbearbeiterTextRoh(i) &lt;&gt; sSachbearbeiter And aSachbearbeiterTextRoh(i) &lt;&gt; &quot;&quot; Then
			aSachbearbeiterText(iItem) = aSachbearbeiterTextRoh(i)
			iItem = iItem + 1
		End If
		
	Next i
	
	oSachbearbeiterListBox = oDlg.getControl(&quot;SachbearbeiterListBox&quot;)
	oSachbearbeiterListBox.removeItems(0, oSachbearbeiterListBox.getItemCount())
	
	For i= LBound(aSachbearbeiterText) To UBound(aSachbearbeiterText)
		oSachbearbeiterListBox.addItem(aSachbearbeiterText(i), i)
	Next i
	
End Sub


Sub HerkunftListBox

Dim aHerkunftTextRoh()
Dim aHerkunftText()
Dim iItem As Integer

SQLMod.AktenMod1Abfrage7

	i=0
	
	While (oResultSet.next)
	
		ReDIM Preserve aHerkunftTextRoh(i)
		aHerkunftTextRoh(i) = oResultSet.getString(1)
		i=i+1
				
	Wend


	iItem = 0

	For i= LBound(aHerkunftTextRoh) To UBound(aHerkunftTextRoh)
		
		ReDIM Preserve aHerkunftText(i)
		
		If aHerkunftTextRoh(i) &lt;&gt; sHerkunft And aHerkunftTextRoh(i) &lt;&gt; &quot;&quot; Then
			aHerkunftText(iItem) = aHerkunftTextRoh(i)
			iItem = iItem + 1
		End If
		
	Next i
	
	oHerkunftListBox = oDlg.getControl(&quot;HerkunftListBox&quot;)
	oHerkunftListBox.removeItems(0, oHerkunftListBox.getItemCount())
	
	For i= LBound(aHerkunftText) To UBound(aHerkunftText)
		oHerkunftListBox.addItem(aHerkunftText(i), i)
	Next i
	
End Sub


Sub DatenAktenRechts

	If sAblagedatum &lt;&gt; &quot;00:00:00&quot; Then
		If bDateStruct = false Then
			oDlg.getControl(&quot;AblageDate&quot;).date = CDateToIso(sAblagedatum)
		Else
			oDlg.getControl(&quot;AblageDate&quot;).date = LibOMod.LibOStruct(sAblagedatum)
		End If	
	End If
	
	oDlg.getControl(&quot;AblageNrText&quot;).text = sAblageNr
	oDlg.getControl(&quot;AblagenotizenText&quot;).text = sAblageNotizen

	If sAkteabgelegt = &quot;&quot; Or sAkteabgelegt = &quot;0&quot; Then
		oDlg.getControl(&quot;AkteabgelegtCheckBox&quot;).model.State = 0
	Else
		oDlg.getControl(&quot;AkteabgelegtCheckBox&quot;).model.State = 1
	End If
		
End Sub

	
Sub AktendialogStandardDaten

	oDlg.getControl(&quot;IDLabel&quot;).text = sID
	oDlg.getControl(&quot;AnlagedatumLabel&quot;).text = sAnlagedatumLabel
	oDlg.getControl(&quot;LAenderungLabel&quot;).text = sLAenderungLabel
		
End Sub


Sub TitelZusatz

	If sWegen &lt;&gt; &quot;&quot; Then
		sZusatz = &quot; &quot;+sWegen
	Else
		sZusatz = &quot;&quot;
	End If

End Sub


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

AktenAnsMod1.PersonenReload
	
End Sub			
</script:module>