$$ReturnDocumentDeleted
Hola, existe el formulario llamado $$ReturnDocumentDeleted, este es el formulario que se muestra después de borrar un documento desde web.
La pregunta es, ¿puedo tener más de un formulario $$ReturnDocumentDeleted para que según desde que formulario borres los documentos muestre uno u otro?
La pregunta es, ¿puedo tener más de un formulario $$ReturnDocumentDeleted para que según desde que formulario borres los documentos muestre uno u otro?
1 Respuesta
Respuesta de e6967712
1
Solución
Instancia un botón con @Command, Que abra la URL:
"/" + @ReplaceSUbstring(@Subset(@DbName;-1); " " : "\\"; "+" : "/") + "/DeleteDocument?OpenAgent&" + @Text(@DocumentUniqueID)
Crea un agente :
Llamado DeleteDocument
Compartido
Poniendo ejecutado como usuario web
Ejecutado como:Run Once (@Commands may be used)
Usando LotusScript:
Initialize
Dim s as new notesSession
Dimc control as notesDocument, db as notesDatabase, target as notesDocument, pos as integer, insruct as String
Set control = s.documentContext
Set db = s.currentDatabase
instruct = control.Query_String(0)
pos = Instr(instruct,"&")
If pos = 0 Then
Print "Missing document delete instruction"
Exit Sub
End If
instruct = Mid$(instruct,pos+1)
If Len(instruct) <> 32 Then
Print "Invalid document delete instruction"
Exit Sub
End If
On Error Resume Next
Set target = db.getDocumentByUnid(instruct)
If Err <> 0 Then
Print "Unknown document delete instruction " Erl Err Error
Exit Sub
End If
target.Remove
If Err <> 0 Then
Print "Failed document delete instruction " Erl Err Error
Else
Print "[..]" 'redirect to database home page
End If
A parte antes de eliminar recoge el campo Form del Formulario al que pertenece el documento y abre una página dependiendo del Form.
Instancia un botón con @Command, Que abra la URL:
"/" + @ReplaceSUbstring(@Subset(@DbName;-1); " " : "\\"; "+" : "/") + "/DeleteDocument?OpenAgent&" + @Text(@DocumentUniqueID)
Crea un agente :
Llamado DeleteDocument
Compartido
Poniendo ejecutado como usuario web
Ejecutado como:Run Once (@Commands may be used)
Usando LotusScript:
Initialize
Dim s as new notesSession
Dimc control as notesDocument, db as notesDatabase, target as notesDocument, pos as integer, insruct as String
Set control = s.documentContext
Set db = s.currentDatabase
instruct = control.Query_String(0)
pos = Instr(instruct,"&")
If pos = 0 Then
Print "Missing document delete instruction"
Exit Sub
End If
instruct = Mid$(instruct,pos+1)
If Len(instruct) <> 32 Then
Print "Invalid document delete instruction"
Exit Sub
End If
On Error Resume Next
Set target = db.getDocumentByUnid(instruct)
If Err <> 0 Then
Print "Unknown document delete instruction " Erl Err Error
Exit Sub
End If
target.Remove
If Err <> 0 Then
Print "Failed document delete instruction " Erl Err Error
Else
Print "[..]" 'redirect to database home page
End If
A parte antes de eliminar recoge el campo Form del Formulario al que pertenece el documento y abre una página dependiendo del Form.
