OpenOffice.info

Nö, ausser dispatcher und update Probleme.
Seitdem lasse ich dispatcher - Befehle, die ich bis dato nur für den .pdf Export verwendet hatte, komplett weg. Das geht ja schließlich auch mit Storetourl oder Storeasurl.
Gruß R

[quote="F3K Total"]Dem ist nicht ganz so, du kannst für die parallele Installation ein eigenes Benutzerverzeichnis, zumindest unter Windows und Linux, anlegen.[/quote]

… ich bin doch ein Apfelkind ;-)
Erste Tests werde ich wahrscheinlich via Crossover ect. laufen lassen.
Kannst du dich noch erinnern, was du damals ändern musstest, um die Fehler abzustellen?

Moinsen,
[quote="geimist"]aber das ist ja nicht mit dem älteren Benutzerverzeichnis kompatibel, d.h. ich könnte die ältere Version nicht weiter verwenden. Mal sehen - irgendwann wird es.[/quote]
Dem ist nicht ganz so, du kannst für die parallele Instalation ein eigenes Benutzerverzeichnis, zumindest unter Windows und Linux, anlegen.
Dazu muss, nach der Installation, vor dem Erststart, der Pfad in der Datei Bootstrap.ini angepasst werden.
Gruß R

[quote="F3K Total"]…, mal war es ein Dispatcher-Befehl der Ärger machte, mal ein Fehler mit updaterow und insertrow.[/quote]

# FÜHLERAUSTRECK (true)

Auch wenn es jetzt etwas pauschal ist, aber was konntest du an den Funktionen ändern, wenn sie doch 'normalerweise' funktionieren? Grob gesagt: entweder es geht, oder eben nicht. Manchmal hilft ja auch ein kleines 'wait', aber mehr fällt mir dann auch nicht ein …

# FÜHLERAUSTRECK (false)

Habe ich auf jeden Fall noch vor :-)
Ich bin eigentlich auch eher der Typ, der eher zu schnell updatet … (die Neugier halt :lol: )
Ich würde am liebsten das aktuelle Apache-OO parallel installieren, aber das ist ja nicht mit dem älteren Benutzerverzeichnis kompatibel, d.h. ich könnte die ältere Version nicht weiter verwenden. Mal sehen - irgendwann wird es.

Hallo geimist,
du schreibst von Fehlermeldungen, ich bin dem Link gefolgt, das Problem wurde damals nicht abgestellt.
Auch ich hatte zwischenzeitlich mit meinen .odb's solche Probleme. Konnte sie aber lösen, mal war es ein Dispatcher-Befehl der Ärger machte, mal ein Fehler mit updaterow und insertrow.
Es ist, glaube ich, der falsche Weg nur deshalb auf die z.T. echt guten Neuerungen zu verzicheten, wie du bereits mit ThisDatabasedocument leidlich erfahren hast.
Ich empfehle die Fehler zu beheben.

Gruß R

if HasUnoInterfaces(ReportDoc, "com.sun.star.util.XCLoseable") then
	ReportDoc.close(true) 'Bericht schliessen
else
	ReportDoc.dispose
end if

[quote="F3K Total"]dann fällt mir noch
[code]oreport.dispose[/code]
vor oder hinter dem close ein.[/quote]
Hat auch nicht geholfen …
Im Basic-Buch von Thomas wurde noch auf eine "sichere Methode" von Andrew Pitonyak verwiesen und ist ja im Prinzip das Gleiche wie dein Vorschlag, ändert aber nichts am Fehler. Auch in einem aktuellen LibreOffice war das selbe Verhalten.
[code]if HasUnoInterfaces(ReportDoc, "com.sun.star.util.XCLoseable") then
ReportDoc.close(true) 'Bericht schliessen
else
ReportDoc.dispose
end if[/code]

Aber ich habe dennoch einen Weg gefunden:
Ich habe den Berichtsaufruf in ein anderes Makro ausgelagert - so geht's :D

[quote="F3K Total"][quote="Stephan"]Da ich ja aber noch mit einer älteren OOo-Version arbeiten [color=#FF0000][b]muss[/b][/color], gab es wohl die Ansprechbarkeit in Form von thisdatabasedocument noch nicht. [/quote]
Warum eigentlich?[/quote]
Ab der Version 3.2 kam es immer zu nicht reproduzierbaren I/0 [url=http://de.openoffice.info/viewtopic.php?f=8&t=40560&p=150053#p150053]Fehlermeldungen[/url] wonach kein weiteres Arbeiten mehr möglich ist (OOo Neustart notwendig / alle Daten verloren). Es ließ sich nicht offenkundig auf ein einzelnes Makro oder Aktion zurückführen. Daher noch 3.1.1 …

Vielen Dank für deine Mühe!

oreport.dispose

dann fällt mir noch
[code]oreport.dispose[/code]
vor oder hinter dem close ein.
Versuch macht kluch
R
EDIT [quote="Stephan"]Da ich ja aber noch mit einer älteren OOo-Version arbeiten [color=#FF0000][b]muss[/b][/color], gab es wohl die Ansprechbarkeit in Form von thisdatabasedocument noch nicht. [/quote]
Warum eigentlich?

Die Aufrufmethode mit "thisdatabasedocument" funktioniert ja mit meiner 3.1 Version noch nicht.

Beenden mit oreport.close -1 hilft leider nicht …
Gleicher Fehler wie vorher.
Zum Test habe ich auch mal 10s Pause eingebaut, hat aber auch keine Auswirkung :(

oreportdoc = thisdatabasedocument.reportdocuments.getbyname("Ausgabe")

    Dim args(0) as new com.sun.star.beans.PropertyValue
    args(0).Name = "Hidden"
    args(0).Value = true

   oreport = ocontroller.loadComponentWithArguments(com.sun.star.sdb.application.DatabaseObject.REPORT, "Ausgabe", FALSE,args() )

oreport.close -1

Hi,
ich weiß nicht ob es einen Unterschied macht, habe gerade eine DB von mir angesehen, bei der das klappt.
Ich verwende zum Öffnen:
[code]oreportdoc = thisdatabasedocument.reportdocuments.getbyname("Ausgabe")

Dim args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "Hidden"
args(0).Value = true

oreport = ocontroller.loadComponentWithArguments(com.sun.star.sdb.application.DatabaseObject.REPORT, "Ausgabe", FALSE,args() )[/code]
und zum Schliessen:
[code]oreport.close -1[/code]
Gruß R

'========= Bericht laden:
       Dim Context AS Object
       Dim Conn As Object
       Dim DB As Object
       Dim ReportDoc As Object
       Dim Args(2) As New com.sun.star.beans.PropertyValue
       Dim ReportName As String
       
       ReportName = "MeinPersönlicherBericht"
       Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
       DB=Context.getByName("MeineDB")
       Conn=DB.getconnection("","")
       Args(0).Name="ActiveConnection" : Args(0).Value=Conn
       Args(1).Name="OpenMode" : Args(1).Value="open"
	   Args(2).Name="Hidden" : Args(2).Value=true
       ReportDoc=DB.DatabaseDocument.ReportDocuments.loadComponentFromURL(ReportName,"_self",2,Args)
      
'========= Bericht als PDF unter TMP speichern:

DIM dokument AS OBJECT
dokument = ReportDoc

DIM filter AS STRING

IF dokument.supportsService( "com.sun.star.text.TextDocument" ) THEN
  filter = "writer_pdf_Export"
ELSEIF dokument.supportsService( "com.sun.star.sheet.SpreadsheetDocument" ) THEN
  filter = "calc_pdf_Export"
ELSEIF dokument.supportsService( "com.sun.star.presentation.PresentationDocument" ) THEN
  filter = "impress_pdf_Export"
ELSEIF dokument.supportsService( "com.sun.star.draw.DrawDocument" ) THEN
  filter = "draw_pdf_Export"
Else
  MsgBox "Dokument-Typ unbehandelt."
  Exit Sub
End If

DIM Eigenschaften( 1 ) AS New com.sun.star.beans.PropertyValue

Eigenschaften( 0 ).Name = "FilterName"
Eigenschaften( 0 ).Value = filter

Eigenschaften( 1 ).Name = "CompressMode"
Eigenschaften( 1 ).Value = 0
dokument.storeToUrl( tmpURL, Eigenschaften( ) ) 

ReportDoc.close(true) 'Bericht schliessen

       ReportDoc=DB.DatabaseDocument.ReportDocuments.loadComponentFromURL(ReportName,"_self",2,Args)

Hallo zusammen,

ich bin gerade dabei, eine individuelle Serienmail per Makro zu erstellen. Ich lese die Empfänger aus der DB aus und arbeite dann in einer Schleife das Resultset ab. Jeder bekommt einen individuellen Bericht ect.

Den Bericht rufe ich innerhalb der Schleife so auf:
[code]
'========= Bericht laden:
Dim Context AS Object
Dim Conn As Object
Dim DB As Object
Dim ReportDoc As Object
Dim Args(2) As New com.sun.star.beans.PropertyValue
Dim ReportName As String

ReportName = "MeinPersönlicherBericht"
Context=CreateUnoService("com.sun.star.sdb.DatabaseContext")
DB=Context.getByName("MeineDB")
Conn=DB.getconnection("","")
Args(0).Name="ActiveConnection" : Args(0).Value=Conn
Args(1).Name="OpenMode" : Args(1).Value="open"
Args(2).Name="Hidden" : Args(2).Value=true
ReportDoc=DB.DatabaseDocument.ReportDocuments.loadComponentFromURL(ReportName,"_self",2,Args)

'========= Bericht als PDF unter TMP speichern:

DIM dokument AS OBJECT
dokument = ReportDoc

DIM filter AS STRING

IF dokument.supportsService( "com.sun.star.text.TextDocument" ) THEN
filter = "writer_pdf_Export"
ELSEIF dokument.supportsService( "com.sun.star.sheet.SpreadsheetDocument" ) THEN
filter = "calc_pdf_Export"
ELSEIF dokument.supportsService( "com.sun.star.presentation.PresentationDocument" ) THEN
filter = "impress_pdf_Export"
ELSEIF dokument.supportsService( "com.sun.star.draw.DrawDocument" ) THEN
filter = "draw_pdf_Export"
Else
MsgBox "Dokument-Typ unbehandelt."
Exit Sub
End If

DIM Eigenschaften( 1 ) AS New com.sun.star.beans.PropertyValue

Eigenschaften( 0 ).Name = "FilterName"
Eigenschaften( 0 ).Value = filter

Eigenschaften( 1 ).Name = "CompressMode"
Eigenschaften( 1 ).Value = 0
dokument.storeToUrl( tmpURL, Eigenschaften( ) )

ReportDoc.close(true) 'Bericht schliessen

[/code]

Der erste Durchlauf der Schleife funktioniert problemlos, aber beim Aufruf des 2. Berichts kommt es zum Fehler: "com.sun.star.IllegalArgumentException Message: ."
In dieser Zeile:
[code] ReportDoc=DB.DatabaseDocument.ReportDocuments.loadComponentFromURL(ReportName,"_self",2,Args)[/code]

Muss ich den Bericht erst noch anderweitig beenden oder schließen?
Habt ihr eine Idee?