OpenOffice.info

Code: Alles auswählen

' Database
Dim Context As Object, DB As Object, Connection As Object, QueryErg As Object
Dim DBName As String, SQL As String
Dim Statement As Variant

' FormObjects
Dim oForm As Object
Dim oText(11) 

'--------------------------------------------------------------------------------------------- Baustelle!
'Sub clearForm

'end Sub

'--------------------------------------------------------------------------------------------- Teilbaustelle!
Sub Value_ANr

'clearForm  
  
	oANr = inputBox ("Auftragsnummer","Eingabe erforderlich","Bitte Auftragsnummer eingeben")
	oForm = thisComponent.drawpage.forms.getbyindex(0)
	oText(1) = oForm.getByName("o_anrede")
	oText(2) = oForm.getByName("o_name")
	oText(3) = oForm.getByName("o_titel")
	oText(4) = oForm.getByName("o_strasse")
	oText(5) = oForm.getByName("o_ort")
	oText(6) = oForm.getByName("r_anrede")
	oText(7) = oForm.getByName("r_name")
	oText(8) = oForm.getByName("r_titel")
	oText(9) = oForm.getByName("r_strasse")
	oText(10) = oForm.getByName("r_ort")
	oText(11) = oForm.getByName("langtext")
	oEdit = oForm.getByName("chk_edit")
	
   		DBName = "REPARATUR"
		Context = createUnoService("com.sun.star.sdb.DatabaseContext")
		DB = Context.GetByName (DBName)
		Connection = DB.GetConnection ("","")
		Sql = "SELECT `objekt_anrede`,`objekt_name`,`objekt_titel`,`objekt_strasse`,`objekt_ort`,`rechnung_anrede`,`rechnung_name`,`rechnung_titel`,`rechnung_strasse`,`rechnung_ort`,`langtext` FROM `REPARATUR` WHERE `key` = '"+oANr+"';"	
		
		Statement = Connection.CreateStatement
		QueryErg = Statement.ExecuteQuery(SQL)
		
		for i = 1 to 11
			oText(i).text = trim(QueryErg.GetString(i))
			if i = 11 then
				TempText = trim(QueryErg.GetString(i))
				oText(i).text = Replace(TempText, Chr(10)+ Chr(13), "")
			end if
		next i
				
		Connection.Close()
		
		if oEdit.state(1) then
			for i = 1 to 10
				oText(i).ReadOnly = false			
			next i
		end if
	
End Sub

Code: Alles auswählen

' FormObjects
Dim oForm As Object
Dim oText(5) 

Sub fillForm

	oForm = thisComponent.drawpage.forms.getbyindex(0) <-- 0= Seitenzahl? also Seite1?
	oText(1) = oForm.getByName("o_anrede")
	oText(2) = oForm.getByName("o_name")
	oText(3) = oForm.getByName("o_titel")
	oText(4) = oForm.getByName("o_strasse")
	oText(5) = oForm.getByName("o_ort")
	
		for i = 1 to 5
			oText(i).text =... ???
		next i

Code: Alles auswählen

oForm = thisComponent.drawpage.forms.getbyindex(0)

Code: Alles auswählen

oHauptformular = thisComponent.Drawpage.Forms.getByIndex(0)

Code: Alles auswählen

oAngehaengtesFormular = thisComponent.Drawpage.Forms.getByIndex(thisComponent.Drawpage.Forms.Count - 1)

Code: Alles auswählen

oHauptformular = thisComponent.Drawpage.Forms.getByIndex(0)
oAngehaengtesFormular = thisComponent.Drawpage.Forms.getByIndex(thisComponent.Drawpage.Forms.Count - 1)
oText = oAngehaengtesFormular.getByName("o_anrede")
If oHauptformular.hasByName("o_anrede") Then
  oText.Text = oHauptformular.getByName("o_anrede").Text
End If

Code: Alles auswählen

'  *****  Prüfformular  *****
'  *****  Mrz/Apr. 2011 *****

' FormObjects
Dim oHauptform As Object, oUnterform As Object
Dim oFeld(5)
Dim oText(5)

Sub fillForm

	oHauptform = thisComponent.Drawpage.Forms.getByIndex(0)
	oUnterform = thisComponent.Drawpage.Forms.getByIndex(thisComponent.Drawpage.Forms.Count - 1)
	oFeld() = Array ("o_anrede", "o_name", "o_titel", "o_strasse", "o_ort")
	
		for i = 0 to 4
		
			oText(i) = oUnterform.getByName(oFeld(i))
			
				If oHauptform.hasByName(oFeld(i)) Then
  					oText(i).Text = oHauptform.getByName(oFeld(i)).Text
  				else
  					oText(i).Text = "keine Daten"
				End If	
			
		next i
		
end sub

Code: Alles auswählen

...
' FormObjects
Dim oForm As Object
Dim oFeld(10)
Dim oText(10)
Dim TempText$
Dim aOpt1(), aOpt2(), aOpt3(), aOpt4()
Dim s1_1$, s1_2$, s2_1$, s2_2$, s3_1$, s3_2$, s4_1$, s4_2$

' ErrorProof
Dim grpfail1, grpfail2, grpfail3, grpfail4 
Dim errormsg1$

' save odt/PDF 
Dim datname$, path$, extension$, odturl$, pdfurl$

' addForm
dim document As Object, dispatcher As Object

' fillUform
Dim oHauptform As Object, oUnterform As Object
...
'--------------------------------------------------------------------------------------------- funktioniert
Sub addPruefForm_TT

  oViewCursor = thisComponent.getCurrentController.getViewCursor
  oViewCursor.jumpToLastPage(true)
  oViewCursor.jumpToEndofPage(true)
  
  Dim args2(0) as New com.sun.star.beans.PropertyValue
  oText = thisComponent.getText()   
  oTextCursor = oText.createTextCursor
  oTextCursor.gotoEnd(False)
  oTextCursor.BreakType = com.sun.star.style.BreakType.PAGE_AFTER
  oText.insertControlCharacter(oTextCursor, com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, False)
  sInhalt="file:///C:/xxx/xtFormulare/Pruefform_TT.odt"
  filetoinsert=converttourl(sInhalt)
  oTextCursor.InsertDocumentFromUrl(FileToInsert,args2())

'Daten übergeben
fillUform

End Sub


'--------------------------------------------------------------------------------------------- Baustelle!
Sub fillUform

	oHauptform = thisComponent.Drawpage.Forms.getByIndex(0)
	oUnterform = thisComponent.Drawpage.Forms.getByIndex(thisComponent.Drawpage.Forms.Count - 1)
	oFeld() = Array ("o_anrede", "o_name", "o_titel", "o_strasse", "o_ort")
	
		for i = 0 to 4
		
			oText(i) = oUnterform.getByName(oFeld(i))
			
				If oHauptform.hasByName(oText(i)) Then
  					oText(i).Text = oHauptform.getByName(oText(i)).Text
  				else
  					oText(i).Text = "keine Daten"
				End If	
			
		next i
		
End sub

Code: Alles auswählen

If oHauptform.hasByName(oFeld(i)) Then

Code: Alles auswählen

If oHauptform.hasByName(oText(i).Name) Then

Code: Alles auswählen

oText(i).Text = oHauptform.getByName(oText(i)).Text

Code: Alles auswählen

				
If oHauptform.hasByName(oText(i).Name) Then
   oText(i).Text = oHauptform.getByName(oText(i).name).Text
  else
  oText(i).Text = "keine Daten"
  End If