EmbedObject ist in R6 anders als in R5???

[LisaS]

Hallo,
ich dreh am Rad
Wenn ich das untenstehende Script mit nem 5er Client laufen lasse werden zwei Attachments mit dem Namen projekt1.txt und projekt2.txt in ein Richtextfeld gepackt und später kann ich diese mit:

Code

Sub Del_Temp
	Set gDB = gDoc.ParentDatabase 
	Set gDoc = gDB.GetDocumentByUNID(gsUnid) 
	Set gObject = gvRTitem_Temp.GetEmbeddedObject( gsFileName1 )
	Call gObject.Remove
	Set gObject2 = gvRTitem_Temp.GetEmbeddedObject( gsFileName2 )
	Call gObject2.Remove
	Call gDoc.Save( True , False )
	gDoc.SaveOptions = "0"
End Sub

wieder löschen.

Code

'Temporär im Doc sichern
	Call gDoc.Save( True , False )
	gDoc.SaveOptions = "0"
	gsInItem="ObjCont_Temp"
Set ni = gDoc.GetFirstItem( gsInItem )
	Set no = ni.EmbedObject( EMBED_ATTACHMENT , "" ,  gsWorkDir & gsFileName1 )
	Set no2 = ni.EmbedObject( EMBED_ATTACHMENT , "" ,  gsWorkDir & gsFileName2 )
	Call gDoc.Save( True , False )
	gDoc.SaveOptions = "0"

Im 6er Client erzeugt das Script Attachments mit den Namen "ATTAE1J8" und "ATT62USD".
Dann läuft das "del_temp"-Script natürlich auf einen Fehler weil es kein Attatchmen mit den Namen projekt1.txt findet.
Zusätzlich werden noch zwei Attachments einfach unten an das Dokument gehängt, die sind im 5er Client auch nicht da.
Warum ist das so?? Ich habe auch schon

Code

Set no = ni.EmbedObject( EMBED_ATTACHMENT , "" ,  gsWorkDir & gsFileName1, gsFileName1 )

versucht: mit dem selben Ergebnis.

Bitte helft mir mal auf die Sprünge.

Gruß
Ramon

[koehlerbv]

Wo hast Du eigentlich das EMBED_EMBED_ATTACHMENT her ? Hast Du diese Konstante selbst deklariert ?

Bernhard

[LisaS]

  Das kommt von Copy & Paste, hab es gerade korrigiert.... im produktiven Script war das natürlich nicht.
Gruß
Ramon

[LisaS]

Hallo,
ich knabber immer noch an meinem Problem und habe festgestellt, dass dieses Script:

Code

Sub del
	Set gDB = gDoc.ParentDatabase 
	Set gDoc = gDB.GetDocumentByUNID(gsUnid) 
	Set gObject = gvRTitem.GetEmbeddedObject( gsFileName1 )
	Call gObject.Remove
	Set gObject2 = gvRTitem.GetEmbeddedObject( gsFileName2 )
	Call gObject2.Remove
	Call gDoc.Save( True , True )
	gDoc.SaveOptions = "0"
End Sub

Zwar die attachments aus dem RTFeld löscht, die Attachment aber immer noch unten am Dok angehängt sind. Warum? Mit einem R5 Client passiert dass nicht, nur mit einem R6 Client!
Ich komm echt nicht dahinter.
Es handelt sich um eine R5-DB auf R6-Server und ODS 43, kann es daran liegen?

Über Hilfe wäre ich froh.
Gruß
Ramon

[LisaS]

Hallo, die ODS ist jetzt auf 41, aber das Problem mit dem löschen der Anhänge besteht immer noch.
 
Gruß Ramon

[Michael.T]

Hallo Roman,

ich habe im Moment das gleiche Problem. Hast Du schon eine Lösung gefunden?

Schöne Grüße, Michael

[LisaS]

Hallo Michael,

es lag an meinem 6er Client. Ich hab mal den neusten 6.5er Client installiert
und dann war das Problem weg.
Und zwar haben die anderen 6er Versionen

Code

Call gObject2.Remove

nicht richtig ausgeführt.

Gruß
Ramon