Domino 9 und frühere Versionen > ND6: Entwicklung

EmbedObject ist in R6 anders als in R5???

(1/2) > >>

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
--- Ende Code ---
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"
--- Ende Code ---

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 )
--- Ende Code ---
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:
 ;D ;D ;D 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
--- Ende Code ---

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

Navigation

[0] Themen-Index

[#] Nächste Seite