Lotus Notes - Exportar una Vista a TXT

 
Vista:
sin imagen de perfil

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 (57 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