Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: rar am 07.07.03 - 11:19:42
-
Hallo Ihr!
Die Url zum erstellen eines neuen Memos in der MailDB lautet so:
path :=@ReplaceSubstring(@ReplaceSubstring(@Subset(@DbName; -1); "\\"; "/");" ";"+") ;
view:=@ReplaceSubstring(@Subset(@ViewTitle;-1);" ";"+");
@URLOpen("/"+path+"/mName?OpenForm&From="+view)
Kann mir jemand erklären, wofür am Ende der URL &From="+view steht, bzw was man damit machen kann?
lg
-rar
-
Ciao
der parameter sollte steuern, wohin der browser nach dem submit der maske geht.
Im 'webQuerySave' event der maske 'memo' wird der agent 'wMemo' angestossen. Dieser printet am ende abhängig des parameters 'from' die url der aufzurufenden seite. Vielleicht kannst du mit dem agent-code was anfangen:
.
.
.
.
If pathinfo$="" Then
Print "[" & tmp1$ &"/MailFS?OpenFrameSet]"
Goto continue
End If
InfoPathPos% = Instr (1,pathinfo$,tmp1$,1)
Dim view As notesview
targetview$ = ""
targetviewargs$ = ""
fromstr$ = "&From="
pos% = Instr (pathinfo$, fromstr$)
If pos% <> 0 Then
'locate the view to return to, which was passed in as a URL argument
targetview$ = Right$ ( pathinfo$, Len( pathinfo$) - pos% - Len(fromstr$) + 1)
pos% = Instr (targetview$, "&")
If (pos% <> 0) Then
'locate any arguments to pass to that view
targetviewargs$ = Right$ (targetview$, Len (targetview$) - pos% + 1)
targetview$ = Left$ (targetview$, pos% - 1)
End If
Else
'''Look for docurl if from an opendocument
docurl$ = "&docurl="
pos% = Instr(pathinfo$, docurl$)
If pos% <> 0 Then
targeturl$ = Right$ ( pathinfo$, Len( pathinfo$) - pos% - Len(docurl$) + 1)
Else
'the view name was not passed as an argument, so pull it out of the URL if possible
workstr$ = Right$ (pathinfo$, Len (pathinfo$) - (InfoPathPos% + Len (db.Filepath)))
pos% = Instr (workstr$, "/")
If (pos% <> 0 ) Then
targetview$ = Left$ (workstr$, pos% - 1)
Else
'''Don't treat "Memo" as a view as in Memo?OpenForm
pos% = Instr (workstr$, "?OpenView") '''@mek
If (pos% <> 0 ) Then
targetview$ = Left$ (workstr$, pos% - 1) '''@mek
Else
targetview$ = "" '''@mek
End If
'is it a view name?
On Error Resume Next
Set view = db.GetView( targetview$)
If (view Is Nothing) Then
'or is it a unid?
Dim viewnote As notesdocument
Set viewnote = db.getdocumentbyunid(targetview$)
If viewnote Is Nothing Or Not (viewnote.hasitem("$VIEWFORMAT") )Then targetview$ = "" 'no
End If
End If
End If
End If
On Error Goto ErrorRoutine
If InfoPathPos% <> 0 Then
If note.tmpBackToTask(0) = "1" Then
Print "[" & tmp1$ & "/ToDoFS?OpenFrameset]"
Else
If targetview$ <> "" Then
Print "[" & tmp1$ & "/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ &"%2F"&targetview$ & "%3FOpenView]"
Else
If targeturl$ <> "" Then
Print "[" & targeturl$ & "]"
Else
Print "[" & tmp1$ &"/MailFS?OpenFrameSet&Frame=NotesView&src=%2F" & tmp1$ & "%2F($Inbox)%3FOpenView]"
End If
End If
End If
Else
Print "The document has been processed."
End If
.
.
.
bye bye z
-
Ups. Dort hab ich nicht geschaut. :-[
Jetzt ist einiges klarer.
Vielen Dank