Función para Historial

Ver el tema anterior Ver el tema siguiente Ir abajo

Función para Historial

Mensaje por JoseRios el 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
avatar
JoseRios

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

Ver perfil de usuario http://noteroschile.wordpress.com

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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