OpenOffice.info

Code: Alles auswählen

Function getMessage(ID as integer)

		DIM oDatasource AS OBJECT
		DIM oConnection AS OBJECT		
		DIM oSql AS OBJECT
		DIM oResultSet AS OBJECT
		
		DIM stSql AS STRING
		DIM stSql1 as string
		DIM stSql2 as string
		Dim iTyp as integer
		DIM iJN as integer
		dim iHeader as string
		
		stID = ID		
	
		[b]oDatasource = thisComponent.Parent.CurrentController[/b]    <--------- Fehler
		IF NOT (oDatasource.isConnected()) THEN oDatasource.connect()
		oConnection = oDatasource.ActiveConnection()
		
		stSql1 = "SELECT ""err_id"", ""err_text"", ""err_typ"" FROM ""tError""" 
		stSql2 = "WHERE err_id = " & ID
		stSql = stSql1 + stSql2
		
		oSql = oConnection.createStatement()		
		oResultSet = oSql_AUF.executeQuery(stSql)
		If not isNull (oResultSet) then
				WHILE oResultSet.Next
					REM: Meldung aufbereiten und ausgeben
					iF1 =  ResultSet.getString(2)
					iTyp = Resultset.getint(3)
					iF2 = iTyp
					iTyp = Resultset.getint(3)				
					getMessage = True
					SELECT case iTyp   ' es koennen nur 0,16 oder 36 vorkommen
						case 0:
							iF3 = "Hinweis" + "Nr. " + stID
							msgbox(iF1,iF2,iF3)						
						case 16:
							iF3 = "Fehler" + "Nr. " + stID
							iJN = msgbox(iF1,iF2,iF3)
							if iJN = 0 then					
								getMessage = False
							end if	 
						case 36:
							iF3 = "Bestätigungsabfrage" + "Nr. " + stID 
							msgbox(iF1,iF2,iF3)
					END SELECT   
            	WEND
       	 	ELSE
       	 		iF1 = "Die Meldung mit Nummer " + stID + "wurde nicht gefunden, Chr$(13) die Verarbeitung wird abgebrochen"
       	 		iF2 = 16
       	 		iF3 = "Systemfehler" 
        		msgbox iF1,iF2,iF3
        		getMessage = False
        END IF
End Function

Code: Alles auswählen

oResultSet = oSql_Auf.executeQuery(stSql)

Code: Alles auswählen

SUB Datenbankbackup
	DIM oPath AS OBJECT
	DIM oDoc AS OBJECT
	DIM sTitel AS STRING
	DIM sUrl_Ziel AS STRING
	DIM sUrl_Start AS STRING
	DIM i AS INTEGER
	DIM k AS INTEGER
	
	DIM iMax as integer    ' Anahl der Sicherungsgenerationen
	DIM iMax_1 as Integer
	Dim iMax_2 as Integer
	
	iMax = 30
	iMax_1 = iMax - 1
	iMax_2 = iMax - 2
	
	
	DIM oDaten AS OBJECT
	DIM oDataSource AS OBJECT
	
	oDaten = ThisDatabaseDocument.CurrentController
	
	IF NOT ( oDaten.isConnected() ) THEN oDaten.connect()
	
	' DB-Cache schreiben um aktuelle Aenderungen in die Sicherung zu uebernehmen
	oDataSource = oDaten.DataSource
	oDataSource.flush
	
	sTitel = ThisDatabaseDocument.Title
	sUrl_Start = ThisDatabaseDocument.URL
	
	oPath = createUnoService("com.sun.star.util.PathSettings")
	
	FOR i = 1 TO iMax
		IF NOT FileExists(oPath.Backup & "/" & i & "_" & sTitel) THEN
			IF i > iMax_1 THEN
			FOR k = iMax_2 TO 1 STEP -1
				IF FileDateTime(oPath.Backup & "/" & k & "_" & sTitel) <= FileDateTime(oPath.Backup & "/" & k+1 & "_" & sTitel) THEN
					IF k = 1 THEN
						i = k
						EXIT FOR
					END IF
				ELSE
				i = k + 1
				EXIT FOR
			END IF
			NEXT
		END IF
		EXIT FOR
	END IF
	NEXT

    sUrl_Ziel = oPath.Backup & "/" & i &"_" & sTitel 	
	FileCopy(sUrl_Start,sUrl_Ziel)
	
End Sub

Code: Alles auswählen

Function getMessage(ID as integer, Replacement_1 As String, Replacement_2 as String)  
		REM ID=Felernummer, Replacetext-1, Replacetext-2

		DIM oDatasource AS OBJECT
		DIM oConnection AS OBJECT		
		DIM oSql AS OBJECT
		DIM oResultSet AS OBJECT
		
		DIM stSql AS STRING
		DIM stSql1 as string
		DIM stSql2 as string
		
		Dim iTyp as integer
		DIM iJN as integer
		DIM stID as String
		
		DIM iF1 as String
		DIM iF2 As String
		DIM iF3 As String
		
		stID = ID		
	
		oDatasource = thisComponent.Parent.CurrentController
		IF NOT (oDatasource.isConnected()) THEN oDatasource.connect()
		oConnection = oDatasource.ActiveConnection()
		
		stSql1 = "SELECT ""err_id"", ""err_txt"", ""err_typ"" FROM ""tError""" 
		stSql2 = "WHERE err_id = " & ID
		stSql = stSql1 + stSql2
		
		oSql = oConnection.createStatement()		
		oResultSet = oSql.executeQuery(stSql)
		If not isNull (oResultSet) then
				WHILE oResultSet.Next
					REM: Meldung aufbereiten und ausgeben    igel_betrag = Replace(igel_betrag, ",", ".")
					If not isEmpty(Replacement_1) then
							iF1 = oResultSet.getString(2)
							iF1 = Replace(iF1, "@1", Replacement_1)
						else 
							iF1 = oResultSet.getString(2)
					end if
					If not isEmpty(Replacement_2) then
							iF1 = Replace(iF1, "@2", Replacement_2)
					end if 
					iTyp = oResultset.getint(3)
					iF2 = iTyp
					iTyp = oResultset.getint(3)				
					getMessage = True
					SELECT case iTyp   ' es koennen nur 16, 36 oder 64 vorkommen
						case 16:
							iF3 = "Fehlermeldung" + " Nr.: " + stID
							iJN = msgbox(iF1,iF2,iF3)
							if iJN = 0 then					
								getMessage = False
							end if	 
						case 36:
							iF3 = "Bestätigungsabfrage" + " Nr.: " + stID 
							msgbox(iF1,iF2,iF3)
						case 64:
							iF3 = "Hinweis" + " Nr.: " + stID
							msgbox(iF1,iF2,iF3)		
					END SELECT   
            	WEND
       	 	ELSE
       	 		iF1 = "Die Meldung mit Nummer " + stID + "wurde nicht gefunden, die Verarbeitung wird abgebrochen"
       	 		iF2 = 16
       	 		iF3 = "Systemfehler im Modul getMessage" 
        		msgbox iF1,iF2,iF3
        		getMessage = False
        END IF
End Function

Code: Alles auswählen

SUB Systemstart      ' Datenbank sichern und Hauptformular der Anwendung aufrufen

	call Datenbankbackup
	call Hauptformular_oeffnen
end sub

SUB BackupDurchUser

	call Daten_aus_Cache_schreiben
	call Datenbankbackup
	msgbox "Eine neue Generation der Datenbanksicherung wurde erstellt",64 ,"Hinweis"

end sub



SUB Datenbankbackup		' Legt eine neue Backup-Generation an
	  
    DIM oPath AS OBJECT
	DIM oDoc AS OBJECT
	DIM oDaten AS OBJECT
	DIM oDataSource AS OBJECT	
	
	DIM sTitel AS STRING
	DIM sUrl_Ziel AS STRING
	DIM sUrl_Start AS STRING
	
	DIM i AS INTEGER
	Dim sti AS STRING
	DIM k AS INTEGER
	DIM stK AS STRING	
	DIM stNull AS STRING	
	
	DIM iAnzGenerationen as INTEGER
	DIM iMax as INTEGER   
	DIM iMax_1 as INTEGER
	DIM iMax_2 as INTEGER
	
	iAnzGenerationen = 30		' Anzahl der Backup-Generationen	
	
	iMax = iAnzGenerationen +1 
	iMax_1 = iMax - 1
	iMax_2 = iMax - 2	
	
	stNull = "0"
	
	oDaten = ThisDatabaseDocument.CurrentController
	
	IF NOT ( oDaten.isConnected() ) THEN oDaten.connect()	
	
	sTitel = ThisDatabaseDocument.Title
	sUrl_Start = ThisDatabaseDocument.URL
	
	oPath = createUnoService("com.sun.star.util.PathSettings")
	
	FOR i = 1 TO iMax
		IF i < 10 THEN
				sti = stNull + i
			ELSE
				sti = i
			END IF
		IF NOT FileExists(oPath.Backup & "/" & sti & "_" & sTitel) THEN			
			IF i > iMax_1 THEN	
				FOR k = iMax_2 TO 1 STEP -1
					IF k < 9 THEN
							stK = stNull + (k + 1)
						ELSE
							stk = (k + 1)
					END IF		
					IF FileDateTime(oPath.Backup & "/" & stK & "_" & sTitel) <= FileDateTime(oPath.Backup & "/" & stK & "_" & sTitel) THEN
						IF k = 1 THEN
							i = k
							EXIT FOR
						END IF
					  ELSE
					    i = k + 1
					    IF i < 10 THEN
							sti = stNull + i
						ELSE
							sti = i
					END IF		
					    
					  EXIT FOR
				    END IF
				NEXT
			END IF
			EXIT FOR
		END IF
		NEXT

   	 	sUrl_Ziel = oPath.Backup & "/" & sti &"_" & sTitel 	
		FileCopy(sUrl_Start,sUrl_Ziel)	
End Sub


SUB Daten_aus_Cache_schreiben	' erforderlich vor einen Backup der nicht unmittelbar 
								' nach dem Systemstart anläuft

	DIM oDaten AS OBJECT
	DIM oDataSource AS OBJECT
	oDaten = ThisDatabaseDocument.CurrentController
	IF NOT ( oDaten.isConnected() ) THEN oDaten.connect()
	oDataSource = oDaten.DataSource
	oDataSource.flush
END SUB

Code: Alles auswählen

Function getMessage(ID as integer, Replacement_1 As String, Replacement_2 as String)  
		REM ID=Felernummer, Replacetext-1, Replacetext-2

		DIM oDatasource AS OBJECT
		DIM oConnection AS OBJECT		
		DIM oSql AS OBJECT
		DIM oResultSet AS OBJECT
		
		DIM stSql AS STRING
		DIM stSql1 as string
		DIM stSql2 as string
		
		Dim iTyp as integer
		DIM iJN as integer
		DIM stID as String
		
		DIM iCHR13 as string
		
		DIM iF1 as String
		DIM iF2 As String
		DIM iF3 As String
		
		stID = ID
		iCHR13 = CHR(13)		
	
		oDatasource = thisComponent.Parent.CurrentController
		IF NOT (oDatasource.isConnected()) THEN oDatasource.connect()
		oConnection = oDatasource.ActiveConnection()
		
		stSql1 = "SELECT ""err_id"", ""err_txt"", ""err_typ"" FROM ""tError""" 
		stSql2 = "WHERE err_id = " & ID
		stSql = stSql1 + stSql2
		
		oSql = oConnection.createStatement()		
		oResultSet = oSql.executeQuery(stSql)
		If not isNull (oResultSet) then
				WHILE oResultSet.Next
					REM: Meldung aufbereiten und ausgeben 
						If not isEmpty(Replacement_1) then
							iF1 = oResultSet.getString(2)
							iF1 = Replace(iF1, "@1", Replacement_1)
						else 
							iF1 = oResultSet.getString(2)
					end if
					If not isEmpty(Replacement_2) then
							iF1 = Replace(iF1, "@2", Replacement_2)
					end if 
					iF1 = Replace(iF1, "CHR13", iCHR13)
					iTyp = oResultset.getint(3)
					iF2 = iTyp
					iTyp = oResultset.getint(3)				
					getMessage = True
					SELECT case iTyp   ' es koennen nur 16, 36 oder 64 vorkommen
						case 16:
							iF3 = "Fehlermeldung" + " Nr.: " + stID
							iJN = msgbox(iF1,iF2,iF3)
							if iJN = 0 then					
								getMessage = False
							end if	 
						case 36:
							iF3 = "Bestätigungsabfrage" + " Nr.: " + stID 
							msgbox(iF1,iF2,iF3)
						case 64:
							iF3 = "Hinweis" + " Nr.: " + stID
							msgbox(iF1,iF2,iF3)		
					END SELECT   
            	WEND
       	 	ELSE
       	 		iF1 = "Die Meldung mit Nummer " + stID + "wurde nicht gefunden, die Verarbeitung wird abgebrochen"
       	 		iF2 = 16
       	 		iF3 = "Systemfehler im Modul getMessage" 
        		msgbox iF1,iF2,iF3
        		getMessage = False
        END IF
End Function