Problem mit der Datenübergabe vom Back-End zum Front-End bei Änderung in Richtextfeldern

Westenseer · 28. Februar 2008

ich habe da ein Problem mit dem Datenaustausch zwischen Back-End und Front-End.
In einem geöffneten Dokument starte ich einen Agenten, der Änderungen in diversen Feldern des Dokuments vornimmt und das Dokument anschließend druckt.
Klappt auch prima soweit, wenn ich aber dabei auch Änderungen in Richtextfeldern vornehme, kommen diese Änderungen nicht rüber.
In der Hilfe steht dazu, dass Änderungen in Richtextfeldern im BackEnd erst nach einem Close und ReOpen zur Verfügung stehen.
Mein Problem, wie kann ich das im Agenten abbilden ?
Geht's überhaupt ?

Gruß Harald

RockWilder · 28. Februar 2008

Ein NotesUIDocument kannst du mit Close schließen. Mit NotesDocument.EditDocument kannst du dir das Backenddokument holen und öffnen.

Westenseer · 28. Februar 2008

RockWilder
Vielen Dank für den Tipp, aber das will bei mir nicht so richtig funktionieren. Die Daten sind zwar geändert, aber gedruckt werden die Platzhalter unverändert.
Vielleicht kann sich mal jemand mein Script ansehen und findet meinen Fehler.

Code

Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	Dim filenames As Variant
	Dim TempFilePath As String
	Dim TempFileName As String
	Dim FilePath As String
	Dim Trennzeichen As String
	Dim Adresse As String
	Trennzeichen = ";"
	Salutation = ""
	Dim Doc As NotesDocument
	Dim body As NotesRichTextItem
	Dim rtnav As NotesRichTextNavigator
	Dim rtrange As NotesRichTextRange

'Get the working document.
	Set uidoc = workspace.CurrentDocument
	Set doc = uidoc.Document	

	Open FileNames(0) For Input As #1
	Line Input #1, Data

	Anrede 				= Strtoken(DATA, Trennzeichen , 1)
	Anrede 				= Mid(Anrede,2,Len(Anrede)-2)
	Titel 					= Strtoken(DATA, Trennzeichen , 2)
	Titel 					= Mid(Titel,2,Len(Titel)-2)
	Vorname 			= Strtoken(DATA, Trennzeichen , 3)
	Vorname 			= Mid(Vorname,2,Len(Vorname)-2)
	Nachname 		= Strtoken(DATA, Trennzeichen , 4)
	Nachname 		= Mid(Nachname,2,Len(Nachname)-2)
	Strasse  			= Strtoken(DATA, Trennzeichen , 5)
	Strasse 				= Mid(Strasse,2,Len(Strasse)-2)
	PLZ					= Strtoken(DATA, Trennzeichen , 6)
	PLZ 					= Mid(PLZ,2,Len(PLZ)-2)
	Ort					= Strtoken(DATA, Trennzeichen , 7)
	Ort 					= Mid(Ort,2,Len(Ort)-2)
	AnredeBerater	= Strtoken(DATA, Trennzeichen , 8)
	AnredeBerater 	= Mid(AnredeBerater,2,Len(AnredeBerater)-2)
	NameBerater		= Strtoken(DATA, Trennzeichen , 9)
	NameBerater 	= Mid(NameBerater,2,Len(NameBerater)-2)
	TelefonBerater	= Strtoken(DATA, Trennzeichen , 10)
	TelefonBerater 	= Mid(TelefonBerater,2,Len(TelefonBerater)-2)
	ErsatzVariable1$	= Strtoken(DATA, Trennzeichen , 11)
	ErsatzVariable1$ 	= Mid(ErsatzVariable1$,2,Len(ErsatzVariable1$)-2)
	ErsatzVariable2$	= Strtoken(DATA, Trennzeichen , 12)
	ErsatzVariable2$ 	= Mid(ErsatzVariable2$,2,Len(ErsatzVariable2$)-2)
	ErsatzVariable3$	= Strtoken(DATA, Trennzeichen , 13)
	ErsatzVariable3$ 	= Mid(ErsatzVariable3$,2,Len(ErsatzVariable3$)-2)
	ErsatzVariable4$	= Strtoken(DATA, Trennzeichen , 14)
	ErsatzVariable4$ 	= Mid(ErsatzVariable4$,2,Len(ErsatzVariable4$)-2)
	ErsatzVariable5$	= Strtoken(DATA, Trennzeichen , 15)
	ErsatzVariable5$ 	= Mid(ErsatzVariable5$,2,Len(ErsatzVariable5$)-2)
	ErsatzVariable6$	= Strtoken(DATA, Trennzeichen , 16)
	ErsatzVariable6$ 	= Mid(ErsatzVariable6$,2,Len(ErsatzVariable6$)-2)
	ErsatzVariable7$	= Strtoken(DATA, Trennzeichen , 17)
	ErsatzVariable7$ 	= Mid(ErsatzVariable7$,2,Len(ErsatzVariable7$)-2)
	ErsatzVariable8$	= Strtoken(DATA, Trennzeichen , 18)
	ErsatzVariable8$ 	= Mid(ErsatzVariable8$,2,Len(ErsatzVariable8$)-2)
	ErsatzVariable9$	= Strtoken(DATA, Trennzeichen , 19)
	ErsatzVariable9$ 	= Mid(ErsatzVariable9$,2,Len(ErsatzVariable9$)-2)
	ErsatzVariable10$	= Strtoken(DATA, Trennzeichen , 20)
	ErsatzVariable10$ 	= Mid(ErsatzVariable10$,2,Len(ErsatzVariable10$)-2)

	If uidoc.FieldGetText("Form") = "Formular(Standard)" Then
		If AnredeBerater <> "" And NameBerater <> "" Then
			uidoc.FieldSetText("Geschäftsstelle") , AnredeBerater + " " + NameBerater
			uidoc.FieldSetText("voba_ap_name") , ""
		End If
	End If

	If TelefonBerater <> "" Then	 uidoc.FieldSetText("voba_ap_tel") , Cstr(Telefonberater)
	If Titel <> "" Then Titel = Titel + " "
	If Vorname <> "" Then	 Vorname = Vorname + " "

	Adresse = Anrede+Chr(10)+ _ 
	Titel+Vorname+Nachname+Chr(10)+ _ 
	Strasse+Chr(10)+ _ 
	PLZ+" "+Ort

	uidoc.FieldSetText("Address"),Adresse

	If Anrede = "Frau" Then
		Salutation = "Sehr geehrte Frau "+Titel+Nachname+","
	Elseif Anrede = "Herr" Then
		Salutation = "Sehr geehrter Herr "+Titel+Nachname+","
	Elseif Anrede = "Eheleute" Then
		Salutation = "Sehr geehrte Frau " +Titel + Nachname+","+ Chr(10)+ _ 
		"sehr geehrter Herr " +Titel + Nachname+","
	Elseif Anrede = "" Or Anrede = "Firma" Then
		Salutation = "Sehr geehrte Damen und Herren,"
	End If
	uidoc.FieldSetText("Anrede") , Salutation


	Set body = doc.GetFirstItem("Body")
	Set rtnav = body.CreateNavigator
	Call rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH)

	Set rtrange = body.CreateRange
	count& = rtrange.FindAndReplace 	(SuchVariable1$  ,  ErsatzVariable1$, 	RT_REPL_ALL + RT_FIND_CASEINSENSITIVE)

	Set rtrange = body.CreateRange
	count& = rtrange.FindAndReplace 	(SuchVariable2$  ,  ErsatzVariable2$, 	RT_REPL_ALL + RT_FIND_CASEINSENSITIVE)

	Call body.Compact
	Call doc.Save(True, False)

	Call uidoc.close

	Call workspace.EditDocument(True, Doc,,,, False)

	Call uidoc.Print(1)

	Close #1

Alles anzeigen

[size=x-small]
/edit RockWilder:
Code bitte in entsprechende Tags verpacken, das macht es übersichtlicher. Danke![/size]

Westenseer · 3. März 2008

Ich habe es aufgegeben. Funzt einfach nicht und ich mag nicht mehr.

Problem mit der Datenübergabe vom Back-End zum Front-End bei Änderung in Richtextfeldern

Teilen

Benutzer online in diesem Thema