Este codigo te permite calcular la letra del NIF
En el exiting de un campo ponemos
Sub Exiting(Source As Field)
Dim uiw As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc=uiw.currentdocument
Set doc=uidoc.document
nif=doc.nif(0)
ultimo=Right(nif,1)
If Instr("0123456789",ultimo) > 0 Then
' es número, cojo todas las cifras
numero=nif
Else
' es letra, cojo todos los caracteres menos el último
numero=Left(nif,Len(nif)-1)
End If
letra=Right(Left("TRWAGMYFPDXBNJZSQVHLCKE", ((numero Mod 23) + 1)), 1)
doc.nif=numero & letra
exit Sub
|
Otros documentos de LotusScript
|