Función para Historial
Página 1 de 1.
Función para Historial
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
Página 1 de 1.
Permisos de este foro:
No puedes responder a temas en este foro.
|
|