Foro NoterosChile
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Función para Historial

Ir abajo

Función para Historial Empty Función para Historial

Mensaje por JoseRios Lun Feb 25, 2008 1:23 pm

Un ejemplo de una función para generar un historial en un documento.

Código:
Sub Historia(doc as NotesDocument, msg as String)
   Dim ArrayHistoria() as String
   LargoHistoria = Ubound(doc.Historia)

   For i= 0 To LargoHistoria
      Redim Preserve ArrayHistoria(i)
      ArrayHistoria(i) = doc.Historia(i)
   Next

   Linea = now & " - " & msg
   Redim Preserve ArrayHistoria(LargoHistoria+ 1 )
   ArrayHistoria(LargoHistoria+ 1 ) = Linea
   doc.Historia = ArrayHistoria
End Sub
JoseRios
JoseRios

Cantidad de envíos : 39
Edad : 39
Localización : Santiago, Chile
Fecha de inscripción : 25/02/2008

http://noteroschile.wordpress.com

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.