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

Option Explicit

Private sBeschreibung As String
Private sVorlage As String
Private sTitel As String


Sub VorlagenErfassenPersonen

	sPoGFlag = &quot;P&quot;
	
	sTitel = &quot;Vorlagenerfassung - Personen&quot;
	sVorlagenLabel = &quot;Erfassen&quot;
		
VorlagenAWMod1.CreateVorlagenAWDia (sTitel)

VorlagenAWMod1.VorlagenPersonen

End Sub


Sub VorlagenErfassenGerichte

	sPoGFlag = &quot;G&quot;

	sTitel = &quot;Vorlagenerfassung - Gerichte&quot;
	sVorlagenLabel = &quot;Erfassen&quot;
	
VorlagenAWMod1.CreateVorlagenAWDia (sTitel)

VorlagenAWMod1.VorlagenGerichte

End Sub


REM ** Die folgenden Makros werden durch das Makro &quot;VorlagenAWDia.VorlagenAuswahl&quot; aufgerufen **
Sub VorlageDatenEinlesen

DatenEinlesen
DatenToDB
VorlageSchliessen
BeschreibungAnzeigen
FrageWeitermachen

End Sub


Sub VerzeichnisErfassen

	sBeschreibung = InputBox(&quot;Beschreibung des Verzeichnisses:&quot;, &quot;Verzeichnis: &quot;+oVorlagenauswahl.SelectedItem)

DatenToDB
BeschreibungAnzeigen
FrageWeitermachen

End Sub



Sub DatenEinlesen

Dim oDocInfo As Object

	oDocInfo=oDoc.getDocumentInfo()

	sBeschreibung=oDocInfo.Description
	sVorlagenBezeichnung=oDocInfo.Keywords
	
End Sub


Sub DatenToDB

Dim sVorlagenname as String
Dim sDBUrl As String

	If sBeschreibung = &quot;&quot; Then
	
		MsgBox(&quot;Daten werden nicht in Datenbank aufgenommen.&quot;,16,&quot;Keine Beschreibung vorhanden!&quot;
		Exit Sub
		
	Else
	
		sVorlage = oVorlagenauswahl.SelectedItem
		
		If sPoGFlag = &quot;G&quot; Then
			sDBUrl = ConvertToUrl(&quot;Gerichte&quot;+sVPfad)
		Else
			sDBUrl = ConvertToUrl(&quot;Personen&quot;+sVPfad)
		End If
		
		sDBUrl = Right(sDBUrl, Len(sDBUrl)-8)

REM * Pruefen, ob Vorlagenname bereits in DatenBank vorhanden *	
	 SQLMod.VorlagenErfModAbfrage1 (sVorlage, sDBUrl)
	 
	 	While (oResultSet.next)
		
			sVorlagenname = oResultSet.getString(1)
								
		Wend

REM * Datenbank ergaenzen oder updaten *
		If sVorlagenname = &quot;&quot; Then
		SQLMod.VorlagenErfModInsert1 (sVorlage, sBeschreibung, sDBUrl)
		Else
		SQLMod.VorlagenErfModUpdate1 (sVorlage, sBeschreibung, sDBUrl)
		End If
	
	End If
	
End Sub


Sub VorlageSchliessen

	oDoc.close(False)

End Sub


Sub BeschreibungAnzeigen

	If sBeschreibung = &quot;&quot; Then sBeschreibung = &quot;Beschreibung nicht vorhanden.&quot;

	oDlg2.getControl(&quot;BeschreibungLabel&quot;).text = sBeschreibung

End Sub


Sub FrageWeitermachen

Dim iAntwort As Integer

	iAntwort = MsgBox (&quot;Wollen Sie noch mehr erfassen?&quot;, 4+32+256, sTitel+&quot;:&quot;)

	If iAntwort = 7 Then
		oDlg2.endExecute()
	SystemAdminMod1.CreateSystemAdminDia
	End If
	
End Sub

</script:module>
libreoffice-canzeley-client 0.5.0-2 / usr / lib / libreoffice / share / extensions / canzeley-client / Kanzleiprogramm / VorlagenErfMod.xba
