libreoffice-canzeley-client 0.5.0-2 / usr / lib / libreoffice / share / extensions / canzeley-client / Kanzleiprogramm / Start.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="Start" script:language="StarBasic">REM                        *****  BASIC  *****
REM        	              ***** Canzeley *****
REM              Copyright (C) 2008-2016 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 - Start ****

Option Explicit

REM *** Hier sind Version und Build jeweils einzutragen, ***
REM *** wie sie in den Programmdialogen angezeigt werden sollen ***

Public Const csVersion=&quot;0.5.0&quot;
Public Const csBuild=&quot;2016-10-06-0&quot;

REM *** Ende ***


REM *** Allgemeine Variablen und Konstanten

Public iOs As Integer REM Betriebssystemkennzahl
Public sVuDPfad As String REM Pfad zu dem Verzeichnis,
		REM welches die (Unter-)Verzeichnisse „Vorlagen“ und „Dokumente“ enthaelt
Public sPDFVuD As String REM PDF-Reader (Pfad und Datei)
Public sDBVersion As String REM Version der Datenbank
Public sDataBaseName As String REM Registrierter Name der Datenbankdatei
Public iAutoMount as Integer REM In unixoiden Systemen: Mounten und Umounten
		REM durch Programm Ja/Nein
Public oConnection As Object REM Datenbankverbindungsobjekt
Public iMountTest As Integer REM Wenn Mounttest gelungen, dann ist iMountTest=1
Public oDlg As Object REM Allgmeines Dialogobjekt
Public oDlgEF As Object REM * Dialogobjekt fuer Laufzeitdialoge *
Public i As Integer REM Allgemeine Zaehlvariable
Public iAbbruchFlag As Integer REM Wenn iAbbruchFlag = 1. soll das Programm abgebrochen werden
Public iKanzleiDia1Flag As Integer
Public iSysDatenFrom As Integer

Public oAktenAuswahl As Object
Public oStatement As Object
Public sVorgabeN As String
Public sVorgabeR As String
Public oTextfeldN As Object
Public oTextfeldR As Object
Public sSItem As String REM Zeichenkette des ausgewaehlten Listenpunktes
Public aPersonenErgebnis()
Public iP As Integer
Public aGerichteErgebnis()
Public iG As Integer
Public iW As Integer
Public aAuswahl()
Public sRegisterNr As String
Public iAdressenID As Integer
Public sAdressenID As String
Public sRegNummer As String
Public sKurzrubrum As String
Public sAktenzeichen As String
Public sWegen As String
Public iReferatNr As Integer
Public iSachbearbeiterNr As Integer
Public iHerkunftNr As Integer
Public sReferat As String
Public sSachbearbeiter As String
Public sHerkunft As String
Public dAblageDatum As Date
Public sAblagedatum As String
Public sAbgelegt As String
Public sAkteabgelegt As String
Public sAblageNr As String
Public sAblageNotizen As String
Public sHerkunft As String
Public iWiedervorlagenID As Integer
Public sAnmerkungAkte As String

Public sIDLabel As String
Public sFirmaText As String
Public sVornameText As String
Public sNameText As String
Public sName2Text As String
Public sStrasseText As String
Public sPLZText As String
Public sOrtText As String
Public sLandText As String
Public sPostfachText As String
Public sAnredeText As String
Public oAnredeListBox As Object
Public sBriefanredeText As String
Public oBriefanredeListBox As Object
Public sAnlagedatumLabel as String
Public sLAenderungLabel As String
Public sTelefonText As String
Public sTelefaxText As String
Public sTelefonPrivatText As String
Public sTelefonBueroText As String
Public sMobilesTelefonText As String
Public seMailText As String
Public sBankText As String
Public lBLZNumeric As Long
Public sBLZNumeric As String
Public sKontoNrText As String
Public dGeburtsDate As Date
Public sGeburtsDate As String
Public sEhepartnerText As String
Public sUStText As String
Public sAnmerkungText As String
Public sZeichenText As String
Public sHomepageText As String

Public sZS As String

Public oTaskLabel As Object
Public oAuswahl As Object
Public sID As String
Public iAktenID As Integer

Public sZeichen As String
Public sAnsprechperson As String
Public sAPTelefon As String
Public sAPTelefax As String

Public sAAALabel As String

Public oResultSet As Object
Public sSelect As String
Public sInsert As String
Public sUpdate As String

Public oTextfeldName As Object

Public sVorgabeName As String
Public sVorgabeVorname As String
Public sVorgabeFirma As String

Public oAdressenAuswahl As Object
Public iAktenAWFlag As Integer
Public sAdresse As String
Public sOrder As String
Public oSortierenRegisterNr As Object
Public oSortierenRubrum As Object

Public oVorlagenauswahl As Object
Public oDlg2 As Object
Public sVorlagenPfad As String
Public sDocPfad As String
Public sFilename As String
Public sPoGFlag As String
Public oDoc As Object

Public sAdressenUoIFlag As String
Public sAktenUoIFlag As String

Public aAdressenErgebnis()

Public iStart As Integer

Public iAktenSeite As Integer
Public iAdressenSeite As Integer
Public sAktenAdressenID As String

Public sDatumHeute As String
Public sStatus As String
Public iStatus As Integer
Public sStatusID As String
Public iAdresseFrom As Integer

Public sGerichtsID As String
Public sGeschaeftszeichen As String
Public sGerichtsKurzrubrum As String
Public aGericht()
Public iAktenGerichteID As Integer
Public sAktenGerichteID As String

Public oReferatListBox As Object
Public oSachbearbeiterListBox As Object
Public oHerkunftListBox As Object

Public iGerichtFrom As Integer
Public sGerichtsText As String
Public sGerichtsart As String
Public iGerichtOrtVorArt As Integer
Public sGerichtsortText As String
Public sGerichtsPLZText As String
Public sOrtGerichtText As String
Public sGerichtTelefonText As String
Public sGerichtTelefaxText As String

Public sSystemPflegeInsertText As String

Public sWvDatum As String
Public sWvlGrund As String

Public iGerichtNeuFlag As Integer

Public sVorlagenLabel As String
Public sVorlagenBezeichnung As String
Public sVPfad As String
 
Public iDBErr As Integer
Public bDateStruct As Boolean

Public Const csTrenner = &quot;-----------------------------&quot;


Sub Start

SystemEinrichtung

	If iAbbruchFlag = 1 Then
		Exit Sub
	End If
	
AktenAWMod.Aktenauswahl

End Sub


Sub StartAufgabenAuswahl

SystemEinrichtung

	If iAbbruchFlag = 1 Then
		Exit Sub
	End If
	
HauptAWMod.HauptauswahlOhne

End Sub


Sub SystemEinrichtung

LibOMod.IsDateStruct

	iAbbruchFlag = 0
	iStart = 0
	
SysDatenMod1.ProgrammStart

End Sub


REM ** Das folgende Makro wird durch das Makro &quot;HauptAWDia.Taskauswahl&quot; ausgeloest, **
REM ** wenn &quot;Programm beenden&quot; ausgewaehlt wurde **
Sub Abbruch

Dim iAntwort As Integer

	iAntwort = MsgBox (&quot;Wollen Sie wirklich aufhören?&quot;, 4+32+256, &quot;Nur noch eine Frage:&quot;)

	If iAntwort = 7 Then
	HauptAWMod.Hauptauswahl
	Else
	Ende
	End If

End Sub


REM ** Dieses Makro beendet das Programm **
REM ** Es wird von den Makros Start.Abbruch und DBAnbindMod.Datenbankanbindung aufgerufen **
Sub Ende

FSMod.Umount
	MsgBox (&quot;Bitte OpenOffice.org beenden, da sonst evt. die Datenbankverbindung offen bleibt!&quot;, 48, &quot;Im Interesse der Datensicherheit:&quot;)

End Sub


</script:module>