Something I am failing to see is that the call to a sub in Standard is failing with Object Variable Not Set. I can't figure out which one is not set.
I would have liked to have this working as there are a number of reports, charts, etc., produced for the benefit of end users to get a glance at the accounts without having to know about databases etc.
My aim was to have a generalised save routine which stashes all the recent output in an easy to figure out directory structure. But for some reason, although this has been working, I have now made it not work and it is not clear what is wrong.
I will have to workround at the moment by pasting the code in each report macro but as is well known that does not make for a maintainable system. So any idea of what I am doing wrong will be very welcome.
- Code: Select all Expand viewCollapse view
Sub Main (sysPath as string)
select case sysPath
case "LIVE", "TEST", "UPGRADES"
rem nothing here
print "System Path (" & sysPath & ") Won't Work"
basicLibrary = "reports"
basicModule = "bankStatements"
systemInstance = sysPath
Dim s$ : s = "private:factory/swriter"
oDoc = StarDesktop.loadComponentFromURL(s,"_blank",0,Array())
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
connectToDatabase (systemInstance, "Open Office", "123456")
print systemInstance & " " & basicLibrary & " " & basicModule
rem call closeAsReadOnly.Main(thisComponent, controller, systemInstance, basicLibrary, basicModule)
call Standard.saveAndClose.Main(doc, systemInstance, basicLibrary, basicModule)
rem call Standard.saveAndClose.Main(systemInstance, basicLibrary, basicModule)
I do have xray installed but have not really got into how it can help diagnosis. Maybe a debug tool of a simpler type is available. I do have MRI installed but it's broken and I will need to reinstall OpenOffice which is a long way down my list of necessaries..