/usr/lib/libreoffice/share/extensions/canzeley-client/Kanzleiprogramm/LibOMod.xba is in libreoffice-canzeley-client 0.5.0-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 | <?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="LibOMod" script:language="StarBasic">REM ***** BASIC *****
REM ***** Canzeley *****
REM Copyright (C) 2013 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 <http://www.gnu.org/licenses/>.
REM *** Version 0.5.0 ***
REM **** Kanzleiprogramm - LibOMod ****
Option Explicit
REM *** Ab der LibreOffice-Version 4.1.1 ist der date-Wert ein Struct. ***
REM *** Das bedeutet, dass die bisherige Behandlung von Datumwerten zu Fehlern fuehrt. ***
REM *** Da diese Aenderung nur fuer LibreOffice ab Version 4.1.1 gilt, sind sowohl die alte ***
REM *** als auch die neue Variante zu implementieren. ***
REM ** Das folgende Makro ermittelt, ob der date-Wert ein Struct ist ***
Sub IsDateStruct
Dim oOOoReflection As Object
Set oOOoReflection = CreateUnoService("com.sun.star.reflection.CoreReflection")
Dim ogD as Object
Set ogD = oOOoReflection.forName("com.sun.star.awt.XDateField").getMethod("getDate").ReturnType
Dim sOutputmessage As String
If ogD.TypeClass = com.sun.star.uno.TypeClass.LONG Then
bDateStruct = false
Elseif ogD.TypeClass = com.sun.star.uno.TypeClass.STRUCT And ogD.Name = "com.sun.star.util.Date" Then
bDateStruct = true
Else
MsgBox ("Typ des Datums in API konnte nicht ermittelt werden.",1+48+256, "Achtung!")
End If
End Sub
REM ** Wandelt ein Datum in ein Struct-Objekt um **
Function LibOStruct(sDatum As String)
Dim oDatum as new com.sun.star.util.Date
With oDatum
.day = Day(sDatum)
.month = Month(sDatum)
.year = Year(sDatum)
End With
LibOStruct = oDatum
End Function
</script:module>
|