« vorheriges nächstes »
Seiten: [1]   Nach unten

Autor Thema: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE  (Gelesen 3888 mal)

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« am: 24.09.07 - 15:37:08 »
Hi ich muss euch nochmalss belästigen mit nem Problem.

Ich sitze jetzt schon den halben Tag an einem miesenProblem und habe auch hier im Forum noch keine wirklcihe Lösung gefunden.

Folgendes:

Ich habe ein Dokument welches mit einem RT Feld gefüllt wird... dafür muss ich nen Reopen machen. Das RTF wird auch super gefüllt und läuft reibungslos, jedoch wenn ich ein bestehendes Dokument öffne da was ändere und dann speichern sage, bekomme ich folgende Fehlermeldung:

"Eine weitere Kopie dieses Dokumentes wurde gespeichert, während Sie das Dokment bearbeiteten. Sollen Ihre Ä'nderungen auch als Konfliktdokument gespeichert werden?"

Anbei noch der Code, hoffe Ihr könnt mir helfen.

POSTOPEN:
Code
Sub Postopen(Source As Notesuidocument)
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	
	Dim doc As NotesDocument
	Dim profiledoc As NotesDocument
	Dim workspace As New NotesUIWorkspace
	
	Set db = session.CurrentDatabase
	
	Dim uidoc As NotesUIDocument
	
	Set doc = source.Document
	Set uidoc=source
	
	doc.saveoptions=0
	Call doc.Save(True,False)	
	Call uidoc.Refresh
	
	If doc.Tabelle(0) = "0" Then		
		
		Call Tabelle(uidoc)
		
		doc.Tabelle = "1"	
		
		Call uidoc.Close
		
		Set doc = Nothing
		Set doc = source.Document
		Set uidoc = workspace.EditDocument(True,doc)
		
	Else
		doc.RemoveItem("SaveOptions")
	End If
	
	doc.Tabelle = "0"
	
	Call doc.Save(True,False)
	
	Call uidoc.refresh
	Call uidoc.Reload
End Sub



Funktion Tabelle:
Code
Sub Tabelle(uidocu As NotesUIDocument)
			REM Normale Deklaration
	Dim workspace As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim uidoc2 As NotesUIDocument
	Dim doc2 As NotesDocument
	Dim db As NotesDatabase
	Dim item As NotesItem	
	
REM Mail Deklarationen
	Dim DocSend As NotesDocument
	Dim rtitem As NotesRichTextItem
	Dim richStyle As NotesRichTextStyle
	
	Set richStyle = session.CreateRichTextStyle
	
	
	
REM Setzten der Standardwerte	
	Set uidoc2 = uidocu
	Set db = session.CurrentDatabase
	Set doc2 = uidoc2.Document
	Set richStyle = session.CreateRichTextStyle
	Set DocSend = New NotesDocument(db)
	Set rtitem = New NotesRichTextitem(DocSend, "rtbody")
	
	Dim commonuser As String
	commonuser = session.CommonUserName
	
REM Sonstiges
	Dim Schluessel As String 
	
	
REM \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     CODE     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/
	
	doc2.saveoptions = "0"
	Dim view As NotesView
	Dim view4 As NotesView
	Dim doc3 As NotesDocument
	Dim entry As NotesViewEntry
	Dim vc As NotesViewEntryCollection
	Dim dc As NotesDocumentCollection
	Dim doc4 As NotesDocument
	
	Set view = db.GetView("aFehler")
	
'Deklarationen	
	
	Set rtbody = New NotesRichTextItem(doc2, "RTFELD")
	Call CorrectItemRemove(doc2,"rtFeld")
	Set rtbody = New NotesRichTextItem(doc2, "RTFELD")
	
	Call view.Refresh
	
	If view.EntryCount > 0 Then	
		Set vc = view.GetAllEntriesByKey(doc2.PName(0))
		Set entry = vc.GetFirstEntry
		
	End If	
	
If Not entry Is Nothing Then
		Set doc3 = entry.Document 'col.GetNextDocument(doc2)
		
		
		Do Until doc3 Is Nothing			
			
'Texte einfügen
			
			Call rtbody.appendtext(doc3.Created)
			Call rtbody.AddTab(1)
			
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText(doc3.Subject(0))
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			
			Call rtbody.AddNewline(1)
			Call rtbody.AddTab(3)
			richstyle.Italic = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText(Cstr(doc3.Autor(0)))
			richstyle.Italic = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AddNewline(2)
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			
			Call rtbody.AppendText("Fehlerbeschreibung:")
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.addnewline(1)
			Call rtbody.AppendText(doc3.Fehler(0))
			Call rtbody.AddNewline(2)
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText("Fehlerbehebung:")
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.addnewline(1)
			Call rtbody.AppendText(doc3.Loesung(0))
			
			Dim anhange As NotesRichTextItem
			Set Anhange = doc3.GetFirstItem("Anhange")
			If Not Isempty(anhange.EmbeddedObjects)  Or Not (doc3.anhange = "" Or doc3.anhange = " ") Then
				Call rtbody.AddNewline(2)
				richstyle.FontSize = 8
				richstyle.Underline = True
				Call rtbody.AppendStyle(richStyle)			
				Call rtbody.AppendText("Anhänge:") 
				richstyle.FontSize = 10
				richstyle.Underline = False
				Call rtbody.AppendStyle(richStyle)			
				Call rtbody.AddNewline(1)
				
				
			End If
			
			Call rtbody.AppendRTItem(Anhange)
			
			Set entry = vc.GetNextEntry(entry)
			If Not entry Is Nothing Then
				Call rtbody.AddNewline(1)
				Call rtbody.AppendText("-------------------------------------------------------------------------------------------------------------------------------------------------------")
				Call rtbody.AddNewline(1)
				Set doc3 = entry.Document 'col.GetNextDocument(doc2)
			Else 
				Set doc3 = Nothing
			End If
		Loop
	End If
	Call uidocu.Close
	
End Sub



Funktion zum leeren des RTFeldes:
Code
Sub CorrectItemRemove (doc As NotesDocument, ItemName As String)
	Dim ItemToRemove
	Set ItemToRemove = doc.GetFirstItem (ItemName)
	If ItemToRemove Is Nothing Then Exit Sub
	If ItemToRemove.Type = 1 Then
		Dim Embeddings
		Dim ObjectToRemove As NotesEmbeddedObject
		Embeddings = ItemToRemove.EmbeddedObjects
		While Isarray (Embeddings)
			Set ObjectToRemove = Embeddings (0)
			Call ObjectToRemove.Remove
			Embeddings = ItemToRemove.EmbeddedObjects
		Wend		
	End If
	Call ItemToRemove.Remove
End Sub

Gespeichert
Viele Grüße

Christian T.

Offline Thomas Schulte

  • @Notes Preisträger
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 4.388
  • Geschlecht: Männlich
  • Ich glaub mich tritt ein Pferd
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #1 am: 24.09.07 - 15:49:40 »
Mal so aus dem Bauch heraus:
Doc.save, Uidoc.refresh, Uidoc.close, uidocu.close (was das gleiche wie dein Uidoc.close ist), Doc.save, uidoc.refresh, uidoc.reload ..... Das ganze gemischt mit SaveOptions = "0" und gewürzt mit doc2 und doc3 in deiner Tabellen Sub.

Und da wunderst du dich wenn du diese Fehlermeldung bekommst?

Räum erst mal die ganzen Saves und Close in deinem Code auf. Dann wirst du feststellen, das der Fehler veschwindet.
« Letzte Änderung: 24.09.07 - 16:35:47 von Thomas Schulte »
Gespeichert
Thomas Schulte

Collaborative Project Portfolio and Project Management Software

"Aber wo wir jetzt einmal soweit gekommen sind, möchte ich noch nicht aufgeben. Versteh mich recht, aufgeben liegt mir irgendwie nicht."

J.R.R.Tolkien Herr der Ringe, Der Schicksalsberg

OpenNTF Project: !!HELP!! !!SYSTEM!!  !!DRIVER!!

Skype: thomasschulte-kulmbach

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #2 am: 25.09.07 - 08:22:49 »
Jetzt nochmal alle docs etc. auf den selbe nnamen gebracht. Läuft immernoch bis auf den Fehler wie oben genannt.

Code
Sub Postopen(Source As Notesuidocument)
	
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase	
	Dim doc As NotesDocument
	Set doc = source.Document
	Dim profiledoc As NotesDocument
	Dim workspace As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Set uidoc=source
	
	
	doc.saveoptions=0
	Call doc.Save(True,False)	
	Call uidoc.Refresh
	
	If doc.Tabelle(0) = "0" Then		
		
		Call Tabelle(uidoc)
		
		doc.Tabelle = "1"	
		
		Call uidoc.Close
		
		Set doc = Nothing
		Set doc = source.Document
		Set uidoc = workspace.EditDocument(True,doc)
		
	Else
		doc.RemoveItem("SaveOptions")
	End If
	
	doc.Tabelle = "0"
	
	Call doc.Save(True,False)
	
	Call uidoc.refresh
End Sub



Code
Sub Tabelle(uidoc As NotesUIDocument)
REM Normale Deklaration
	Dim workspace As New NotesUIWorkspace
	Dim session As New NotesSession
	Dim doc As NotesDocument
	Dim db As NotesDatabase
	Dim item As NotesItem	
	
	Dim richStyle As NotesRichTextStyle
	
	Set richStyle = session.CreateRichTextStyle
	
REM Setzten der Standardwerte	
	Set db = session.CurrentDatabase
	Set doc = uidoc.Document
	Set richStyle = session.CreateRichTextStyle
	Set DocSend = New NotesDocument(db)
	
	Dim commonuser As String
	commonuser = session.CommonUserName
	
REM \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     CODE     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/
	
	doc.saveoptions = "0"
	
	Dim view As NotesView
	Dim doc2 As NotesDocument
	Dim entry As NotesViewEntry
	Dim vc As NotesViewEntryCollection
	Dim dc As NotesDocumentCollection
	
	
	Set view = db.GetView("aFehler")
	
	Set rtbody = New NotesRichTextItem(doc, "RTFELD")
	Call CorrectItemRemove(doc,"rtFeld")
	Set rtbody = New NotesRichTextItem(doc, "RTFELD")
	
	Call view.Refresh
	
	If view.EntryCount > 0 Then	
		Set vc = view.GetAllEntriesByKey(doc.PName(0))
		Set entry = vc.GetFirstEntry	
	End If		
	
	If Not entry Is Nothing Then
		Set doc2 = entry.Document		
		
		Do Until doc2 Is Nothing					
			Call rtbody.appendtext(doc2.Created)
			Call rtbody.AddTab(1)
			
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText(doc2.Subject(0))
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			
			Call rtbody.AddNewline(1)
			Call rtbody.AddTab(3)
			richstyle.Italic = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText(Cstr(doc2.Autor(0)))
			richstyle.Italic = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AddNewline(2)
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			
			Call rtbody.AppendText("Fehlerbeschreibung:")
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.addnewline(1)
			Call rtbody.AppendText(doc2.Fehler(0))
			Call rtbody.AddNewline(2)
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText("Fehlerbehebung:")
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.addnewline(1)
			Call rtbody.AppendText(doc2.Loesung(0))
			
			Dim anhange As NotesRichTextItem
			Set Anhange = doc2.GetFirstItem("Anhange")
			If Not Isempty(anhange.EmbeddedObjects)  Or Not (doc2.anhange = "" Or doc2.anhange = " ") Then
				Call rtbody.AddNewline(2)
				richstyle.FontSize = 8
				richstyle.Underline = True
				Call rtbody.AppendStyle(richStyle)			
				Call rtbody.AppendText("Anhänge:") 
				richstyle.FontSize = 10
				richstyle.Underline = False
				Call rtbody.AppendStyle(richStyle)			
				Call rtbody.AddNewline(1)
			End If
			
			Call rtbody.AppendRTItem(Anhange)
			
			Set entry = vc.GetNextEntry(entry)
			If Not entry Is Nothing Then
				Call rtbody.AddNewline(1)
				Call rtbody.AppendText("-------------------------------------------------------------------------------------------------------------------------------------------------------")
				Call rtbody.AddNewline(1)
				Set doc2 = entry.Document 
			Else 
				Set doc2 = Nothing
			End If
		Loop
	End If
	Call uidoc.Close
	
End Sub


bei der Funktion "CorrectItemRemove" hab ich nix geändert
Gespeichert
Viele Grüße

Christian T.

Offline Thomas Schulte

  • @Notes Preisträger
  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 4.388
  • Geschlecht: Männlich
  • Ich glaub mich tritt ein Pferd
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #3 am: 25.09.07 - 08:38:54 »
Ist ja auch logisch, weil du immer noch nicht aufgeräumt hast.

Nimm doch erst einmal dein uidoc.close aus deiner Tabellen Routine raus.
« Letzte Änderung: 25.09.07 - 08:46:02 von Thomas Schulte »
Gespeichert
Thomas Schulte

Collaborative Project Portfolio and Project Management Software

"Aber wo wir jetzt einmal soweit gekommen sind, möchte ich noch nicht aufgeben. Versteh mich recht, aufgeben liegt mir irgendwie nicht."

J.R.R.Tolkien Herr der Ringe, Der Schicksalsberg

OpenNTF Project: !!HELP!! !!SYSTEM!!  !!DRIVER!!

Skype: thomasschulte-kulmbach

Offline Axel

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #4 am: 25.09.07 - 08:41:41 »
So richtig aufgeräumt hast du aber nicht.

Warum übergibst du der Routine Tabelle das uidoc und initialiserst dann noch mal eine Variable doc, obwohl du die in Postopen schon hast? Du arbeitest dann, wenn ich das richtig sehe mit zwei "Instanzen" des gleichen Dokumentes. Da kann nicht gut gehen.

Und was soll das uidoc.close in der Routine Tabelle?

Übergib der Routine das doc aus Postopen und arbeite damit weiter.


Axel
Gespeichert
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #5 am: 25.09.07 - 11:22:04 »
schonmal danke für eure mühe aber bisher hab ich immernoch das selbe Problem.

Hier nochmal der COde erneut überarbeitet


Code
Sub Postopen(Source As Notesuidocument)
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase	
	
	Dim doc As NotesDocument
	Set doc = source.Document
	
	Dim uidoc As NotesUIDocument
	Set uidoc=source
	
	doc.saveoptions=0
	
	Call doc.Save(True,False)	
	Call uidoc.Refresh
	
	If doc.Tabelle(0) = "0" Then		
		Call Tabelle(doc,workspace,session)
		
		doc.Tabelle = "1"	
		
		Call doc.Save(True,False)
		Call uidoc.Close
		
		Set uidoc = workspace.EditDocument(True,source.Document)
	Else
		doc.RemoveItem("SaveOptions")
	End If
	
	doc.Tabelle = "0"
	
	Call doc.Save(True,False)
	
	Call uidoc.refresh
End Sub





Code
Sub Tabelle(doc As NotesDocument,workspace As NotesUIWorkspace,session As NotesSession)
REM Normale Deklaration
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	
	Dim richStyle As NotesRichTextStyle
	Set richStyle = session.CreateRichTextStyle
	
	Dim view As NotesView
	Set view = db.GetView("aFehler")
	
	Dim doc2 As NotesDocument
	Dim entry As NotesViewEntry
	Dim vc As NotesViewEntryCollection
	Dim dc As NotesDocumentCollection
	Dim anhange As NotesRichTextItem
	
REM \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     CODE     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/     \/
	
	Set rtbody = New NotesRichTextItem(doc, "RTFELD")
	Call CorrectItemRemove(doc,"rtFeld")
	Set rtbody = New NotesRichTextItem(doc, "RTFELD")
	
	Call view.Refresh
	
	If view.EntryCount > 0 Then	
		Set vc = view.GetAllEntriesByKey(doc.PName(0))
		Set entry = vc.GetFirstEntry	
	End If		
	
	If Not entry Is Nothing Then
		Set doc2 = entry.Document		
		
		Do Until doc2 Is Nothing					
			Call rtbody.appendtext(doc2.Created)
			Call rtbody.AddTab(1)
			
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText(doc2.Subject(0))
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			
			Call rtbody.AddNewline(1)
			Call rtbody.AddTab(3)
			richstyle.Italic = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText(Cstr(doc2.Autor(0)))
			richstyle.Italic = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AddNewline(2)
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			
			Call rtbody.AppendText("Fehlerbeschreibung:")
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.addnewline(1)
			Call rtbody.AppendText(doc2.Fehler(0))
			Call rtbody.AddNewline(2)
			richStyle.Bold = True
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.AppendText("Fehlerbehebung:")
			richStyle.Bold = False
			Call rtbody.AppendStyle(richStyle)
			Call rtbody.addnewline(1)
			Call rtbody.AppendText(doc2.Loesung(0))
			
			Set Anhange = doc2.GetFirstItem("Anhange")
			If Not Isempty(anhange.EmbeddedObjects)  Or Not (doc2.anhange = "" Or doc2.anhange = " ") Then
				Call rtbody.AddNewline(2)
				richstyle.FontSize = 8
				richstyle.Underline = True
				Call rtbody.AppendStyle(richStyle)			
				Call rtbody.AppendText("Anhänge:") 
				richstyle.FontSize = 10
				richstyle.Underline = False
				Call rtbody.AppendStyle(richStyle)			
				Call rtbody.AddNewline(1)
			End If
			
			Call rtbody.AppendRTItem(Anhange)
			
			Set entry = vc.GetNextEntry(entry)
			If Not entry Is Nothing Then
				Call rtbody.AddNewline(1)
				Call rtbody.AppendText("-------------------------------------------------------------------------------------------------------------------------------------------------------")
				Call rtbody.AddNewline(1)
				Set doc2 = entry.Document 
			Else 
				Set doc2 = Nothing
			End If
		Loop
	End If
	
End Sub





Gespeichert
Viele Grüße

Christian T.

Offline Axel

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #6 am: 25.09.07 - 11:58:41 »
Verwende zum Reopen des Dokumentes mal die Funktion aus diesem Thread: http://atnotes.de/index.php?topic=25978.msg165896

Ich bin mir nämlich nicht ganz sicher ob dein Weg so der richtige ist.


Axel
Gespeichert
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline flaite

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.966
    • mein del.icio.us
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #7 am: 25.09.07 - 12:28:14 »
Das ist ein traditionell frickliges Problem in Notes.
Keine Zeit, mich da jetzt groß reinzudenken, aber durch ein schnelles Googlen in einer Testpause hab ich diesen Beitrag von Andre Girard gefunden (der Mann ist Entwickler bei Lotus und schreibt sehr gute Beiträge in The View)

http://www-10.lotus.com/ldd/nd6forum.nsf/0/dd507a5be7cc2e4285256eec005f56ef?OpenDocument
Gespeichert
Ich stimm nicht mit allen überein, aber mit vielen und sowieso unterhaltsam -> https://www.youtube.com/channel/UCr9qCdqXLm2SU0BIs6d_68Q

---

Aquí no se respeta ni la ley de la selva.
(Hier respektiert man nicht einmal das Gesetz des Dschungels)

Nicanor Parra, San Fabian, Región del Bio Bio, República de Chile

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #8 am: 25.09.07 - 13:46:43 »
hm habe mal den code von axel ausprobiert jedoch läuft das mit dem acuh nicht wirklcih ich kriege immernoch die anfrage auf speicherkonflikt?


HILFE
Gespeichert
Viele Grüße

Christian T.

Offline pete_bla

  • Senior Mitglied
  • ****
  • Beiträge: 455
  • Geschlecht: Männlich
  • dot net gitz net!
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #9 am: 25.09.07 - 17:22:13 »
Hi,

hängt wohl damit zusammen, dass du nicht wirklich das "Backend-Dokument" neu geladen vorliegen hast.

Ich weiss zwar nicht, wie dein Code mittlerweile aussieht, aber im bisherigen muss der "reopen" nach dem doc.save() erfolgen!
Code
	doc.Tabelle = "0"
	
	Call doc.Save(True,False)
' hier der reopen
	Call uidoc.refresh

End Sub

Anderer Ansatz:
Pack den code in den QueryOpen.
Dann brauchtst du den reopen eventuell nicht.

Gruss Pete(r)

----------- so noch ein nachtrag:
wenn dein code immernoch so ist:
Code
		
		Set uidoc = workspace.EditDocument(True,source.Document)
	Else
		doc.RemoveItem("SaveOptions")
	End If
	
	doc.Tabelle = "0"
	
	Call doc.Save(True,False)
	
	Call uidoc.refresh
End Sub

ist der Fehler, dass Du nach dem
Code
Set uidoc = workspace.EditDocument(True,source.Document)
noch ein save auf das Hintergrund-doc machst:
Code
Call doc.Save(True,False)
ich glaub Dir ist da die End if verrutscht:
Code
    Else
	doc.RemoveItem("SaveOptions")
    ' nicht hier: End If 
	
	doc.Tabelle = "0"
	
	Call doc.Save(True,False)
	
	Call uidoc.refresh
    End If ' sonder hier
aber ein paar der doc.save's kannst du sicher noch weglassen....
« Letzte Änderung: 25.09.07 - 17:59:27 von pete_bla »
Gespeichert
pete(r)

Offline C_T

  • Senior Mitglied
  • ****
  • Beiträge: 272
  • Geschlecht: Männlich
Re: Problem mit Konfliktdokumenten.... BITTE DRINGEND HILFE
« Antwort #10 am: 26.09.07 - 08:42:47 »
HI@all

Ich danke euch vor allem Pete(r)

das mit dem Code ins Query Open hat bis jetzt einwandfrei funktioniert Vielen DANK

Bis dann

euer Christian
Gespeichert
Viele Grüße

Christian T.
Seiten: [1]   Nach oben
« vorheriges nächstes »
 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz