Hi there, I've found the following things playing a little with OOO310_m11 (two of them also happen on DEV300_m47)
--------------------------------------------------------------------------------------------------
* Create a new database document (menu File - New - Database)
* Create a new macro (menu Tools - Marcos - Organize macros - OOo Basic, then
select the ODB, and press the New button)
* Write a dummy macro
* try to execute it
You get a macro warning (I my case I set security to "Medium" level).
You have to close the new document, open it again, and enable the execution of
its macros in the macro execution warning dialog.
This sound like an issue, as it is incoherent with the behavior in the other
applications (if you create a brand new document, and create a new module with
a macro, you don't get any warning when trying to execute it).
-----------------------------------------------------------------------------------------------------
css::container::XHierarchicalNameAccess::getByHierarchicalName() does not work
* create two forms:
"Form1"
"Folder1/Form1"
* The following (also attached, may it passes to the mailing list) opens Form1
when trying to open Folder1/Form1
REM ***** BASIC *****
Option Explicit
PRIVATE CONST SUBDOC_REPORT = 0
PRIVATE CONST SUBDOC_FORM = 1
Sub Main
Dim oDoc as Object
Dim oForm1 as Object
Dim oForm2 as Object
oDoc = ThisDatabaseDocument
oForm1 = OpenSubDocument(oDoc, SUBDOC_FORM, "Form1")
oForm2 = OpenSubDocument(oDoc, SUBDOC_FORM, "Folder1/Form1")
Dim bEqual as Boolean, sText$, i&
bEqual = EqualUnoObjects(oForm1, oForm2)
If bEqual Then
sText = "XHierarchicalNameAccess does not work!"
i = 16
Else
sText = "It works! :-)"
i = 32
End If
MsgBox(sText, i, "XHierarchicalNameAccess test")
End Sub
Function OpenSubDocument( oDoc as Object, iType as Integer, sName as String)
as Object
On Error GoTo OpenSubDocument_ERRHDLR
Dim oRet as Object
oRet = GetSubDocument(oDoc, iType, sName).open()
OpenSubDocument_ERRHDLR:
OpenSubDocument = oRet
End Function
Function GetSubDocument( oDoc as Object, iType as Integer, sName as String) as
Object
On Error GoTo GetSubDocument_ERRHDLR
Dim oRet as Object
Dim oContainer as Object
Select Case iType
Case SUBDOC_REPORT
oContainer = oDoc.ReportDocuments
Case SUBDOC_FORM
oContainer = oDoc.FormDocuments
End Select
If NOT IsNull( oContainer ) AND _
oContainer.hasByHierarchicalName( sName ) Then
oRet = oContainer.getByHierarchicalName( sName )
End If
GetSubDocument_ERRHDLR:
GetSubDocument() = oRet
End Function
-----------------------------------------------------------------------------------------------------
css::sdb::XSubDocument::open() does not work when the subdocument has no form
at all (this happens on OOO310_m11 but not in DEV300_m47):
* create a new form without the wizard, do not create any form and do not bind
it to any table
* store the document
* try to open it with the code above: nothing happens
I'm not sure if this last one is an issue, or a feature (you may throw
something in the later case).
Regards,
Ariel
--
Ariel Constenla-Haile
La Plata, Argentina
OpenForm.odb
Description: application/vnd.oasis.opendocument.database
--------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
