Moin, moin!
Maximaler Internetzugriff ist auf¨'Editor' eingestellt.
Der Agent, der angestossen wird im WebQueryclose:
Sub Initialize
' Instantiate a new Log and open it
Set currentLog = New NotesLog( "ag_wqs_attachment" )
Call currentLog.OpenNotesLog( db.Server, db_log )
hilog "ag_wqs_attachment"
' dbg " hier "
If doc.ptAction(0)="SAVEANDEXIT" Then
Dim qry As String
Dim subqry As String
qry=doc.Query_string(0)' Returns the part beginning with '?OpenAgent'
subqry=Mid(qry,16) 'Returns the part after ?OpenAgent&
Dim oid As String
oid=Left(subqry, 32)
' dbg "oid: " & oid
Dim fn As String
fn=Mid(subqry, 33)
' dbg fn
doc.section=fn
' dbg " hinter section "
Dim var1 As Variant
var1 =(Evaluate(|@Attachmentnames|,doc))
Forall x In var1
dbg " x = " & x
End Forall
doc.attachmentfilename=Implode(Evaluate(|@Attachmentnames|,doc))
'doc.attachmentfilename=(Evaluate(|@Attachmentnames|,doc))
dbg " attachment " & doc.attachmentfilename(0)
doc.originalsDoc_id=oid
' dbg doc.originalsDoc_id(0)
doc.doc_id=doc.universalid
' dbg doc.doc_id(0)
Else
dbg " hier im löschen"
doc.workcopyowner="nemo"
dbg " doc.workcopyowner= nemo"
doc.originalsDoc_id="nemo"
doc.section="nemo"
End If
Call doc.save(False,False)
dbg "["+homeurl+"/fm_closewindow?OpenForm]"
Print "["+homeurl+"/fm_closewindow?OpenForm]"
byelog "ag_wqs_attachment"
End Sub
Auf der Maske selbst für Deletedoc:
<script language="JavaScript">
function saveAndExit(){
document.getElementById('ptaction').value='SAVEANDEXIT'
var fn=''(Feld);
var oldDiv=opener.document.getElementById('att_'+fn).innerHTML;
var appendVal="<img src='"+"(Feld)"+"'>"+"(FEld)"+"<br>";
opener.document.getElementById('att_'+fn).innerHTML=oldDiv+appendVal;
document.forms[0].submit();
//window.close();
}
;
function deleteDoc()
{
var fn=''(Feld);
var oldDiv=opener.document.getElementById('att_'+fn).innerHTML;
var appendVal="<img src='"+"Feld"+"'>"+"Feld"+"<br>";
opener.document.getElementById('att_'+fn).innerHTML=oldDiv+appendVal;
document.getElementById('ptaction').value='DELETE'
document.forms[0].submit();
//window.close();
}
</script>
Im Hauptdokument werden die Attachmentdokumente folgendermassen über ein FEld mit Durchgangs-HTML angezeigt.
REM {VARIABLEN};
_Klammer:=icon_def_link+"klammer.gif";
_fn:=@RightBack(@ThisName;4);
REM {BUTTON NEUE ATTACHMENTS};
_html:="<button onclick=\"newAttachment('"+_fn+"','"+OriginalsDoc_ID+"')\">New attachment</button>";
REM {LINKLISTE ZU VORHANDENEN ATTACHMENTS};
_html:=_html+"<div id='ATT_"+_fn+"'>";
_LinkListe:=@DbLookup("Notes":"NoCache";"";"Attachments";OriginalsDoc_ID+_fn;4);
_OrgIDListe:=@DbLookup("Notes":"NoCache";"";"Attachments";OriginalsDoc_ID+_fn;2);
_FNListe:=@DbLookup("Notes":"NoCache";"";"Attachments";OriginalsDoc_ID+_fn;3);
_IDListe:=@DbLookup("Notes":"NoCache";"";"Attachments";OriginalsDoc_ID+_fn;5);
@For(i:=1;i<=@Elements(_LinkListe);i:=i+1;
_tmpAttName:=@Subset(@Subset(_LinkListe;i);-1);
_tmpOID:=@Subset(@Subset(_OrgIDListe;i);-1);
_tmpFN:=@Subset(@Subset(_FNListe;i);-1);
_tmpID:=@Subset(@Subset(_IDListe;i);-1);
_link:=homelink+"/ag_eda?OpenAgent&"+_tmpID;
_html:=_html+"<a href='"+_link+"' target='_blank'><img src='"+_Klammer+"'>"+_tmpAttName+"</a><br>"
);
_html:=_html+"</div>";
REM {AUSGABE};
_html
DAs Call doc.save(flase,false9 hatte ich schon mal rausgenommen, aber mit demselben Ergebnis.
Wenn ich mich einlogge, werden die Felder umgesetzt, benutze ich einen der Testuser, entsteht ein Konfliktdokument.
èber dbg kann ich mir werte ausgeben lassen.
Thema: Anwender können Dokument nicht abspeichern, sondern erzeugen ein Konfliktdokumen (Gelesen 6982 mal)