更新windows内置office目录名, 适配jodconverter

server/libreoffice/share/basic/Access2Base/Collect.xba

@@ -0,0 +1,399 @@
+<?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="Collect" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM MODULE NAME &lt;&gt; COLLECTION (is a reserved name for ... collections)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private _Type			As String		&apos;	Must be COLLECTION
+Private _This			As Object		&apos;	Workaround for absence of This builtin function
+Private _CollType		As String
+Private _Parent			As Object
+Private _Count			As Long
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	_Type = OBJCOLLECTION
+	Set _This = Nothing
+	_CollType = &quot;&quot;
+	Set _Parent = Nothing
+	_Count = 0
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	On Local Error Resume Next
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Property Get Count() As Long
+	Count = _PropertyGet(&quot;Count&quot;)
+End Property		&apos;	Count (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Function Item(ByVal Optional pvItem As Variant) As Variant
+&apos;Return property value.
+&apos;pvItem either numeric index or property name
+
+Const cstThisSub = &quot;Collection.getItem&quot;
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+
+	Utils._SetCalledSub(cstThisSub)
+	If IsMissing(pvItem) Then Goto Exit_Function	&apos;	To allow object watching in Basic IDE, do not generate error
+	Select Case _CollType
+		Case COLLCOMMANDBARCONTROLS					&apos;	Have no name
+			If Not Utils._CheckArgument(pvItem, 1, Utils._AddNumeric()) Then Goto Exit_Function
+		Case Else
+			If Not Utils._CheckArgument(pvItem, 1, Utils._AddNumeric(vbString)) Then Goto Exit_Function
+	End Select
+
+Dim vNames() As Variant, oProperty As Object
+
+	Set Item = Nothing
+	Select Case _CollType
+		Case COLLALLDIALOGS
+			Set Item = Application.AllDialogs(pvItem)
+		Case COLLALLFORMS
+			Set Item = Application.AllForms(pvItem)
+		Case COLLALLMODULES
+			Set Item = Application.AllModules(pvItem)
+		Case COLLCOMMANDBARS
+			Set Item = Application.CommandBars(pvItem)
+		Case COLLCOMMANDBARCONTROLS
+			If IsNull(_Parent) Then GoTo Error_Parent
+			Set Item = _Parent.CommandBarControls(pvItem)
+		Case COLLCONTROLS
+			If IsNull(_Parent) Then GoTo Error_Parent
+			Set Item = _Parent.Controls(pvItem)
+		Case COLLFORMS
+			Set Item = Application.Forms(pvItem)
+		Case COLLFIELDS
+			If IsNull(_Parent) Then GoTo Error_Parent
+			Set Item = _Parent.Fields(pvItem)
+		Case COLLPROPERTIES
+			If IsNull(_Parent) Then GoTo Error_Parent
+			Select Case _Parent._Type
+				Case OBJCONTROL, OBJSUBFORM, OBJDATABASE, OBJDIALOG, OBJFIELD _
+						, OBJFORM, OBJQUERYDEF, OBJRECORDSET, OBJTABLEDEF
+					Set Item = _Parent.Properties(pvItem)
+				Case OBJCOLLECTION, OBJEVENT, OBJOPTIONGROUP, OBJPROPERTY
+					&apos; NOT SUPPORTED
+			End Select
+		Case COLLQUERYDEFS
+			Set Item = _Parent.QueryDefs(pvItem)
+		Case COLLRECORDSETS
+			Set Item = _Parent.Recordsets(pvItem)
+		Case COLLTABLEDEFS
+			Set Item = _Parent.TableDefs(pvItem)
+		Case COLLTEMPVARS
+			Set Item = Application.TempVars(pvItem)
+		Case Else
+	End Select
+
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, Utils._CalledSub(), Erl)
+	Set Item = Nothing
+	GoTo Exit_Function
+Error_Parent:
+	TraceError(TRACEFATAL, ERROBJECTNOTFOUND, Utils._CalledSub(), 0, True, Array(_GetLabel(&quot;OBJECT&quot;), _GetLabel(&quot;PARENT&quot;)))
+	Set Item = Nothing
+	GoTo Exit_Function
+End Function		&apos;	Item V1.1.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property		&apos;	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
+	vPropertiesList = _PropertiesList()
+	sObject = Utils._PCase(_Type)
+	If IsMissing(pvIndex) Then
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
+	Else
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
+		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
+	End If
+	
+Exit_Function:
+	Set Properties = vProperty
+	Exit Function
+End Function	&apos;	Properties
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Public Function Add(Optional pvNew As Variant, Optional pvValue As Variant) As Boolean
+&apos;	Append a new TableDef or TempVar object to the TableDefs/TempVars collections
+
+Const cstThisSub = &quot;Collection.Add&quot;
+	Utils._SetCalledSub(cstThisSub)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	
+Dim odbDatabase As Object, oConnection As Object, oTables As Object, oTable As Object
+Dim vObject As Variant, oTempVar As Object
+	Add = False
+	If IsMissing(pvNew) Then Call _TraceArguments()
+
+	Select Case _CollType
+		Case COLLTABLEDEFS
+			If Not Utils._CheckArgument(pvNew, 1, vbObject) Then Goto Exit_Function
+			Set vObject = pvNew
+			With vObject
+				Set odbDatabase = ._ParentDatabase
+				If odbDatabase._DbConnect &lt;&gt; DBCONNECTBASE Then Goto Error_NotApplicable
+				Set oConnection = odbDatabase.Connection
+				If IsNull(.TableDescriptor) Or .TableFieldsCount = 0 Then Goto Error_Sequence
+				Set oTables = oConnection.getTables()
+				oTables.appendByDescriptor(.TableDescriptor)
+				Set .Table = oTables.getByName(._Name)
+				.CatalogName = .Table.CatalogName
+				.SchemaName = .Table.SchemaName
+				.TableName = .Table.Name
+				.TableDescriptor.dispose()
+				Set .TableDescriptor = Nothing
+				.TableFieldsCount = 0
+				.TableKeysCount = 0
+			End With
+		Case COLLTEMPVARS
+			If Not Utils._CheckArgument(pvNew, 1, vbString) Then Goto Exit_Function
+			If pvNew = &quot;&quot; Then Goto Error_Name
+			If IsMissing(pvValue) Then Call _TraceArguments()
+			If _A2B_.hasItem(COLLTEMPVARS, pvNew) Then Goto Error_Name
+			Set oTempVar = New TempVar
+			oTempVar._This = oTempVar
+			oTempVar._Name = pvNew
+			oTempVar._Value = pvValue
+			_A2B_.TempVars.Add(oTempVar, UCase(pvNew))
+		Case Else
+			Goto Error_NotApplicable
+	End Select
+
+	_Count = _Count + 1
+	Add = True
+
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	GoTo Exit_Function
+Error_NotApplicable:
+	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	Goto Exit_Function
+Error_Sequence:
+	TraceError(TRACEFATAL, ERRTABLECREATION, Utils._CalledSub(), 0, 1, vObject._Name)
+	Goto Exit_Function
+Error_Name:
+	TraceError(TRACEFATAL, ERRWRONGARGUMENT, Utils._CalledSub(), False, ,Array(1, pvNew))
+	AddItem = False
+	Goto Exit_Function
+End Function		&apos;	Add	V1.1.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Delete(ByVal Optional pvName As Variant) As Boolean
+&apos;	Delete a TableDef or QueryDef object in the TableDefs/QueryDefs collections
+
+Const cstThisSub = &quot;Collection.Delete&quot;
+	Utils._SetCalledSub(cstThisSub)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	
+Dim odbDatabase As Object, oColl As Object, vName As Variant
+	Delete = False
+	If IsMissing(pvName) Then pvName = &quot;&quot;
+	If Not Utils._CheckArgument(pvName, 1, vbString) Then Goto Exit_Function
+	If pvName = &quot;&quot; Then Call _TraceArguments()
+
+	Select Case _CollType
+		Case COLLTABLEDEFS, COLLQUERYDEFS
+			If _A2B_.CurrentDocIndex() &lt;&gt; 0 Then Goto Error_NotApplicable 
+			Set odbDatabase = Application._CurrentDb()
+			If odbDatabase._DbConnect &lt;&gt; DBCONNECTBASE Then Goto Error_NotApplicable
+			If _CollType = COLLTABLEDEFS Then Set oColl = odbDatabase.Connection.getTables() Else Set oColl = odbDatabase.Connection.getQueries()
+			With oColl
+				vName = _InList(pvName, .getElementNames(), True)
+				If vName = False Then Goto trace_NotFound
+				.dropByName(vName)
+			End With
+			odbDatabase.Document.store()
+		Case Else
+			Goto Error_NotApplicable
+	End Select
+
+	_Count = _Count - 1
+	Delete = True
+
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	GoTo Exit_Function
+Error_NotApplicable:
+	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	Goto Exit_Function
+Trace_NotFound:
+	TraceError(TRACEFATAL, ERROBJECTNOTFOUND, Utils._CalledSub(), 0, , Array(_GetLabel(Left(_CollType, 5)), pvName))
+	Goto Exit_Function
+End Function		&apos;	Delete	V1.1.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
+&apos;	Return property value of psProperty property name
+
+	Utils._SetCalledSub(&quot;Collection.getProperty&quot;)
+	If IsMissing(pvProperty) Then Call _TraceArguments()
+	getProperty = _PropertyGet(pvProperty)
+	Utils._ResetCalledSub(&quot;Collection.getProperty&quot;)
+	
+End Function		&apos;	getProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)
+
+	If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
+	Exit Function
+	
+End Function	&apos;	hasProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Remove(ByVal Optional pvName As Variant) As Boolean
+&apos;	Remove a TempVar from the TempVars collection
+
+Const cstThisSub = &quot;Collection.Remove&quot;
+	Utils._SetCalledSub(cstThisSub)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	
+Dim oColl As Object, vName As Variant
+	Remove = False
+	If IsMissing(pvName) Then pvName = &quot;&quot;
+	If Not Utils._CheckArgument(pvName, 1, vbString) Then Goto Exit_Function
+	If pvName = &quot;&quot; Then Call _TraceArguments()
+
+	Select Case _CollType
+		Case COLLTEMPVARS
+			If Not _A2B_.hasItem(COLLTEMPVARS, pvName) Then Goto Error_Name
+			_A2B_.TempVars.Remove(UCase(pvName))
+		Case Else
+			Goto Error_NotApplicable
+	End Select
+
+	_Count = _Count - 1
+	Remove = True
+
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	GoTo Exit_Function
+Error_NotApplicable:
+	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	Goto Exit_Function
+Error_Name:
+	TraceError(TRACEFATAL, ERRWRONGARGUMENT, Utils._CalledSub(), False, ,Array(1, pvName))
+	AddItem = False
+	Goto Exit_Function
+End Function		&apos;	Remove	V1.2.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function RemoveAll() As Boolean
+&apos;	Remove the whole TempVars collection
+
+Const cstThisSub = &quot;Collection.Remove&quot;
+	Utils._SetCalledSub(cstThisSub)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+
+	Select Case _CollType
+		Case COLLTEMPVARS
+			Set _A2B_.TempVars = New Collection
+			_Count = 0
+		Case Else
+			Goto Error_NotApplicable
+	End Select
+
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	GoTo Exit_Function
+Error_NotApplicable:
+	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	Goto Exit_Function
+End Function	&apos;	RemoveAll V1.2.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertiesList() As Variant
+	 _PropertiesList = Array(&quot;Count&quot;, &quot;Item&quot;, &quot;ObjectType&quot;)
+End Function	&apos;	_PropertiesList
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertyGet(ByVal psProperty As String) As Variant
+&apos;	Return property value of the psProperty property name
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Utils._SetCalledSub(&quot;Collection.get&quot; &amp; psProperty)
+	_PropertyGet = Nothing
+	
+	Select Case UCase(psProperty)
+		Case UCase(&quot;Count&quot;)
+			_PropertyGet = _Count
+		Case UCase(&quot;Item&quot;)
+		Case UCase(&quot;ObjectType&quot;)
+			_PropertyGet = _Type
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;Collection.get&quot; &amp; psProperty)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
+	_PropertyGet = Nothing
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;Collection._PropertyGet&quot;, Erl)
+	_PropertyGet = Nothing
+	GoTo Exit_Function
+End Function		&apos;	_PropertyGet
+
+</script:module>

server/libreoffice/share/basic/Access2Base/CommandBar.xba

@@ -0,0 +1,396 @@
+<?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="CommandBar" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private _Type			As String		&apos;	Must be COMMANDBAR
+Private _This			As Object		&apos;	Workaround for absence of This builtin function
+Private _Parent			As Object
+Private _Name			As String
+Private _ResourceURL	As String
+Private _Window			As Object		&apos;	com.sun.star.frame.XFrame
+Private _Module			As String
+Private _Toolbar		As Object
+Private _BarBuiltin		As Integer		&apos;	1 = builtin, 2 = custom stored in LO/AOO (Base), 3 = custom stored in document (Form)
+Private _BarType		As Integer		&apos;	See msoBarTypeXxx constants
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	_Type = OBJCOMMANDBAR
+	Set _This = Nothing
+	Set _Parent = Nothing
+	_Name = &quot;&quot;
+	_ResourceURL = &quot;&quot;
+	Set _Window = Nothing
+	_Module = &quot;&quot;
+	Set _Toolbar = Nothing
+	_BarBuiltin = 0
+	_BarType = -1
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	On Local Error Resume Next
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get BuiltIn() As Boolean
+	BuiltIn = _PropertyGet(&quot;BuiltIn&quot;)
+End Property		&apos;	BuiltIn (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Name() As String
+	Name = _PropertyGet(&quot;Name&quot;)
+End Property		&apos;	Name (get)
+
+Public Function pName() As String		&apos;	For compatibility with &lt; V0.9.0
+	pName = _PropertyGet(&quot;Name&quot;)
+End Function		&apos;	pName (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property		&apos;	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Parent() As Object
+	Parent = _Parent
+End Function		&apos;	Parent (get)	V6.4.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
+	vPropertiesList = _PropertiesList()
+	sObject = Utils._PCase(_Type)
+	If IsMissing(pvIndex) Then
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
+	Else
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
+		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
+	End If
+	
+Exit_Function:
+	Set Properties = vProperty
+	Exit Function
+End Function	&apos;	Properties
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Visible() As Variant
+	Visible = _PropertyGet(&quot;Visible&quot;)
+End Property		&apos;	Visible (get)
+
+Property Let Visible(ByVal pvValue As Variant)
+	Call _PropertySet(&quot;Visible&quot;, pvValue)
+End Property		&apos;	Visible (set)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function CommandBarControls(Optional ByVal pvIndex As Variant) As Variant
+&apos;	Return an object of type CommandBarControl indicated by its index
+&apos;	Index is different from UNO index: separators do not count
+&apos;	If no pvIndex argument, return a Collection type
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Const cstThisSub = &quot;CommandBar.CommandBarControls&quot;
+	Utils._SetCalledSub(cstThisSub)
+
+Dim oLayout As Object, vElements() As Variant, iIndexToolbar As Integer, oToolbar As Object
+Dim i As Integer, iItemsCount As Integer, oSettings As Object, vItem() As Variant, bSeparator As Boolean
+Dim oObject As Object
+
+	Set oObject = Nothing
+	If Not IsMissing(pvIndex) Then
+		If Not Utils._CheckArgument(pvIndex, 1, Utils._AddNumeric()) Then Goto Exit_Function
+		If pvIndex &lt; 0 Then Goto Trace_IndexError
+	End If
+
+	Select Case _BarType
+		Case msoBarTypeNormal, msoBarTypeMenuBar
+		Case Else	:	Goto Error_NotApplicable				&apos;	Status bar not supported
+	End Select
+
+	Set oLayout = _Window.LayoutManager
+	vElements = oLayout.getElements()
+	iIndexToolbar = _FindElement(vElements())
+	If iIndexToolbar &lt; 0 Then Goto Error_NotApplicable			&apos;	Toolbar not visible
+	Set oToolbar = vElements(iIndexToolbar)
+
+	iItemsCount = 0
+	Set oSettings = oToolbar.getSettings(False)
+
+	bSeparator = False	
+	For i = 0 To oSettings.getCount() - 1
+		Set vItem() = oSettings.getByIndex(i)
+		If _GetPropertyValue(vItem, &quot;Type&quot;, 1) &lt;&gt; 1 Then		&apos;	Type = 1 indicates separator
+			iItemsCount = iItemsCount + 1
+			If Not IsMissing(pvIndex) Then
+				If pvIndex = iItemsCount - 1 Then
+					Set oObject = New CommandBarControl
+					With oObject
+						Set ._This = oObject
+						Set ._Parent = _This
+						._ParentCommandBarName = _Name
+						._ParentCommandBar = oToolbar
+						._ParentBuiltin = ( _BarBuiltin = 1 )
+						._Element = vItem()
+						._InternalIndex = i
+						._Index = iItemsCount					&apos;	Indexes start at 1
+						._BeginGroup = bSeparator
+					End With
+				End If
+				bSeparator = False
+			End If
+		Else
+			bSeparator = True
+		End If
+	Next i
+
+	If IsNull(oObject) Then
+		Select Case True
+			Case IsMissing(pvIndex)
+				Set oObject = New Collect
+				Set oObject._This = oObject
+				oObject._CollType = COLLCOMMANDBARCONTROLS
+				Set oObject._Parent = _This
+				oObject._Count = iItemsCount
+			Case Else		&apos;	pvIndex is numeric
+				Goto Trace_IndexError
+		End Select
+	End If
+
+Exit_Function:
+	Set CommandBarControls = oObject
+	Set oObject = Nothing
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	GoTo Exit_Function
+Trace_IndexError:
+	TraceError(TRACEFATAL, ERRCOLLECTION, Utils._CalledSub(), 0)
+	Goto Exit_Function
+Error_NotApplicable:
+	TraceError(TRACEFATAL, ERRMETHOD, Utils._CalledSub(), 0, 1, cstThisSub)
+	Goto Exit_Function
+End Function	&apos;	CommandBarControls		V1,3,0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Controls(Optional ByVal pvIndex As Variant) As Variant
+&apos;	Alias for CommandBarControls (VBA)
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Const cstThisSub = &quot;CommandBar.Controls&quot;
+	Utils._SetCalledSub(cstThisSub)
+
+Dim oObject As Object
+
+	If IsMissing(pvIndex) Then Set oObject = CommandBarControls() Else Set oObject = CommandBarControls(pvIndex)
+
+Exit_Function:
+	Set Controls = oObject
+	Set oObject = Nothing
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	GoTo Exit_Function
+End Function	&apos;	Controls		V1,3,0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
+&apos;	Return property value of psProperty property name
+
+	Utils._SetCalledSub(&quot;CommandBar.getProperty&quot;)
+	If IsMissing(pvProperty) Then Call _TraceArguments()
+	getProperty = _PropertyGet(pvProperty)
+	Utils._ResetCalledSub(&quot;CommandBar.getProperty&quot;)
+	
+End Function		&apos;	getProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)
+
+	If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
+	Exit Function
+	
+End Function	&apos;	hasProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Reset() As Boolean
+&apos;	Reset a whole command bar to its initial values
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Const cstThisSub = &quot;CommandBar.Reset&quot;
+	Utils._SetCalledSub(cstThisSub)
+
+	_Toolbar.reload()
+
+Exit_Function:
+	Reset = True
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	Reset = False
+	GoTo Exit_Function
+End Function	&apos;	Reset	V1.3.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _FindElement(pvElements As Variant) As Integer
+&apos;	Return -1 if not found, otherwise return index in elements table of LayoutManager
+
+Dim i As Integer
+
+	_FindElement = -1
+	If Not IsArray(pvElements) Then Exit Function
+
+	For i = 0 To UBound(pvElements)
+		If _ResourceURL = pvElements(i).ResourceURL Then
+			_FindElement = i
+			Exit Function
+		End If
+	Next i
+
+End Function
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertiesList() As Variant
+	 _PropertiesList = Array(&quot;BuiltIn&quot;, &quot;Name&quot;, &quot;ObjectType&quot;, &quot;Visible&quot;)
+End Function	&apos;	_PropertiesList
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertyGet(ByVal psProperty As String) As Variant
+&apos;	Return property value of the psProperty property name
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Dim cstThisSub As String
+	cstThisSub = &quot;CommandBar.get&quot; &amp; psProperty
+	Utils._SetCalledSub(cstThisSub)
+	_PropertyGet = Nothing
+
+Dim oLayout As Object, iElementIndex As Integer
+	
+	Select Case UCase(psProperty)
+		Case UCase(&quot;BuiltIn&quot;)
+			_PropertyGet = ( _BarBuiltin = 1 )
+		Case UCase(&quot;Name&quot;)
+			_PropertyGet = _Name
+		Case UCase(&quot;ObjectType&quot;)
+			_PropertyGet = _Type
+		Case UCase(&quot;Visible&quot;)
+			Set oLayout = _Window.LayoutManager
+			iElementIndex = _FindElement(oLayout.getElements())
+			If iElementIndex &lt; 0 Then _PropertyGet = False Else _PropertyGet = oLayout.isElementVisible(_ResourceURL)
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertyGet = Nothing
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, Utils._CalledSub(), Erl)
+	_PropertyGet = Nothing
+	GoTo Exit_Function
+End Function		&apos;	_PropertyGet
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertySet(ByVal psProperty As String, ByVal pvValue As Variant) As Boolean
+&apos;	Return True if property setting OK
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Dim cstThisSub As String
+	cstThisSub = &quot;CommandBar.set&quot; &amp; psProperty
+	Utils._SetCalledSub(cstThisSub)
+	_PropertySet = True
+Dim iArgNr As Integer
+Dim oLayout As Object, iElementIndex As Integer
+
+
+	Select Case UCase(_A2B_.CalledSub)
+		Case UCase(&quot;setProperty&quot;)				:	iArgNr = 3
+		Case UCase(&quot;CommandBar.setProperty&quot;)	:	iArgNr = 2
+		Case UCase(cstThisSub)					:	iArgNr = 1
+	End Select
+	
+	If Not hasProperty(psProperty) Then Goto Trace_Error
+
+	Select Case UCase(psProperty)
+		Case UCase(&quot;Visible&quot;)
+			If Not Utils._CheckArgument(pvValue, iArgNr, vbBoolean, , False) Then Goto Trace_Error_Value
+			Set oLayout = _Window.LayoutManager
+			With oLayout
+				iElementIndex = _FindElement(.getElements())
+				If iElementIndex &lt; 0 Then
+					If pvValue Then
+						.createElement(_ResourceURL)
+						.showElement(_ResourceURL)
+					End If
+				Else
+					If pvValue &lt;&gt; .isElementVisible(_ResourceURL) Then
+						If pvValue Then .showElement(_ResourceURL) Else .hideElement(_ResourceURL)
+					End If
+				End If
+			End With
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
+	_PropertySet = False
+	Goto Exit_Function
+Trace_Error_Value:
+	TraceError(TRACEFATAL, ERRPROPERTYVALUE, Utils._CalledSub(), 0, 1, Array(pvValue, psProperty))
+	_PropertySet = False
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	_PropertySet = False
+	GoTo Exit_Function
+End Function			&apos;	_PropertySet
+
+</script:module>

server/libreoffice/share/basic/Access2Base/CommandBarControl.xba

@@ -0,0 +1,339 @@
+<?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="CommandBarControl" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private _Type					As String		&apos;	Must be COMMANDBARCONTROL
+Private _This					As Object		&apos;	Workaround for absence of This builtin function
+Private _Parent					As Object
+Private _InternalIndex			As Integer		&apos;	Index in toolbar including separators
+Private _Index					As Integer		&apos;	Index in collection, starting at 1 !!
+Private _ControlType			As Integer		&apos;	1 of the msoControl* constants
+Private _ParentCommandBarName	As String
+Private _ParentCommandBar		As Object		&apos;	com.sun.star.ui.XUIElement
+Private _ParentBuiltin			As Boolean
+Private _Element				As Variant
+Private _BeginGroup				As Boolean
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	_Type = OBJCOMMANDBARCONTROL
+	Set _This = Nothing
+	Set _Parent = Nothing
+	_Index = -1
+	_ParentCommandBarName = &quot;&quot;
+	Set _ParentCommandBar = Nothing
+	_ParentBuiltin = False
+	_Element = Array()
+	_BeginGroup = False
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	On Local Error Resume Next
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get BeginGroup() As Boolean
+	BeginGroup = _PropertyGet(&quot;BeginGroup&quot;)
+End Property		&apos;	BeginGroup (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get BuiltIn() As Boolean
+	BuiltIn = _PropertyGet(&quot;BuiltIn&quot;)
+End Property		&apos;	BuiltIn (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Caption() As Variant
+	Caption = _PropertyGet(&quot;Caption&quot;)
+End Property		&apos;	Caption (get)
+
+Property Let Caption(ByVal pvValue As Variant)
+	Call _PropertySet(&quot;Caption&quot;, pvValue)
+End Property		&apos;	Caption (set)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Index() As Integer
+	Index = _PropertyGet(&quot;Index&quot;)
+End Property		&apos;	Index (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property		&apos;	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get OnAction() As Variant
+	OnAction = _PropertyGet(&quot;OnAction&quot;)
+End Property		&apos;	OnAction (get)
+
+Property Let OnAction(ByVal pvValue As Variant)
+	Call _PropertySet(&quot;OnAction&quot;, pvValue)
+End Property		&apos;	OnAction (set)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Parent() As Object
+	Parent = _PropertyGet(&quot;Parent&quot;)
+End Property		&apos;	Parent (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
+	vPropertiesList = _PropertiesList()
+	sObject = Utils._PCase(_Type)
+	If IsMissing(pvIndex) Then
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
+	Else
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
+		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
+	End If
+	
+Exit_Function:
+	Set Properties = vProperty
+	Exit Function
+End Function	&apos;	Properties
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get TooltipText() As Variant
+	TooltipText = _PropertyGet(&quot;TooltipText&quot;)
+End Property		&apos;	TooltipText (get)
+
+Property Let TooltipText(ByVal pvValue As Variant)
+	Call _PropertySet(&quot;TooltipText&quot;, pvValue)
+End Property		&apos;	TooltipText (set)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function pType() As Integer
+	pType = _PropertyGet(&quot;Type&quot;)
+End Function		&apos;	Type (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Visible() As Variant
+	Visible = _PropertyGet(&quot;Visible&quot;)
+End Property		&apos;	Visible (get)
+
+Property Let Visible(ByVal pvValue As Variant)
+	Call _PropertySet(&quot;Visible&quot;, pvValue)
+End Property		&apos;	Visible (set)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Execute()
+&apos;	Execute the command stored in a toolbar button
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Const cstThisSub = &quot;CommandBarControl.Execute&quot;
+	Utils._SetCalledSub(cstThisSub)
+
+Dim sExecute As String
+
+	Execute = True
+	sExecute = _GetPropertyValue(_Element, &quot;CommandURL&quot;, &quot;&quot;)
+
+	Select Case True
+		Case sExecute = &quot;&quot;		:	Execute = False
+		Case _IsLeft(sExecute, &quot;.uno:&quot;)
+			Execute = DoCmd.RunCommand(sExecute)
+		Case _IsLeft(sExecute, &quot;vnd.sun.star.script:&quot;)
+			Execute = Utils._RunScript(sExecute, Array(Nothing))
+		Case Else
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	Execute = False
+	GoTo Exit_Function
+End Function	&apos;	Execute	V1.3.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
+&apos;	Return property value of psProperty property name
+
+	Utils._SetCalledSub(&quot;CommandBarControl.getProperty&quot;)
+	If IsMissing(pvProperty) Then Call _TraceArguments()
+	getProperty = _PropertyGet(pvProperty)
+	Utils._ResetCalledSub(&quot;CommandBar.getProperty&quot;)
+	
+End Function		&apos;	getProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)
+
+	If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
+	Exit Function
+	
+End Function	&apos;	hasProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertiesList() As Variant
+	 _PropertiesList = Array(&quot;BeginGroup&quot;, &quot;BuiltIn&quot;, &quot;Caption&quot;, &quot;Index&quot; _
+	 							, &quot;ObjectType&quot;, &quot;OnAction&quot;, &quot;Parent&quot; _
+	 							, &quot;TooltipText&quot;, &quot;Type&quot;, &quot;Visible&quot; _
+	 							)
+End Function	&apos;	_PropertiesList
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertyGet(ByVal psProperty As String) As Variant
+&apos;	Return property value of the psProperty property name
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Dim cstThisSub As String
+	cstThisSub = &quot;CommandBarControl.get&quot; &amp; psProperty
+	Utils._SetCalledSub(cstThisSub)
+	_PropertyGet = Null
+
+Dim oLayout As Object, iElementIndex As Integer
+Dim sValue As String
+Const cstUnoPrefix = &quot;.uno:&quot;
+	
+	Select Case UCase(psProperty)
+		Case UCase(&quot;BeginGroup&quot;)
+			_PropertyGet = _BeginGroup
+		Case UCase(&quot;BuiltIn&quot;)
+			sValue = _GetPropertyValue(_Element, &quot;CommandURL&quot;, &quot;&quot;)
+			_PropertyGet = ( _IsLeft(sValue, cstUnoPrefix) )
+		Case UCase(&quot;Caption&quot;)
+			_PropertyGet = _GetPropertyValue(_Element, &quot;Label&quot;, &quot;&quot;)
+		Case UCase(&quot;Index&quot;)
+			_PropertyGet = _Index
+		Case UCase(&quot;ObjectType&quot;)
+			_PropertyGet = _Type
+		Case UCase(&quot;OnAction&quot;)
+			_PropertyGet = _GetPropertyValue(_Element, &quot;CommandURL&quot;, &quot;&quot;)
+		Case UCase(&quot;Parent&quot;)
+			Set _PropertyGet = _Parent
+		Case UCase(&quot;TooltipText&quot;)
+				sValue = _GetPropertyValue(_Element, &quot;Tooltip&quot;, &quot;&quot;)
+				If sValue &lt;&gt; &quot;&quot; Then _PropertyGet = sValue Else _PropertyGet = _GetPropertyValue(_Element, &quot;Label&quot;, &quot;&quot;)
+		Case UCase(&quot;Type&quot;)
+				_PropertyGet = msoControlButton
+		Case UCase(&quot;Visible&quot;)
+			_PropertyGet = _GetPropertyValue(_Element, &quot;IsVisible&quot;, &quot;&quot;)
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertyGet = Nothing
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, Utils._CalledSub(), Erl)
+	_PropertyGet = Nothing
+	GoTo Exit_Function
+End Function		&apos;	_PropertyGet
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertySet(ByVal psProperty As String, ByVal pvValue As Variant) As Boolean
+&apos;	Return True if property setting OK
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+Dim cstThisSub As String
+	cstThisSub = &quot;CommandBarControl.set&quot; &amp; psProperty
+	Utils._SetCalledSub(cstThisSub)
+	_PropertySet = True
+Dim iArgNr As Integer
+Dim oSettings As Object, sValue As String
+
+
+	Select Case UCase(_A2B_.CalledSub)
+		Case UCase(&quot;setProperty&quot;)				:	iArgNr = 3
+		Case UCase(&quot;CommandBar.setProperty&quot;)	:	iArgNr = 2
+		Case UCase(cstThisSub)					:	iArgNr = 1
+	End Select
+	
+	If Not hasProperty(psProperty) Then Goto Trace_Error
+	If _ParentBuiltin Then Goto Trace_Error		&apos;	Modifications of individual controls forbidden for builtin toolbars (design choice)
+
+Const cstUnoPrefix = &quot;.uno:&quot;
+Const cstScript = &quot;vnd.sun.star.script:&quot;
+
+	Set oSettings = _ParentCommandBar.getSettings(True)
+	Select Case UCase(psProperty)
+		Case UCase(&quot;OnAction&quot;)
+			If Not Utils._CheckArgument(pvValue, iArgNr, _AddNumeric(vbString), , False) Then Goto Trace_Error_Value
+			Select Case VarType(pvValue)
+				Case vbString
+					If _IsLeft(pvValue, cstUnoPrefix) Then
+						sValue = pvValue
+					ElseIf _IsLeft(pvValue, cstScript) Then
+						sValue = pvValue
+					Else
+						sValue = DoCmd.RunCommand(pvValue, True)
+					End If
+				Case Else				&apos;	Numeric
+					sValue = DoCmd.RunCommand(pvValue, True)
+			End Select
+			_SetPropertyValue(_Element, &quot;CommandURL&quot;, sValue)
+		Case UCase(&quot;TooltipText&quot;)
+			If Not Utils._CheckArgument(pvValue, iArgNr, vbString, , False) Then Goto Trace_Error_Value
+			_SetPropertyValue(_Element, &quot;Tooltip&quot;, pvValue)
+		Case UCase(&quot;Visible&quot;)
+			If Not Utils._CheckArgument(pvValue, iArgNr, vbBoolean, , False) Then Goto Trace_Error_Value
+			_SetPropertyValue(_Element, &quot;IsVisible&quot;, pvValue)
+		Case Else
+			Goto Trace_Error
+	End Select
+	oSettings.replaceByIndex(_InternalIndex, _Element)
+	_ParentCommandBar.setSettings(oSettings)
+	
+Exit_Function:
+	Utils._ResetCalledSub(cstThisSub)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, , psProperty)
+	_PropertySet = False
+	Goto Exit_Function
+Trace_Error_Value:
+	TraceError(TRACEFATAL, ERRPROPERTYVALUE, Utils._CalledSub(), 0, 1, Array(pvValue, psProperty))
+	_PropertySet = False
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, cstThisSub, Erl)
+	_PropertySet = False
+	GoTo Exit_Function
+End Function			&apos;	_PropertySet
+
+</script:module>

server/libreoffice/share/basic/Access2Base/Event.xba

@@ -0,0 +1,493 @@
+<?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="Event" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private	_Type					As String				&apos;	Must be EVENT
+Private	_EventSource			As Object
+Private	_EventType				As String
+Private	_EventName				As String
+Private _SubComponentName		As String
+Private _SubComponentType		As Long
+Private	_ContextShortcut		As String
+Private	_ButtonLeft				As Boolean				&apos;	com.sun.star.awt.MouseButton.XXX
+Private	_ButtonRight			As Boolean
+Private	_ButtonMiddle			As Boolean
+Private	_XPos					As Variant				&apos;	Null or Long
+Private	_YPos					As Variant				&apos;	Null or Long
+Private	_ClickCount				As Long
+Private	_KeyCode				As Integer				&apos;	com.sun.star.awt.Key.XXX
+Private	_KeyChar				As String
+Private	_KeyFunction			As Integer				&apos;	com.sun.star.awt.KeyFunction.XXX
+Private _KeyAlt					As Boolean
+Private _KeyCtrl				As Boolean
+Private _KeyShift				As Boolean
+Private	_FocusChangeTemporary	As Boolean				&apos;	False if user action in same window
+Private	_RowChangeAction		As Long					&apos;	com.sun.star.sdb.RowChangeAction.XXX
+Private _Recommendation			As String				&apos;	&quot;IGNORE&quot; or &quot;&quot;
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	_Type = OBJEVENT
+	_EventSource = Nothing
+	_EventType = &quot;&quot;
+	_EventName = &quot;&quot;
+	_SubComponentName = &quot;&quot;
+	_SubComponentType = -1
+	_ContextShortcut = &quot;&quot;
+	_ButtonLeft = False		&apos;	See com.sun.star.awt.MouseButton.XXX
+	_ButtonRight = False
+	_ButtonMiddle = False
+	_XPos = Null
+	_YPos = Null
+	_ClickCount = 0
+	_KeyCode = 0
+	_KeyChar = &quot;&quot;
+	_KeyFunction = com.sun.star.awt.KeyFunction.DONTKNOW
+	_KeyAlt = False
+	_KeyCtrl = False
+	_KeyShift = False
+	_FocusChangeTemporary	= False
+	_RowChangeAction = 0
+	_Recommendation = &quot;&quot;
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	On Local Error Resume Next
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ButtonLeft() As Variant
+	ButtonLeft = _PropertyGet(&quot;ButtonLeft&quot;)
+End Property		&apos;	ButtonLeft (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ButtonMiddle() As Variant
+	ButtonMiddle = _PropertyGet(&quot;ButtonMiddle&quot;)
+End Property		&apos;	ButtonMiddle (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ButtonRight() As Variant
+	ButtonRight = _PropertyGet(&quot;ButtonRight&quot;)
+End Property		&apos;	ButtonRight (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ClickCount() As Variant
+	ClickCount = _PropertyGet(&quot;ClickCount&quot;)
+End Property		&apos;	ClickCount (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ContextShortcut() As Variant
+	ContextShortcut = _PropertyGet(&quot;ContextShortcut&quot;)
+End Property		&apos;	ContextShortcut (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get EventName() As Variant
+	EventName = _PropertyGet(&quot;EventName&quot;)
+End Property		&apos;	EventName (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get EventSource() As Variant
+	EventSource = _PropertyGet(&quot;EventSource&quot;)
+End Property		&apos;	EventSource (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get EventType() As Variant
+	EventType = _PropertyGet(&quot;EventType&quot;)
+End Property		&apos;	EventType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get FocusChangeTemporary() As Variant
+	FocusChangeTemporary = _PropertyGet(&quot;FocusChangeTemporary&quot;)
+End Property		&apos;	FocusChangeTemporary (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get KeyAlt() As Variant
+	KeyAlt = _PropertyGet(&quot;KeyAlt&quot;)
+End Property		&apos;	KeyAlt (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get KeyChar() As Variant
+	KeyChar = _PropertyGet(&quot;KeyChar&quot;)
+End Property		&apos;	KeyChar (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get KeyCode() As Variant
+	KeyCode = _PropertyGet(&quot;KeyCode&quot;)
+End Property		&apos;	KeyCode (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get KeyCtrl() As Variant
+	KeyCtrl = _PropertyGet(&quot;KeyCtrl&quot;)
+End Property		&apos;	KeyCtrl (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get KeyFunction() As Variant
+	KeyFunction = _PropertyGet(&quot;KeyFunction&quot;)
+End Property		&apos;	KeyFunction (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get KeyShift() As Variant
+	KeyShift = _PropertyGet(&quot;KeyShift&quot;)
+End Property		&apos;	KeyShift (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property		&apos;	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
+	vPropertiesList = _PropertiesList()
+	sObject = Utils._PCase(_Type)
+	If IsMissing(pvIndex) Then
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
+	Else
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
+		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
+	End If
+	
+Exit_Function:
+	Set Properties = vProperty
+	Exit Function
+End Function	&apos;	Properties
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Recommendation() As Variant
+	Recommendation = _PropertyGet(&quot;Recommendation&quot;)
+End Property		&apos;	Recommendation (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get RowChangeAction() As Variant
+	RowChangeAction = _PropertyGet(&quot;RowChangeAction&quot;)
+End Property		&apos;	RowChangeAction (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Source() As Variant
+&apos;	Return the object having fired the event: Form, Control or SubForm
+&apos;	Else return the root Database object
+	Source = _PropertyGet(&quot;Source&quot;)
+End Function	&apos;	Source (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get SubComponentName() As String
+	SubComponentName = _PropertyGet(&quot;SubComponentName&quot;)
+End Property		&apos;	SubComponentName (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get SubComponentType() As Long
+	SubComponentType = _PropertyGet(&quot;SubComponentType&quot;)
+End Property		&apos;	SubComponentType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get XPos() As Variant
+	XPos = _PropertyGet(&quot;XPos&quot;)
+End Property		&apos;	XPos (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get YPos() As Variant
+	YPos = _PropertyGet(&quot;YPos&quot;)
+End Property		&apos;	YPos (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
+&apos;	Return property value of psProperty property name
+
+	Utils._SetCalledSub(&quot;Form.getProperty&quot;)
+	If IsMissing(pvProperty) Then Call _TraceArguments()
+	getProperty = _PropertyGet(pvProperty)
+	Utils._ResetCalledSub(&quot;Form.getProperty&quot;)
+	
+End Function		&apos;	getProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)
+
+	If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
+	Exit Function
+	
+End Function	&apos;	hasProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub _Initialize(poEvent As Object)
+
+Dim oObject As Object, i As Integer
+Dim sShortcut As String, sAddShortcut As String, sArray() As String
+Dim sImplementation As String, oSelection As Object
+Dim iCurrentDoc As Integer, oDoc As Object
+Dim vPersistent As Variant
+Const cstDatabaseForm = &quot;com.sun.star.comp.forms.ODatabaseForm&quot;
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+
+	Set oObject = poEvent.Source
+	_EventSource = oObject
+	sArray = Split(Utils._getUNOTypeName(poEvent), &quot;.&quot;)
+	_EventType = UCase(sArray(UBound(sArray)))
+	If Utils._hasUNOProperty(poEvent, &quot;EventName&quot;) Then _EventName = poEvent.EventName
+
+	Select Case _EventType
+		Case &quot;DOCUMENTEVENT&quot;
+			&apos;SubComponent processing
+			Select Case UCase(_EventName)
+				Case UCase(&quot;OnSubComponentClosed&quot;), UCase(&quot;OnSubComponentOpened&quot;)
+					Set oSelection = poEvent.ViewController.getSelection()(0)
+					_SubComponentName = oSelection.Name
+					With  com.sun.star.sdb.application.DatabaseObject
+						Select Case oSelection.Type
+							Case .TABLE		:	_SubComponentType = acTable
+							Case .QUERY		:	_SubComponentType = acQuery
+							Case .FORM		:	_SubComponentType = acForm
+							Case .REPORT	:	_SubComponentType = acReport
+							Case Else
+						End Select
+					End With
+				Case Else
+			End Select
+		Case &quot;EVENTOBJECT&quot;
+		Case &quot;ACTIONEVENT&quot;
+		Case &quot;FOCUSEVENT&quot;
+			_FocusChangeTemporary = poEvent.Temporary
+		Case &quot;ITEMEVENT&quot;
+		Case &quot;INPUTEVENT&quot;, &quot;KEYEVENT&quot;
+			_KeyCode		= poEvent.KeyCode
+			_KeyChar		= poEvent.KeyChar
+			_KeyFunction	= poEvent.KeyFunc
+			_KeyAlt			= Utils._BitShift(poEvent.Modifiers, com.sun.star.awt.KeyModifier.MOD2)
+			_KeyCtrl		= Utils._BitShift(poEvent.Modifiers, com.sun.star.awt.KeyModifier.MOD1)
+			_KeyShift		= Utils._BitShift(poEvent.Modifiers, com.sun.star.awt.KeyModifier.SHIFT)
+		Case &quot;MOUSEEVENT&quot;
+			_ButtonLeft		=	Utils._BitShift(poEvent.Buttons, com.sun.star.awt.MouseButton.LEFT)
+			_ButtonRight	=	Utils._BitShift(poEvent.Buttons, com.sun.star.awt.MouseButton.RIGHT)
+			_ButtonMiddle	=	Utils._BitShift(poEvent.Buttons, com.sun.star.awt.MouseButton.MIDDLE)
+			_XPos = poEvent.X
+			_YPos = poEvent.Y
+			_ClickCount = poEvent.ClickCount
+		Case &quot;ROWCHANGEEVENT&quot;
+			_RowChangeAction = poEvent.Action
+		Case &quot;TEXTEVENT&quot;
+		Case &quot;ADJUSTMENTEVENT&quot;, &quot;DOCKINGEVENT&quot;, &quot;ENDDOCKINGEVENT&quot;, &quot;ENDPOPUPMODEEVENT&quot;, &quot;ENHANCEDMOUSEEVENT&quot; _
+				, &quot;MENUEVENT&quot;, &quot;PAINTEVENT&quot;, &quot;SPINEVENT&quot;, &quot;VCLCONTAINEREVENT&quot;, &quot;WINDOWEVENT&quot;
+			Goto Exit_Function
+		Case Else
+			Goto Exit_Function
+	End Select
+
+	&apos;	Evaluate ContextShortcut
+	sShortcut = &quot;&quot;
+	sImplementation = Utils._ImplementationName(oObject)
+	
+	Select Case True
+		Case sImplementation = &quot;stardiv.Toolkit.UnoDialogControl&quot;			&apos;	Dialog
+			_ContextShortcut = &quot;Dialogs!&quot; &amp; _EventSource.Model.Name
+			Goto Exit_Function
+		Case Left(sImplementation, 16) = &quot;stardiv.Toolkit.&quot;					&apos;	Control in Dialog
+			_ContextShortcut = &quot;Dialogs!&quot; &amp; _EventSource.Context.Model.Name _
+								&amp; &quot;!&quot; &amp; _EventSource.Model.Name
+			Goto Exit_Function
+		Case Else
+	End Select
+	
+	iCurrentDoc = _A2B_.CurrentDocIndex(, False)
+	If iCurrentDoc &lt; 0 Then Goto Exit_Function
+	Set oDoc = _A2B_.CurrentDocument(iCurrentDoc)
+
+	&apos;	To manage 2x triggers of &quot;Before record action&quot; form event
+	If _EventType = &quot;ROWCHANGEEVENT&quot; And sImplementation &lt;&gt; &quot;com.sun.star.comp.forms.ODatabaseForm&quot; Then _Recommendation = &quot;IGNORE&quot;
+
+	Do While sImplementation &lt;&gt; &quot;SwXTextDocument&quot;
+		sAddShortcut = &quot;&quot;
+		Select Case sImplementation
+			Case &quot;com.sun.star.comp.forms.OFormsCollection&quot;			&apos;	Do nothing
+			Case Else
+				If Utils._hasUNOProperty(oObject, &quot;Model&quot;) Then
+					If oObject.Model.Name &lt;&gt; &quot;MainForm&quot; And oObject.Model.Name &lt;&gt; &quot;Form&quot; Then sAddShortcut = Utils._Surround(oObject.Model.Name)
+				ElseIf Utils._hasUNOProperty(oObject, &quot;Name&quot;) Then
+					If oObject.Name &lt;&gt; &quot;MainForm&quot; And  oObject.Name &lt;&gt; &quot;Form&quot; Then sAddShortcut = Utils._Surround(oObject.Name)
+				End If
+				If sAddShortcut &lt;&gt; &quot;&quot; Then
+					If sImplementation = cstDatabaseForm And oDoc.DbConnect = DBCONNECTBASE Then sAddShortcut = sAddShortcut &amp; &quot;.Form&quot;
+					sShortcut = sAddShortcut &amp; Iif(Len(sShortcut) &gt; 0, &quot;!&quot; &amp; sShortcut, &quot;&quot;)
+				End If
+		End Select
+		Select Case True
+			Case Utils._hasUNOProperty(oObject, &quot;Model&quot;)
+				Set oObject = oObject.Model.Parent
+			Case Utils._hasUNOProperty(oObject, &quot;Parent&quot;)
+				Set oObject = oObject.Parent
+			Case Else
+				Goto Exit_Function
+		End Select
+		sImplementation = Utils._ImplementationName(oObject)
+	Loop
+	&apos;	Add Forms! prefix
+	Select Case oDoc.DbConnect
+		Case DBCONNECTBASE
+			vPersistent = Split(oObject.StringValue, &quot;/&quot;)
+			sAddShortcut = Utils._Surround(_GetHierarchicalName(vPersistent(UBound(vPersistent) - 1)))
+			sShortcut = &quot;Forms!&quot; &amp; sAddShortcut &amp; &quot;!&quot; &amp; sShortcut
+		Case DBCONNECTFORM
+			sShortcut = &quot;Forms!0!&quot; &amp; sShortcut
+	End Select
+
+	sArray = Split(sShortcut, &quot;!&quot;)
+	&apos;	If presence of &quot;Forms!myform!myform.Form&quot;, eliminate 2nd element
+	&apos;	Eliminate anyway blanco subcomponents (e.g. Forms!!myForm)
+	If UBound(sArray) &gt;= 2 Then
+		If UCase(sArray(1)) &amp; &quot;.FORM&quot; = UCase(sArray(2)) Then sArray(1) = &quot;&quot;
+		sArray = Utils._TrimArray(sArray)
+	End If
+	&apos;	If first element ends with .Form, remove suffix
+	If UBound(sArray) &gt;= 1 Then
+		If Len(sArray(1)) &gt; 5 And Right(sArray(1), 5) = &quot;.Form&quot; Then sArray(1) = left(sArray(1), Len(sArray(1)) - 5)
+		sShortcut = Join(sArray, &quot;!&quot;)
+	End If
+	If Len(sShortcut) &gt;= 2 Then
+		If Right(sShortcut, 1) = &quot;!&quot; Then
+			_ContextShortcut = Left(sShortcut, Len(sShortcut) - 1)
+		Else
+			_ContextShortcut = sShortcut
+		End If
+	End If
+
+Exit_Function:
+	Exit Sub			
+Error_Function:
+	TraceError(TRACEWARNING, Err, &quot;Event.Initialize&quot;, Erl)
+	GoTo Exit_Function
+End Sub			&apos;	_Initialize		V0.9.1
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertiesList() As Variant
+
+Dim sSubComponentName As String, sSubComponentType As String
+	sSubComponentName = Iif(_SubComponentType &gt; -1, &quot;SubComponentName&quot;, &quot;&quot;)
+	sSubComponentType = Iif(_SubComponentType &gt; -1, &quot;SubComponentType&quot;, &quot;&quot;)
+Dim sXPos As String, sYPos As String
+	sXPos = Iif(IsNull(_XPos), &quot;&quot;, &quot;XPos&quot;)
+	sYPos = Iif(IsNull(_YPos), &quot;&quot;, &quot;YPos&quot;)
+
+	_PropertiesList = Utils._TrimArray(Array( _
+										&quot;ButtonLeft&quot;, &quot;ButtonRight&quot;, &quot;ButtonMiddle&quot;, &quot;ClickCount&quot; _
+										, &quot;ContextShortcut&quot;, &quot;EventName&quot;, &quot;EventType&quot;, &quot;FocusChangeTemporary&quot;,  _
+										, &quot;KeyAlt&quot;, &quot;KeyChar&quot;, &quot;KeyCode&quot;, &quot;KeyCtrl&quot;, &quot;KeyFunction&quot;, &quot;KeyShift&quot; _
+										, &quot;ObjectType&quot;, &quot;Recommendation&quot;, &quot;RowChangeAction&quot;, &quot;Source&quot; _
+										, sSubComponentName, sSubComponentType, sXPos, sYPos _
+									))
+
+End Function	&apos;	_PropertiesList
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertyGet(ByVal psProperty As String) As Variant
+&apos;	Return property value of the psProperty property name
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Utils._SetCalledSub(&quot;Event.get&quot; &amp; psProperty)
+
+	_PropertyGet = EMPTY
+	
+	Select Case UCase(psProperty)
+		Case UCase(&quot;ButtonLeft&quot;)
+			_PropertyGet = _ButtonLeft
+		Case UCase(&quot;ButtonMiddle&quot;)
+			_PropertyGet = _ButtonMiddle
+		Case UCase(&quot;ButtonRight&quot;)
+			_PropertyGet = _ButtonRight
+		Case UCase(&quot;ClickCount&quot;)
+			_PropertyGet = _ClickCount
+		Case UCase(&quot;ContextShortcut&quot;)
+			_PropertyGet = _ContextShortcut
+		Case UCase(&quot;FocusChangeTemporary&quot;)
+			_PropertyGet = _FocusChangeTemporary
+		Case UCase(&quot;EventName&quot;)
+			_PropertyGet = _EventName
+		Case UCase(&quot;EventSource&quot;)
+			_PropertyGet = _EventSource
+		Case UCase(&quot;EventType&quot;)
+			_PropertyGet = _EventType
+		Case UCase(&quot;KeyAlt&quot;)
+			_PropertyGet = _KeyAlt
+		Case UCase(&quot;KeyChar&quot;)
+			_PropertyGet = _KeyChar
+		Case UCase(&quot;KeyCode&quot;)
+			_PropertyGet = _KeyCode
+		Case UCase(&quot;KeyCtrl&quot;)
+			_PropertyGet = _KeyCtrl
+		Case UCase(&quot;KeyFunction&quot;)
+			_PropertyGet = _KeyFunction
+		Case UCase(&quot;KeyShift&quot;)
+			_PropertyGet = _KeyShift
+		Case UCase(&quot;ObjectType&quot;)
+			_PropertyGet = _Type
+		Case UCase(&quot;Recommendation&quot;)
+			_PropertyGet = _Recommendation
+		Case UCase(&quot;RowChangeAction&quot;)
+			_PropertyGet = _RowChangeAction
+		Case UCase(&quot;Source&quot;)
+			If _ContextShortcut = &quot;&quot; Then
+				_PropertyGet = _EventSource
+			Else
+				_PropertyGet = getObject(_ContextShortcut)
+			End If
+		Case UCase(&quot;SubComponentName&quot;)
+			_PropertyGet = _SubComponentName
+		Case UCase(&quot;SubComponentType&quot;)
+			_PropertyGet = _SubComponentType
+		Case UCase(&quot;XPos&quot;)
+			If IsNull(_XPos) Then Goto Trace_Error
+			_PropertyGet = _XPos
+		Case UCase(&quot;YPos&quot;)
+			If IsNull(_YPos) Then Goto Trace_Error
+			_PropertyGet = _YPos
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;Event.get&quot; &amp; psProperty)
+	Exit Function
+Trace_Error:
+	&apos;	Errors are not displayed to avoid display infinite cycling
+	TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, False, psProperty)
+	_PropertyGet = EMPTY
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;Event._PropertyGet&quot;, Erl)
+	_PropertyGet = EMPTY
+	GoTo Exit_Function
+End Function		&apos;	_PropertyGet	V1.1.0
+
+</script:module>

server/libreoffice/share/basic/Access2Base/Methods.xba

@@ -0,0 +1,300 @@
+<?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="Methods" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function AddItem(Optional pvBox As Variant, ByVal Optional pvItem As Variant, ByVal Optional pvIndex) As Boolean
+&apos;	Add an item in a Listbox
+
+	Utils._SetCalledSub(&quot;AddItem&quot;)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	
+	If IsMissing(pvBox) Or IsMissing(pvItem) Then Call _TraceArguments()
+	If IsMissing(pvIndex) Then pvIndex = -1
+	If Not Utils._CheckArgument(pvBox, 1, Array(CTLLISTBOX, CTLCOMBOBOX)) Then Goto Exit_Function
+
+	AddItem = pvBox.AddItem(pvItem, pvIndex)
+
+Exit_Function:
+	Utils._ResetCalledSub(&quot;AddItem&quot;)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;AddItem&quot;, Erl)
+	AddItem = False
+	GoTo Exit_Function
+End Function		&apos;	AddItem		V0.9.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(Optional pvObject As Variant, ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if pvObject has a valid property called pvProperty (case-insensitive comparison !)
+
+Dim vPropertiesList As Variant
+
+	Utils._SetCalledSub(&quot;hasProperty&quot;)
+	If IsMissing(pvObject) Or IsMissing(pvProperty) Then Call _TraceArguments()
+	
+	hasProperty = False
+	If Not Utils._CheckArgument(pvObject, 1, Array(OBJCOLLECTION, OBJFORM, OBJSUBFORM, OBJCONTROL, OBJOPTIONGROUP, OBJEVENT _
+						, OBJPROPERTY, OBJDATABASE, OBJQUERYDEF, OBJTABLEDEF, OBJRECORDSET _
+						)) Then Goto Exit_Function
+	If Not Utils._CheckArgument(pvProperty, 2, vbString) Then Goto Exit_Function
+	
+	hasProperty = pvObject.hasProperty(pvProperty)
+
+Exit_Function:
+	Utils._ResetCalledSub(&quot;hasProperty&quot;)
+	Exit Function
+End Function	&apos;	hasProperty		V0.9.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Move(Optional pvObject As Object _
+						, ByVal Optional pvLeft As Variant _
+						, ByVal Optional pvTop As Variant _
+						, ByVal Optional pvWidth As Variant _
+						, ByVal Optional pvHeight As Variant _
+						) As Variant
+&apos;	Execute Move method
+	Utils._SetCalledSub(&quot;Move&quot;)
+	If IsMissing(pvObject) Then Call _TraceArguments()
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Move = False
+	If Not Utils._CheckArgument(pvObject,	1, Array(OBJFORM, OBJDIALOG)) Then Goto Exit_Function	
+	If IsMissing(pvLeft) Then Call _TraceArguments()
+	If IsMissing(pvTop) Then pvTop = -1
+	If IsMissing(pvWidth) Then pvWidth = -1
+	If IsMissing(pvHeight) Then pvHeight = -1
+
+	Move = pvObject.Move(pvLeft, pvTop, pvWidth, pvHeight)
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;Move&quot;)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;Move&quot;, Erl)
+	GoTo Exit_Function
+End Function		&apos;	Move	V.0.9.1
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function OpenHelpFile()
+&apos;	Open the help file from the Help menu (IDE only)
+Const cstHelpFile = &quot;http://www.access2base.com/access2base.html&quot;
+
+	On Local Error Resume Next
+	Call _ShellExecute(cstHelpFile)
+	
+End Function	&apos;	OpenHelpFile	V0.8.5
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(Optional pvObject As Variant, ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperties As Variant, oCounter As Variant, opProperty As Variant
+Dim vPropertiesList() As Variant
+	
+	If IsMissing(pvObject) Or IsEmpty(pvObject) Then Call _TraceArguments()
+	Utils._SetCalledSub(&quot;Properties&quot;)
+	
+	Set vProperties = Nothing
+	If Not Utils._CheckArgument(pvObject, 1, Array(OBJCOLLECTION, OBJFORM, OBJSUBFORM, OBJCONTROL, OBJOPTIONGROUP, OBJEVENT _
+						, OBJPROPERTY, OBJDATABASE, OBJQUERYDEF, OBJTABLEDEF, OBJRECORDSET _
+						)) Then Goto Exit_Function
+
+	If IsMissing(pvIndex) Then vProperties = pvObject.Properties Else vProperties = pvObject.Properties(pvIndex)
+				
+Exit_Function:
+	Set Properties = vProperties
+	Utils._ResetCalledSub(&quot;Properties&quot;)
+	Exit Function
+End Function		&apos;	Properties	V0.9.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Refresh(Optional pvObject As Variant) As Boolean
+&apos;	Refresh data with its most recent value in the database in a form or subform
+	Utils._SetCalledSub(&quot;Refresh&quot;)
+	If IsMissing(pvObject) Then Call _TraceArguments()
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Refresh = False
+	If Not Utils._CheckArgument(pvObject, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
+
+	Refresh = pvObject.Refresh()
+
+Exit_Function:
+	Utils._ResetCalledSub(&quot;Refresh&quot;)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;Refresh&quot;, Erl)
+	GoTo Exit_Function
+End Function	&apos;	Refresh		V0.9.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function RemoveItem(Optional pvBox As Variant,ByVal Optional pvIndex) As Boolean
+&apos;	Remove an item from a Listbox
+&apos;	Index may be a string value or an index-position
+
+	Utils._SetCalledSub(&quot;RemoveItem&quot;)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	
+	If IsMissing(pvBox) Or IsMissing(pvIndex) Then Call _TraceArguments()
+	If Not Utils._CheckArgument(pvBox, 1, Array(CTLLISTBOX, CTLCOMBOBOX)) Then Goto Exit_Function
+	
+	RemoveItem = pvBox.RemoveItem(pvIndex)
+
+Exit_Function:
+	Utils._ResetCalledSub(&quot;RemoveItem&quot;)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;RemoveItem&quot;, Erl)
+	RemoveItem = False
+	GoTo Exit_Function
+End Function		&apos;	RemoveItem		V0.9.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Requery(Optional pvObject As Variant) As Boolean
+&apos;	Refresh data displayed in a form, subform, combobox or listbox
+	Utils._SetCalledSub(&quot;Requery&quot;)
+	If IsMissing(pvObject) Then Call _TraceArguments()
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	If Not Utils._CheckArgument(pvObject, 1, Array(OBJFORM, OBJCONTROL, OBJSUBFORM)) Then Goto Exit_Function
+	
+	Requery = pvObject.Requery()
+
+Exit_Function:
+	Utils._ResetCalledSub(&quot;Requery&quot;)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;Requery&quot;, Erl)
+	GoTo Exit_Function
+End Function	&apos;	Requery		V0.9.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function SetFocus(Optional pvObject As Variant) As Boolean
+&apos;	Execute SetFocus method
+	Utils._SetCalledSub(&quot;setFocus&quot;)
+	If IsMissing(pvObject) Then Call _TraceArguments()
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	If Not Utils._CheckArgument(pvObject, 1, Array(OBJFORM, OBJCONTROL)) Then Goto Exit_Function	
+
+	SetFocus = pvObject.setFocus()
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;SetFocus&quot;)
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;SetFocus&quot;, Erl)
+	Goto Exit_Function
+Error_Grid:
+	TraceError(TRACEFATAL, ERRFOCUSINGRID, Utils._CalledSub(), 0, 1, Array(pvObject._Name, ocGrid._Name))
+	Goto Exit_Function
+End Function	&apos;	SetFocus	V0.9.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function _OptionGroup(ByVal pvGroupName As Variant _
+					, ByVal psParentType As String _
+					, poComponent As Object _
+					, poParent As Object _
+					) As Variant
+&apos;	Return either an error or an object of type OPTIONGROUP based on its name
+
+	If IsMissing(pvGroupName) Then Call _TraceArguments()
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Set _OptionGroup = Nothing
+	
+	If Not Utils._CheckArgument(pvGroupName, 1, vbString) Then Goto Exit_Function
+
+Dim ogGroup As Variant, i As Integer, j As Integer, bFound As Boolean
+Dim vOptionButtons() As Variant, sGroupName As String
+Dim lXY() As Long, iIndex() As Integer		&apos;	Two indexes X-Y coordinates
+Dim oView As Object, oDatabaseForm As Object, vControls As Variant
+
+Const cstPixels = 10							&apos;	Tolerance on coordinates when drawn approximately
+
+	bFound = False
+	Select Case psParentType
+		Case CTLPARENTISFORM
+			&apos;poParent is a forms collection, find the appropriate database form
+			For i = 0 To poParent.Count - 1
+				Set oDatabaseForm = poParent.getByIndex(i)
+				If Not IsNull(oDatabaseForm) Then
+					For j = 0 To oDatabaseForm.GroupCount - 1		&apos;	Does a group with the right name exist ?
+						oDatabaseForm.getGroup(j, vOptionButtons, sGroupName)
+						If UCase(sGroupName) = UCase(Utils._Trim(pvGroupName)) Then
+							bFound = True
+							Exit For
+						End If
+					Next j
+					If bFound Then Exit For
+				End If
+				If bFound Then Exit For
+			Next i
+		Case CTLPARENTISSUBFORM
+			&apos;poParent is already a database form
+			Set oDatabaseForm = poParent
+			For j = 0 To oDatabaseForm.GroupCount - 1		&apos;	Does a group with the right name exist ?
+				oDatabaseForm.getGroup(j, vOptionButtons, sGroupName)
+				If UCase(sGroupName) = UCase(Utils._Trim(pvGroupName)) Then
+					bFound = True
+					Exit For
+				End If
+			Next j
+	End Select
+
+	If bFound Then
+
+		ogGroup = New Optiongroup
+		ogGroup._This = ogGroup
+		ogGroup._Name = sGroupName
+		ogGroup._ButtonsGroup = vOptionButtons
+		ogGroup._Count = UBound(vOptionButtons) + 1
+		ogGroup._ParentType = psParentType
+		ogGroup._MainForm = oDatabaseForm.Name
+		Set ogGroup._ParentComponent = poComponent
+
+		ReDim lXY(1, ogGroup._Count - 1)
+		ReDim iIndex(ogGroup._Count - 1)
+		For i = 0 To ogGroup._Count - 1			&apos;	Find the position of each radiobutton
+			Set oView = poComponent.CurrentController.getControl(ogGroup._ButtonsGroup(i))
+			lXY(0, i) = oView.PosSize.X
+			lXY(1, i) = oView.PosSize.Y
+		Next i
+		For i = 0 To ogGroup._Count - 1			&apos;	Sort them on XY coordinates		
+			If i = 0 Then
+				iIndex(0) = 0
+			Else
+				iIndex(i) = i
+				For j = i - 1 To 0 Step -1
+					If lXY(1, i) - lXY(1, j) &lt; - cstPixels Or ( Abs(lXY(1, i) - lXY(1, j)) &lt;= cstPixels And lXY(0, i) - lXY(0, j) &lt; - cstPixels ) Then
+						iIndex(i) = iIndex(j)
+						iIndex(j) = iIndex(j) + 1
+					End If
+				Next j
+			End If
+		Next i
+		ogGroup._ButtonsIndex = iIndex()
+
+		Set _OptionGroup = ogGroup
+
+	Else
+
+		Set _OptionGroup = Nothing
+		TraceError(TRACEFATAL, ERRWRONGARGUMENT, Utils._CalledSub(), 0, , Array(1, pvGroupName))
+
+	End If
+	
+Exit_Function:
+	Exit Function
+Error_Function:
+	TraceError(TRACEABORT, Err,&quot;_OptionGroup&quot;, Erl)
+	GoTo Exit_Function
+End Function		&apos;	_OptionGroup	V1.1.0
+
+</script:module>

server/libreoffice/share/basic/Access2Base/OptionGroup.xba

@@ -0,0 +1,315 @@
+<?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="OptionGroup" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private	_Type					As String				&apos;	Must be FORM
+Private _This					As Object				&apos;	Workaround for absence of This builtin function
+Private _Parent					As Object
+Private	_Name					As String
+Private _ParentType				As String
+Private _ParentComponent		As Object
+Private _MainForm				As String
+Private _DocEntry				As Integer
+Private _DbEntry				As Integer
+Private _ButtonsGroup()			As Variant
+Private _ButtonsIndex()			As Variant
+Private _Count					As Long
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	_Type = OBJOPTIONGROUP
+	Set _This = Nothing
+	Set _Parent = Nothing
+	_Name = &quot;&quot;
+	_ParentType = &quot;&quot;
+	_ParentComponent = Nothing
+	_DocEntry = -1
+	_DbEntry = -1
+	_ButtonsGroup = Array()
+	_ButtonsIndex = Array()
+	_Count = 0
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	On Local Error Resume Next
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Count() As Variant
+	Count = _PropertyGet(&quot;Count&quot;)
+End Property	&apos;	Count (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Name() As String
+	Name = _PropertyGet(&quot;Name&quot;)
+End Property	&apos;	Name (get)
+
+Public Function pName() As String		&apos;	For compatibility with &lt; V0.9.0
+	pName = _PropertyGet(&quot;Name&quot;)
+End Function	&apos;	pName (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property		&apos;	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
+	vPropertiesList = _PropertiesList()
+	sObject = Utils._PCase(_Type)
+	If IsMissing(pvIndex) Then
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
+	Else
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
+		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
+	End If
+	
+Exit_Function:
+	Set Properties = vProperty
+	Exit Function
+End Function	&apos;	Properties
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Value() As Variant
+	Value = _PropertyGet(&quot;Value&quot;)
+End Property	&apos;	Value (get)
+
+Property Let Value(ByVal pvValue As Variant)
+	Call _PropertySet(&quot;Value&quot;, pvValue)
+End Property	&apos;	Value (set)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Controls(Optional ByVal pvIndex As Variant) As Variant
+&apos;	Return a Control object with name or index = pvIndex
+
+If _ErrorHandler() Then On Local Error Goto Error_Function
+	Utils._SetCalledSub(&quot;OptionGroup.Controls&quot;)
+
+Dim ocControl As Variant, iArgNr As Integer, i As Integer
+Dim oCounter As Object
+
+	Set ocControl = Nothing
+	
+	If IsMissing(pvIndex) Then					&apos;	No argument, return Collection object
+		Set oCounter = New Collect
+		Set oCounter._This = oCounter
+		oCounter._CollType = COLLCONTROLS
+		Set oCounter._Parent = _This
+		oCounter._Count = _Count
+		Set Controls = oCounter
+		Goto Exit_Function
+	End If
+	
+	If _IsLeft(_A2B_.CalledSub, &quot;OptionGroup.&quot;) Then iArgNr = 1 Else iArgNr = 2
+	If Not Utils._CheckArgument(pvIndex, iArgNr, Utils._AddNumeric()) Then Goto Exit_Function
+	If pvIndex &lt; 0 Or pvIndex &gt; _Count - 1 Then Goto Trace_Error_Index
+				
+	&apos;	Start building the ocControl object
+	&apos;	Determine exact name
+	Set ocControl = New Control
+	Set ocControl._This = ocControl
+	Set ocControl._Parent = _This
+	ocControl._ParentType = CTLPARENTISGROUP
+	
+	ocControl._Shortcut = &quot;&quot;
+	For i = 0 To _Count - 1
+		If _ButtonsIndex(i) = pvIndex Then
+			Set ocControl.ControlModel = _ButtonsGroup(i)
+			Select Case _ParentType
+				Case CTLPARENTISDIALOG		:	ocControl._Name = _ButtonsGroup(i).Name
+				Case Else					:	ocControl._Name = _Name			&apos;	OptionGroup and individual radio buttons share the same name
+			End Select
+			ocControl._ImplementationName = ocControl.ControlModel.getImplementationName()
+			Exit For
+		End If
+	Next i
+	ocControl._FormComponent = _ParentComponent
+	ocControl._ClassId = acRadioButton
+	Select Case _ParentType
+		Case CTLPARENTISDIALOG		:	Set ocControl.ControlView = _ParentComponent.getControl(ocControl._Name)
+		Case Else					:	Set ocControl.ControlView = _ParentComponent.CurrentController.getControl(ocControl.ControlModel)
+	End Select
+
+	ocControl._Initialize()
+	ocControl._DocEntry = _DocEntry
+	ocControl._DbEntry = _DbEntry
+	Set Controls = ocControl
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;OptionGroup.Controls&quot;)
+	Exit Function
+Trace_Error_Index:
+	TraceError(TRACEFATAL, ERRCOLLECTION, Utils._CalledSub(), 0, 1)
+	Set Controls = Nothing
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;OptionGroup.Controls&quot;, Erl)
+	Set Controls = Nothing
+	GoTo Exit_Function
+End Function		&apos;	Controls
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
+&apos;	Return property value of psProperty property name
+
+	Utils._SetCalledSub(&quot;OptionGroup.getProperty&quot;)
+	If IsMissing(pvProperty) Then Call _TraceArguments()
+	getProperty = _PropertyGet(pvProperty)
+	Utils._ResetCalledSub(&quot;OptionGroup.getProperty&quot;)
+	
+End Function		&apos;	getProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)
+
+	If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
+	Exit Function
+	
+End Function	&apos;	hasProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+&apos;	Return True if property setting OK
+	Utils._SetCalledSub(&quot;OptionGroup.setProperty&quot;)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(&quot;OptionGroup.setProperty&quot;)
+End Function
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertiesList() As Variant
+
+	_PropertiesList =  Array(&quot;Count&quot;, &quot;Name&quot;, &quot;ObjectType&quot;, &quot;Value&quot;)
+	
+End Function	&apos;	_PropertiesList
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertyGet(ByVal psProperty As String) As Variant
+&apos;	Return property value of the psProperty property name
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Utils._SetCalledSub(&quot;OptionGroup.get&quot; &amp; psProperty)
+	
+&apos;Execute
+Dim oDatabase As Object, vBookmark As Variant
+Dim iValue As Integer, i As Integer
+	_PropertyGet = EMPTY
+	Select Case UCase(psProperty)
+		Case UCase(&quot;Count&quot;)
+			_PropertyGet = _Count
+		Case UCase(&quot;Name&quot;)
+			_PropertyGet = _Name
+		Case UCase(&quot;ObjectType&quot;)
+			_PropertyGet = _Type
+		Case UCase(&quot;Value&quot;)
+			iValue = -1
+			For i = 0 To _Count - 1			&apos;	Find the selected RadioButton
+				If _ButtonsGroup(i).State = 1 Then
+					iValue = _ButtonsIndex(i)
+					Exit For
+				End If
+			Next i
+			_PropertyGet = iValue
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;OptionGroup.get&quot; &amp; psProperty)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEWARNING, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertyGet = EMPTY
+	Goto Exit_Function
+Trace_Error_Index:
+	TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertyGet = EMPTY
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;OptionGroup._PropertyGet&quot;, Erl)
+	_PropertyGet = EMPTY
+	GoTo Exit_Function
+End Function		&apos;	_PropertyGet
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertySet(ByVal psProperty As String, ByVal pvValue As Variant) As Boolean
+
+	Utils._SetCalledSub(&quot;OptionGroup.set&quot; &amp; psProperty)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	_PropertySet = True
+
+&apos;Execute
+Dim i As Integer, iRadioIndex As Integer, oModel As Object, iArgNr As Integer
+
+	If _IsLeft(_A2B_.CalledSub, &quot;OptionGroup.&quot;) Then iArgNr = 1 Else iArgNr = 2
+	Select Case UCase(psProperty)
+		Case UCase(&quot;Value&quot;)
+			If Not Utils._CheckArgument(pvValue, iArgNr, Utils._AddNumeric(), , False) Then Goto Trace_Error_Value
+			If pvValue &lt; 0 Or pvValue &gt; _Count - 1 Then Goto Trace_Error_Value
+			For i = 0 To _Count - 1
+				_ButtonsGroup(i).State = 0
+				If _ButtonsIndex(i) = pvValue Then iRadioIndex = i
+			Next i
+			_ButtonsGroup(iRadioIndex).State = 1
+			Set oModel = _ButtonsGroup(iRadioIndex)
+			If Utils._hasUNOProperty(oModel, &quot;DataField&quot;) Then
+				If Not IsNull(oModel.Datafield) And Not IsEmpty(oModel.Datafield) Then
+					If oModel.Datafield &lt;&gt; &quot;&quot; And Utils._hasUNOMethod(oModel, &quot;commit&quot;) Then oModel.commit()	&apos;	f.i. checkboxes have no commit method ?? [PASTIM]
+				End If
+			End If
+		Case Else
+			Goto Trace_Error
+	End Select
+
+Exit_Function:
+	Utils._ResetCalledSub(&quot;OptionGroup.set&quot; &amp; psProperty)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertySet = False
+	Goto Exit_Function
+Trace_Error_Value:
+	TraceError(TRACEFATAL, ERRPROPERTYVALUE, Utils._CalledSub(), 0, 1, Array(pvValue, psProperty))
+	_PropertySet = False
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;OptionGroup._PropertySet&quot;, Erl)
+	_PropertySet = False
+	GoTo Exit_Function
+End Function		&apos;	_PropertySet
+
+</script:module>

server/libreoffice/share/basic/Access2Base/Property.xba

@@ -0,0 +1,152 @@
+<?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="Property" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private _Type			As String		&apos;	Must be PROPERTY
+Private _This			As Object		&apos;	Workaround for absence of This builtin function
+Private _Parent			As Object
+Private _Name			As String
+Private _Value			As Variant
+Private _ParentDatabase	As Object
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	_Type = OBJPROPERTY
+	Set _This = Nothing
+	Set _Parent = Nothing
+	_Name = &quot;&quot;
+	_Value = Null
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	On Local Error Resume Next
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Property Get Name() As String
+	Name = _PropertyGet(&quot;Name&quot;)
+End Property		&apos;	Name (get)
+
+Public Function pName() As String		&apos;	For compatibility with &lt; V0.9.0
+	pName = _PropertyGet(&quot;Name&quot;)
+End Function		&apos;	pName (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property		&apos;	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
+	vPropertiesList = _PropertiesList()
+	sObject = Utils._PCase(_Type)
+	If IsMissing(pvIndex) Then
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
+	Else
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
+		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
+	End If
+	
+Exit_Function:
+	Set Properties = vProperty
+	Exit Function
+End Function	&apos;	Properties
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Value() As Variant
+	Value = _PropertyGet(&quot;Value&quot;)
+End Property		&apos;	Value (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
+&apos;	Return property value of psProperty property name
+
+	Utils._SetCalledSub(&quot;Property.getProperty&quot;)
+	If IsMissing(pvProperty) Then Call _TraceArguments()
+	getProperty = _PropertyGet(pvProperty)
+	Utils._ResetCalledSub(&quot;Property.getProperty&quot;)
+	
+End Function		&apos;	getProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)
+
+	If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
+	Exit Function
+	
+End Function	&apos;	hasProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertiesList() As Variant
+	 _PropertiesList = Array(&quot;Name&quot;, &quot;ObjectType&quot;, &quot;Value&quot;)
+End Function	&apos;	_PropertiesList
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertyGet(ByVal psProperty As String) As Variant
+&apos;	Return property value of the psProperty property name
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Utils._SetCalledSub(&quot;Property.get&quot; &amp; psProperty)
+	_PropertyGet = Nothing
+	
+	Select Case UCase(psProperty)
+		Case UCase(&quot;Name&quot;)
+			_PropertyGet = _Name
+		Case UCase(&quot;ObjectType&quot;)
+			_PropertyGet = _Type
+		Case UCase(&quot;Value&quot;)
+			_PropertyGet = _Value
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;Property.get&quot; &amp; psProperty)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertyGet = Nothing
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;Property._PropertyGet&quot;, Erl)
+	_PropertyGet = Nothing
+	GoTo Exit_Function
+End Function		&apos;	_PropertyGet
+
+</script:module>

server/libreoffice/share/basic/Access2Base/Root_.xba

@@ -0,0 +1,311 @@
+<?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="Root_" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- FOR INTERNAL USE ONLY								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private ErrorHandler		As Boolean
+Private MinimalTraceLevel	As Integer
+Private TraceLogs()			As Variant
+Private TraceLogCount		As Integer
+Private TraceLogLast		As Integer
+Private TraceLogMaxEntries	As Integer
+Private LastErrorCode		As Integer
+Private LastErrorLevel		As String
+Private ErrorText			As String
+Private ErrorLongText		As String
+Private CalledSub			As String
+Private DebugPrintShort		As Boolean
+Private Introspection		As Object				&apos;	com.sun.star.beans.Introspection	
+Private VersionNumber		As String				&apos;	Actual Access2Base version number
+Private Locale				As String
+Private ExcludeA2B			As Boolean
+Private TextSearch			As Object
+Private SearchOptions		As Variant
+Private FindRecord			As Object
+Private StatusBar			As Object
+Private Dialogs				As Object				&apos;	Collection
+Private TempVars			As Object				&apos;	Collection
+Private CurrentDoc()		As Variant				&apos;	Array of document containers - [0] = Base document, [1 ... N] = other documents
+Private PythonCache()		As Variant				&apos;	Array of objects created in Python scripts
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	VersionNumber = Access2Base_Version
+	ErrorHandler = True
+	MinimalTraceLevel = 0
+	TraceLogs() = Array()
+	TraceLogCount = 0
+	TraceLogLast = 0
+	TraceLogMaxEntries = 0
+	LastErrorCode = 0
+	LastErrorLevel = &quot;&quot;
+	ErrorText = &quot;&quot;
+	ErrorLongText = &quot;&quot;
+	CalledSub = &quot;&quot;
+	DebugPrintShort = True
+	Locale = L10N._GetLocale()
+	ExcludeA2B = True
+	Set Introspection = CreateUnoService(&quot;com.sun.star.beans.Introspection&quot;)
+	Set TextSearch = CreateUnoService(&quot;com.sun.star.util.TextSearch&quot;)
+	SearchOptions = New com.sun.star.util.SearchOptions
+	With SearchOptions
+		.algorithmType = com.sun.star.util.SearchAlgorithms.REGEXP
+		.searchFlag = 0
+		.transliterateFlags = com.sun.star.i18n.TransliterationModules.IGNORE_CASE
+	End With
+	Set FindRecord = Nothing
+	Set StatusBar = Nothing
+	Set Dialogs = New Collection
+	Set TempVars = New Collection
+	CurrentDoc = Array()
+	ReDim CurrentDoc(0 To 0)
+	Set CurrentDoc(0) = Nothing
+	PythonCache = Array()
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function AddPython(ByRef pvObject As Variant) As Long
+&apos;	Store the object as a new entry in PythonCache and return its entry number
+
+Dim lVars As Long, vObject As Variant
+
+	lVars = UBound(PythonCache) + 1
+	ReDim Preserve PythonCache(0 To lVars)
+	PythonCache(lVars) = pvObject
+
+	AddPython = lVars
+
+End Function	&apos;	AddPython V6.4
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub CloseConnection()
+&apos;	Close all connections established by current document to free memory.
+&apos;	- if Base document =&gt; close the one concerned database connection
+&apos;	- if non-Base documents =&gt; close the connections of each individual standalone form
+
+Dim i As Integer, iCurrentDoc As Integer
+Dim vDbContainer As Variant, vDbContainers() As Variant, vDocContainer As Variant
+
+	If ErrorHandler Then On Local Error Goto Error_Sub
+
+	If Not IsArray(CurrentDoc) Then Goto Exit_Sub
+	If UBound(CurrentDoc) &lt; 0 Then Goto Exit_Sub
+	iCurrentDoc = CurrentDocIndex( , False)			&apos;	False prevents error raising if not found
+	If iCurrentDoc &lt; 0 Then GoTo Exit_Sub			&apos;	If not found ignore
+	
+	vDocContainer = CurrentDocument(iCurrentDoc)
+	With vDocContainer
+		If Not .Active Then GoTo Exit_Sub		&apos;	e.g. if multiple calls to CloseConnection()
+		For i = 0 To UBound(.DbContainers)
+			If Not IsNull(.DbContainers(i).Database) Then
+				.DbContainers(i).Database.Dispose()
+				Set .DbContainers(i).Database = Nothing
+			End If
+			TraceLog(TRACEANY, UCase(CalledSub) &amp; &quot; &quot; &amp; .URL &amp; Iif(i = 0, &quot;&quot;, &quot; Form=&quot; &amp; .DbContainers(i).FormName), False)
+			Set .DbContainers(i) = Nothing
+		Next i
+		.DbContainers = Array()
+		.URL = &quot;&quot;
+		.DbConnect = 0
+		.Active = False
+		Set .Document = Nothing
+	End With
+	CurrentDoc(iCurrentDoc) = vDocContainer
+	
+Exit_Sub:
+	Exit Sub
+Error_Sub:
+	TraceError(TRACEABORT, Err, CalledSub, Erl, False)		&apos;	No error message addressed to the user, only stored in console
+	GoTo Exit_Sub
+End Sub			&apos;	CloseConnection
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function CurrentDb() As Object
+&apos;	Returns _A2B_.CurrentDocument().Database as an object to allow access to its properties
+
+Dim iCurrentDoc As Integer
+
+	Set CurrentDb = Nothing
+
+	If Not IsArray(CurrentDoc) Then Goto Exit_Function
+	If UBound(CurrentDoc) &lt; 0 Then Goto Exit_Function
+	iCurrentDoc = CurrentDocIndex(, False)		&apos;	False = no abort
+	If iCurrentDoc &gt;= 0 Then
+		If UBound(CurrentDoc(iCurrentDoc).DbContainers) &gt;= 0 Then Set CurrentDb = CurrentDoc(iCurrentDoc).DbContainers(0).Database
+	End If
+
+Exit_Function:
+	Exit Function
+End Function	&apos;	CurrentDb
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function CurrentDocIndex(Optional pvURL As Variant, Optional pbAbort As Variant) As Integer
+&apos;	Returns the entry in CurrentDoc(...) referring to the current document
+
+Dim i As Integer, bFound As Boolean, sURL As String
+Const cstBase = &quot;com.sun.star.comp.dba.ODatabaseDocument&quot;
+
+	bFound = False
+	CurrentDocIndex = -1
+
+	If Not IsArray(CurrentDoc) Then Goto Trace_Error
+	If UBound(CurrentDoc) &lt; 0 Then Goto Trace_Error
+	For i = 1 To UBound(CurrentDoc)					&apos;	[0] reserved to database .odb document
+		If IsMissing(pvURL) Then						&apos;	Not on 1 single line ?!?
+			If Utils._hasUNOProperty(ThisComponent, &quot;URL&quot;) Then
+				sURL = ThisComponent.URL
+			Else
+				Exit For	&apos;	f.i. ThisComponent = Basic IDE ...
+			End If
+		Else
+			sURL = pvURL	&apos;	To support the SelectObject action
+		End If
+		If CurrentDoc(i).Active And CurrentDoc(i).URL = sURL Then
+			CurrentDocIndex = i
+			bFound = True
+			Exit For
+		End If
+	Next  i
+
+	If Not bFound Then
+		If IsNull(CurrentDoc(0)) Then GoTo Trace_Error
+		With CurrentDoc(0)
+			If Not .Active Then GoTo Trace_Error
+			If IsNull(.Document) Then GoTo Trace_Error
+		End With
+		CurrentDocIndex = 0
+	End If
+
+Exit_Function:
+	Exit Function
+Trace_Error:
+	If IsMissing(pbAbort) Then pbAbort = True
+	If pbAbort Then TraceError(TRACEABORT, ERRDBNOTCONNECTED, Utils._CalledSub(), 0, 1) Else CurrentDocIndex = -1
+	Goto Exit_Function
+End Function	&apos;	CurrentDocIndex
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function CurrentDocument(ByVal Optional piDocIndex As Integer) As Variant
+&apos;	Returns the CurrentDoc(...) referring to the current document or to the argument
+
+Dim iDocIndex As Integer
+	If IsMissing(piDocIndex) Then iDocIndex = CurrentDocIndex(, False) Else iDocIndex = piDocIndex
+	If iDocIndex &gt;= 0 And iDocIndex &lt;= UBound(CurrentDoc) Then Set CurrentDocument = CurrentDoc(iDocIndex) Else Set CurrentDocument = Nothing
+
+End Function
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dump()
+&apos;	For debugging purposes
+Dim i As Integer, j As Integer, vCurrentDoc As Variant
+	On Local Error Resume Next
+
+	DebugPrint &quot;Version&quot;, VersionNumber
+	DebugPrint &quot;TraceLevel&quot;, MinimalTraceLevel
+	DebugPrint &quot;TraceCount&quot;, TraceLogCount
+	DebugPrint &quot;CalledSub&quot;, CalledSub
+	If IsArray(CurrentDoc) Then
+		For i = 0 To UBound(CurrentDoc)
+			vCurrentDoc = CurrentDoc(i)
+			If Not IsNull(vCurrentDoc) Then
+				DebugPrint i, &quot;URL&quot;, vCurrentDoc.URL
+				For j = 0 To UBound(vCurrentDoc.DbContainers)
+					DebugPrint i, j, &quot;Form&quot;, vCurrentDoc.DbContainers(j).FormName
+					DebugPrint i, j, &quot;Database&quot;, vCurrentDoc.DbContainers(j).Database.Title
+				Next j
+			End If
+		Next i
+	End If
+
+End Sub
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasItem(psCollType As String, ByVal psName As String) As Boolean
+&apos;	Return True if psName if in the collection
+
+Dim oItem As Object
+	On Local Error Goto Error_Function		&apos;	Whatever ErrorHandler !
+
+	hasItem = True
+	Select Case psCollType
+		Case COLLALLDIALOGS
+			Set oItem = Dialogs.Item(UCase(psName))
+		Case COLLTEMPVARS
+			Set oItem = TempVars.Item(UCase(psName))
+		Case Else
+			hasItem = False
+	End Select
+
+Exit_Function:
+	Exit Function
+Error_Function:		&apos;	Item by key aborted
+	hasItem = False
+	GoTo Exit_Function
+End Function	&apos;	hasItem
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function _CurrentDb(ByVal Optional piDocEntry As Integer, ByVal Optional piDbEntry As Integer) As Variant
+REM Without arguments same as CurrentDb() except that it generates an error if database not connected (internal use)
+REM With 2 arguments return the corresponding entry in Root
+
+Dim odbDatabase As Variant
+	If IsMissing(piDocEntry) Then
+		Set odbDatabase = CurrentDb()
+	Else
+		If Not IsArray(CurrentDoc) Then Goto Trace_Error
+		If piDocEntry &lt; 0 Or piDbEntry &lt; 0 Then Goto Trace_Error
+		If piDocEntry &gt; UBound(CurrentDoc) Then Goto Trace_Error
+		If piDbEntry &gt; UBound(CurrentDoc(piDocEntry).DbContainers) Then Goto Trace_Error
+		Set odbDatabase = CurrentDoc(piDocEntry).DbContainers(piDbEntry).Database
+	End If
+	If IsNull(odbDatabase) Then GoTo Trace_Error
+
+Exit_Function:
+	Set _CurrentDb = odbDatabase
+	Exit Function	
+Trace_Error:
+	TraceError(TRACEABORT, ERRDBNOTCONNECTED, Utils._CalledSub(), 0, 1)
+	Goto Exit_Function
+End Function		&apos;	_CurrentDb
+
+</script:module>

server/libreoffice/share/basic/Access2Base/TempVar.xba

@@ -0,0 +1,195 @@
+<?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="TempVar" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Compatible
+Option ClassModule
+
+Option Explicit
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS ROOT FIELDS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private _Type			As String		&apos;	Must be TEMPVAR
+Private _This			As Object		&apos;	Workaround for absence of This builtin function
+Private _Parent			As Object
+Private _Name			As String
+Private _Value			As Variant
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CONSTRUCTORS / DESTRUCTORS						        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Initialize()
+	_Type = OBJTEMPVAR
+	Set _This = Nothing
+	Set _Parent = Nothing
+	_Name = &quot;&quot;
+	_Value = Null
+End Sub		&apos;	Constructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Sub Class_Terminate()
+	On Local Error Resume Next
+	Call Class_Initialize()
+End Sub		&apos;	Destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub Dispose()
+	Call Class_Terminate()
+End Sub		&apos;	Explicit destructor
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS GET/LET/SET PROPERTIES					        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Property Get Name() As String
+	Name = _PropertyGet(&quot;Name&quot;)
+End Property		&apos;	Name (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get ObjectType() As String
+	ObjectType = _PropertyGet(&quot;ObjectType&quot;)
+End Property		&apos;	ObjectType (get)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Property Get Value() As Variant
+	Value = _PropertyGet(&quot;Value&quot;)
+End Property		&apos;	Value (get)
+
+Property Let Value(ByVal pvValue As Variant)
+	Call _PropertySet(&quot;Value&quot;, pvValue)
+End Property		&apos;	Value (set)
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- CLASS METHODS	 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Public Function getProperty(Optional ByVal pvProperty As Variant) As Variant
+&apos;	Return property value of psProperty property name
+
+	Utils._SetCalledSub(&quot;TempVar.getProperty&quot;)
+	If IsMissing(pvProperty) Then Call _TraceArguments()
+	getProperty = _PropertyGet(pvProperty)
+	Utils._ResetCalledSub(&quot;TempVar.getProperty&quot;)
+	
+End Function		&apos;	getProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function hasProperty(ByVal Optional pvProperty As Variant) As Boolean
+&apos;	Return True if object has a valid property called pvProperty (case-insensitive comparison !)
+
+	If IsMissing(pvProperty) Then hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList()) Else hasProperty = PropertiesGet._hasProperty(_Type, _PropertiesList(), pvProperty)
+	Exit Function
+	
+End Function	&apos;	hasProperty
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function Properties(ByVal Optional pvIndex As Variant) As Variant
+&apos;	Return
+&apos;		a Collection object if pvIndex absent
+&apos;		a Property object otherwise
+
+Dim vProperty As Variant, vPropertiesList() As Variant, sObject As String
+	vPropertiesList = _PropertiesList()
+	sObject = Utils._PCase(_Type)
+	If IsMissing(pvIndex) Then
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList)
+	Else
+		vProperty = PropertiesGet._Properties(sObject, _This, vPropertiesList, pvIndex)
+		vProperty._Value = _PropertyGet(vPropertiesList(pvIndex))
+	End If
+	
+Exit_Function:
+	Set Properties = vProperty
+	Exit Function
+End Function	&apos;	Properties
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function setProperty(ByVal Optional psProperty As String, ByVal Optional pvValue As Variant) As Boolean
+&apos;	Return True if property setting OK
+	Utils._SetCalledSub(&quot;TempVar.getProperty&quot;)
+	setProperty = _PropertySet(psProperty, pvValue)
+	Utils._ResetCalledSub(&quot;TempVar.getProperty&quot;)
+End Function
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertiesList() As Variant
+	 _PropertiesList = Array(&quot;Name&quot;, &quot;ObjectType&quot;, &quot;Value&quot;)
+End Function	&apos;	_PropertiesList
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertyGet(ByVal psProperty As String) As Variant
+&apos;	Return property value of the psProperty property name
+
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	Utils._SetCalledSub(&quot;TempVar.get&quot; &amp; psProperty)
+	_PropertyGet = Nothing
+	
+	Select Case UCase(psProperty)
+		Case UCase(&quot;Name&quot;)
+			_PropertyGet = _Name
+		Case UCase(&quot;ObjectType&quot;)
+			_PropertyGet = _Type
+		Case UCase(&quot;Value&quot;)
+			_PropertyGet = _Value
+		Case Else
+			Goto Trace_Error
+	End Select
+	
+Exit_Function:
+	Utils._ResetCalledSub(&quot;TempVar.get&quot; &amp; psProperty)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertyGet = Nothing
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;TempVar._PropertyGet&quot;, Erl)
+	_PropertyGet = Nothing
+	GoTo Exit_Function
+End Function		&apos;	_PropertyGet
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _PropertySet(ByVal psProperty As String, ByVal pvValue As Variant) As Boolean
+
+	Utils._SetCalledSub(&quot;TempVar.set&quot; &amp; psProperty)
+	If _ErrorHandler() Then On Local Error Goto Error_Function
+	_PropertySet = True
+
+&apos;Execute
+Dim iArgNr As Integer
+
+	If _IsLeft(_A2B_.CalledSub, &quot;TempVar.&quot;) Then iArgNr = 1 Else iArgNr = 2
+	Select Case UCase(psProperty)
+		Case UCase(&quot;Value&quot;)
+			_Value = pvValue
+			_A2B_.TempVars.Item(UCase(_Name)).Value = pvValue
+		Case Else
+			Goto Trace_Error
+	End Select
+
+Exit_Function:
+	Utils._ResetCalledSub(&quot;TempVar.set&quot; &amp; psProperty)
+	Exit Function
+Trace_Error:
+	TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
+	_PropertySet = False
+	Goto Exit_Function
+Trace_Error_Value:
+	TraceError(TRACEFATAL, ERRPROPERTYVALUE, Utils._CalledSub(), 0, 1, Array(pvValue, psProperty))
+	_PropertySet = False
+	Goto Exit_Function
+Error_Function:
+	TraceError(TRACEABORT, Err, &quot;TempVar._PropertySet&quot;, Erl)
+	_PropertySet = False
+	GoTo Exit_Function
+End Function		&apos;	_PropertySet
+
+</script:module>

server/libreoffice/share/basic/Access2Base/Test.xba

@@ -0,0 +1,14 @@
+<?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="Test" script:language="StarBasic">Option Explicit
+&apos;Option Compatible
+
+Sub Main
+Dim a, b()
+	_ErrorHandler(False)
+&apos;	DebugPrint vbLF
+&apos;	TraceConsole()
+	exit sub
+End Sub
+
+</script:module>

server/libreoffice/share/basic/Access2Base/Trace.xba

@@ -0,0 +1,438 @@
+<?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="Trace" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Explicit
+
+Public Const cstLogMaxEntries = 99
+
+REM Typical Usage
+REM		TraceLog(&quot;INFO&quot;, &quot;The OK button was pressed&quot;)
+REM
+REM Typical Usage for error logging
+REM		Sub MySub()
+REM			On Local Error GoTo Error_Sub
+REM			...
+REM		Exit_Sub:
+REM			Exit Sub
+REM		Error_Sub:
+REM			TraceError(&quot;ERROR&quot;, Err, &quot;MySub&quot;, Erl)
+REM			GoTo Exit_Sub
+REM		End Sub
+REM
+REM	To display the current logged traces and/or to set parameters
+REM		TraceConsole()
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub TraceConsole()
+&apos;	Display the Trace dialog with current trace log values and parameter choices
+	If _ErrorHandler() Then On Local Error Goto Error_Sub
+
+Dim sLineBreak As String, oTraceDialog As Object
+	sLineBreak = vbNewLine
+
+	Set oTraceDialog = CreateUnoDialog(Utils._GetDialogLib().dlgTrace)
+	oTraceDialog.Title = _GetLabel(&quot;DLGTRACE_TITLE&quot;)
+	oTraceDialog.Model.HelpText = _GetLabel(&quot;DLGTRACE_HELP&quot;)
+
+Dim oEntries As Object, oTraceLog As Object, oClear As Object, oMinLevel As Object, oNbEntries As Object, oDump As Object
+Dim oControl As Object
+Dim i As Integer, sText As String, iOKCancel As Integer
+	
+	Set oNbEntries = oTraceDialog.Model.getByName(&quot;numNbEntries&quot;)
+	oNbEntries.Value = _A2B_.TraceLogCount
+	oNbEntries.HelpText = _GetLabel(&quot;DLGTRACE_LBLNBENTRIES_HELP&quot;)
+
+	Set oControl = oTraceDialog.Model.getByName(&quot;lblNbEntries&quot;)
+	oControl.Label = _GetLabel(&quot;DLGTRACE_LBLNBENTRIES_LABEL&quot;)
+	oControl.HelpText = _GetLabel(&quot;DLGTRACE_LBLNBENTRIES_HELP&quot;)
+
+	Set oEntries = oTraceDialog.Model.getByName(&quot;numEntries&quot;)
+	If _A2B_.TraceLogMaxEntries = 0 Then _A2B_.TraceLogMaxEntries = cstLogMaxEntries
+	oEntries.Value = _A2B_.TraceLogMaxEntries
+	oEntries.HelpText = _GetLabel(&quot;DLGTRACE_LBLENTRIES_HELP&quot;)
+
+	Set oControl = oTraceDialog.Model.getByName(&quot;lblEntries&quot;)
+	oControl.Label = _GetLabel(&quot;DLGTRACE_LBLENTRIES_LABEL&quot;)
+	oControl.HelpText = _GetLabel(&quot;DLGTRACE_LBLENTRIES_HELP&quot;)
+
+	Set oDump = oTraceDialog.Model.getByName(&quot;cmdDump&quot;)
+	oDump.Enabled = 0
+	oDump.Label = _GetLabel(&quot;DLGTRACE_CMDDUMP_LABEL&quot;)
+	oDump.HelpText = _GetLabel(&quot;DLGTRACE_CMDDUMP_HELP&quot;)
+	
+	Set oTraceLog = oTraceDialog.Model.getByName(&quot;txtTraceLog&quot;)
+	oTraceLog.HelpText = _GetLabel(&quot;DLGTRACE_TXTTRACELOG_HELP&quot;)
+	If UBound(_A2B_.TraceLogs) &gt;= 0 Then			&apos;	Array yet initialized
+		oTraceLog.HardLineBreaks = True
+		sText = &quot;&quot;
+		If _A2B_.TraceLogCount &gt; 0 Then
+			If _A2B_.TraceLogCount &lt; _A2B_.TraceLogMaxEntries Then i = -1 Else i = _A2B_.TraceLogLast
+			Do
+				If i &lt; _A2B_.TraceLogMaxEntries - 1 Then i = i + 1 Else i = 0
+				If Len(_A2B_.TraceLogs(i)) &gt; 11 Then
+					sText = sText &amp; Right(_A2B_.TraceLogs(i), Len(_A2B_.TraceLogs(i)) - 11) &amp; sLineBreak		&apos;	Skip date in display
+				End If
+			Loop While i &lt;&gt; _A2B_.TraceLogLast
+			oDump.Enabled = 1		&apos;	Enable DumpToFile only if there is something to dump
+		End If
+		If Len(sText) &gt; 0 Then sText = Left(sText, Len(sText) - Len(sLineBreak))	&apos;	Skip last linefeed
+		oTraceLog.Text = sText
+	Else
+		oTraceLog.Text = _GetLabel(&quot;DLGTRACE_TXTTRACELOG_TEXT&quot;)
+	End If
+	
+	Set oClear = oTraceDialog.Model.getByName(&quot;chkClear&quot;)
+	oClear.State = 0		&apos;	Unchecked
+	oClear.HelpText = _GetLabel(&quot;DLGTRACE_LBLCLEAR_HELP&quot;)
+	
+	Set oControl = oTraceDialog.Model.getByName(&quot;lblClear&quot;)
+	oControl.Label = _GetLabel(&quot;DLGTRACE_LBLCLEAR_LABEL&quot;)
+	oControl.HelpText = _GetLabel(&quot;DLGTRACE_LBLCLEAR_HELP&quot;)
+
+	Set oMinLevel = oTraceDialog.Model.getByName(&quot;cboMinLevel&quot;)
+	If _A2B_.MinimalTraceLevel = 0 Then _A2B_.MinimalTraceLevel = _TraceLevel(TRACEERRORS)
+	oMinLevel.Text = _TraceLevel(_A2B_.MinimalTraceLevel)
+	oMinLevel.HelpText = _GetLabel(&quot;DLGTRACE_LBLMINLEVEL_HELP&quot;)
+	
+	Set oControl = oTraceDialog.Model.getByName(&quot;lblMinLevel&quot;)
+	oControl.Label = _GetLabel(&quot;DLGTRACE_LBLMINLEVEL_LABEL&quot;)
+	oControl.HelpText = _GetLabel(&quot;DLGTRACE_LBLMINLEVEL_HELP&quot;)
+
+	Set oControl = oTraceDialog.Model.getByName(&quot;cmdOK&quot;)
+	oControl.Label = _GetLabel(&quot;DLGTRACE_CMDOK_LABEL&quot;)
+	oControl.HelpText = _GetLabel(&quot;DLGTRACE_CMDOK_HELP&quot;)
+
+	Set oControl = oTraceDialog.Model.getByName(&quot;cmdCancel&quot;)
+	oControl.Label = _GetLabel(&quot;DLGTRACE_CMDCANCEL_LABEL&quot;)
+	oControl.HelpText = _GetLabel(&quot;DLGTRACE_CMDCANCEL_HELP&quot;)
+
+	iOKCancel = oTraceDialog.Execute()
+
+	Select Case iOKCancel
+		Case 1					&apos;	OK
+			If oClear.State = 1 Then
+				_A2B_.TraceLogs() = Array()		&apos;	Erase logged traces
+				_A2B_.TraceLogCount = 0
+			End If
+			If oMinLevel.Text &lt;&gt; &quot;&quot; Then _A2B_.MinimalTraceLevel = _TraceLevel(oMinLevel.Text)
+			If oEntries.Value &lt;&gt; 0 And oEntries.Value &lt;&gt; _A2B_.TraceLogMaxEntries Then
+				_A2B_.TraceLogs() = Array()
+				_A2B_.TraceLogMaxEntries = oEntries.Value
+			End If
+		Case 0					&apos;	Cancel
+		Case Else
+	End Select
+			
+Exit_Sub:
+	If Not IsNull(oTraceDialog) Then oTraceDialog.Dispose()
+	Exit Sub
+Error_Sub:
+	With _A2B_
+		.TraceLogs() = Array()
+		.TraceLogCount = 0
+		.TraceLogLast = 0
+	End With
+	GoTo Exit_Sub	
+End Sub		&apos;	TraceConsole	V1.1.0
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub TraceError(ByVal psErrorLevel As String _
+						, ByVal piErrorCode As Integer _
+						, ByVal psErrorProc As String _
+						, ByVal piErrorLine As Integer _
+						, ByVal Optional pvMsgBox As Variant _
+						, ByVal Optional pvArgs As Variant _
+						)
+&apos;	Store error code and description in trace rolling buffer
+&apos;	Display error message if errorlevel &gt;= ERROR
+&apos;	Stop program execution if errorlevel = FATAL or ABORT
+
+	On Local Error Resume Next
+	If IsEmpty(_A2B_) Then Call Application._RootInit()	&apos;	First use of Access2Base in current LibO/AOO session
+
+Dim sErrorText As String, sErrorDesc As String, oDb As Object, bMsgBox As Boolean
+	sErrorDesc = _ErrorMessage(piErrorCode, pvArgs)
+	sErrorText = _GetLabel(&quot;ERR#&quot;) &amp; CStr(piErrorCode) _
+							&amp; &quot; (&quot; &amp; sErrorDesc &amp; &quot;) &quot; &amp; _GetLabel(&quot;ERROCCUR&quot;) _
+							&amp; Iif(piErrorLine &gt; 0, &quot; &quot; &amp; _GetLabel(&quot;ERRLINE&quot;) &amp; &quot; &quot; &amp; CStr(piErrorLine), &quot;&quot;) _
+							&amp; Iif(psErrorProc &lt;&gt; &quot;&quot;, &quot; &quot; &amp; _GetLabel(&quot;ERRIN&quot;) &amp; &quot; &quot; &amp; psErrorProc, Iif(_A2B_.CalledSub = &quot;&quot;, &quot;&quot;, &quot; &quot; &amp; _Getlabel(&quot;ERRIN&quot;) &amp; &quot; &quot; &amp; _A2B_.CalledSub))
+	With _A2B_
+		.LastErrorCode = piErrorCode
+		.LastErrorLevel = psErrorLevel
+		.ErrorText = sErrorDesc
+		.ErrorLongText = sErrorText
+		.CalledSub = &quot;&quot;
+	End With
+	If VarType(pvMsgBox) = vbError Then
+		bMsgBox = ( psErrorLevel = TRACEERRORS Or psErrorLevel = TRACEFATAL Or psErrorLevel = TRACEABORT )
+	ElseIf IsMissing(pvMsgBox) Then
+		bMsgBox = ( psErrorLevel = TRACEERRORS Or psErrorLevel = TRACEFATAL Or psErrorLevel = TRACEABORT )
+	Else
+		bMsgBox = pvMsgBox
+	End If
+	TraceLog(psErrorLevel, sErrorText, bMsgBox)
+	
+	&apos;	Unexpected error detected in user program or in Access2Base
+	If psErrorLevel = TRACEFATAL Or psErrorLevel = TRACEABORT Then
+		If psErrorLevel = TRACEFATAL Then
+			Set oDb = _A2B_.CurrentDb()
+			If Not IsNull(oDb) Then oDb.CloseAllrecordsets()
+		End If
+		Stop
+	End If
+
+End Sub		&apos;	TraceError	V0.9.5
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function TraceErrorCode() As Variant
+&apos;	Return the last encountered error code, level, description in an array
+&apos;	UNPUBLISHED
+
+Dim vError As Variant
+
+	With _A2B_
+		vError = Array( _
+			.LastErrorCode _
+			, .LastErrorLevel _
+			, .ErrorText _
+			, .ErrorLongText _
+			)
+	End With
+	TraceErrorCode = vError
+
+End Function	&apos;	TraceErrorCode V6.3
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub TraceLevel(ByVal Optional psTraceLevel As String)
+&apos;	Set trace level to argument
+
+	If _ErrorHandler() Then On Local Error Goto Error_Sub
+	Select Case True
+		Case IsMissing(psTraceLevel)		:		psTraceLevel = &quot;ERROR&quot;
+		Case psTraceLevel = &quot;&quot;				:		psTraceLevel = &quot;ERROR&quot;
+		Case Utils._InList(UCase(psTraceLevel), Array( _
+			TRACEDEBUG, TRACEINFO, TRACEWARNING, TRACEERRORS, TRACEFATAL, TRACEABORT _
+			))
+		Case Else							:		Goto Exit_Sub
+	End Select
+	_A2B_.MinimalTraceLevel = _TraceLevel(psTraceLevel)
+	
+Exit_Sub:
+	Exit Sub
+Error_Sub:
+	With _A2B_
+		.TraceLogs() = Array()
+		.TraceLogCount = 0
+		.TraceLogLast = 0
+	End With
+	GoTo Exit_Sub	
+End Sub			&apos;	TraceLevel	V0.9.5
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub TraceLog(Byval psTraceLevel As String _
+						, ByVal psText As String _
+						, ByVal Optional pbMsgBox As Boolean _
+						)
+&apos;	Store Text in trace log (circular buffer)
+
+	If _ErrorHandler() Then On Local Error Goto Error_Sub
+Dim vTraceLogs() As String, sTraceLevel As String
+
+	With _A2B_
+		If .MinimalTraceLevel = 0 Then .MinimalTraceLevel = _TraceLevel(TRACEERRORS)
+		If _TraceLevel(psTraceLevel) &lt; .MinimalTraceLevel Then Exit Sub
+
+		If UBound(.TraceLogs) = -1 Then				&apos;		Initialize TraceLog
+			If .TraceLogMaxEntries = 0 Then .TraceLogMaxEntries = cstLogMaxEntries
+		
+			Redim vTraceLogs(0 To .TraceLogMaxEntries - 1)
+			.TraceLogs = vTraceLogs
+			.TraceLogCount = 0
+			.TraceLogLast = -1
+			If .MinimalTraceLevel = 0 Then .MinimalTraceLevel = _TraceLevel(TRACEERRORS)		&apos;	Set default value
+		End If
+	
+		.TraceLogLast = .TraceLogLast + 1
+		If .TraceLogLast &gt; UBound(.TraceLogs) Then .TraceLogLast = LBound(.TraceLogs)			&apos;	Circular buffer
+		If Len(psTraceLevel) &gt; 7 Then sTraceLevel = Left(psTraceLevel, 7) Else sTraceLevel = psTraceLevel &amp; Spc(8 - Len(psTraceLevel))
+		.TraceLogs(.TraceLogLast) = Format(Now(), &quot;YYYY-MM-DD hh:mm:ss&quot;) &amp; &quot; &quot; &amp; sTraceLevel &amp; psText
+		If .TraceLogCount &lt;= UBound(.TraceLogs) Then .TraceLogCount = .TraceLogCount + 1		&apos;	# of active entries
+	End With
+	
+	If IsMissing(pbMsgBox) Then pbMsgBox = True
+Dim iMsgBox As Integer
+	If pbMsgBox Then
+		Select Case psTraceLevel
+			Case TRACEINFO:							iMsgBox = vbInformation
+			Case TRACEERRORS, TRACEWARNING:			iMsgBox = vbExclamation
+			Case TRACEFATAL, TRACEABORT:			iMsgBox = vbCritical
+			Case Else:								iMsgBox = vbInformation
+		End Select
+		MsgBox psText, vbOKOnly + iMsgBox, psTraceLevel
+	End If
+
+Exit_Sub:
+	Exit Sub
+Error_Sub:
+	With _A2B_
+		.TraceLogs() = Array()
+		.TraceLogCount = 0
+		.TraceLogLast = 0
+	End With
+	GoTo Exit_Sub	
+End Sub			&apos;	TraceLog	V0.9.5
+
+
+REM -----------------------------------------------------------------------------------------------------------------------
+REM --- PRIVATE FUNCTIONS 								        														---
+REM -----------------------------------------------------------------------------------------------------------------------
+
+Private Sub _DumpToFile(oEvent As Object)
+&apos;		Execute the Dump To File command from the Trace dialog
+&apos;		Modified from Andrew Pitonyak&apos;s Base Macro Programming §10.4
+
+
+	If _ErrorHandler() Then On Local Error GoTo Error_Sub
+
+Dim sPath as String, iFileNumber As Integer, i As Integer
+
+	sPath = _PromptFilePicker(&quot;txt&quot;)	
+	If sPath &lt;&gt; &quot;&quot; Then			&apos;	Save button pressed
+		If UBound(_A2B_.TraceLogs) &gt;= 0 Then			&apos;	Array yet initialized
+			iFileNumber = FreeFile()
+			Open sPath For Append Access Write Lock Read As iFileNumber
+			If _A2B_.TraceLogCount &gt; 0 Then
+				If _A2B_.TraceLogCount &lt; _A2B_.TraceLogMaxEntries Then i = -1 Else i = _A2B_.TraceLogLast
+				Do
+					If i &lt; _A2B_.TraceLogMaxEntries - 1 Then i = i + 1 Else i = 0
+					Print #iFileNumber _A2B_.TraceLogs(i)
+				Loop While i &lt;&gt; _A2B_.TraceLogLast
+			End If
+			Close iFileNumber
+			MsgBox _GetLabel(&quot;SAVECONSOLEENTRIES&quot;), vbOK + vbInformation, _GetLabel(&quot;SAVECONSOLE&quot;)
+		End If
+	End If
+	
+Exit_Sub:
+	Exit Sub
+Error_Sub:
+	TraceError(&quot;ERROR&quot;, Err, &quot;DumpToFile&quot;, Erl)
+	GoTo Exit_Sub	
+End Sub			&apos;	DumpToFile		V0.8.5
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function _ErrorHandler(Optional ByVal pbCheck As Boolean) As Boolean
+&apos; Indicate if error handler is activated or not
+&apos; When argument present set error handler
+	If IsEmpty(_A2B_) Then Call Application._RootInit()	&apos;	First use of Access2Base in current LibO/AOO session
+	If Not IsMissing(pbCheck) Then _A2B_.ErrorHandler = pbCheck
+	_ErrorHandler = _A2B_.ErrorHandler
+	Exit Function		
+End Function
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _ErrorMessage(ByVal piErrorNumber As Integer, Optional ByVal pvArgs As Variant) As String
+&apos;	Return error message corresponding to ErrorNumber (standard or not)
+&apos;	and replaces %0, %1, ... , %9 by psArgs(0), psArgs(1), ...
+
+Dim sErrorMessage As String, i As Integer, sErrLabel
+	_ErrorMessage = &quot;&quot;
+	If piErrorNumber &gt; ERRINIT Then
+		sErrLabel = &quot;ERR&quot; &amp; piErrorNumber
+		sErrorMessage = _Getlabel(sErrLabel)
+		If Not IsMissing(pvArgs) Then
+			If Not IsArray(pvArgs) Then
+				sErrorMessage = Join(Split(sErrorMessage, &quot;%0&quot;), Utils._CStr(pvArgs, False))
+			Else
+				For i = LBound(pvArgs) To UBound(pvArgs)
+					sErrorMessage = Join(Split(sErrorMessage, &quot;%&quot; &amp; i), Utils._CStr(pvArgs(i), False))
+				Next i
+			End If
+		End If
+	Else
+		sErrorMessage = Error(piErrorNumber)
+		&apos;	Most (or all?) error messages terminate with a &quot;.&quot;
+		If Len(sErrorMessage) &gt; 1 And Right(sErrorMessage, 1) = &quot;.&quot; Then sErrorMessage = Left(sErrorMessage, Len(sErrorMessage)-1)
+	End If
+
+	_ErrorMessage = sErrorMessage
+	Exit Function
+	
+End Function	&apos;	ErrorMessage	V0.8.9
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Function _PromptFilePicker(ByVal psSuffix As String) As String
+&apos;		Prompt for output file name
+&apos;		Return &quot;&quot; if Cancel
+&apos;		Modified from Andrew Pitonyak&apos;s Base Macro Programming §10.4
+
+	If _ErrorHandler() Then On Local Error GoTo Error_Function
+
+Dim oFileDialog as Object, oUcb as object, oPath As Object
+Dim iAccept as Integer, sInitPath as String
+
+	Set oFileDialog = CreateUnoService(&quot;com.sun.star.ui.dialogs.FilePicker&quot;)
+	oFileDialog.Initialize(Array(com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_AUTOEXTENSION)) 
+	Set oUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;) 
+
+	oFileDialog.appendFilter(&quot;*.&quot; &amp; psSuffix, &quot;*.&quot; &amp; psSuffix)
+	oFileDialog.appendFilter(&quot;*.*&quot;, &quot;*.*&quot;)
+	oFileDialog.setCurrentFilter(&quot;*.&quot; &amp; psSuffix)
+	Set oPath = createUnoService(&quot;com.sun.star.util.PathSettings&quot;)
+	sInitPath = oPath.Work		&apos;	Probably My Documents
+	If oUcb.Exists(sInitPath) Then oFileDialog.SetDisplayDirectory(sInitPath) 
+
+	iAccept = oFileDialog.Execute()
+	
+	_PromptFilePicker = &quot;&quot;
+	If iAccept = 1 Then			&apos;	Save button pressed
+		_PromptFilePicker = oFileDialog.Files(0)
+	End If
+	
+Exit_Function:
+	If Not IsEmpty(oFileDialog) And Not IsNull(oFileDialog) Then oFileDialog.Dispose()
+	Exit Function
+Error_Function:
+	TraceError(&quot;ERROR&quot;, Err, &quot;PromptFilePicker&quot;, Erl)
+	GoTo Exit_Function	
+End Function			&apos;	PromptFilePicker	V0.8.5
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Public Sub _TraceArguments(Optional psCall As String)
+&apos;	Process the ERRMISSINGARGUMENTS error
+&apos;	psCall is present if error detected before call to _SetCalledSub
+
+	If Not IsMissing(psCall) Then Utils._SetCalledSub(psCall)
+	TraceError(TRACEFATAL, ERRMISSINGARGUMENTS, Utils._CalledSub(), 0)
+	Exit Sub
+	
+End Sub			&apos;	TraceArguments
+
+REM -----------------------------------------------------------------------------------------------------------------------
+Private Function _TraceLevel(ByVal pvTraceLevel As Variant) As Variant
+&apos;	Convert string trace level to numeric value or the opposite
+
+Dim vTraces As Variant, i As Integer
+	vTraces = Array(TRACEDEBUG, TRACEINFO, TRACEWARNING, TRACEERRORS, TRACEFATAL, TRACEABORT, TRACEANY)
+	
+	Select Case VarType(pvTraceLevel)
+		Case vbString
+			_TraceLevel = 4		&apos;	4 = Default
+			For i = 0 To UBound(vTraces)
+				If UCase(pvTraceLevel) = UCase(vTraces(i)) Then
+					_TraceLevel = i + 1
+					Exit For
+				End If
+			Next i
+		Case vbInteger, vbLong, vbSingle, vbDouble, vbCurrency, vbBigint, vbDecimal
+			If pvTraceLevel &lt; 1 Or pvTraceLevel &gt; UBound(vTraces) + 1 Then _TraceLevel = TRACEERRORS Else _TraceLevel = vTraces(pvTraceLevel - 1)
+	End Select
+							
+End Function	&apos;	TraceLevel
+
+</script:module>

server/libreoffice/share/basic/Access2Base/UtilProperty.xba

@@ -0,0 +1,331 @@
+<?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="UtilProperty" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+&apos;**********************************************************************
+&apos;	UtilProperty module
+&apos;
+&apos;	Module of utilities to manipulate arrays of PropertyValue&apos;s.
+&apos;**********************************************************************
+
+&apos;**********************************************************************
+&apos;	Copyright (c) 2003-2004 Danny Brewer
+&apos;	d29583@groovegarden.com
+&apos;**********************************************************************
+
+&apos;**********************************************************************
+&apos;	If you make changes, please append to the change log below.
+&apos;
+&apos;	Change Log
+&apos;		Danny Brewer			Revised 2004-02-25-01
+&apos;		Jean-Pierre Ledure		Adapted to Access2Base coding conventions
+&apos;								PropValuesToStr rewritten and addition of StrToPropValues
+&apos;								Bug corrected on date values
+&apos;								Addition of support of 2-dimensional arrays
+&apos;								Support of empty arrays to allow JSON conversions
+&apos;**********************************************************************
+
+Option Explicit
+
+Private Const cstHEADER = &quot;### PROPERTYVALUES ###&quot;
+Private Const cstEMPTYARRAY = &quot;### EMPTY ARRAY ###&quot;
+
+REM =======================================================================================================================
+Public Function _MakePropertyValue(ByVal Optional psName As String, Optional pvValue As Variant) As com.sun.star.beans.PropertyValue
+&apos;   Create and return a new com.sun.star.beans.PropertyValue.
+
+Dim oPropertyValue As New com.sun.star.beans.PropertyValue
+
+	If Not IsMissing(psName) Then oPropertyValue.Name = psName
+	If Not IsMissing(pvValue) Then oPropertyValue.Value = _CheckPropertyValue(pvValue)
+	_MakePropertyValue() = oPropertyValue
+	
+End Function	&apos;	_MakePropertyValue V1.3.0
+
+REM =======================================================================================================================
+Public Function _CheckPropertyValue(ByRef pvValue As Variant) As Variant
+&apos;	Date BASIC variables give error. Change them to strings
+&apos;	Empty arrays should be replaced by cstEMPTYARRAY
+
+	If VarType(pvValue) = vbDate Then
+		_CheckPropertyValue = Utils._CStr(pvValue, False)
+	ElseIf IsArray(pvValue) Then
+		If UBound(pvValue, 1) &lt; LBound(pvValue, 1) Then _CheckPropertyValue = cstEMPTYARRAY Else _CheckPropertyValue = pvValue
+	Else
+		_CheckPropertyValue = pvValue
+	End If
+
+End Function	&apos;	_CheckPropertyValue
+	
+REM =======================================================================================================================
+Public Function _NumPropertyValues(ByRef pvPropertyValuesArray As Variant) As Integer
+&apos; Return the number of PropertyValue&apos;s in an array.
+&apos; Parameters:
+&apos; 	pvPropertyValuesArray - an array of PropertyValue&apos;s, that is an array of com.sun.star.beans.PropertyValue.
+&apos; Returns zero if the array contains no elements.
+
+Dim iNumProperties As Integer
+	If Not IsArray(pvPropertyValuesArray) Then iNumProperties = 0 Else iNumProperties = UBound(pvPropertyValuesArray) + 1
+	_NumPropertyValues() = iNumProperties
+
+End Function	&apos;	_NumPropertyValues V1.3.0
+
+REM =======================================================================================================================
+Public Function _FindPropertyIndex(ByRef pvPropertyValuesArray As Variant, ByVal psPropName As String ) As Integer
+&apos; Find a particular named property from an array of PropertyValue&apos;s.
+&apos; Finds the index in the array of PropertyValue&apos;s and returns it, or returns -1 if it was not found.
+
+Dim iNumProperties As Integer, i As Integer, vProp As Variant
+	iNumProperties = _NumPropertyValues(pvPropertyValuesArray)
+	For i = 0 To iNumProperties - 1
+		vProp = pvPropertyValuesArray(i)
+		If UCase(vProp.Name) = UCase(psPropName) Then
+			_FindPropertyIndex() = i
+			Exit Function
+		EndIf
+	Next i
+	_FindPropertyIndex() = -1
+
+End Function	&apos;	_FindPropertyIndex V1.3.0
+
+REM =======================================================================================================================
+Public Function _FindProperty(ByRef pvPropertyValuesArray As Variant, ByVal psPropName As String) As com.sun.star.beans.PropertyValue
+&apos; Find a particular named property from an array of PropertyValue&apos;s.
+&apos; Finds the PropertyValue and returns it, or returns Null if not found.
+
+Dim iPropIndex As Integer, vProp As Variant
+	iPropIndex = _FindPropertyIndex(pvPropertyValuesArray, psPropName)
+	If iPropIndex &gt;= 0 Then
+		vProp = pvPropertyValuesArray(iPropIndex) &apos; access array subscript
+		_FindProperty() = vProp
+	EndIf
+
+End Function	&apos;	_FindProperty V1.3.0
+
+REM =======================================================================================================================
+Public Function _GetPropertyValue(ByRef pvPropertyValuesArray As Variant, ByVal psPropName As String, Optional pvDefaultValue) As Variant
+&apos; Get the value of a particular named property from an array of PropertyValue&apos;s.
+&apos; vDefaultValue      -   This value is returned if the property is not found in the array.
+
+Dim iPropIndex As Integer, vProp As Variant, vValue As Variant, vMatrix As Variant, i As Integer, j As Integer
+	iPropIndex = _FindPropertyIndex(pvPropertyValuesArray, psPropName)
+	If iPropIndex &gt;= 0 Then
+		vProp = pvPropertyValuesArray(iPropIndex)	&apos; access array subscript
+		vValue = vProp.Value						&apos; get the value from the PropertyValue
+		If VarType(vValue) = vbString Then
+			If vValue = cstEMPTYARRAY Then _GetPropertyValue() = Array() Else _GetPropertyValue() = vValue
+		ElseIf IsArray(vValue) Then
+			If IsArray(vValue(0)) Then				&apos; Array of arrays
+				vMatrix = Array()
+				ReDim vMatrix(0 To UBound(vValue), 0 To UBound(vValue(0)))
+				For i = 0 To UBound(vValue)
+					For j = 0 To UBound(vValue(0))
+						vMatrix(i, j) = vValue(i)(j)
+					Next j
+				Next i
+				_GetPropertyValue() = vMatrix
+			Else
+				_GetPropertyValue() = vValue		&apos; Simple vector OK
+			End If
+		Else
+			_GetPropertyValue() = vValue
+		End If
+	Else
+		If IsMissing(pvDefaultValue) Then pvDefaultValue = Null
+		_GetPropertyValue() = pvDefaultValue
+	EndIf
+
+End Function	&apos;	_GetPropertyValue V1.3.0
+
+REM =======================================================================================================================
+Public Sub _SetPropertyValue(ByRef pvPropertyValuesArray As Variant, ByVal psPropName As String, ByVal pvValue As Variant)
+&apos; Set the value of a particular named property from an array of PropertyValue&apos;s.
+
+Dim iPropIndex As Integer, vProp As Variant, iNumProperties As Integer
+
+	iPropIndex = _FindPropertyIndex(pvPropertyValuesArray, psPropName)
+	If iPropIndex &gt;= 0 Then
+	&apos;	Found, the PropertyValue is already in the array. Just modify its value.
+		vProp = pvPropertyValuesArray(iPropIndex)	&apos; access array subscript
+		vProp.Value = _CheckPropertyValue(pvValue)	&apos; set the property value.
+		pvPropertyValuesArray(iPropIndex) = vProp	&apos; put it back into array
+	Else
+	&apos;	Not found, the array contains no PropertyValue with this name. Append new element to array.
+		iNumProperties = _NumPropertyValues(pvPropertyValuesArray)
+		If iNumProperties = 0 Then
+			pvPropertyValuesArray = Array(_MakePropertyValue(psPropName, pvValue))
+		Else
+		&apos;	Make array larger.
+			Redim Preserve pvPropertyValuesArray(iNumProperties)
+			&apos;	Assign new PropertyValue
+			pvPropertyValuesArray(iNumProperties) = _MakePropertyValue(psPropName, pvValue)
+		EndIf
+	EndIf
+
+End Sub		&apos;	_SetPropertyValue V1.3.0
+
+REM =======================================================================================================================
+Public Sub _DeleteProperty(ByRef pvPropertyValuesArray As Variant, ByVal psPropName As String)
+&apos; Delete a particular named property from an array of PropertyValue&apos;s.
+
+Dim iPropIndex As Integer
+	iPropIndex = _FindPropertyIndex(pvPropertyValuesArray, psPropName)
+	If iPropIndex &gt;= 0 Then _DeleteIndexedProperty(pvPropertyValuesArray, iPropIndex)
+
+End Sub		&apos;	_DeletePropertyValue V1.3.0
+
+REM =======================================================================================================================
+Public Sub _DeleteIndexedProperty(ByRef pvPropertyValuesArray As Variant, ByVal piPropIndex As Integer)
+&apos; Delete a particular indexed property from an array of PropertyValue&apos;s.
+
+Dim iNumProperties As Integer, i As Integer
+	iNumProperties = _NumPropertyValues(pvPropertyValuesArray)
+
+	&apos; Did we find it?
+	If piPropIndex &lt; 0 Then
+		&apos;	Do nothing
+	ElseIf iNumProperties = 1 Then
+		&apos;	Just return a new empty array
+		pvPropertyValuesArray = Array()
+	Else
+		&apos;	If it is NOT the last item in the array, then shift other elements down into it&apos;s position.
+		If piPropIndex &lt; iNumProperties - 1 Then
+			&apos;	Bump items down lower in the array.
+			For i = piPropIndex To iNumProperties - 2
+				pvPropertyValuesArray(i) = pvPropertyValuesArray(i + 1)
+			Next i
+		EndIf
+		&apos;	Redimension the array to have one fewer element.
+		Redim Preserve pvPropertyValuesArray(iNumProperties - 2)
+	EndIf
+
+End Sub		&apos;	_DeleteIndexedProperty V1.3.0
+
+REM =======================================================================================================================
+Public Function _PropValuesToStr(ByRef pvPropertyValuesArray As Variant) As String
+&apos; Return a string with dumped content of the array of PropertyValue&apos;s.
+&apos;	SYNTAX:
+&apos;		NameOfProperty = This is a string (or 12 or 2016-12-31 12:05 or 123.45 or -0.12E-05 ...)
+&apos;		NameOfArray = (10)
+&apos;		1;2;3;4;5;6;7;8;9;10
+&apos;		NameOfMatrix = (2,10)
+&apos;		1;2;3;4;5;6;7;8;9;10
+&apos;		A;B;C;D;E;F;G;H;I;J
+&apos;	Semicolons and backslashes are escaped with a backslash (see _CStr and _CVar functions)
+
+Dim iNumProperties As Integer, sResult As String, i As Integer, j As Integer, vProp As Variant
+Dim sName As String, vValue As Variant, iType As Integer
+Dim cstLF As String
+
+	cstLF = vbLf()
+	iNumProperties = _NumPropertyValues(pvPropertyValuesArray)
+
+	sResult = cstHEADER &amp; cstLF
+	For i = 0 To iNumProperties - 1
+		vProp = pvPropertyValuesArray(i)
+		sName = vProp.Name
+		vValue = vProp.Value
+		iType = VarType(vValue)
+		Select Case iType
+			Case &lt; vbArray					&apos;	Scalar
+				sResult = sResult &amp; sName &amp; &quot; = &quot; &amp; Utils._CStr(vValue, False) &amp; cstLF
+			Case Else						&apos;	Vector or matrix
+				If uBound(vValue, 1) &lt; 0 Then
+					sResult = sResult &amp; sName &amp; &quot; = (0)&quot; &amp; cstLF
+				&apos;	1-dimension but vector of vectors must also be considered
+				ElseIf VarType(vValue(0)) &gt;= vbArray Then
+					sResult = sResult &amp; sName &amp; &quot; = (&quot; &amp; UBound(vValue) + 1 &amp; &quot;,&quot; &amp; UBound(vValue(0)) + 1 &amp; &quot;)&quot; &amp; cstLF
+					For j = 0 To UBound(vValue)
+						sResult = sResult &amp; Utils._CStr(vValue(j), False) &amp; cstLF
+					Next j			
+				Else
+					sResult = sResult &amp; sName &amp; &quot; = (&quot; &amp; UBound(vValue, 1) + 1 &amp; &quot;)&quot; &amp; cstLF
+					sResult = sResult &amp; Utils._CStr(vValue, False) &amp; cstLF
+				End If
+		End Select
+	Next i
+
+	_PropValuesToStr() = Left(sResult, Len(sResult) - 1)	&apos;	Remove last LF
+
+End Function	&apos;	_PropValuesToStr V1.3.0
+
+REM =======================================================================================================================
+Public Function _StrToPropValues(psString) As Variant
+&apos; Return an array of PropertyValue&apos;s rebuilt from the string parameter
+
+Dim vString() As Variant, i As Integer,iArray As Integer, iRows As Integer, iCols As Integer
+Dim lPosition As Long, sName As String, vValue As Variant, vResult As Variant, sDim As String
+Dim lSearch As Long
+Dim cstLF As String
+Const cstEqualArray = &quot; = (&quot;, cstEqual = &quot; = &quot;
+
+	cstLF = Chr(10)
+	_StrToPropValues = Array()
+	vResult = Array()
+	
+	If psString = &quot;&quot; Then Exit Function
+	vString = Split(psString, cstLF)
+	If UBound(vString) &lt;= 0 Then Exit Function		&apos;	There must be at least one name-value pair
+	If vString(0) &lt;&gt; cstHEADER Then Exit Function	&apos;	Check origin
+
+	iArray = -1
+	For i = 1 To UBound(vString)
+		If vString(i) &lt;&gt; &quot;&quot; Then			&apos;	Skip empty lines
+			If iArray &lt; 0 Then				&apos;	Not busy with array row
+				lPosition = 1
+				sName = Utils._RegexSearch(vString(i), &quot;^\b\w+\b&quot;, lPosition)		&apos;	Identifier
+				If sName = &quot;&quot; Then Exit Function
+				If InStr(vString(i), cstEqualArray) = lPosition + Len(sName) Then	&apos;	Start array processing
+					lSearch = lPosition + Len(sName) + Len(cstEqualArray) - 1
+					sDim = Utils._RegexSearch(vString(i), &quot;\([0-9]+\)&quot;, lSearch)	&apos;	e.g. (10)
+					If sDim = &quot;(0)&quot; Then		&apos;	Empty array
+						iRows = -1
+						vValue = Array()
+						_SetPropertyValue(vResult, sName, vValue)
+					ElseIf sDim &lt;&gt; &quot;&quot; Then		&apos;	Vector with content
+						iCols = CInt(Mid(sDim, 2, Len(sDim) - 2))
+						iRows = 0
+						ReDim vValue(0 To iCols - 1)
+						iArray = 0
+					Else						&apos;	Matrix with content
+						lSearch = lPosition + Len(sName) + Len(cstEqualArray) - 1
+						sDim = Utils._RegexSearch(vString(i), &quot;\([0-9]+,&quot;, lSearch)	&apos;	e.g. (10,
+						iRows = CInt(Mid(sDim, 2, Len(sDim) - 2))
+						sDim = Utils._RegexSearch(vString(i), &quot;,[0-9]+\)&quot;, lSearch)	&apos;	e.g. ,20)
+						iCols = CInt(Mid(sDim, 2, Len(sDim) - 2))
+						ReDim vValue(0 To iRows - 1)
+						iArray = 0
+					End If
+				ElseIf InStr(vString(i), cstEqual) = lPosition + Len(sName) Then
+					vValue = Utils._CVar(Mid(vString(i), Len(sName) + Len(cstEqual) + 1))
+					_SetPropertyValue(vResult, sName, vValue)
+				Else
+					Exit Function
+				End If
+			Else							&apos;	Line is an array row
+				If iRows = 0 Then
+					vValue = Utils._CVar(vString(i), True)		&apos;	Keep dates as strings
+					iArray = -1
+					_SetPropertyValue(vResult, sName, vValue)
+				Else
+					vValue(iArray) = Utils._CVar(vString(i), True)
+					If iArray &lt; iRows - 1 Then
+						iArray = iArray + 1
+					Else
+						iArray = -1
+						_SetPropertyValue(vResult, sName, vValue)
+					End If
+				End If
+			End If
+		End If
+	Next i
+	
+	_StrToPropValues = vResult
+
+End Function
+
+</script:module>

server/libreoffice/share/basic/Access2Base/_License.xba

@@ -0,0 +1,25 @@
+<?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="_License" script:language="StarBasic">
+&apos;      Copyright 2012-2017 Jean-Pierre LEDURE
+
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+&apos;	Access2Base is distributed in the hope that it will be useful,
+&apos;	but WITHOUT ANY WARRANTY; without even the implied warranty of 
+&apos;	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+&apos;	Access2Base is free software; you can redistribute it and/or modify it under the terms of either (at your option):
+&apos;
+&apos;	1) The Mozilla Public License, v. 2.0. If a copy of the MPL was not
+&apos;	distributed with this file, you can obtain one at http://mozilla.org/MPL/2.0/ .
+&apos;
+&apos;	2) The GNU Lesser General Public License as published by
+&apos;	the Free Software Foundation, either version 3 of the License, or
+&apos;	(at your option) any later version. If a copy of the LGPL was not
+&apos;	distributed with this file, see http://www.gnu.org/licenses/ .
+
+</script:module>

server/libreoffice/share/basic/Access2Base/acConstants.xba

@@ -0,0 +1,395 @@
+<?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="acConstants" script:language="StarBasic">
+REM =======================================================================================================================
+REM ===					The Access2Base library is a part of the LibreOffice project.									===
+REM ===					Full documentation is available on http://www.access2base.com									===
+REM =======================================================================================================================
+
+Option Explicit
+
+REM Access2Base -----------------------------------------------------
+Global Const Access2Base_Version = &quot;7.1.0&quot;		&apos;	Alignment on LibreOffice versions
+
+REM AcCloseSave
+REM -----------------------------------------------------------------
+Global Const acSaveNo = 2
+Global Const acSavePrompt = 0
+Global Const acSaveYes = 1
+
+REM AcFormView
+REM -----------------------------------------------------------------
+Global Const acDesign = 1
+Global Const acNormal = 0
+Global Const acPreview = 2
+
+REM AcFormOpenDataMode
+REM -----------------------------------------------------------------
+Global Const acFormAdd = 0
+Global Const acFormEdit = 1
+Global Const acFormPropertySettings = -1
+Global Const acFormReadOnly = 2
+
+REM acView
+REM -----------------------------------------------------------------
+Global Const acViewDesign = 1
+Global Const acViewNormal = 0
+Global Const acViewPreview = 2
+
+REM acOpenDataMode
+REM -----------------------------------------------------------------
+Global Const acAdd = 0
+Global Const acEdit = 1
+Global Const acReadOnly = 2
+
+REM AcObjectType
+REM -----------------------------------------------------------------
+Global Const acDefault = -1
+Global Const acDiagram = 8
+Global Const acForm = 2
+Global Const acQuery = 1
+Global Const acReport = 3
+Global Const acTable = 0
+&apos;			Unexisting in MS/Access
+Global Const acBasicIDE = 101
+Global Const acDatabaseWindow = 102
+Global Const acDocument = 111
+Global Const acWelcome = 112
+&apos;			Subtype if acDocument
+Global Const docWriter = &quot;Writer&quot;
+Global Const docCalc = &quot;Calc&quot;
+Global Const docImpress = &quot;Impress&quot;
+Global Const docDraw = &quot;Draw&quot;
+Global Const docMath = &quot;Math&quot;
+
+REM AcWindowMode
+REM -----------------------------------------------------------------
+Global Const acDialog = 3
+Global Const acHidden = 1
+Global Const acIcon = 2
+Global Const acWindowNormal = 0
+
+REM VarType constants
+REM -----------------------------------------------------------------
+Global Const vbEmpty = 0
+Global Const vbNull = 1
+Global Const vbInteger = 2
+Global Const vbLong = 3
+Global Const vbSingle = 4
+Global Const vbDouble = 5
+Global Const vbCurrency = 6
+Global Const vbDate = 7
+Global Const vbString = 8
+Global Const vbObject = 9
+Global Const vbError = 10
+Global Const vbBoolean = 11
+Global Const vbVariant = 12
+Global Const vbByte = 17
+Global Const vbUShort = 18
+Global Const vbULong = 19
+Global Const vbBigint = 35
+Global Const vbDecimal = 37
+Global Const vbArray = 8192
+
+REM MsgBox constants
+REM -----------------------------------------------------------------
+Global Const vbOKOnly = 0 			&apos;	OK button only (default) 
+Global Const vbOKCancel = 1 		&apos;	OK and Cancel buttons 
+Global Const vbAbortRetryIgnore = 2 &apos;	Abort, Retry, and Ignore buttons 
+Global Const vbYesNoCancel = 3 		&apos;	Yes, No, and Cancel buttons 
+Global Const vbYesNo = 4 			&apos;	Yes and No buttons 
+Global Const vbRetryCancel = 5 		&apos;	Retry and Cancel buttons 
+Global Const vbCritical = 16 		&apos;	Critical message 
+Global Const vbQuestion = 32 		&apos;	Warning query 
+Global Const vbExclamation = 48 	&apos;	Warning message 
+Global Const vbInformation = 64 	&apos;	Information message 
+Global Const vbDefaultButton1 = 128	&apos;	First button is default (default) (VBA: 0)
+Global Const vbDefaultButton2 = 256 &apos;	Second button is default 
+Global Const vbDefaultButton3 = 512 &apos;	Third button is default 
+Global Const vbApplicationModal = 0 &apos;	Application modal message box (default) 
+REM MsgBox Return Values
+REM -----------------------------------------------------------------
+Global Const vbOK = 1				&apos;	OK button pressed
+Global Const vbCancel = 2 			&apos;	Cancel button pressed
+Global Const vbAbort = 3 			&apos;	Abort button pressed
+Global Const vbRetry = 4 			&apos;	Retry button pressed
+Global Const vbIgnore = 5 			&apos;	Ignore button pressed
+Global Const vbYes = 6 				&apos;	Yes button pressed
+Global Const vbNo = 7 				&apos;	No button pressed
+
+REM Dialogs Return Values
+REM ------------------------------------------------------------------
+Global Const dlgOK = 1				&apos;	OK button pressed
+Global Const dlgCancel = 0			&apos;	Cancel button pressed
+
+REM Control Types
+REM -----------------------------------------------------------------
+Global Const acCheckBox = 5
+Global Const acComboBox = 7
+Global Const acCommandButton = 2	:	Global Const acToggleButton = 122
+Global Const acCurrencyField = 18
+Global Const acDateField = 15
+Global Const acFileControl = 12
+Global Const acFixedLine = 24			&apos;	FREE ENTRY (USEFUL IN DIALOGS)
+Global Const acFixedText = 10		:	Global Const acLabel = 10
+Global Const acFormattedField = 1		&apos;	FREE ENTRY TAKEN TO NOT CONFUSE WITH acTextField
+Global Const acGridControl = 11
+Global Const acGroupBox = 8			:	Global Const acOptionGroup = 8
+Global Const acHiddenControl = 13
+Global Const acImageButton = 4
+Global Const acImageControl = 14	:	Global Const acImage = 14
+Global Const acListBox = 6
+Global Const acNavigationBar = 22
+Global Const acNumericField = 17
+Global Const acPatternField = 19
+Global Const acProgressBar = 23			&apos;	FREE ENTRY (USEFUL IN DIALOGS)
+Global Const acRadioButton = 3		:	Global Const acOptionButton = 3
+Global Const acScrollBar = 20
+Global Const acSpinButton = 21
+Global Const acSubform = 112 
+Global Const acTextField = 9		:	Global Const acTextBox = 9
+Global Const acTimeField = 16
+
+REM AcRecord
+REM -----------------------------------------------------------------
+Global Const acFirst = 2 
+Global Const acGoTo = 4 
+Global Const acLast = 3 
+Global Const acNewRec = 5 
+Global Const acNext = 1 
+Global Const acPrevious = 0
+
+REM FindRecord
+REM -----------------------------------------------------------------
+Global Const acAnywhere = 0
+Global Const acEntire = 1
+Global Const acStart = 2
+Global Const acDown = 1
+Global Const acSearchAll = 2
+Global Const acUp = 0
+Global Const acAll = 0
+Global Const acCurrent = -1
+
+REM AcDataObjectType
+REM -----------------------------------------------------------------
+Global Const acActiveDataObject = -1
+Global Const acDataForm = 2
+Global Const acDataQuery = 1
+Global Const acDataServerView = 7
+Global Const acDataStoredProcedure = 9
+Global Const acDataTable = 0
+
+REM AcQuitOption
+REM -----------------------------------------------------------------
+Global Const acQuitPrompt = 0
+Global Const acQuitSaveAll = 1
+Global Const acQuitSaveNone = 2
+
+REM AcCommand
+REM -----------------------------------------------------------------
+Global Const acCmdAboutMicrosoftAccess = 35
+Global Const acCmdAboutOpenOffice = 35
+Global Const acCmdAboutLibreOffice = 35
+Global Const acCmdVisualBasicEditor = 525
+Global Const acCmdBringToFront = 52
+Global Const acCmdClose = 58
+Global Const acCmdToolbarsCustomize = 165
+Global Const acCmdChangeToCommandButton = 501
+Global Const acCmdChangeToCheckBox = 231
+Global Const acCmdChangeToComboBox = 230
+Global Const acCmdChangeToTextBox = 227
+Global Const acCmdChangeToLabel = 228
+Global Const acCmdChangeToImage = 234
+Global Const acCmdChangeToListBox = 229
+Global Const acCmdChangeToOptionButton = 233
+Global Const acCmdCopy = 190
+Global Const acCmdCut = 189
+Global Const acCmdCreateRelationship = 150
+Global Const acCmdDelete = 337
+Global Const acCmdDatabaseProperties = 256
+Global Const acCmdSQLView = 184
+Global Const acCmdRemove = 366
+Global Const acCmdDesignView = 183
+Global Const acCmdFormView = 281
+Global Const acCmdNewObjectForm = 136
+Global Const acCmdNewObjectTable = 134
+Global Const acCmdNewObjectView = 350
+Global Const acCmdOpenDatabase = 25
+Global Const acCmdNewObjectQuery = 135
+Global Const acCmdShowAllRelationships = 149
+Global Const acCmdNewObjectReport = 137
+Global Const acCmdSelectAll = 333
+Global Const acCmdRemoveTable = 84
+Global Const acCmdOpenTable = 221
+Global Const acCmdRename = 143
+Global Const acCmdDeleteRecord = 223
+Global Const acCmdApplyFilterSort = 93
+Global Const acCmdSnapToGrid = 62
+Global Const acCmdViewGrid = 63
+Global Const acCmdInsertHyperlink = 259
+Global Const acCmdMaximumRecords = 508
+Global Const acCmdObjectBrowser = 200
+Global Const acCmdPaste = 191
+Global Const acCmdPasteSpecial = 64
+Global Const acCmdPrint = 340
+Global Const acCmdPrintPreview = 54
+Global Const acCmdSaveRecord = 97
+Global Const acCmdFind = 30
+Global Const acCmdUndo = 292
+Global Const acCmdRefresh = 18
+Global Const acCmdRemoveFilterSort = 144
+Global Const acCmdRunMacro = 31
+Global Const acCmdSave = 20
+Global Const acCmdSaveAs = 21
+Global Const acCmdSelectAllRecords = 109
+Global Const acCmdSendToBack = 53
+Global Const acCmdSortDescending = 164
+Global Const acCmdSortAscending = 163
+Global Const acCmdTabOrder = 41
+Global Const acCmdDatasheetView = 282
+Global Const acCmdZoomSelection = 371
+
+REM AcSendObjectType
+REM -----------------------------------------------------------------
+Global Const acSendForm = 2
+Global Const acSendNoObject = -1
+Global Const acSendQuery = 1
+Global Const acSendReport = 3
+Global Const acSendTable = 0
+
+REM AcOutputObjectType
+REM -----------------------------------------------------------------
+Global Const acOutputTable = 0
+Global Const acOutputQuery = 1
+Global Const acOutputForm = 2
+Global Const acOutputArray = -1
+
+REM AcEncoding
+REM -----------------------------------------------------------------
+Global Const acUTF8Encoding = 76
+
+REM AcFormat
+REM -----------------------------------------------------------------
+Global Const acFormatPDF = &quot;writer_pdf_Export&quot;
+Global Const acFormatODT = &quot;writer8&quot;
+Global Const acFormatDOC = &quot;MS Word 97&quot;
+Global Const acFormatHTML = &quot;HTML&quot;
+Global Const acFormatODS = &quot;calc8&quot;
+Global Const acFormatXLS = &quot;MS Excel 97&quot;
+Global Const acFormatXLSX = &quot;Calc MS Excel 2007 XML&quot;
+Global Const acFormatTXT = &quot;Text - txt - csv (StarCalc)&quot;
+
+REM AcExportQuality
+REM -----------------------------------------------------------------
+Global Const acExportQualityPrint = 0
+Global Const acExportQualityScreen = 1
+
+REM AcSysCmdAction
+REM -----------------------------------------------------------------
+Global Const acSysCmdAccessDir = 9
+Global Const acSysCmdAccessVer = 7
+Global Const acSysCmdClearHelpTopic = 11
+Global Const acSysCmdClearStatus = 5
+Global Const acSysCmdGetObjectState = 10
+Global Const acSysCmdGetWorkgroupFile = 13
+Global Const acSysCmdIniFile = 8
+Global Const acSysCmdInitMeter = 1
+Global Const acSysCmdProfile = 12
+Global Const acSysCmdRemoveMeter = 3
+Global Const acSysCmdRuntime = 6
+Global Const acSysCmdSetStatus = 4
+Global Const acSysCmdUpdateMeter = 2
+
+REM Type property
+REM -----------------------------------------------------------------
+Global Const dbBigInt = 16
+Global Const dbBinary = 9
+Global Const dbBoolean = 1
+Global Const dbByte = 2
+Global Const dbChar = 18
+Global Const dbCurrency = 5
+Global Const dbDate = 8
+Global Const dbDecimal = 20
+Global Const dbDouble = 7
+Global Const dbFloat = 21
+Global Const dbGUID = 15
+Global Const dbInteger = 3
+Global Const dbLong = 4
+Global Const dbLongBinary = 11	&apos;	(OLE Object)
+Global Const dbMemo= 12
+Global Const dbNumeric = 19
+Global Const dbSingle = 6
+Global Const dbText = 10
+Global Const dbTime = 22
+Global Const dbTimeStamp = 23
+Global Const dbVarBinary = 17
+Global Const dbUndefined = -1
+
+REM Attributes property
+REM -----------------------------------------------------------------
+Global Const dbAutoIncrField = 16
+Global Const dbDescending = 1
+Global Const dbFixedField = 1
+Global Const dbHyperlinkField = 32768
+Global Const dbSystemField = 8192
+Global Const dbUpdatableField = 32
+Global Const dbVariableField = 2
+
+REM OpenRecordset
+REM -----------------------------------------------------------------
+Global Const dbOpenForwardOnly = 8
+Global Const dbSQLPassThrough = 64
+Global Const dbReadOnly = 4
+
+REM Query types
+REM -----------------------------------------------------------------
+Global Const dbQAction = 240
+Global Const dbQAppend = 64
+Global Const dbQDDL = 4	&apos;96
+Global Const dbQDelete = 32
+Global Const dbQMakeTable = 128	&apos;80
+Global Const dbQSelect = 0
+Global Const dbQSetOperation = 8	&apos;128
+Global Const dbQSQLPassThrough = 1	&apos;112
+Global Const dbQUpdate = 16	&apos;48
+
+REM Edit mode
+REM -----------------------------------------------------------------
+Global Const dbEditNone = 0
+Global Const dbEditInProgress = 1
+Global Const dbEditAdd = 2
+
+REM Toolbars
+REM -----------------------------------------------------------------
+Global Const msoBarTypeNormal = 0		&apos;	Usual toolbar
+Global Const msoBarTypeMenuBar = 1		&apos;	Menu bar
+Global Const msoBarTypePopup = 2		&apos;	Shortcut menu
+Global Const msoBarTypeStatusBar = 11	&apos;	Status bar
+Global Const msoBarTypeFloater = 12		&apos;	Floating window
+
+Global Const msoControlButton = 1		&apos;	Command button
+Global Const msoControlPopup = 10		&apos;	Popup, submenu
+
+REM New Lines
+REM -----------------------------------------------------------------
+Public Function vbCr() As String	:	vbCr = Chr(13)	:	End Function
+Public Function vbLf() As String	:	vbLf = Chr(10)	:	End Function
+Public Function vbNewLine() As String
+Const cstWindows = 1
+	If GetGuiType() = cstWindows Then vbNewLine = vbCR &amp; vbLF Else vbNewLine = vbLF
+End Function	&apos;	vbNewLine V1.4.0
+Public Function vbTab() As String	:	vbTab = Chr(9)	:	End Function
+
+REM Module types
+REM -----------------------------------------------------------------
+Global Const acClassModule = 1
+Global Const acStandardModule = 0
+
+REM (Module) procedure types
+REM -----------------------------------------------------------------
+Global Const vbext_pk_Get = 1			&apos;	A Property Get procedure
+Global Const vbext_pk_Let = 2			&apos;	A Property Let procedure
+Global Const vbext_pk_Proc = 0			&apos;	A Sub or Function procedure
+Global Const vbext_pk_Set = 3			&apos;	A Property Set procedure
+
+</script:module>

server/libreoffice/share/basic/Access2Base/dialog.xlb

@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
+<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Access2Base" library:readonly="false" library:passwordprotected="false">
+ <library:element library:name="dlgTrace"/>
+ <library:element library:name="dlgFormat"/>
+</library:library>

server/libreoffice/share/basic/Access2Base/dlgFormat.xdl

@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="dlgFormat" dlg:left="246" dlg:top="119" dlg:width="153" dlg:height="40" dlg:help-text="Export the form" dlg:closeable="true" dlg:moveable="true" dlg:title="OutputTo">
+ <dlg:bulletinboard>
+  <dlg:combobox dlg:id="cboFormat" dlg:tab-index="0" dlg:left="4" dlg:top="18" dlg:width="71" dlg:height="8" dlg:help-text="Format in which the form should be exported" dlg:value="PDF" dlg:spin="true">
+   <dlg:menupopup>
+    <dlg:menuitem dlg:value="PDF"/>
+    <dlg:menuitem dlg:value="ODT"/>
+    <dlg:menuitem dlg:value="DOC"/>
+    <dlg:menuitem dlg:value="HTML"/>
+   </dlg:menupopup>
+  </dlg:combobox>
+  <dlg:text dlg:id="lblFormat" dlg:tab-index="1" dlg:left="4" dlg:top="7" dlg:width="100" dlg:height="9" dlg:help-text="Format in which the form should be exported" dlg:value="Select the output format"/>
+  <dlg:button dlg:id="cmdOK" dlg:tab-index="2" dlg:left="111" dlg:top="5" dlg:width="35" dlg:height="12" dlg:help-text="Validate your choice" dlg:default="true" dlg:value="OK" dlg:button-type="ok">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Access2Base.Trace._TraceOK?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:button dlg:id="cmdCancel" dlg:tab-index="3" dlg:left="111" dlg:top="20" dlg:width="35" dlg:height="12" dlg:help-text="Cancel and close the dialog" dlg:value="Cancel" dlg:button-type="cancel"/>
+ </dlg:bulletinboard>
+</dlg:window>

server/libreoffice/share/basic/Access2Base/dlgTrace.xdl

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="dlgTrace" dlg:left="81" dlg:top="63" dlg:width="438" dlg:height="154" dlg:help-text="Manage the console file and its entries" dlg:closeable="true" dlg:moveable="true" dlg:title="Console">
+ <dlg:styles>
+  <dlg:style dlg:style-id="0" dlg:font-name="Courier New" dlg:font-stylename="Regular" dlg:font-family="modern"/>
+  <dlg:style dlg:style-id="1" dlg:look="simple"/>
+  <dlg:style dlg:style-id="2" dlg:background-color="0xe6e6e6" dlg:border="none"/>
+ </dlg:styles>
+ <dlg:bulletinboard>
+  <dlg:text dlg:id="lblEntries" dlg:tab-index="3" dlg:left="265" dlg:top="134" dlg:width="130" dlg:height="9" dlg:help-text="Clear the list and resize the circular buffer" dlg:value="Set max number of entries" dlg:align="right"/>
+  <dlg:numericfield dlg:id="numEntries" dlg:tab-index="4" dlg:left="399" dlg:top="129" dlg:width="28" dlg:height="16" dlg:help-text="Clear the list and resize the circular buffer" dlg:decimal-accuracy="0" dlg:value="20" dlg:value-min="5" dlg:value-max="999" dlg:spin="true"/>
+  <dlg:textfield dlg:style-id="0" dlg:id="txtTraceLog" dlg:tab-index="0" dlg:left="9" dlg:top="20" dlg:width="360" dlg:height="105" dlg:help-text="Text can be selected, copied, ..." dlg:hscroll="true" dlg:vscroll="true" dlg:multiline="true" dlg:readonly="true" dlg:value="--- Log file is empty ---"/>
+  <dlg:checkbox dlg:style-id="1" dlg:id="chkClear" dlg:tab-index="5" dlg:left="58" dlg:top="133" dlg:width="6" dlg:height="9" dlg:help-text="Clear the list" dlg:value="Clear" dlg:checked="false"/>
+  <dlg:button dlg:id="cmdCancel" dlg:tab-index="6" dlg:left="381" dlg:top="38" dlg:width="40" dlg:height="12" dlg:help-text="Cancel and close the dialog" dlg:value="Cancel" dlg:button-type="cancel"/>
+  <dlg:text dlg:id="lblClear" dlg:tab-index="7" dlg:left="9" dlg:top="133" dlg:width="46" dlg:height="9" dlg:help-text="Clear the list" dlg:value="Clear the list" dlg:align="right"/>
+  <dlg:text dlg:id="lblMinLevel" dlg:tab-index="8" dlg:left="74" dlg:top="133" dlg:width="130" dlg:height="9" dlg:help-text="Register only logging requests above given level" dlg:value="Set minimal trace level" dlg:align="right"/>
+  <dlg:combobox dlg:id="cboMinLevel" dlg:tab-index="9" dlg:left="209" dlg:top="133" dlg:width="50" dlg:height="9" dlg:help-text="Register only logging requests above given level" dlg:spin="true">
+   <dlg:menupopup>
+    <dlg:menuitem dlg:value="DEBUG"/>
+    <dlg:menuitem dlg:value="INFO"/>
+    <dlg:menuitem dlg:value="WARNING"/>
+    <dlg:menuitem dlg:value="ERROR"/>
+    <dlg:menuitem dlg:value="ABORT"/>
+   </dlg:menupopup>
+  </dlg:combobox>
+  <dlg:button dlg:id="cmdOK" dlg:tab-index="1" dlg:left="381" dlg:top="20" dlg:width="40" dlg:height="12" dlg:help-text="Validate" dlg:default="true" dlg:value="OK" dlg:button-type="ok"/>
+  <dlg:button dlg:id="cmdDump" dlg:tab-index="2" dlg:left="381" dlg:top="68" dlg:width="40" dlg:height="31" dlg:help-text="Choose a file and dump the actual list content in it" dlg:value="Dump to file" dlg:multiline="true">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Access2Base.Trace._DumpToFile?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:text dlg:id="lblNbEntries" dlg:tab-index="10" dlg:left="9" dlg:top="10" dlg:width="105" dlg:height="7" dlg:help-text="Actual size of list" dlg:value="Actual number of entries:"/>
+  <dlg:numericfield dlg:style-id="2" dlg:id="numNbEntries" dlg:tab-index="11" dlg:left="123" dlg:top="9" dlg:width="17" dlg:height="9" dlg:help-text="Actual size of list" dlg:readonly="true" dlg:decimal-accuracy="0" dlg:value="0"/>
+ </dlg:bulletinboard>
+</dlg:window>

server/libreoffice/share/basic/Access2Base/script.xlb

@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE library:library PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "library.dtd">
+<library:library xmlns:library="http://openoffice.org/2000/library" library:name="Access2Base" library:readonly="false" library:passwordprotected="false">
+ <library:element library:name="Application"/>
+ <library:element library:name="Methods"/>
+ <library:element library:name="acConstants"/>
+ <library:element library:name="Test"/>
+ <library:element library:name="Trace"/>
+ <library:element library:name="DoCmd"/>
+ <library:element library:name="Utils"/>
+ <library:element library:name="Database"/>
+ <library:element library:name="PropertiesSet"/>
+ <library:element library:name="Collect"/>
+ <library:element library:name="PropertiesGet"/>
+ <library:element library:name="Form"/>
+ <library:element library:name="Python"/>
+ <library:element library:name="_License"/>
+ <library:element library:name="SubForm"/>
+ <library:element library:name="L10N"/>
+ <library:element library:name="OptionGroup"/>
+ <library:element library:name="Event"/>
+ <library:element library:name="Property"/>
+ <library:element library:name="Control"/>
+ <library:element library:name="Dialog"/>
+ <library:element library:name="Field"/>
+ <library:element library:name="DataDef"/>
+ <library:element library:name="Recordset"/>
+ <library:element library:name="TempVar"/>
+ <library:element library:name="Root_"/>
+ <library:element library:name="UtilProperty"/>
+ <library:element library:name="CommandBar"/>
+ <library:element library:name="CommandBarControl"/>
+ <library:element library:name="Module"/>
+</library:library>

server/libreoffice/share/basic/Depot/CommonLang.xba

@@ -0,0 +1,368 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="CommonLang" script:language="StarBasic">REM  *****  BASIC  *****
+
+
+&apos; Column A has the index 1
+Public Const SBCOLUMNNAME1 = 3			&apos; Stock names, sheet 1
+Public Const SBCOLUMNID1 = 4			&apos; Stock ID, sheet 1
+Public Const SBCOLUMNQUANTITY1 = 5		&apos; Stock quantity sheet 1
+Public Const SBCOLUMNRATE1 = 7			&apos; Price for stocks, sheet 1
+Public Const SBCOLUMNNAME2 = 3			&apos; Stock names, sheet 2
+Public Const SBCOLUMNDATE2 = 4			&apos; Transaction dates, sheet 2
+Public Const SBCOLUMNQUANTITY2 = 5		&apos; Transaction quantity, sheet 2
+Public Const SBCOLUMNRATE2 = 6			&apos; Price for stocks, sheet 2
+Public Const SBCOLUMNPROVPERCENT2 = 7	&apos; Provision in %, sheet 2
+Public Const SBCOLUMNPROVMIN2 = 8		&apos; Minimum provision, sheet 2
+Public Const SBCOLUMNPROVFIX2 = 9		&apos; Fixed provision, sheet 2
+Public Const SBCOLUMNPROCEEDS2 = 12		&apos; Profit, sheet 2
+Public Const SBCOLUMNQTYSOLD2 = 14		&apos; Quantity sold, sheet 2
+Public Const SBCOLUMNQTYREST2 = 15		&apos; Quantity not sold yet, sheet 2
+Public Const SBCOLUMNPRCREST2 = 16		&apos; Proportional price for quantity not sold yet, sheet 2
+Public Const SBCOLUMNREALPROC2 = 17		&apos; Realized proceeds, sheet 2
+Public Const SBCOLUMNDIVIDEND2 = 18		&apos; Dividend paid, sheet 2
+Public Const SBCOLUMNREALPROFIT2 = 19	&apos; Realized profit, sheet 2
+Public Const SBROWFIRSTTRANSACT2 = 8	&apos; First data row, sheet 2
+Public Const SBROWHEADER1 = 6			&apos; Headline, sheet 1
+Public Const SBMSGOK = 0
+Public Const SBMSGYESNO = 4
+Public Const SBMSGSTOP = 16
+Public Const SBMSGQUESTION = 32
+Public Const SBMSGDEFAULTBTN2 = 256
+Public Const SBHASID = 1				&apos; 0 = no ID, 1 = stocks have an ID
+Public Const SBDIALOGSELL = 1			&apos; Step for main dialog
+Public Const SBDIALOGBUY = 2			&apos; Step for main dialog
+Public Const SBBINARY = 0
+Public TransactMode as Integer
+Public Const LIFO = -1
+Public Const FIFO = 1
+
+Public Const HANDLEDIVIDEND = 1
+Public Const HANDLESPLIT = 2
+
+Global oDocument as Object
+Global oDocFormats() as Object
+Global oController as Object
+Global oFirstSheet as Object
+Global oBankSheet as Object
+Global oMovementSheet as Object
+Global sDocLanguage as String
+Global sDocCountry as String
+Global oSheets as Object
+Global oDocLocale as New com.sun.star.lang.Locale
+Global bEnableMarket as Boolean
+Global bEnableInternet as Boolean
+Global oMarketModel as Object
+Global oInternetModel as Object
+
+Global sCurCurrency$, sCurExtension$, sCurChartSource$, sCurStockIDLabel$, sCurSeparator$
+
+Public oNumberFormatter as Object
+Public bDebugmode as Boolean
+Global GlobListindex as Integer
+Public blabla() as String
+Public SplitDate as Date
+Public oChartSheet as Object
+Public oBackgroundSheet as Object
+Public Const SBDATECOLUMN = 3
+Public Const SBVALUECOLUMN = 4
+Public Const SBSTARTROW = 25
+Public Const SBCHARTPERIOD = 14
+Public Const SBINTERVAL = &quot;d&quot;
+Public sColumnHeader as String
+Public StartDate as Date
+Public EndDate as Date
+Public iCurRow as Integer
+Public iMaxRow as Integer
+Public iStartDay as Integer
+Public iStartMonth as Integer
+Public iStartYear as Integer
+Public iEndDay as Integer
+Public iEndMonth as Integer
+Public iEndYear as Integer
+Public oStatusLine as Object
+Public Today as Date
+Public sInterval as String
+Public ShortMonths(11,1)
+Public iStep as Integer
+Public sDepotCurrency as String
+Public iValueCol as Integer
+
+Public DlgReference as Object
+Public DlgTransaction as Object	
+Public DlgStockRates as Object
+Public DlgStartUp as Object
+Public TransactModel as Object
+Public StockRatesModel as Object
+Public StartUpModel as Object
+Public StockRatesTitle(1 To 3)
+Public TransactTitle(1 To 2)
+Public NullList()
+Public sStartupWelcome$, sStartupChooseMarket$, sStartupHint$
+
+Public sMarket(7,10) as String
+Public sCountryMarket(7,10) as String
+
+Public cDlgCaption1$, cDlgCaption2$
+Public sMsgError$, sMsgNoName$, sMsgNoQuantity$, sMsgNoDividend$, sMsgNoExchangeRate$
+Public sMsgNoValidExchangeDate$, sMsgWrongExchangeDate$, sMsgSellTooMuch$, sMsgConfirm$
+Public sMsgFreeStock$, sMsgTotalLoss$, sMsgEndDatebeforeNow$, sMsgStartDatebeforeEndDate$
+
+Public sOk$, sCancel$
+Public sMsgAuthorization$, sMsgDeleteAll$
+Public SellMethod$
+Public cSplit$
+Global HistoryChartSource as String
+Public DateCellStyle as String
+Public CurrCellStyle as String
+Public sStartDate$, sEndDate$, sHistory$
+Public sInsertStockname$
+Public sProductname$, sTitle$
+Public sInsertStocks$, sStockname$, sNoInternetUpdate$, sMarketplace$, sNoInternetDataAvailable$
+Public sCheckInternetSettings as String
+
+Sub LoadLanguage()
+	LoadDepotDialogs()
+	Select Case sDocLanguage
+		Case &quot;de&quot;
+			LoadGermanLanguage()
+		Case &quot;en&quot;
+			LoadEnglishLanguage()			
+		Case &quot;fr&quot;
+			LoadFrenchLanguage()
+		Case &quot;it&quot;
+			LoadItalianLanguage()		
+		Case &quot;es&quot;
+			LoadSpanishLanguage()
+		Case &quot;sv&quot;
+			LoadSwedishLanguage()
+		Case &quot;ja&quot;
+			LoadJapaneseLanguage()
+		Case &quot;ko&quot;
+			LoadKoreanLanguage()			
+		Case &quot;zh&quot;
+			If sDocCountry = &quot;CN&quot; Then
+				LoadChineseSimpleLanguage()
+			Else
+				LoadChineseTradLanguage()
+			End If				
+	End Select
+	InitializeStartUpModel()	
+End Sub	
+
+Sub CompleteMarketList()
+Dim EuroIndex as Integer
+Dim LocCountry as String
+Dim LocLanguage as String
+Dim sLangList() as String
+Dim sCountryList() as String
+Dim sExtensionList() as String
+Dim MaxIndex as Integer
+Dim bIsLocale as Boolean
+
+	GlobListIndex = -1
+	For n = 0 To 5
+		LocLanguage = sMarket(n,6)
+		LocCountry = sMarket(n,7)
+		If Instr(1,LocLanguage,&quot;;&quot;,SBBINARY) = 0 Then
+			bIsLocale = CheckDocLocale(LocLanguage, LocCountry)
+		Else
+			EuroIndex = 0
+			sLangList() = ArrayoutofString(LocLanguage, &quot;;&quot;, MaxIndex)
+			sCountryList() = ArrayoutofString(LocCountry, &quot;;&quot;, MaxIndex)
+			sExtensionList() = ArrayoutofString(sMarket(n,8), &quot;;&quot;, MaxIndex)
+			For m = 0 To MaxIndex
+				bIsLocale = CheckDocLocale(sLangList(m), sCountryList(m))
+				If bIsLocale Then
+					EuroIndex = m
+					Exit For								
+				End If
+			Next m	
+			sMarket(n,6) = sLangList(EuroIndex)
+			sMarket(n,7) = sCountryList(EuroIndex)
+			sMarket(n,8) = sExtensionList(EuroIndex)
+		End If
+		If bIsLocale Then
+			GlobListIndex = n
+			Exit For
+		End If
+	Next n
+End Sub	
+
+Sub LocalizedCurrencies()
+	If GlobListIndex = -1 Then
+		sCountryMarket(0,0) = &quot;Euro&quot;
+		sCountryMarket(0,1) = chr(8364)
+		sCountryMarket(0,2) = &quot;Paris&quot;
+		sCountryMarket(0,3) = &quot;http://fr.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.PA&amp;f=s4l1t1c1ghov&amp;e=.csv&quot;
+		sCountryMarket(0,5) = &quot;Code&quot;
+		sCountryMarket(0,6) = &quot;fr&quot;			
+		sCountryMarket(0,7) = &quot;FR&quot;
+		sCountryMarket(0,8) = &quot;40C&quot;
+		sCountryMarket(0,9) = &quot;59/9&quot;
+		sCountryMarket(0,10) = &quot;1&quot;
+
+		sCountryMarket(1,0) = &quot;Euro&quot;
+		sCountryMarket(1,1) = chr(8364)
+		sCountryMarket(1,2) = &quot;Milano&quot;
+		sCountryMarket(1,3) = &quot;http://it.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.MI&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+		sCountryMarket(1,5) = &quot;Codice&quot;
+		sCountryMarket(1,6) = &quot;it&quot;
+		sCountryMarket(1,7) = &quot;IT&quot;
+		sCountryMarket(1,8) = &quot;410&quot;
+		sCountryMarket(1,9) = &quot;44&quot;
+		sCountryMarket(1,10) = &quot;1&quot;
+
+		sCountryMarket(2,0) = &quot;Euro&quot;
+		sCountryMarket(2,1) = chr(8364)
+		sCountryMarket(2,2) = &quot;Madrid&quot;
+		sCountryMarket(2,3) = &quot;http://es.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;m=MC&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+		sCountryMarket(2,5) = &quot;Simbolo&quot;
+		sCountryMarket(2,6) = &quot;es&quot;
+		sCountryMarket(2,7) = &quot;ES&quot;
+		sCountryMarket(2,8) = &quot;40A&quot;
+		sCountryMarket(2,9) = &quot;44&quot;
+		sCountryMarket(2,10) = &quot;1&quot;
+
+		sCountryMarket(3,0) = &quot;Dansk krone&quot;
+		sCountryMarket(3,1) = &quot;kr&quot;
+		sCountryMarket(3,2) = &quot;København&quot;
+		sCountryMarket(3,3) = &quot;http://dk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID.CO&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+		sCountryMarket(3,5) = &quot;Aktiesymbol&quot;
+		sCountryMarket(3,6) = &quot;da&quot;
+		sCountryMarket(3,7) = &quot;DK&quot;
+		sCountryMarket(3,8) = &quot;406&quot;
+		sCountryMarket(3,9) = &quot;44&quot;
+		sCountryMarket(3,10) = &quot;1&quot;
+
+		sCountryMarket(4,0) = &quot;Svensk krona&quot;
+		sCountryMarket(4,1) = &quot;kr&quot;
+		sCountryMarket(4,2) = &quot;Stockholm&quot;
+		sCountryMarket(4,3) = &quot;http://se.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;f=sl1d1t1c1ohgv&amp;e=.c&quot;
+		sCountryMarket(4,5) = &quot;Kod&quot;			
+		sCountryMarket(4,6) = &quot;sv&quot;			
+		sCountryMarket(4,7) = &quot;SE&quot;
+		sCountryMarket(4,8) = &quot;41D&quot;
+		sCountryMarket(4,9) = &quot;44&quot;
+		sCountryMarket(4,10) = &quot;1&quot;
+
+		&apos; Taiwan Dollar
+		sCountryMarket(5,0) = &quot;新臺幣&quot;
+		sCountryMarket(5,1) = &quot;￥&quot;
+		sCountryMarket(5,2) = &quot;代號&quot;
+		sCountryMarket(5,3) = &quot;http://tw.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.TW&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+		sCountryMarket(5,5) = &quot;代號&quot;			
+		sCountryMarket(5,6) = &quot;zh&quot;			
+		sCountryMarket(5,7) = &quot;TW&quot;	
+		sCountryMarket(5,8) = &quot;404&quot;
+		sCountryMarket(5,9) = &quot;44&quot;
+		sCountryMarket(5,10) = &quot;1&quot;		
+
+		&apos; Chinese Yuan
+		sCountryMarket(6,0) = &quot;人民币&quot;
+		sCountryMarket(6,1) = &quot;￥&quot;
+		sCountryMarket(6,2) = &quot;代号&quot;
+		sCountryMarket(6,3) = &quot;http://cn.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.SS&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+		sCountryMarket(6,5) = &quot;代号&quot;
+		sCountryMarket(6,6) = &quot;zh&quot;			
+		sCountryMarket(6,7) = &quot;CN&quot;	
+		sCountryMarket(6,8) = &quot;804&quot;
+		sCountryMarket(6,9) = &quot;44&quot;
+		sCountryMarket(6,10) = &quot;1&quot;
+		
+		&apos; korean Won
+		sCountryMarket(7,0) = &quot;한국 원화&quot;
+		sCountryMarket(7,1) = &quot;￦&quot;
+		sCountryMarket(7,2) = &quot;서울&quot;
+		sCountryMarket(7,3) = &quot;http://kr.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.KS&amp;f=snl1d1t1c1ohgv&amp;e=.csv&quot;
+		sCountryMarket(7,5) = &quot;종목 코드&quot;
+		sCountryMarket(7,6) = &quot;ko&quot;
+		sCountryMarket(7,7) = &quot;KR&quot;			
+		sCountryMarket(7,8) = &quot;412&quot;
+		sCountryMarket(7,9) = &quot;44&quot;
+		sCountryMarket(7,10) = &quot;2&quot;
+
+
+&apos;		sCountryMarket(5,0) = &quot;Российский рубль&quot;
+&apos;		sCountryMarket(5,1) = &quot;р.&quot;
+&apos;		sCountryMarket(5,2) = &quot;&quot;
+&apos;		sCountryMarket(5,3) = &quot;&quot;
+&apos;		sCountryMarket(5,5) = &quot;&quot;				
+&apos;		sCountryMarket(5,6) = &quot;ru&quot;			
+&apos;		sCountryMarket(5,7) = &quot;RU&quot;	
+&apos;		sCountryMarket(5,8) = &quot;-419&quot;
+&apos;		sCountryMarket(5,9) = &quot;&quot;
+&apos;
+&apos;		sCountryMarket(6,0) = &quot;Złoty polski&quot;
+&apos;		sCountryMarket(6,1) = &quot;zł&quot;
+&apos;		sCountryMarket(6,2) = &quot;&quot;
+&apos;		sCountryMarket(6,3) = &quot;&quot;
+&apos;		sCountryMarket(6,5) = &quot;&quot;				&apos;Still Todo!!
+&apos;		sCountryMarket(6,6) = &quot;pl&quot;			
+&apos;		sCountryMarket(6,7) = &quot;PL&quot;	
+&apos;		sCountryMarket(6,8) = &quot;-415&quot;
+&apos;		sCountryMarket(6,9) = &quot;&quot;
+&apos;
+&apos;		sCountryMarket(7,0) = &quot;Türkische Lira&quot;
+&apos;		sCountryMarket(7,1) = &quot;TL&quot;
+&apos;		sCountryMarket(7,2) = &quot;&quot;
+&apos;		sCountryMarket(7,3) = &quot;&quot;
+&apos;		sCountryMarket(7,5) = &quot;&quot;				&apos;Still Todo!!
+&apos;		sCountryMarket(7,6) = &quot;tr&quot;			
+&apos;		sCountryMarket(7,7) = &quot;TR&quot;	
+&apos;		sCountryMarket(7,8) = &quot;-41F&quot;
+&apos;		sCountryMarket(7,9) = &quot;&quot;
+
+	Dim n as Integer
+	Dim m as Integer
+&apos;	Dim sCountryMarket(6,9) as String
+	
+		For n = 0 To Ubound(sCountryMarket(),1)
+			If sDocLanguage = sCountryMarket(n,6) and sDocCountry = sCountryMarket(n,7) Then
+				GlobListIndex = 6
+				For m = 0 To 10
+					sMarket(6,m) = sCountryMarket(n,m)
+				Next m
+				Exit For
+			End If
+		Next n		
+	End If
+End Sub
+
+Sub LoadDepotDialogs()
+	DlgTransaction = LoadDialog(&quot;Depot&quot;, &quot;Dialog2&quot;)
+	DlgStockRates = LoadDialog(&quot;Depot&quot;, &quot;Dialog3&quot;)
+	DlgStartUp = LoadDialog(&quot;Depot&quot;, &quot;Dialog4&quot;)
+	TransactModel = DlgTransaction.Model
+	StockRatesModel = DlgStockRates.Model	
+	StartUpModel = DlgStartUp.Model
+End Sub	
+
+
+Sub InitializeStartUpModel()
+	With StartUpModel
+		.lblWelcome.Label = sStartupWelcome &amp; Chr(13) &amp; chr(13) &amp; sStartUpChooseMarket
+		sStartUpHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+		.lblHint.Label = sStartupHint
+&apos;		.cmdGoOn.Enabled = Ubound(StartUpModel.lstMarkets.SelectedItems()) &lt;&gt; -1
+		.cmdGoOn.Label = sOK 
+		.cmdCancel.Label = sCancel
+	End With
+End Sub</script:module>

server/libreoffice/share/basic/Depot/Currency.xba

@@ -0,0 +1,195 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Currency" script:language="StarBasic">REM  *****  BASIC  *****
+Option Explicit
+
+Dim bDoUnLoad as Boolean
+
+
+Sub Startup()
+Dim i as Integer
+Dim a as Integer
+Dim ListString as String
+Dim MarketListBoxControl as Object
+	Initialize(False)
+	MarketListBoxControl = DlgStartUp.GetControl(&quot;lstMarkets&quot;)
+	a = 0
+	For i = 0 To Ubound(sMarket(),1)
+		ListString = sMarket(i,0)
+		If sMarket(i,0) &lt;&gt; &quot;&quot; Then
+			If sMarket(i,3) = &quot;&quot; Then
+				ListString = ListString &amp; &quot;    (&quot; &amp; sNoInternetUpdate &amp; &quot;)&quot;
+			Else
+				ListString = ListString &amp; &quot;    (&quot; &amp; sMarketplace &amp; &quot; &quot; &amp; sMarket(i,2) &amp; &quot;)&quot;
+			End If
+			MarketListBoxControl.AddItem(ListString, a)
+			a = a + 1
+		End If
+	Next i
+	MarketListBoxControl.SelectItemPos(GlobListIndex, True)
+	DlgStartUp.Title = sDepotCurrency
+	DlgStartUp.Model.cmdGoOn.DefaultButton = True
+	DlgStartUp.GetControl(&quot;lstMarkets&quot;).SetFocus()
+	DlgStartUp.Execute()
+	DlgStartUp.Dispose()
+End Sub
+
+
+Sub EnableGoOnButton()
+	StartUpModel.cmdGoOn.Enabled = True
+	StartUpModel.cmdGoOn.DefaultButton = True
+End Sub
+
+
+Sub CloseStartUpDialog()
+	DlgStartUp.EndExecute()
+&apos;	oDocument.Dispose()
+End Sub
+
+
+Sub DisposeDocument()
+	If bDoUnload Then
+		oDocument.Dispose()
+	End If		
+End Sub
+
+
+Sub ChooseMarket(Optional aEvent)
+Dim Index as Integer
+Dim bIsDocLanguage as Boolean
+Dim bIsDocCountry as Boolean
+	oInternetModel = GetControlModel(oDocument.Sheets(0), &quot;CmdInternet&quot;)
+	If Not IsMissing(aEvent) Then
+		Index = StartupModel.lstMarkets.SelectedItems(0)
+		oInternetModel.Tag = Index
+	Else
+		Index = oInternetModel.Tag
+	End If
+	oMarketModel = GetControlModel(oDocument.Sheets(0), &quot;CmdHistory&quot;)
+	sCurCurrency = sMarket(Index,1)
+	If Index = 0 Then
+		HistoryChartSource = sMarket(Index,4)
+	End If
+	sCurStockIDLabel = sMarket(Index,5)
+	sCurExtension = sMarket(Index,8)
+	iValueCol = Val(sMarket(Index,10))
+	If Instr(sCurExtension,&quot;;&quot;) &lt;&gt; 0 Then
+		&apos; Take the german extension as the stock place is Frankfurt
+		sCurExtension = &quot;407&quot;
+	End If		
+	sCurChartSource = sMarket(Index,3)
+	bIsDocLanguage = Instr(1, sMarket(Index,6), sDocLanguage, SBBINARY) &lt;&gt; 0
+	bIsDocCountry = Instr(1, sMarket(Index,7), sDocCountry, SBBINARY) &lt;&gt; 0  OR SDocCountry = &quot;&quot;
+	sCurSeparator = sMarket(Index,9)
+	TransactModel.txtRate.CurrencySymbol = sCurCurrency
+	TransactModel.txtFix.CurrencySymbol = sCurCurrency
+	TransactModel.txtMinimum.CurrencySymbol = sCurCurrency
+	bEnableMarket = Index = 0
+	bEnableInternet = sCurChartSource &lt;&gt; &quot;&quot;
+	oMarketModel.Enabled = bEnableMarket	
+	oInternetModel.Enabled = bEnableInternet
+	If Not IsMissing(aEvent) Then
+		ConvertStylesCurrencies()
+		bDoUnload = False
+		DlgStartUp.EndExecute()
+	End If
+End Sub
+
+
+Sub ConvertStylesCurrencies()
+Dim m as integer
+Dim aStyleFormat as Object
+Dim StyleName as String
+Dim bAddToList as Boolean
+Dim oStyle as Object
+Dim oStyles as Object
+ 	UnprotectSheets(oSheets)
+	oFirstSheet.GetCellByPosition(SBCOLUMNID1, SBROWHEADER1).SetString(sCurStockIDLabel)
+	oStyles = oDocument.StyleFamilies.GetbyIndex(0)
+	For m = 0 To oStyles.count-1
+		oStyle = oStyles.GetbyIndex(m)
+		StyleName = oStyle.Name
+		bAddToList = CheckFormatType(oStyle)
+		If bAddToList Then 
+			SwitchNumberFormat(ostyle, oDocFormats, sCurCurrency, sCurExtension)
+		End If
+	Next m
+	ProtectSheets(oSheets)
+End Sub
+
+
+Sub SwitchNumberFormat(oObject as Object, oFormats as object, sNewSymbol as String, sNewExtension as String)
+Dim nFormatLanguage as Integer
+Dim nFormatDecimals as Integer
+Dim nFormatLeading as Integer
+Dim bFormatLeading as Integer
+Dim bFormatNegRed as Integer
+Dim bFormatThousands as Integer
+Dim aNewStr as String
+Dim iNumberFormat as Long
+Dim sSimpleStr as String
+Dim nSimpleKey as Long
+Dim aFormat()
+Dim oLocale as New com.sun.star.lang.Locale
+	&apos; Numberformat with the new Symbol as Base for new Format
+	sSimpleStr = &quot;0 [$&quot; &amp; sNewSymbol &amp; &quot;-&quot; &amp; sNewExtension &amp; &quot;]&quot;
+	nSimpleKey = Numberformat(oFormats, sSimpleStr, oDocLocale)
+	On Local Error Resume Next
+	iNumberFormat = oObject.NumberFormat
+	If Err &lt;&gt; 0 Then
+		Msgbox &quot;Error Reading the Number Format&quot;
+		Resume CLERROR
+	End If
+
+	On Local Error GoTo NOKEY
+	aFormat() = oFormats.getByKey(iNumberFormat)
+	On Local Error GoTo 0
+	&apos; set new currency format with according settings
+	nFormatDecimals = aFormat.Decimals
+	nFormatLeading = aFormat.LeadingZeros
+	bFormatNegRed = aFormat.NegativeRed
+	bFormatThousands = aFormat.ThousandsSeparator
+	oLocale = aFormat.Locale
+	aNewStr = oFormats.generateFormat(nSimpleKey, oLocale, bFormatThousands, bFormatNegRed, nFormatDecimals, nFormatLeading)
+	oObject.NumberFormat = Numberformat(oFormats, aNewStr, oLocale)
+	NOKEY:
+	If Err &lt;&gt; 0 Then
+		Resume CLERROR
+	End If
+	CLERROR:
+End Sub
+
+
+Function Numberformat( oFormats as Object, aFormatStr as String, oLocale as Variant )
+Dim nRetkey 
+	nRetKey = oFormats.queryKey(aFormatStr, oLocale, True)
+	If nRetKey = -1 Then
+		nRetKey = oFormats.addNew( aFormatStr, oLocale )
+		If nRetKey = -1 Then nRetKey = 0
+	End If
+	Numberformat = nRetKey
+End Function
+
+
+Function CheckFormatType(oStyle as Object)
+Dim oFormatofObject as Object
+	oFormatofObject = oDocFormats.getByKey(oStyle.NumberFormat)
+  	CheckFormatType = INT(oFormatOfObject.Type) AND com.sun.star.util.NumberFormat.CURRENCY
+End Function</script:module>

server/libreoffice/share/basic/Depot/Dialog2.xdl

@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog2" dlg:tab-index="0" dlg:left="91" dlg:top="24" dlg:width="220" dlg:height="128" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_DIALOG_SELLBUY" dlg:closeable="true" dlg:moveable="true">
+ <dlg:bulletinboard>
+  <dlg:text dlg:id="lblStockNames" dlg:tab-index="0" dlg:left="6" dlg:top="6" dlg:width="102" dlg:height="8" dlg:value="lblStockNames"/>
+  <dlg:menulist dlg:id="lstSellStocks" dlg:tab-index="1" dlg:left="6" dlg:top="17" dlg:width="102" dlg:height="12" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_1_LSTSELLSTOCKS" dlg:spin="true">
+   <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:Depot.Depot.SelectStockname?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:menulist>
+  <dlg:combobox dlg:id="lstBuyStocks" dlg:tab-index="2" dlg:left="6" dlg:top="17" dlg:width="102" dlg:height="12" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_2_LSTBUYSTOCKS" dlg:spin="true">
+   <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:Depot.Depot.SelectStockname?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:combobox>
+  <dlg:text dlg:id="lblStockID" dlg:tab-index="3" dlg:left="150" dlg:top="6" dlg:width="66" dlg:height="8" dlg:value="lblStockID"/>
+  <dlg:textfield dlg:id="txtStockID" dlg:tab-index="4" dlg:left="150" dlg:top="17" dlg:width="40" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTSTOCKID_SELLBUY"/>
+  <dlg:text dlg:id="lblQuantity" dlg:tab-index="5" dlg:left="6" dlg:top="36" dlg:width="57" dlg:height="8" dlg:value="lblQuantity"/>
+  <dlg:numericfield dlg:id="txtQuantity" dlg:tab-index="6" dlg:left="6" dlg:top="47" dlg:width="46" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTQUANTITY" dlg:decimal-accuracy="0" dlg:value-min="1"/>
+  <dlg:currencyfield dlg:id="txtRate" dlg:tab-index="7" dlg:left="68" dlg:top="47" dlg:width="40" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTRATE" dlg:value-min="0"/>
+  <dlg:datefield dlg:id="txtDate" dlg:tab-index="8" dlg:left="150" dlg:top="47" dlg:width="50" dlg:height="12" dlg:tag="Dialog2" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTDATE" dlg:strict-format="true" dlg:spin="true">
+   <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:Depot.tools.CheckInputDate?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:datefield>
+  <dlg:text dlg:id="lblRate" dlg:tab-index="9" dlg:left="68" dlg:top="36" dlg:width="77" dlg:height="8" dlg:value="lblRate"/>
+  <dlg:text dlg:id="lblDate" dlg:tab-index="10" dlg:left="150" dlg:top="37" dlg:width="66" dlg:height="8" dlg:value="lblDate"/>
+  <dlg:formattedfield dlg:id="txtCommission" dlg:tab-index="11" dlg:left="6" dlg:top="90" dlg:width="40" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTCOMMISSION" dlg:format-code="0,00%" dlg:format-locale="de;DE"/>
+  <dlg:text dlg:id="lblCommission" dlg:tab-index="12" dlg:left="6" dlg:top="79" dlg:width="60" dlg:height="8" dlg:value="lblCommission"/>
+  <dlg:currencyfield dlg:id="txtFix" dlg:tab-index="13" dlg:left="68" dlg:top="90" dlg:width="40" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTFIX" dlg:value-min="0"/>
+  <dlg:currencyfield dlg:id="txtMinimum" dlg:tab-index="14" dlg:left="150" dlg:top="90" dlg:width="40" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTMINIMUM" dlg:value-min="0"/>
+  <dlg:text dlg:id="lblFix" dlg:tab-index="15" dlg:left="68" dlg:top="79" dlg:width="71" dlg:height="8" dlg:value="lblFix"/>
+  <dlg:text dlg:id="lblMinimum" dlg:tab-index="16" dlg:left="150" dlg:top="79" dlg:width="66" dlg:height="8" dlg:value="lblMinimum"/>
+  <dlg:button dlg:id="cmdCancel" dlg:tab-index="17" dlg:left="58" dlg:top="109" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_CMDCANCEL_SELLBUY" dlg:value="cmdCancel">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Depot.Depot.CancelTransaction?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:button dlg:id="cmdGoOn" dlg:tab-index="18" dlg:left="111" dlg:top="109" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_CMDGOON_SELLBUY" dlg:value="cmdGoOn">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Depot.Depot.TransactionOk?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:fixedline dlg:id="hlnCommission" dlg:tab-index="19" dlg:left="6" dlg:top="66" dlg:width="210" dlg:height="8" dlg:value="hlnCommission"/>
+ </dlg:bulletinboard>
+</dlg:window>

server/libreoffice/share/basic/Depot/Dialog3.xdl

@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog3" dlg:left="161" dlg:top="81" dlg:width="176" dlg:height="119" dlg:page="3" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_DIALOG_SPLIT" dlg:closeable="true" dlg:moveable="true">
+ <dlg:bulletinboard>
+  <dlg:text dlg:id="lblStockNames" dlg:tab-index="0" dlg:left="6" dlg:top="6" dlg:width="98" dlg:height="8" dlg:value="lblStockNames"/>
+  <dlg:menulist dlg:id="lstStockNames" dlg:tab-index="1" dlg:left="5" dlg:top="17" dlg:width="102" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_LSTSTOCKNAMES" dlg:spin="true">
+   <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:Depot.Depot.SelectStockNameForRates?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:menulist>
+  <dlg:textfield dlg:id="txtStockID" dlg:tab-index="2" dlg:left="120" dlg:top="17" dlg:width="50" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_TXTSTOCKID_SPLIT"/>
+  <dlg:datefield dlg:id="txtStartDate" dlg:tab-index="3" dlg:left="63" dlg:top="37" dlg:width="50" dlg:height="12" dlg:page="3" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_3_TXTSTARTDATE" dlg:spin="true">
+   <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:Depot.tools.CheckInputDate?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:datefield>
+  <dlg:datefield dlg:id="txtEndDate" dlg:tab-index="4" dlg:left="63" dlg:top="53" dlg:width="50" dlg:height="12" dlg:page="3" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_3_TXTENDDATE" dlg:spin="true">
+   <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:Depot.tools.CheckInputDate?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:datefield>
+  <dlg:radiogroup>
+   <dlg:radio dlg:id="optDaily" dlg:tab-index="5" dlg:left="12" dlg:top="83" dlg:width="75" dlg:height="10" dlg:page="3" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_3_OPTDAILY" dlg:value="optDaily"/>
+   <dlg:radio dlg:id="optWeekly" dlg:tab-index="6" dlg:left="101" dlg:top="83" dlg:width="69" dlg:height="10" dlg:page="3" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_3_OPTWEEKLY" dlg:value="optWeekly"/>
+  </dlg:radiogroup>
+  <dlg:datefield dlg:id="txtDate" dlg:tab-index="7" dlg:left="71" dlg:top="73" dlg:width="50" dlg:height="12" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_2_TXTDATE" dlg:spin="true">
+   <script:event script:event-name="on-textchange" script:macro-name="vnd.sun.star.script:Depot.tools.CheckInputDate?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:datefield>
+  <dlg:radiogroup>
+   <dlg:radio dlg:id="optPerShare" dlg:tab-index="8" dlg:left="6" dlg:top="37" dlg:width="69" dlg:height="10" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_1_OPTPERSHARE" dlg:value="optPerShare"/>
+   <dlg:radio dlg:id="optTotal" dlg:tab-index="9" dlg:left="6" dlg:top="51" dlg:width="69" dlg:height="10" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_1_OPTTOTAL" dlg:value="optTotal"/>
+  </dlg:radiogroup>
+  <dlg:currencyfield dlg:id="txtDividend" dlg:tab-index="10" dlg:left="6" dlg:top="80" dlg:width="50" dlg:height="12" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_1_TXTDIVIDEND" dlg:value-min="0" dlg:spin="true"/>
+  <dlg:button dlg:id="cmdCancel" dlg:tab-index="11" dlg:left="41" dlg:top="98" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_CMDCANCEL_SPLIT" dlg:value="cmdCancel">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Depot.Depot.CancelStockRate?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:button dlg:id="cmdGoOn" dlg:tab-index="12" dlg:left="94" dlg:top="98" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_CMDGOON_SPLIT" dlg:value="cmdGoOn">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Depot.Depot.CommitStockRate?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:text dlg:id="lblStockID" dlg:tab-index="13" dlg:left="120" dlg:top="6" dlg:width="50" dlg:height="8" dlg:value="lblStockID"/>
+  <dlg:text dlg:id="lblDividend" dlg:tab-index="14" dlg:left="6" dlg:top="68" dlg:width="73" dlg:height="8" dlg:page="1" dlg:value="lblDividend"/>
+  <dlg:text dlg:id="lblExchangeRate" dlg:tab-index="15" dlg:left="6" dlg:top="39" dlg:width="92" dlg:height="8" dlg:page="2" dlg:value="lblExchangeRate"/>
+  <dlg:text dlg:id="lblColon" dlg:tab-index="16" dlg:left="40" dlg:top="55" dlg:width="5" dlg:height="8" dlg:page="2" dlg:value=" :"/>
+  <dlg:text dlg:id="lblDate" dlg:tab-index="17" dlg:left="5" dlg:top="75" dlg:width="66" dlg:height="8" dlg:page="2" dlg:value="lblDate"/>
+  <dlg:fixedline dlg:id="hlnInterval" dlg:tab-index="18" dlg:left="6" dlg:top="72" dlg:width="164" dlg:height="8" dlg:page="3" dlg:value="hlnInterval"/>
+  <dlg:text dlg:id="lblStartDate" dlg:tab-index="19" dlg:left="6" dlg:top="39" dlg:width="53" dlg:height="8" dlg:page="3" dlg:value="lblStartDate"/>
+  <dlg:text dlg:id="lblEndDate" dlg:tab-index="20" dlg:left="6" dlg:top="55" dlg:width="53" dlg:height="8" dlg:page="3" dlg:value="lblEndDate"/>
+  <dlg:numericfield dlg:id="txtOldRate" dlg:tab-index="21" dlg:left="6" dlg:top="53" dlg:width="30" dlg:height="12" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_2_TXTOLDRATE" dlg:decimal-accuracy="0" dlg:value-min="1" dlg:spin="true"/>
+  <dlg:numericfield dlg:id="txtNewRate" dlg:tab-index="22" dlg:left="50" dlg:top="53" dlg:width="30" dlg:height="12" dlg:page="2" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_2_TXTNEWRATE" dlg:decimal-accuracy="0" dlg:value-min="1" dlg:spin="true"/>
+ </dlg:bulletinboard>
+</dlg:window>

server/libreoffice/share/basic/Depot/Dialog4.xdl

@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="Dialog4" dlg:left="161" dlg:top="81" dlg:width="160" dlg:height="120" dlg:page="1" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_DIALOG_HISTORY" dlg:closeable="true" dlg:moveable="true">
+ <dlg:bulletinboard>
+  <dlg:text dlg:id="lblWelcome" dlg:tab-index="0" dlg:left="6" dlg:top="6" dlg:width="148" dlg:height="49" dlg:value="lblWelcome" dlg:multiline="true"/>
+  <dlg:text dlg:id="lblHint" dlg:tab-index="1" dlg:left="6" dlg:top="73" dlg:width="148" dlg:height="26" dlg:value="lblHint" dlg:multiline="true"/>
+  <dlg:button dlg:id="cmdCancel" dlg:tab-index="2" dlg:left="28" dlg:top="100" dlg:width="50" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_CMDCANCEL_HISTORY" dlg:value="cmdCancel">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Depot.Currency.CloseStartUpDialog?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:button dlg:id="cmdGoOn" dlg:tab-index="3" dlg:left="84" dlg:top="100" dlg:width="52" dlg:height="14" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_0_CMDGOON_HISTORY" dlg:value="cmdGoOn">
+   <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Depot.Currency.ChooseMarket?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:button>
+  <dlg:menulist dlg:id="lstMarkets" dlg:tab-index="4" dlg:left="6" dlg:top="57" dlg:width="148" dlg:height="12" dlg:help-url="HID:WIZARDS_HID_DLGDEPOT_LSTMARKETS" dlg:spin="true">
+   <script:event script:event-name="on-itemstatechange" script:macro-name="vnd.sun.star.script:Depot.Currency.EnableGoOnButton?language=Basic&amp;location=application" script:language="Script"/>
+  </dlg:menulist>
+ </dlg:bulletinboard>
+</dlg:window>

server/libreoffice/share/basic/Depot/Internet.xba

@@ -0,0 +1,356 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Internet" script:language="StarBasic">REM  *****  BASIC  *****
+Option Explicit
+Public sNewSheetName as String
+
+Function CheckHistoryControls()
+Dim bLocGoOn as Boolean
+Dim Firstdate as Date
+Dim LastDate as Date
+	LastDate = CDateFromUNODate(StockRatesModel.txtEndDate.Date)
+	FirstDate = CDateFromUNODate(StockRatesModel.txtStartDate.Date)
+	bLocGoOn = FirstDate &lt;&gt; 0 And LastDate &lt;&gt; 0
+	If bLocGoOn Then
+		If FirstDate &gt;= LastDate Then
+			Msgbox(sMsgStartDatebeforeEndDate,16, sProductname)
+			bLocGoOn = False
+		End If
+	End If
+	CheckHistoryControls = bLocGoon
+End Function
+
+ 
+Sub InsertCompanyHistory()
+Dim StockName as String
+Dim CurRow as Integer
+Dim sMsgInternetError as String
+Dim CurRate as Double
+Dim oCell as Object
+Dim sStockID as String
+Dim ChartSource as String	
+	If CheckHistoryControls() Then
+		StartDate = CDateFromUNODate(StockRatesModel.txtStartDate.Date)
+		EndDate = CDateFromUNODate(StockRatesModel.txtEndDate.Date)
+		DlgStockRates.EndExecute()
+		If StockRatesModel.optDaily.State = 1 Then
+			sInterval = &quot;d&quot;
+			iStep = 1
+		ElseIf StockRatesModel.optWeekly.State = 1 Then
+			sInterval = &quot;w&quot;
+			iStep = 7
+			StartDate = StartDate - WeekDay(StartDate) + 2
+			EndDate = EndDate - WeekDay(EndDate) + 2
+		End If
+		iEndDay = Day(EndDate)
+		iEndMonth = Month(EndDate)
+		iEndYear = Year(EndDate)
+		iStartDay = Day(StartDate)
+		iStartMonth = Month(StartDate)
+		iStartYear = Year(StartDate)
+&apos;		oDocument.AddActionLock()
+		UnprotectSheets(oSheets)
+		InitializeStatusline(&quot;&quot;, 10, 1)
+		oBackGroundSheet = oSheets.GetbyName(&quot;Background&quot;)	
+		StockName = DlgStockRates.GetControl(&quot;lstStockNames&quot;).GetSelectedItem()
+		CurRow = GetStockRowIndex(Stockname)
+		sStockID = oFirstSheet.GetCellByPosition(SBCOLUMNID1, CurRow).String
+		ChartSource = ReplaceString(HistoryChartSource, sStockID, &quot;&lt;StockID&gt;&quot;)
+		ChartSource = ReplaceString(ChartSource, iStartDay, &quot;&lt;StartDay&gt;&quot;)
+		ChartSource = ReplaceString(ChartSource, cStr(iStartMonth-1), &quot;&lt;StartMonth&gt;&quot;)
+		ChartSource = ReplaceString(ChartSource, iStartYear, &quot;&lt;StartYear&gt;&quot;)	
+		ChartSource = ReplaceString(ChartSource, iEndDay, &quot;&lt;EndDay&gt;&quot;)
+		ChartSource = ReplaceString(ChartSource, cStr(iEndMonth-1), &quot;&lt;EndMonth&gt;&quot;)
+		ChartSource = ReplaceString(ChartSource, iEndYear, &quot;&lt;EndYear&gt;&quot;)
+		ChartSource = ReplaceString(ChartSource, sInterval, &quot;&lt;interval&gt;&quot;)
+		oStatusLine.SetValue(2)
+		If GetCurrentRate(ChartSource, CurRate, 1) Then
+			oStatusLine.SetValue(8)
+			UpdateValue(StockName, Today, CurRate)
+			oStatusLine.SetValue(9)
+			UpdateChart(StockName)
+			oStatusLine.SetValue(10)
+		Else
+			sMsgInternetError = Stockname &amp; &quot;: &quot; &amp; sNoInternetDataAvailable &amp; chr(13) &amp; sCheckInternetSettings
+			Msgbox(sMsgInternetError, 16, sProductname)
+		End If
+		ProtectSheets(oSheets)
+		oStatusLine.End
+		If oSheets.HasbyName(sNewSheetName) Then
+			oController.ActiveSheet = oSheets.GetByName(sNewSheetName)
+		End If
+&apos;		oDocument.RemoveActionLock()	
+	End If
+End Sub
+
+
+
+Sub InternetUpdate()
+Dim i as Integer
+Dim StocksCount as Integer
+Dim iStartRow as Integer
+Dim sUrl as String
+Dim StockName as String		
+Dim CurRate as Double
+Dim oCell as Object
+Dim sMsgInternetError as String
+Dim sStockID as String
+Dim ChartSource as String
+&apos;	oDocument.AddActionLock()
+	Initialize(True)
+	UnprotectSheets(oSheets)
+	StocksCount = GetStocksCount(iStartRow)
+	InitializeStatusline(&quot;&quot;, StocksCount + 1, 1)
+	Today = CDate(Date)
+	For i = iStartRow + 1 To iStartRow + StocksCount
+		StockName = oFirstSheet.GetCellbyPosition(SBCOLUMNNAME1, i).String
+		sStockID = oFirstSheet.GetCellByPosition(SBCOLUMNID1, i).String
+		ChartSource = ReplaceString(sCurChartSource, sStockID, &quot;&lt;StockID&gt;&quot;)
+		If GetCurrentRate(ChartSource, CurRate, 0) Then
+			InsertCurrentValue(CurRate, i, Now)		
+		Else
+			sMsgInternetError = Stockname &amp; &quot;: &quot; &amp; sNoInternetDataAvailable &amp; chr(13) &amp; sCheckInternetSettings
+			Msgbox(sMsgInternetError, 16, sProductname)
+		End If
+		oStatusline.SetValue(i - iStartRow + 1)
+	Next
+	ProtectSheets(oSheets)
+	oStatusLine.End
+&apos;	oDocument.RemoveActionLock
+End Sub
+
+
+
+Function GetCurrentRate(sUrl as String, fValue As Double, iValueRow as Integer) as Boolean
+Dim sFilter As String
+Dim sOptions As String
+Dim oLinkSheet As Object
+Dim sDate as String
+	If oSheets.hasByName(&quot;Link&quot;) Then 
+		oLinkSheet = oSheets.getByName(&quot;Link&quot;)
+	Else
+		oLinkSheet = oDocument.createInstance(&quot;com.sun.star.sheet.Spreadsheet&quot;)
+		oSheets.insertByName(&quot;Link&quot;, oLinkSheet)
+		oLinkSheet.IsVisible = False
+	End If
+	
+	sFilter = &quot;Text - txt - csv (StarCalc)&quot;
+	sOptions = sCurSeparator &amp; &quot;,34,SYSTEM,1,1/10/2/10/3/10/4/10/5/10/6/10/7/10/8/10/9/10&quot;
+	
+	oLinkSheet.LinkMode = com.sun.star.sheet.SheetLinkMode.NONE
+	oLinkSheet.link(sUrl, &quot;&quot;, sFilter, sOptions, 1 )
+	fValue = oLinkSheet.getCellByPosition(iValueCol, iValueRow).Value
+	If fValue = 0 Then
+		Dim sValue as String
+		sValue = oLinkSheet.getCellByPosition(1, iValueRow).String
+		sValue = ReplaceString(sValue, &quot;.&quot;,&quot;,&quot;)
+		fValue = Val(sValue)
+	End If
+	GetCurrentRate = fValue &lt;&gt; 0
+End Function
+
+
+
+Sub UpdateValue(ByVal sName As String, fDate As Double, fValue As Double )
+Dim oSheet As Object
+Dim iColumn As Long
+Dim iRow As Long
+Dim i as Long
+Dim oCell As Object
+Dim LastDate as Date
+Dim bLeaveLoop as Boolean
+Dim RemoveCount as Long
+Dim iLastRow as Long
+Dim iLastLinkRow as Long
+Dim dDate as Date
+Dim CurDate as Date
+Dim oLinkSheet as Object
+Dim StartIndex as Long
+Dim iCellValue as Long
+	&apos; Insert Sheet with Company - Chart
+	sName = CheckNewSheetname(oSheets, sName)
+	If NOT oSheets.hasByName(sName) Then
+		oSheets.CopybyName(&quot;Background&quot;, sName, oSheets.Count)
+		oSheet = oSheets.getByName(sName)
+		iCurRow = SBSTARTROW
+		iMaxRow = iCurRow
+		oCell = oSheet.getCellByPosition(SBDATECOLUMN, iCurRow)
+		oCell.Value = fDate
+	End If
+	sNewSheetName = sName
+	oLinkSheet = oSheets.GetByName(&quot;Link&quot;)
+	oSheet = oSheets.getByName(sName)
+	iLastRow = GetLastUsedRow(oSheet)- 2
+	iLastLinkRow = GetLastUsedRow(oLinkSheet)
+	iCurRow = iLastRow
+	bLeaveLoop = False
+	RemoveCount = 0
+	&apos; Delete all Cells in Date Area
+	Do
+		oCell = oSheet.GetCellbyPosition(SBDATECOLUMN,iCurRow)
+		If oCell.CellStyle = sColumnHeader Then
+			bLeaveLoop = True
+			StartIndex = iCurRow
+			iCurRow = iCurRow + 1
+		Else
+			RemoveCount = RemoveCount + 1
+			iCurRow = iCurRow - 1
+		End If
+	Loop Until bLeaveLoop	
+	If RemoveCount &gt; 1 Then
+		oSheet.Rows.RemoveByIndex(iCurRow, RemoveCount-1)
+	End If
+	For i = 1 To iLastLinkRow
+		oCell = oSheet.GetCellbyPosition(SBDATECOLUMN,iCurRow)
+		iCellValue = oLinkSheet.GetCellByPosition(0,i).Value
+		If iCellValue &gt; 0 Then
+			oCell.SetValue(oLinkSheet.GetCellByPosition(0,i).Value)
+		Else
+			oCell.SetValue(StringToDate(oLinkSheet.GetCellByPosition(0,i).String))
+		End If
+		oCell = oSheet.GetCellbyPosition(SBVALUECOLUMN,iCurRow)
+		oCell.SetValue(oLinkSheet.GetCellByPosition(4,i).Value)
+		If i &lt; iLastLinkRow Then
+			iCurRow = iCurRow + 1
+			oSheet.Rows.InsertByIndex(iCurRow,1)
+		End If
+	Next i
+	iMaxRow = iCurRow
+End Sub
+
+
+Function StringToDate(DateString as String) as Date
+Dim ShortMonths(11)
+Dim DateList() as String
+Dim MaxIndex as Integer
+Dim i as Integer
+	ShortMonths(0) = &quot;Jan&quot;
+	ShortMonths(1) = &quot;Feb&quot;
+	ShortMonths(2) = &quot;Mar&quot;
+	ShortMonths(3) = &quot;Apr&quot;
+	ShortMonths(4) = &quot;May&quot;
+	ShortMonths(5) = &quot;Jun&quot;
+	ShortMonths(6) = &quot;Jul&quot;
+	ShortMonths(7) = &quot;Aug&quot;
+	ShortMonths(8) = &quot;Sep&quot;
+	ShortMonths(9) = &quot;Oct&quot;
+	ShortMonths(10) = &quot;Nov&quot;
+	ShortMonths(11) = &quot;Dec&quot;
+	For i = 0 To 11
+		DateString = ReplaceString(DateString,CStr(i+1),ShortMonths(i))
+	Next i
+	DateString = ReplaceString(DateString, &quot;.&quot;, &quot;-&quot;)
+	StringToDate = CDate(DateString)	
+End Function
+
+
+Sub UpdateChart(sName As String)
+Dim oSheet As Object
+Dim oCell As Object, oCursor As Object
+Dim oChartRange As Object
+Dim oEmbeddedChart As Object, oCharts As Object
+Dim oChart As Object, oDiagram As Object
+Dim oYAxis As Object, oXAxis As Object
+Dim fMin As Double, fMax As Double
+Dim nDateFormat As Long
+Dim aPos As Variant
+Dim aSize As Variant
+Dim oContainerChart as Object
+Dim mRangeAddresses(0) as New com.sun.star.table.CellRangeAddress
+	mRangeAddresses(0).Sheet = GetSheetIndex(oSheets, sNewSheetName)
+	mRangeAddresses(0).StartColumn = SBDATECOLUMN 
+	mRangeAddresses(0).StartRow = SBSTARTROW-1
+	mRangeAddresses(0).EndColumn = SBVALUECOLUMN
+	mRangeAddresses(0).EndRow = iMaxRow
+		
+	oSheet = oDocument.Sheets.getByName(sNewSheetName)
+	oCharts = oSheet.Charts
+	
+	If Not oCharts.hasElements Then
+		oSheet.GetCellbyPosition(2,2).SetString(sName)
+		oChartRange = oSheet.getCellRangeByPosition(SBDATECOLUMN,6,5,SBSTARTROW-3)
+		aPos = oChartRange.Position
+		aSize = oChartRange.Size
+		
+		Dim oRectangleShape As New com.sun.star.awt.Rectangle
+		oRectangleShape.X = aPos.X
+		oRectangleShape.Y = aPos.Y
+		oRectangleShape.Width = aSize.Width
+		oRectangleShape.Height = aSize.Height
+		oCharts.addNewByName(sName, oRectangleShape, mRangeAddresses(), True, False)
+		oContainerChart = oCharts.getByName(sName)
+		oChart = oContainerChart.EmbeddedObject
+		oChart.Title.String	= &quot;&quot;
+		oChart.HasLegend = False
+		oChart.diagram = oChart.createInstance(&quot;com.sun.star.chart.XYDiagram&quot;)
+		oDiagram = oChart.Diagram
+		oDiagram.DataRowSource = com.sun.star.chart.ChartDataRowSource.COLUMNS
+		oChart.Area.LineStyle = com.sun.star.drawing.LineStyle.SOLID
+		oXAxis = oDiagram.XAxis
+		oXAxis.TextBreak = False
+		nDateFormat = oXAxis.NumberFormats.getStandardFormat(com.sun.star.util.NumberFormat.DATE, oDocLocale)
+
+		oYAxis = oDiagram.getYAxis()
+		oYAxis.AutoOrigin = True
+	Else
+		oChart = oCharts(0)
+		oChart.Ranges = mRangeAddresses()
+		oChart.HasRowHeaders = False
+		oEmbeddedChart = oChart.EmbeddedObject
+		oDiagram = oEmbeddedChart.Diagram
+		oXAxis = oDiagram.XAxis
+	End If
+	oXAxis.AutoStepMain = False
+	oXAxis.AutoStepHelp = False
+	oXAxis.StepMain = iStep
+	oXAxis.StepHelp = iStep
+	fMin = oSheet.getCellByPosition(SBDATECOLUMN,SBSTARTROW).Value
+	fMax = oSheet.getCellByPosition(SBDATECOLUMN,iMaxRow).Value
+	oXAxis.Min = fMin
+	oXAxis.Max = fMax
+	oXAxis.AutoMin = False
+	oXAxis.AutoMax = False
+End Sub
+
+
+Sub CalculateChartafterSplit(SheetName, NewNumber, OldNumber, NoteText, SplitDate)
+Dim oSheet as Object
+Dim i as Integer
+Dim oValueCell as Object
+Dim oDateCell as Object
+Dim bLeaveLoop as Boolean
+	If oSheets.HasbyName(SheetName) Then
+		oSheet = oSheets.GetbyName(SheetName)
+		i = 0
+		bLeaveLoop = False
+		Do
+			oValueCell = oSheet.GetCellbyPosition(SBVALUECOLUMN, SBSTARTROW + i)
+			If oValueCell.CellStyle = CurrCellStyle Then
+				SplitCellValue(oSheet, OldNumber, NewNumber, SBVALUECOLUMN, SBSTARTROW + i, &quot;&quot;)		
+				i = i + 1
+			Else
+				bLeaveLoop = True
+			End If
+		Loop Until bLeaveLoop
+		oDateCell = oSheet.GetCellbyPosition(SBDATECOLUMN, SBSTARTROW + i-1)
+		oDateCell.Annotation.SetString(NoteText)
+	End If
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_de.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_de" script:language="StarBasic">Option Explicit
+
+Sub LoadGermanLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;~OK&quot; 
+	sCancel = &quot;Abbrechen&quot;
+	sColumnHeader = &quot;Spaltenkopf&quot;
+	sInsertStockName = &quot;Bitte fügen Sie zunächst einige Aktien in Ihr Depot ein!&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: Aktienverwaltung&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;Eingabefehler&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;Bitte geben Sie eine Stückzahl größer als 0 ein&quot;
+	sMsgNoDividend = &quot;Bitte geben Sie eine Dividende je Stück oder eine Gesamtdividende ein&quot;
+	sMsgNoExchangeRate = &quot;Bitte geben Sie eine korrekte Umtauschrate ein (alte Aktien -&gt; neue Aktien).&quot;
+	sMsgNoValidExchangeDate = &quot;Bitte geben Sie ein gültiges Datum für den Aktiensplitt ein.&quot;
+	sMsgWrongExchangeDate = &quot;Splitt nicht möglich, da bereits Transaktionen nach dem Splitt-Datum existieren.&quot;
+	sMsgSellTooMuch = &quot;So viele Aktien können Sie nicht verkaufen. Maximum: &quot;
+	sMsgConfirm = &quot;Bestätigung erforderlich&quot;
+	sMsgFreeStock = &quot;Beabsichtigen Sie die Eingabe von Gratisaktien?&quot;
+	sMsgTotalLoss = &quot;Beabsichtigen Sie die Eingabe eines Totalverlustes?&quot;
+	sMsgAuthorization = &quot;Sicherheitsabfrage&quot;
+	sMsgDeleteAll = &quot;Wollen Sie alle Bewegungen löschen und die Depotübersicht rücksetzen?&quot;
+	cSplit = &quot;Aktiensplitt am &quot;
+	sHistory = &quot;Historie&quot;
+	TransactTitle(1) = 	 &quot;Aktien verkaufen&quot;
+	TransactTitle(2) = &quot;Aktien kaufen&quot;
+	StockRatesTitle(1) = &quot;Dividendenzahlung&quot;
+	StockRatesTitle(2) = &quot;Aktiensplitt&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;Depotwährung&quot;	
+	sStockName = &quot;Aktienname&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;Ergebnis Datum&quot;
+	CurrCellStyle = &quot;Ergebnis Euro mit Dezimalen&quot;
+	sStartDate = &quot;Startdatum:&quot;
+	sEndDate = &quot;Enddatum:&quot;
+	sStartUpWelcome = &quot;Diese Vorlage ermöglicht Ihnen eine effiziente Verwaltung Ihres Aktiendepots&quot;
+	sStartUpChooseMarket = &quot;Wählen Sie zunächst Ihre Referenz-Währung und damit den Börsenplatz für das Internet Update aus!&quot;
+	sStartUpHint = &quot;Leider steht Ihnen die &lt;History&gt;- Funktion nur für den amerikanischen Markt zur Verfügung!&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;ohne Internet Update&quot;
+	sMarketPlace = &quot;Börsenplatz:&quot;
+	sNoInternetDataAvailable = &quot;Internet-Kurse konnten nicht empfangen werden!&quot;
+	sCheckInternetSettings = &quot;Mögliche Ursachen sind: &lt;BR&gt; Ihre Internet Einstellungen müssen überprüft werden.&lt;BR&gt; Sie haben eine falsche Kennung (z.B. Symbol, WKN) für die Aktie eingegeben.&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;Das Enddatum muss vor dem heutigen Tag liegen!&quot;
+	sMsgStartDatebeforeEndDate = &quot;Das Startdatum muss vor dem Enddatum liegen!&quot;
+
+	sMarket(0,0) = &quot;Amerikanischer Dollar&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;New York&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;Symbol&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;Euro&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;Frankfurt&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;WKN&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;Englisches Pfund&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;London&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;Symbol&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;Japanischer Yen&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;Tokyo&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;Code&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;Hongkong Dollar&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;Hongkong&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.HK&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;Nummer&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;Australischer Dollar&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;Sydney&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;Symbol&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;Menge&quot;
+		.lblRate.Label = &quot;Kurs&quot;
+		.lblDate.Label = &quot;Transaktionsdatum&quot;
+		.hlnCommission.Label = &quot;Sonstige Ausgaben&quot;
+		.lblCommission.Label = &quot;Provision&quot;
+		.lblMinimum.Label = &quot;Mindestprovision&quot;
+		.lblFix.Label = &quot;Festbetrag/Spesen&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;Dividende/Aktie&quot;
+		.optTotal.Label = &quot;Dividende gesamt&quot;
+		.lblDividend.Label = &quot;Betrag&quot;
+		.lblExchangeRate.Label = &quot;Umtauschrate (alt-&gt;neu)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;Umtauschdatum:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~Täglich&quot;
+		.optWeekly.Label = &quot;~Wöchentlich&quot;
+		.hlnInterval.Label = &quot;Zeitraum&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_en.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_en" script:language="StarBasic">Option Explicit
+
+Sub LoadEnglishLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;~OK&quot; 
+	sCancel = &quot;Cancel&quot;
+	sColumnHeader = &quot;Column Header&quot;
+	sInsertStockName = &quot;Please enter shares in your portfolio.&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: Stocks Manager&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;Input Error&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;Please enter a quantity larger than 0&quot;
+	sMsgNoDividend = &quot;Please enter the dividend per share or the total dividend&quot;
+	sMsgNoExchangeRate = &quot;Please enter the correct exchange rate (old shares -&gt; new shares)&quot;
+	sMsgNoValidExchangeDate = &quot;Please enter a valid date for the split.&quot;
+	sMsgWrongExchangeDate = &quot;Splitting not possible, as transactions already exist after the split date.&quot;
+	sMsgSellTooMuch = &quot;You cannot sell that many shares. Maximum: &quot;
+	sMsgConfirm = &quot;Confirmation Required&quot;
+	sMsgFreeStock = &quot;Do you intend to enter free shares?&quot;
+	sMsgTotalLoss = &quot;Do you intend to enter a total loss?&quot;
+	sMsgAuthorization = &quot;Security Query&quot;
+	sMsgDeleteAll = &quot;Do you want to delete all movements and reset the portfolio overview?&quot;
+	cSplit = &quot;Stock split on &quot;
+	sHistory = &quot;History&quot;
+	TransactTitle(1) = 	 &quot;StarOffice Stocks Manager: Selling Shares&quot;
+	TransactTitle(2) = &quot;StarOffice Stocks Manager: Buying Shares&quot;
+	StockRatesTitle(1) = &quot;StarOffice Stocks Manager: Dividend Payment&quot;
+	StockRatesTitle(2) = &quot;Stock Split&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;Portfolio Currency&quot;	
+	sStockName = &quot;Name of Stock&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;Result Date&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;Start date:&quot;
+	sEndDate = &quot;End date:&quot;
+	sStartUpWelcome = &quot;This template enables you to manage your stock portfolio efficiently.&quot;
+	sStartUpChooseMarket = &quot;First, select your reference currency and thus the stock exchange for the Internet update.&quot;
+	sStartUpHint = &quot;Unfortunately, the only &lt;History&gt; function available to you is that for the American market.&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;without Internet update&quot;
+	sMarketPlace = &quot;Stock exchange:&quot;
+	sNoInternetDataAvailable = &quot;No prices could be received from the Internet!&quot;
+	sCheckInternetSettings = &quot;Possible causes could be: &lt;BR&gt;Your Internet settings have to be modified. &lt;BR&gt;The Symbol (e.g. Code, Ticker Symbol) entered for the stock was incorrect.&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;The end date has to be before today&apos;s date.&quot;
+	sMsgStartDatebeforeEndDate = &quot;The start date has to be before the end date.&quot;
+
+	sMarket(0,0) = &quot;American Dollar&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;New York&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;Symbol&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;Euro&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;Frankfurt&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;Ticker Symbol&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;British Pound&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;London&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;Symbol&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;Japanese Yen&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;Tokyo&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;Code&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;Hong Kong Dollar&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;Hong Kong&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;Number&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;Australian Dollar&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;Sydney&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;Symbol&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;Quantity&quot;
+		.lblRate.Label = &quot;Price&quot;
+		.lblDate.Label = &quot;Transaction Date&quot;
+		.hlnCommission.Label = &quot;Other expenditures&quot;
+		.lblCommission.Label = &quot;Commission&quot;
+		.lblMinimum.Label = &quot;Min. Commission&quot;
+		.lblFix.Label = &quot;Fixed Costs/Charges&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;Dividends/Stocks&quot;
+		.optTotal.Label = &quot;Total Dividends&quot;
+		.lblDividend.Label = &quot;Amount&quot;
+		.lblExchangeRate.Label = &quot;Exchange Rate (old-&gt;new)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;Exchange Date:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~Daily&quot;
+		.optWeekly.Label = &quot;~Weekly&quot;
+		.hlnInterval.Label = &quot;Time period&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_es.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_es" script:language="StarBasic">Option Explicit
+
+Sub LoadSpanishLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;~Aceptar&quot; 
+	sCancel = &quot;Cancelar&quot;
+	sColumnHeader = &quot;Título de columna&quot;	
+	sInsertStockName = &quot;Introduzca primero algunas acciones en su depósito.&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: Administración de acciones&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;Error de entrada&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;Indique una cantidad mayor que 0&quot;
+	sMsgNoDividend = &quot;Indique un dividendo por unidad o un dividendo total&quot;
+	sMsgNoExchangeRate = &quot;Indique aquí un cambio correcto (acción vieja -&gt; nueva acción)&quot;
+	sMsgNoValidExchangeDate = &quot;Indique una fecha correcta para el fraccionamiento de la acción.&quot;
+	sMsgWrongExchangeDate = &quot;El fraccionamiento no es posible porque existen transacciones después de la fecha de fraccionamiento.&quot;
+	sMsgSellTooMuch = &quot;No puede vender tantas acciones. Como máximo: &quot;
+	sMsgConfirm = &quot;Confirmación necesaria&quot;
+	sMsgFreeStock = &quot;¿Tiene previsto considerar acciones gratis?&quot;
+	sMsgTotalLoss = &quot;¿Tiene previsto introducir una pérdida total?&quot;
+	sMsgAuthorization = &quot;Pregunta de seguridad&quot;
+	sMsgDeleteAll = &quot;¿Desea borrar todos los movimientos y reiniciar el balance de depósito?&quot;
+	cSplit = &quot;Fraccionamiento el &quot;
+	sHistory = &quot;Historia&quot;
+	TransactTitle(1) = 	 &quot;Vender acciones&quot;
+	TransactTitle(2) = &quot;Comprar acciones&quot;
+	StockRatesTitle(1) = &quot;Pago de dividendos&quot;
+	StockRatesTitle(2) = &quot;Fraccionamiento&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;Moneda del depósito&quot;	
+	sStockName = &quot;Nombre de la acción&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;Resultado Fecha&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;Fecha de inicio:&quot;
+	sEndDate = &quot;Fecha final:&quot;
+	sStartUpWelcome = &quot;Esta plantilla le permite administrar eficientemente su depósito de acciones&quot;
+	sStartUpChooseMarket = &quot;Seleccione primero la moneda de referencia y la plaza bursátil para la actualización a través de Internet.&quot;
+	sStartUpHint = &quot;La función &lt;History&gt; está disponible únicamente para el mercado americano.&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;Sin actualización por Internet&quot;
+	sMarketPlace = &quot;Plaza bursátil:&quot;
+	sNoInternetDataAvailable = &quot;No se pudieron recibir las cotizaciones por Internet.&quot;
+	sCheckInternetSettings = &quot;Causas posibles: &lt;BR&gt; Debe comprobar la configuración de Internet.&lt;BR&gt; Ha indicado un código incorrecto (p.ej. número, símbolo, etc.) para la acción.&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;La fecha final debe ser anterior a la fecha de hoy.&quot;
+	sMsgStartDatebeforeEndDate = &quot;La fecha inicial debe ser anterior a la fecha final.&quot;
+
+	sMarket(0,0) = &quot;Dólar estadounidense&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;Nueva York&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;Símbolo&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;Euro&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;Frankfurt&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;Código&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;Libra esterlina&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;Londres&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;Símbolo&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;Yen japonés&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;Tokio&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;Código&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;Dólar hongkonés&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;Hong Kong&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.HK&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;Número&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;Dólar australiano&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;Sidney&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;Símbolo&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+	
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;Cantidad&quot;
+		.lblRate.Label = &quot;Cotización&quot;
+		.lblDate.Label = &quot;Fecha de operación&quot;
+		.hlnCommission.Label = &quot;Otros gastos&quot;
+		.lblCommission.Label = &quot;Provisión&quot;
+		.lblMinimum.Label = &quot;Provisión mínima&quot;
+		.lblFix.Label = &quot;Cantidad fija/comisión&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;Dividendos/Acción&quot;
+		.optTotal.Label = &quot;Dividendos totales&quot;
+		.lblDividend.Label = &quot;Importe&quot;
+		.lblExchangeRate.Label = &quot;Cambio (vieja-&gt;nueva)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;Fecha de cambio:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~Diario&quot;
+		.optWeekly.Label = &quot;~Semanal&quot;
+		.hlnInterval.Label = &quot;Periodo&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_fr.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_fr" script:language="StarBasic">Option Explicit
+
+Sub LoadFrenchLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;~OK&quot; 
+	sCancel = &quot;Annuler&quot;
+	sColumnHeader = &quot;En-tête de colonne&quot;	
+	sInsertStockName = &quot;Saisissez quelques actions dans votre portefeuille !&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt; : Gestion d&apos;actions&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;Erreur de saisie&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;Saisissez une quantité supérieure à 0 !&quot;
+	sMsgNoDividend = &quot;Vous devez saisir le montant des dividendes perçus (soit les dividendes par action, soit la somme totale perçue).&quot;
+	sMsgNoExchangeRate = &quot;Saisissez un taux correct de conversion (anciennes actions -&gt; nouvelles actions).&quot;
+	sMsgNoValidExchangeDate = &quot;Saisissez une date correcte pour le split d&apos;action.&quot;
+	sMsgWrongExchangeDate = &quot;Split impossible car il y a déjà eu des transactions après la date du split !&quot;
+	sMsgSellTooMuch = &quot;Impossible de vendre autant d&apos;actions ! Maximum : &quot;
+	sMsgConfirm = &quot;Confirmation required&quot;
+	sMsgFreeStock = &quot;S&apos;agit-il d&apos;actions gratuites ?&quot;
+	sMsgTotalLoss = &quot;Prévoyez-vous une perte totale ?&quot;
+	sMsgAuthorization = &quot;Requête de sécurité&quot;
+	sMsgDeleteAll = &quot;Voulez-vous supprimer tous les mouvements et remettre le portefeuille d&apos;actions à zéro ?&quot;
+	cSplit = &quot;Split d&apos;action le &quot;
+	sHistory = &quot;Historique&quot;
+	TransactTitle(1) = 	 &quot;Vente d&apos;actions&quot;
+	TransactTitle(2) = &quot;Achat d&apos;actions&quot;
+	StockRatesTitle(1) = &quot;Versement des dividendes&quot;
+	StockRatesTitle(2) = &quot;Split d&apos;action&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;Monnaie du portefeuille&quot;	
+	sStockName = &quot;Nom de l&apos;action&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;Résultat date&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;Date de début :&quot;
+	sEndDate = &quot;Date de fin :&quot;
+	sStartUpWelcome = &quot;Utilisez ce modèle pour une gestion efficiente de votre portefeuille d&apos;actions !&quot;
+	sStartUpChooseMarket = &quot;Commencez par choisir une monnaie de référence et ainsi la place boursière pour la mise à jour Internet !&quot;
+	sStartUpHint = &quot;La fonction &lt;History&gt; n&apos;est cependant disponible que pour le marché américain.&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;Sans mise à jour Internet&quot;
+	sMarketPlace = &quot;Place boursière :&quot;
+	sNoInternetDataAvailable = &quot;Réception des cours Internet impossible !&quot;
+	sCheckInternetSettings = &quot;Causes possibles : &lt;BR&gt; Problème de paramétrage Internet : vérifiez les paramètres !&lt;BR&gt; Vous avez saisi un identificateur (par ex. symbole ou code) incorrect pour l&apos;action.&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;La date spécifiée pour la fin doit précéder celle de ce jour !&quot;
+	sMsgStartDatebeforeEndDate = &quot;La date spécifiée pour le début doit succéder à celle de ce jour !&quot;
+
+	sMarket(0,0) = &quot;Dollar Américain&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;New York&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;Symbole&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;Euro&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;Francfort&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;Code&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;Livre Sterling&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;Londres&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;Symbole&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;Yen Japonais&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;Tokyo&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;Code&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;Dollar de Hong Kong&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;Hong Kong&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;Numéro&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;Dollar Australien&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;Sydney&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;Symbole&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+	
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;Quantité&quot;
+		.lblRate.Label = &quot;Cours&quot;
+		.lblDate.Label = &quot;Date de transaction&quot;
+		.hlnCommission.Label = &quot;Dépenses diverses&quot;
+		.lblCommission.Label = &quot;Commission&quot;
+		.lblMinimum.Label = &quot;Commission minimale&quot;
+		.lblFix.Label = &quot;Montant fixe/frais&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;Dividende/action&quot;
+		.optTotal.Label = &quot;Dividende total&quot;
+		.lblDividend.Label = &quot;Montant&quot;
+		.lblExchangeRate.Label = &quot;Taux de conversion (ancien-&gt;nouveau)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;Date de la conversion:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~Quotidien&quot;
+		.optWeekly.Label = &quot;~Hebdomadaire&quot;
+		.hlnInterval.Label = &quot;Période&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_it.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_it" script:language="StarBasic">Option Explicit
+
+Sub LoadItalianLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;~OK&quot; 
+	sCancel = &quot;Annulla&quot;
+	sColumnHeader = &quot;Intestazione colonna&quot;
+	sInsertStockName = &quot;Inserite un nome di azioni&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: Gestione delle azioni&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;Errore dati immessi&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;Inserite il numero delle azioni&quot;
+	sMsgNoDividend = &quot;Inserite un dividendo a unità oppure un dividendo totale&quot;
+	sMsgNoExchangeRate = &quot;Indicate un corretto tasso di cambio (vecchie azioni -&gt; nuove azioni).&quot;
+	sMsgNoValidExchangeDate = &quot;Indicate la data di frazionamento delle azioni.&quot;
+	sMsgWrongExchangeDate = &quot;Il frazionamento non è possibile perché sono ancora in atto transazioni dopo la data indicata.&quot;
+	sMsgSellTooMuch = &quot;Non potete vendere così tante azioni. Massimo: &quot;
+	sMsgConfirm = &quot;È necessaria una conferma&quot;
+	sMsgFreeStock = &quot;Confermate la digitazione di azioni gratuite?&quot;
+	sMsgTotalLoss = &quot;Confermate la digitazione di perdita totale?&quot;
+	sMsgAuthorization = &quot;Domanda di sicurezza&quot;
+	sMsgDeleteAll = &quot;Eliminare tutti i movimenti e ripristinare la panoramica dei depositi?&quot;
+	cSplit = &quot;Frazionamento delle azioni il: &quot;
+	sHistory = &quot;Cronologia&quot;
+	TransactTitle(1) = 	 &quot;Vendita di azioni&quot;
+	TransactTitle(2) = &quot;Acquisto di azioni&quot;
+	StockRatesTitle(1) = &quot;Pagamento dei dividendi&quot;
+	StockRatesTitle(2) = &quot;Frazionamento azioni&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;Valuta deposito&quot;	
+	sStockName = &quot;Nome delle azioni&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;Risultato data&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;Data d&apos;inizio:&quot;
+	sEndDate = &quot;Data finale:&quot;
+	sStartUpWelcome = &quot;Questo modello vi permette una gestione efficace delle vostre azioni.&quot;
+	sStartUpChooseMarket = &quot;Selezionate la valuta di riferimento e la Borsa per il collegamento Internet.&quot;
+	sStartUpHint = &quot;La funzione &lt;History&gt; è disponibile solo per il mercato americano.&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;Senza aggiornamento Internet&quot;
+	sMarketPlace = &quot;Borsa:&quot;
+	sNoInternetDataAvailable = &quot;Impossibile ricevere le quotazioni Internet&quot;
+	sCheckInternetSettings = &quot;Possibili cause: &lt;BR&gt; le impostazioni Internet devono essere modificate.&lt;BR&gt; Avete indicato un indice (ad es. simbolo o codice) errato per le azioni.&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;La data finale dev&apos;essere anteriore alla data odierna.&quot;
+	sMsgStartDatebeforeEndDate = &quot;La data d&apos;inizio deve precedere la data finale.&quot;
+
+	sMarket(0,0) = &quot;Dollaro USA&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;New York&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;Simbolo&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;Euro&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;Francoforte&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;Numero identificazione titoli&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;Sterlina inglese&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;Londra&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;Simbolo&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;Yen&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;Tokyo&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;Codice&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;Dollaro Hong Kong&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;Hong Kong&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;Numero&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;Dollaro australiano&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;Sydney&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;Simbolo&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+	
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;Quantità&quot;
+		.lblRate.Label = &quot;Quotazione&quot;
+		.lblDate.Label = &quot;Data della transazione&quot;
+		.hlnCommission.Label = &quot;Spese extra&quot;
+		.lblCommission.Label = &quot;Commissioni&quot;
+		.lblMinimum.Label = &quot;Commissione minima&quot;
+		.lblFix.Label = &quot;Importo fisso/Spese&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;Dividendo/Azione&quot;
+		.optTotal.Label = &quot;Dividendo totale&quot;
+		.lblDividend.Label = &quot;Importo&quot;
+		.lblExchangeRate.Label = &quot;Tasso di cambio (vecchio-&gt;nuovo)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;Data di cambio:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~Giornaliero&quot;
+		.optWeekly.Label = &quot;~Settimanale&quot;
+		.hlnInterval.Label = &quot;Durata&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_ja.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_ja" script:language="StarBasic">Option Explicit
+
+Sub LoadJapaneseLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;~OK&quot;
+	sCancel = &quot;キャンセル&quot;
+	sColumnHeader = &quot;列番号&quot;
+	sInsertStockName = &quot;最初に株の銘柄を入力してください。&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: 株管理&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;入力フィールド&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;0 より大きな額を入力してください。&quot;
+	sMsgNoDividend = &quot;１株当たりの配当金額または総配当金額を入力してください。&quot;
+	sMsgNoExchangeRate = &quot;交換比率（旧株-&gt;新株）を入力してください。&quot;
+	sMsgNoValidExchangeDate = &quot;株式分割日を入力してください。&quot;
+	sMsgWrongExchangeDate = &quot;分割日以降に取引がすでに存在するので、分割できません。&quot;
+	sMsgSellTooMuch = &quot;売却できる株式数を超えています。最大値: &quot;
+	sMsgConfirm = &quot;ご確認ください&quot;
+	sMsgFreeStock = &quot;無料株式を入力しますか?&quot;
+	sMsgTotalLoss = &quot;全損の入力を行いますか?&quot;
+	sMsgAuthorization = &quot;確認ダイアログ&quot;
+	sMsgDeleteAll = &quot;すべての移動を取り消し、ポートフォリオの概要をリセットしますか?&quot;
+	cSplit = &quot;株式分割日 &quot;
+	sHistory = &quot;履歴&quot;
+	TransactTitle(1) = 	 &quot;株を買う&quot;
+	TransactTitle(2) = &quot;株を買う&quot;
+	StockRatesTitle(1) = &quot;配当額&quot;
+	StockRatesTitle(2) = &quot;株式分割&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;ポートフォリオの通貨&quot;
+	sStockName = &quot;株式名&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;結果（日付）&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;開始日:&quot;
+	sEndDate = &quot;終了日:&quot;
+	sStartUpWelcome = &quot;このテンプレートを使えば、株式のポートフォリオをより効率的に管理できます。&quot;
+	sStartUpChooseMarket = &quot;まず、インターネットにより情報を更新する基準通貨と、対応する証券取引所を選択します。&quot;
+	sStartUpHint = &quot;残念ながら、&lt;History&gt; 機能を使用できるのは米国市場に限られています。&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;インターネットによる情報の更新を行いません&quot;
+	sMarketPlace = &quot;証券取引所:&quot;
+	sNoInternetDataAvailable = &quot;インターネットから株価情報を受信できない場合があります!&quot;
+	sCheckInternetSettings = &quot;考えられる原因は次のとおりです。&lt;BR&gt;インターネット設定の変更が必要です。&lt;BR&gt;入力した株式のが間違っています。&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;終了日は、今日の日付より前であることが必要です。&quot;
+	sMsgStartDatebeforeEndDate = &quot;開始日は、終了日より前であることが必要です。&quot;
+
+	sMarket(0,0) = &quot;米ドル&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;ニューヨーク&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;シンボル&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+
+	sMarket(1,0) = &quot;ユーロ&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;フランクフルト&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;銘柄コード&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;英ポンド&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;ロンドン&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;シンボル&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;日本円&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;東京&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;コード&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+
+	sMarket(4,0) = &quot;香港ドル&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;香港&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.HK&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;番号&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;オーストリア・ドル&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;シドニー&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;シンボル&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;株数&quot;
+		.lblRate.Label = &quot;価格&quot;
+		.lblDate.Label = &quot;取引日&quot;
+		.hlnCommission.Label = &quot;その他の経費n&quot;
+		.lblCommission.Label = &quot;手数料&quot;
+		.lblMinimum.Label = &quot;最低手数料&quot;
+		.lblFix.Label = &quot;固定費/諸経費&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+
+	With StockRatesModel
+		.optPerShare.Label = &quot;配当金/株式数&quot;
+		.optTotal.Label = &quot;配当金の総額&quot;
+		.lblDividend.Label = &quot;金額&quot;
+		.lblExchangeRate.Label = &quot;交換比率（旧株-&gt;新株）&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;交換日:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~毎日&quot;
+		.optWeekly.Label = &quot;~毎週&quot;
+		.hlnInterval.Label = &quot;期間&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_ko.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_ko" script:language="StarBasic">Option Explicit
+
+Sub LoadKoreanLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;~확인&quot; 
+	sCancel = &quot;취소&quot;
+	sColumnHeader = &quot;열 머리글&quot;
+	sInsertStockName = &quot;주식 종목을 삽입해주십시오.&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: 주식 매수&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;입력 오류&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;0 이하의 매수를 입력해주십시오.&quot;
+	sMsgNoDividend = &quot;한 주당 배당분 또는 총배당분을 입력해주십시오.&quot;
+	sMsgNoExchangeRate = &quot;정확한 환율을 입력해주십시오 (구주를 신주로 소급 시).&quot;
+	sMsgNoValidExchangeDate = &quot;유효한 배당 결제일을 입력해주십시오.&quot;
+	sMsgWrongExchangeDate = &quot;배당 기준일이 경과하여 배당할 수 없습니다.&quot;
+	sMsgSellTooMuch = &quot;이렇게 많은 주식을 팔 수 없습니다. 최대 매도수: &quot;
+	sMsgConfirm = &quot;확인 필요&quot;
+	sMsgFreeStock = &quot;공짜 주식을 입력하시겠습니까?&quot;
+	sMsgTotalLoss = &quot;주가 폭락세를 입력하시겠습니까?&quot;
+	sMsgAuthorization = &quot;안정성 조회&quot;
+	sMsgDeleteAll = &quot;모든 주가 움직임을 삭제하고 계좌 현황을 원래대로 하시겠습니까?&quot;
+	cSplit = &quot;주식 배당일 &quot;
+	sHistory = &quot;내역&quot;
+	TransactTitle(1) = 	 &quot;주식 관리: 주식 매도&quot;
+	TransactTitle(2) = &quot;주식 관리: 주식 매수&quot;
+	StockRatesTitle(1) = &quot;주식 관리: 배당금 지불&quot;
+	StockRatesTitle(2) = &quot;주식 관리: 주식 배분&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;주식 계좌 통화&quot;	
+	sStockName = &quot;주식 종목명&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;결과, 날짜&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;매매일:&quot;
+	sEndDate = &quot;만기일:&quot;
+	sStartUpWelcome = &quot;이 템플릿을 사용하여 주식 투자 관리를 효율적으로 할 수 있습니다.&quot;
+	sStartUpChooseMarket = &quot;인터넷 업데이트를 위해 우선 관련 통화와 증권 장소를 선택하십시오.&quot;
+	sStartUpHint = &quot;&lt;내역&gt; 기능은 미국 시장용으로만 사용할 수 있습니다.&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;인터넷 업데이트 없음&quot;
+	sMarketPlace = &quot;증권 장소:&quot;
+	sNoInternetDataAvailable = &quot;인터넷 시세는 받을 수 없었습니다.&quot;
+	sCheckInternetSettings = &quot;원인: &lt;BR&gt; 인터넷 설정을 점검해야만 합니다.&lt;BR&gt; 옳지 않은 암호&lt;예를 들어 잘못된 문자 또는 종목 코드&gt;를 입력했습니다.&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;만기일은 오늘 날짜 전에 기입되어야 합니다.&quot;
+	sMsgStartDatebeforeEndDate = &quot;매매일은 만기일 전에 기입되어야 합니다.&quot;
+
+	sMarket(0,0) = &quot;미국 달러&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;뉴욕&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;기호&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;유로&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;프랑크푸르트&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;WKN&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;영국 파운드&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;런던&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;기호&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;엔화&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;도쿄&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;코드&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;홍콩 달러&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;홍콩&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.HK&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;번호&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;호주 달러&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;시드니&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;기호&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;수량&quot;
+		.lblRate.Label = &quot;시세&quot;
+		.lblDate.Label = &quot;배당 결산일&quot;
+		.hlnCommission.Label = &quot;기타 지출&quot;
+		.lblCommission.Label = &quot;수수료&quot;
+		.lblMinimum.Label = &quot;최저 수수료&quot;
+		.lblFix.Label = &quot;약정 금액/기타 경비&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;배당분/주&quot;
+		.optTotal.Label = &quot;배당분 합계&quot;
+		.lblDividend.Label = &quot;금액&quot;
+		.lblExchangeRate.Label = &quot;환율(구주-&gt;신주)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;환율일자&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~매일&quot;
+		.optWeekly.Label = &quot;~매주&quot;
+		.hlnInterval.Label = &quot;기간&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_sv.xba

@@ -0,0 +1,174 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_sv" script:language="StarBasic">Option Explicit
+
+Sub LoadSwedishLanguage()
+	sProductname = GetProductname
+	sOK = &quot;~OK&quot; 
+	sCancel = &quot;Avbryt&quot;
+	sColumnHeader = &quot;Kolumnhuvud&quot;	
+	sInsertStockName = &quot;Infoga först några aktier i Din portfölj!&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: Aktieförvaltning&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;Inmatningsfel&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;Var vänlig och mata in ett större antal än 0&quot;
+	sMsgNoDividend = &quot;Var vänlig och mata in utdelning per styck eller den totala utdelningen&quot;
+	sMsgNoExchangeRate = &quot;Var vänlig och mata in en korrekt omräkningskurs (gamla aktier -&gt; nya aktier).&quot;
+	sMsgNoValidExchangeDate = &quot;Var vänlig och mata in ett giltigt datum för aktiesplitten.&quot;
+	sMsgWrongExchangeDate = &quot;Split är inte möjlig eftersom det redan finns transaktioner efter splitdatum.&quot;
+	sMsgSellTooMuch = &quot;Så många aktier kan Du inte sälja. Maximum: &quot;
+	sMsgConfirm = &quot;Bekräftelse krävs&quot;
+	sMsgFreeStock = &quot;Avser Du att mata in gratisaktier?&quot;
+	sMsgTotalLoss = &quot;Avser Du att mata in en totalförlust?&quot;
+	sMsgAuthorization = &quot;Säkerhetskontroll&quot;
+	sMsgDeleteAll = &quot;Vill Du ta bort alla rörelser och återställa portföljöversikten?&quot;
+	cSplit = &quot;Aktiesplit den &quot;
+	sHistory = &quot;Historik&quot;
+	TransactTitle(1) = 	 &quot;Sälja aktier&quot;
+	TransactTitle(2) = &quot;Köpa aktier&quot;
+	StockRatesTitle(1) = &quot;Aktieutdelning&quot;
+	StockRatesTitle(2) = &quot;Aktiesplit&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;Portföljvaluta&quot;	
+	sStockName = &quot;Aktienamn&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;Resultat datum&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;Startdatum:&quot;
+	sEndDate = &quot;Slutdatum:&quot;
+	sStartUpWelcome = &quot;Med hjälp av den här mallen kan Du förvalta Din aktieportfölj effektivt&quot;
+	sStartUpChooseMarket = &quot;Välj först Din referensvaluta och därigenom börs för Internet-uppdateringen!&quot;
+	sStartUpHint = &quot;Tyvärr är &lt;History&gt;-funktionen bara tillgänglig för den amerikanska marknaden!&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;utan Internet-uppdatering&quot;
+	sMarketPlace = &quot;Börs:&quot;
+	sNoInternetDataAvailable = &quot;Det gick inte att ta emot Internet-kurser!&quot;
+	sCheckInternetSettings = &quot;Detta kan bero på att: &lt;BR&gt; Dina Internet-inställningar måste ändras.&lt;BR&gt; Du har angivit ett felaktigt ID (t.ex. symbol, värdepappersnr.) för aktien.&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;Slutdatum måste ligga före idag!&quot;
+	sMsgStartDatebeforeEndDate = &quot;Startdatum måste ligga före slutdatum!&quot;
+
+	sMarket(0,0) = &quot;Amerikansk dollar&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;New York&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;Symbol&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;Euro&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;Frankfurt&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;Värdepappersnr&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;Engelskt pund&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;London&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;Symbol&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;Japansk yen&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;Tokyo&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;Kod&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;Hongkongdollar&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;Hongkong&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;Nummer&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;Australisk dollar&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;Sydney&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;Symbol&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+	
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;Antal&quot;
+		.lblRate.Label = &quot;Kurs&quot;
+		.lblDate.Label = &quot;Transaktionsdatum&quot;
+		.hlnCommission.Label = &quot;Övriga utgifter&quot;
+		.lblCommission.Label = &quot;Provision&quot;
+		.lblMinimum.Label = &quot;Minimiprovision&quot;
+		.lblFix.Label = &quot;Fast belopp/omkostnader&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;Utdelning per aktie&quot;
+		.optTotal.Label = &quot;Utdelning totalt&quot;
+		.lblDividend.Label = &quot;Belopp&quot;
+		.lblExchangeRate.Label = &quot;Omräkningskurs (gammal-&gt;ny)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;Omräkningsdatum:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;~Dagligen&quot;
+		.optWeekly.Label = &quot;~Varje vecka&quot;
+		.hlnInterval.Label = &quot;Period&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>

server/libreoffice/share/basic/Depot/Lang_tw.xba

@@ -0,0 +1,175 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Lang_tw" script:language="StarBasic">Option Explicit
+
+Sub LoadChineseTradLanguage()
+
+	sProductname = GetProductname
+	sOK = &quot;確定&quot; 
+	sCancel = &quot;取消&quot;
+	sColumnHeader = &quot;欄標簽&quot;	
+	sInsertStockName = &quot;請先填入股票名稱!&quot;
+	sTitle = &quot;&lt;PRODUCTNAME&gt;: 股票管理&quot;
+	sTitle = ReplaceString(sTitle, sProductName, &quot;&lt;PRODUCTNAME&gt;&quot;)
+	sMsgError = &quot;輸入無效&quot;
+	sMsgNoName = sInsertStockname
+	sMsgNoQuantity = &quot;請輸入大於0的交易股數&quot;
+	sMsgNoDividend = &quot;請輸入每股股息金額或股息總額&quot;
+	sMsgNoExchangeRate = &quot;請鍵入正確的換算比率(舊股票 -&gt; 新股票)。&quot;
+	sMsgNoValidExchangeDate = &quot;請輸入股票分割的日期。&quot;
+	sMsgWrongExchangeDate = &quot;無法分割股票，因為分割日期之後已經買進或賣出股票。&quot;
+	sMsgSellTooMuch = &quot;最多能出售的股票數： &quot;
+	sMsgConfirm = &quot;需要确認&quot;
+	sMsgFreeStock = &quot;需要輸入一個贈送的股票？&quot;
+	sMsgTotalLoss = &quot;要輸入一個全部損失的股票？&quot;
+	sMsgAuthorization = &quot;安全詢問&quot;
+	sMsgDeleteAll = &quot;您要刪除所有的交易資料，重新建立一個股票一覽表？&quot;
+	cSplit = &quot;股票分割的日期 &quot;
+	sHistory = &quot;紀錄&quot;
+	TransactTitle(1) = 	 &quot;出售股票&quot;
+	TransactTitle(2) = &quot;購買股票&quot;
+	StockRatesTitle(1) = &quot;支付股息&quot;
+	StockRatesTitle(2) = &quot;股票分割&quot;
+	StockRatesTitle(3) = sHistory
+	sDepotCurrency = &quot;股票的貨幣&quot;	
+	sStockName = &quot;股票名稱&quot;
+	TransactMode = LIFO	&apos; Possible values: &quot;FIFO&quot; and &quot;LIFO&quot;
+	DateCellStyle = &quot;結果 日期&quot;
+	CurrCellStyle = &quot;1&quot;
+	sStartDate = &quot;交割日期：&quot;
+	sEndDate = &quot;到期日期：&quot;
+	sStartUpWelcome = &quot;這個樣式用於高效能地管理股票交易。&quot;
+	sStartUpChooseMarket = &quot;請先選一個參照的貨幣和一個可直接從 Internet 更新資料的贈券交易所。&quot;
+	sStartUpHint = &quot;很遺憾，&lt;History&gt;-功能僅適用於美國的交易所。&quot;
+	sStartupHint = ReplaceString(sStartUpHint, sHistory, &quot;&lt;History&gt;&quot;)
+	sNoInternetUpdate = &quot;不透過 internet 更新&quot;
+	sMarketPlace = &quot;證券交易所：&quot;
+	sNoInternetDataAvailable = &quot;無法接受 Internet 股票價格!&quot;
+	sCheckInternetSettings = &quot;可能的原因：&lt;BR&gt;Internet 設定不正確，需要重新設定。&lt;BR&gt;輸入了一個錯誤的股票代碼。&quot;
+	sCheckInternetSettings = ReplaceString(sCheckInternetSettings, chr(13), &quot;&lt;BR&gt;&quot;)
+
+	sMsgEndDatebeforeNow = &quot;到期日期必須是在今日之前！&quot;
+	sMsgStartDatebeforeEndDate = &quot;交割日期必須是在到期日期之前！&quot;
+
+	sMarket(0,0) = &quot;美元&quot;
+	sMarket(0,1) = &quot;$&quot;
+	sMarket(0,2) = &quot;紐約&quot;
+	sMarket(0,3) = &quot;http://finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(0,4) = &quot;http://ichart.finance.yahoo.com/table.csv?&quot; &amp;_
+				   &quot;s=&lt;StockID&gt;&amp;d=&lt;EndMonth&gt;&amp;e=&lt;EndDay&gt;&amp;f=&lt;Endyear&gt;&amp;g=d&amp;&quot; &amp;_
+				   &quot;a=&lt;StartMonth&gt;&amp;b=&lt;StartDay&gt;&amp;c=&lt;Startyear&gt;&amp;ignore=.csv&quot;
+	sMarket(0,5) = &quot;股票符號&quot;
+	sMarket(0,6) = &quot;en&quot;
+	sMarket(0,7) = &quot;US&quot;
+	sMarket(0,8) = &quot;409&quot;
+	sMarket(0,9) = &quot;44&quot;
+	sMarket(0,10) = &quot;1&quot;
+	
+	sMarket(1,0) = &quot;歐元&quot;
+	sMarket(1,1) = chr(8364)
+	sMarket(1,2) = &quot;法蘭克福&quot;
+	sMarket(1,3) = &quot;http://de.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.F&amp;f=sl1t1c1ghpv&amp;e=.csv&quot;
+	sMarket(1,5) = &quot;股代碼&quot;
+	sMarket(1,6) = &quot;de;nl;pt;el&quot;
+	sMarket(1,7) = &quot;DE;NL;PT;GR&quot;
+	sMarket(1,8) = &quot;407;413;816;408&quot;
+	sMarket(1,9) = &quot;59/9&quot;
+	sMarket(1,10) = &quot;1&quot;
+
+	sMarket(2,0) = &quot;英鎊&quot;
+	sMarket(2,1) = &quot;£&quot;
+	sMarket(2,2) = &quot;倫敦&quot;
+	sMarket(2,3) = &quot;http://uk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.L&amp;m=*&amp;f=sl1t1c1ghov&amp;e=.csv&quot;
+	sMarket(2,5) = &quot;股票符號&quot;
+	sMarket(2,6) = &quot;en&quot;
+	sMarket(2,7) = &quot;GB&quot;
+	sMarket(2,8) = &quot;809&quot;
+	sMarket(2,9) = &quot;44&quot;
+	sMarket(2,10) = &quot;1&quot;
+
+	sMarket(3,0) = &quot;日元&quot;
+	sMarket(3,1) = &quot;¥&quot;
+	sMarket(3,2) = &quot;東京&quot;
+	sMarket(3,3) = &quot;&quot;
+	sMarket(3,5) = &quot;代碼&quot;
+	sMarket(3,6) = &quot;ja&quot;
+	sMarket(3,7) = &quot;JP&quot;
+	sMarket(3,8) = &quot;411&quot;
+	sMarket(3,9) = &quot;&quot;
+	sMarket(3,10) = &quot;&quot;
+	
+	sMarket(4,0) = &quot;港幣&quot;
+	sMarket(4,1) = &quot;HK$&quot;
+	sMarket(4,2) = &quot;香港&quot;
+	sMarket(4,3) = &quot;http://hk.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;.HK&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(4,5) = &quot;編號&quot;
+	sMarket(4,6) = &quot;zh&quot;
+	sMarket(4,7) = &quot;HK&quot;	
+	sMarket(4,8) = &quot;C04&quot;
+	sMarket(4,9) = &quot;44&quot;
+	sMarket(4,10) = &quot;1&quot;
+
+	sMarket(5,0) = &quot;澳元&quot;
+	sMarket(5,1) = &quot;$&quot;
+	sMarket(5,2) = &quot;悉尼&quot;
+	sMarket(5,3) = &quot;http://au.finance.yahoo.com/d/quotes.csv?s=&lt;StockID&gt;&amp;f=sl1d1t1c1ohgv&amp;e=.csv&quot;
+	sMarket(5,5) = &quot;股票符號&quot;
+	sMarket(5,6) = &quot;en&quot;
+	sMarket(5,7) = &quot;AU&quot;
+	sMarket(5,8) = &quot;C09&quot;
+	sMarket(5,9) = &quot;44&quot;
+	sMarket(5,10) = &quot;1&quot;
+
+&apos; ****************************End of the default subset*********************************
+	CompleteMarketList()
+
+	LocalizedCurrencies()
+
+	With TransactModel
+		.lblStockNames.Label = sStockname
+		.lblQuantity.Label = &quot;數量&quot;
+		.lblRate.Label = &quot;股票價格&quot;
+		.lblDate.Label = &quot;交易日期&quot;
+		.hlnCommission.Label = &quot;其它的支出費用&quot;
+		.lblCommission.Label = &quot;手續費&quot;
+		.lblMinimum.Label = &quot;最低手續費&quot;
+		.lblFix.Label = &quot;固定金額/費用&quot;
+		.cmdGoOn.Label = sOK
+		.cmdCancel.Label = sCancel
+	End With
+	
+	With StockRatesModel
+		.optPerShare.Label = &quot;每股股息&quot;
+		.optTotal.Label = &quot;股息總計&quot;
+		.lblDividend.Label = &quot;金額&quot;
+		.lblExchangeRate.Label = &quot;轉換比率(舊股票 -&gt; 新股票)&quot;
+		.lblColon.Label = &quot;:&quot;
+		.lblDate.Label = &quot;轉換日期:&quot;
+		.lblStockNames.Label = sStockname
+		.lblStartDate.Label = sStartDate
+		.lblEndDate.Label = sEndDate
+		.optDaily.Label = &quot;每日&quot;
+		.optWeekly.Label = &quot;每週&quot;
+		.hlnInterval.Label = &quot;時間週期&quot;
+		.cmdGoOn.Label = sOk
+		.cmdCancel.Label = sCancel
+	End With
+End Sub
+</script:module>