** Description changed:

- The OOo crashes every time when the following BASIC macro "FaxAuftraege"
- is closed after using the function. The Crash apears since the last
- update of the Ubuntu 8.10 System (i think it was yesterday or the day
- before yesterday).
- 
- SUB FaxAuftraege
-       oAuftrag.getControl("BRahmen").setEnable(False)
-       oFaxe = CreateUnoDialog(DialogLibraries.ArtFrameManager.Faxe)
-       oFaxe.Model.PositionX = iXpos
-       oFaxe.Model.PositionY = iYpos
-       zeile  = 1
-       GalerieSet = Anweisung.executeQuery("SELECT * FROM ""Galerie""")        
' Abfrage durchführen
-       IF NOT IsNull(GalerieSet) THEN                                          
                                                                ' When 
ResultSet nicht leer
-               GalerieSet.NEXT
-               GalerieSet.NEXT
-               zeile  = 1
-               FOR i = 2 TO 17 
-                       sText = GalerieSet.getString(i)         ' Lieferanten 
aus DB laden
-                       IF sText <>"" THEN                                      
        ' bis 1. leeres Feld gefunden wird
-                               
oFaxe.getControl("Lieferant").addItem(sText,zeile)
-                               zeile=zeile+1
-                       ELSE
-                               EXIT FOR
-                       END IF
-               NEXT
-               GalerieSet.NEXT
-               FOR i = 2 TO 17 
-                       sText = GalerieSet.getString(i)         ' Lieferanten 
aus DB laden
-                       IF sText <>"" THEN                                      
        ' bis 1. leeres Feld gefunden wird
-                               
oFaxe.getControl("Lieferant").addItem(sText,zeile)
-                               zeile=zeile+1
-                       ELSE
-                               EXIT FOR
-                       END IF
-               NEXT            
-       END IF 
-       oFaxe.Execute()
-       oAuftrag.getControl("BRahmen").setEnable(True)
-       oFaxe.endExecute()
-       closeFax
- END SUB
- 
- SUB closeFax 
-   DIM oDesktop        As Object, oDocs                As Object
-   DIM oDoc            As Object, oComponents  As Object
- 
-   GlobalScope.BasicLibraries.LoadLibrary("Tools")
-   oComponents = StarDesktop.getComponents()
-   oDocs = oComponents.createEnumeration()
-   Do WHILE oDocs.hasMoreElements()
-     oDoc = oDocs.nextElement()
-     On Error Goto Weiter
-     IF FileNameoutofPath(odoc.geturl()) = sText1 THEN
-               IF (oFax.isModified()) THEN
-                       oFax.store()
-               END IF
-               oFax.close(True)
-               sText1 = ""
-               EXIT Do
-     END IF
-     weiter:
-   Loop
- END SUB
- 
- FUNCTION isopenFax As Boolean
-   GlobalScope.BasicLibraries.LoadLibrary("Tools")
-   DIM oDesktop        As Object, oDocs As Object
-   DIM oDoc            As Object, oComponents As Object
-   oComponents = StarDesktop.getComponents()
-   oDocs = oComponents.createEnumeration()
-   Do WHILE oDocs.hasMoreElements()
-     oDoc = oDocs.nextElement()
-     On Error Goto Weiter
-     IF FileNameoutofPath(odoc.geturl()) = sText1 THEN
-               isopenFax = True
-               EXIT FUNCTION
-     END IF
-     weiter:
-   Loop
-   isopenFax = False
- END FUNCTION
- 
- SUB druckeFax
-       setFax
-       PrintProperties(0).Name = "CopyCount"
-       PrintProperties(0).Value = 1                                            
' Anzahl der Kopien
-       MsgBox "Bitte DIN A 4 Blatt einlege"
-       oFax.print(PrintProperties())
-       Wait(8500)
- END SUB
- 
- SUB killFax   
-       DIM j AS INTEGER
- 
-       setFax
-       oTables = createunoService("com.sun.star.text.TextTables")
-       oTables = oFax.getTextTables
-       oTable  = createunoService("com.sun.star.text.TextTable")
-       oTable  = oTables.getByName("Bestellung")       
-       FOR i = 1 to 15
-               FOR j = 0 to 5
-                       oTable.getCellByPosition(j,i).String = ""
-               NEXT
-       NEXT    
-       closeFax
- END SUB
- 
- SUB setFax
-       DIM sFaxDatei   as string
- 
-       closeFax
-       sText1    = oFaxe.getControl("Lieferant").getText &".odt"
-       sFaxDatei = ConvertToUrl(sVerzeichnis & "Faxe/" & sText1)
-       IF Dir(sFaxDatei)<>"" THEN
-               oFax      = StarDesktop.LoadComponentfromURL(sFaxDatei, 
"_blank", 0, Args())
-       ELSE
-               MsgBox "Die Fax Datei " & sFaxDatei & " ist nicht 
vorhanden!",16,"Faxe laden"
-       END IF
- END SUB
+ The OOo crashes every time when a Writer document is opend and closed
+ again, while the Base-Database is active. This happens in OOo Version
+ 2.4.1 and Ubuntu 8.10 since the last Update of the Base System!

-- 
OOo crashed with unexpectet JAVA Runtime error
https://bugs.launchpad.net/bugs/306501
You received this bug notification because you are a member of Ubuntu
Bugs, which is subscribed to Ubuntu.

-- 
ubuntu-bugs mailing list
[email protected]
https://lists.ubuntu.com/mailman/listinfo/ubuntu-bugs

Reply via email to