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

Option Explicit


Sub AktenNeuanlage

RegNrErmitteln
DatumHeute
SQLMod.AktenAnlMod1Insert1
FSMod.AktenVerzeichnisAnlegen

	sRegNummer = sRegisterNr
		
AktenMod1.AktenanzeigeRegNrBekannt

End Sub


Sub RegNrErmitteln

Dim sVorherigeRegNr As String
Dim iVorherigeRegNr As Integer
Dim iNeueRegNr As Integer
Dim sHeute As String

SQLMod.AktenAnlMod1Abfrage1

	While (oResultSet.next)
	
		sVorherigeRegNr = oResultSet.getString(1)
		
	Wend
		
	sHeute = CDateToIso(now())
	
	If sVorherigeRegNr = &quot;&quot; Then
		sVorherigeRegNr = Mid(sHeute, 5, 2) + &quot;000&quot;
	End If
	
	iVorherigeRegNr = CInt(sVorherigeRegNr)
	iNeueRegNr = iVorherigeRegNr + 1
	
	If iNeueRegNr &lt; 10000 Then
		sRegisterNr = &quot;0&quot;+CStr(iNeueRegNr)+&quot;-&quot;+Left(sHeute, 4)
	Else
		sRegisterNr = CStr(iNeueRegNr)+&quot;-&quot;+Left(sHeute, 4)
	End If
		
End Sub


Sub DatumHeute

	sDatumHeute = CDateToIso(now())
	sDatumHeute = Left(sDatumHeute, 4)+&quot;-&quot;+Mid(sDatumHeute, 5, 2)+&quot;-&quot;+ _
	Right(sDatumHeute, 2)
		
End Sub

</script:module>