|
Deberías generarlo en el servidor (Con LotusScript) y luego mostrar el archivo al cliente.
Un ejemplillo...
....
Call ObjProjectApp.FileSaveAs (nombre, 0)
Call ObjProjectApp.FileExit
Call crearDocResultado(nombre+".mpp", "Exportación a Project")
y luego: --> Este enseña una exportación a project
Sub crearDocResultado(nombre As String, consulta As String)
Dim Ruta As String
Dim db As notesdatabase
Dim vista As notesview
Dim ses As New notessession
Dim doc As notesdocument
Dim item As Variant
Dim obj As notesEmbeddedObject
Dim resultado As Variant
On Error Goto errores
Set db=ses.currentdatabase
Set vista=db.GetView("(Listados)")
Set doc=db.createdocument
doc.form="F.Listado"
Set item = New NotesRichTextItem( doc , "Anexo" )
Set obj = Item.EmbedObject( EMBED_ATTACHMENT, "", nombre)
doc.consulta_realizada=consulta
Call doc.save(True, True)
Call vista.refresh
Dim bdatos As Variant
bdatos = Evaluate(|@Subset(@DbName; -1)|)
Msgbox |<script language=javascript>window.location='|+ObtenerServidor+"/"+bdatos(0)+|/(listados)/|+Cstr(doc.UniversalID)+|?Opendocument';</script>|
Print |<script language=javascript>window.location='|+ObtenerServidor+"/"+bdatos(0)+|/(listados)/|+Cstr(doc.UniversalID)+|?Opendocument';</script>|
Ruta = ObtenerRutaFicheroProject
Msgbox "Eliminando "+ nombre
Chdir Ruta
Dim fileName As String
fileName$ = Dir$(Ruta+"\*.mpp", 0)
Do While fileName$ <> ""
If fileName$ <> nombre Then
Kill Ruta +"\"+fileName$
End If
fileName$ = Dir$()
Loop
Msgbox "Eliminado"
Exit Sub
errores:
Exit Sub
End Sub
|
