Lotus Notes - Exportar una Vista a TXT

   
Vista:

Exportar una Vista a TXT

Publicado por Mario (1 intervención) el 06/11/2013 15:58:51
Hola!
Quiero programar un Agente que esté corriendo cada cierto tiempo y genere un TXT de ciertos documentos en una Vista (dependiendo un Status determinando) en forma automática, lo deje en una carpeta y esos documentos los suba por FTP.

Necesito saber cómo programarlo, ¿alguien sabe?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Exportar una Vista a TXT

Publicado por ElLobo (53 intervenciones) el 21/10/2015 16:32:47
Suponiendo que este script se ejecuta para los documentos seleccionados en una vista. (Solo necesitas cambiar la configuración del agente para que sea de los documentos de cualquier vista)


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'SeudoCodigo
'======================
 
Set oSession as New NotesSession
Set oFounds= oSession.CurrentDatabase.UnprocessDocuments
 
Set oView = oFounds.getNTHDocument(1).parentView
 
Set oColumns = oView.columns
 
Set oStream= oSession.CreateStream
 
'Crear Cabecera
'=================================
sSeparador = ""
 
ForAll oCol in aColumns
 
   Call oStream.WriteText( sSeparador  & oColumn.name  )
  sSeparador  = ";"
 
End ForAll
 
  Call oStream.WriteText(  Chr(13))
 
For nDoc =  1 To oFounds.Count
 
     sSeparador = ""
 
      Set oDoc = oFounds.getNTHDocument(nDoc)
 
     ForAll sValue in oDoc.ColumnValues()
         Call oStream.WriteText( sSeparador  & sValue  )
         sSeparador  = ";"
    End ForAll
 
     Call oStream.WriteText(  Chr(13))
Next
 
 
 
MsgBox oStream.readText
 
'Puedes abrir el oStream contra un fichero (ver documentación)

Creo que algo asi
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar