Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Lotus Notes » Exportar una Vista a TXT

Lotus Notes - Exportar una Vista a TXT

Volver
Nuevo Tema
<<>>
 
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 (56 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