Este codigo te permite calcular la letra del NIF
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
resto=Val(nif) Mod 23
Dim arrayLetras(23) As String
arrayLetras(0)="T"
arrayLetras(1)="R"
arrayLetras(2)="W"
arrayLetras(3)="A"
arrayLetras(4)="G"
arrayLetras(5)="M"
arrayLetras(6)="Y"
arrayLetras(7)="F"
arrayLetras(8)="P"
arrayLetras(9)="D"
arrayLetras(10)="X"
arrayLetras(11)="B"
arrayLetras(12)="N"
arrayLetras(13)="J"
arrayLetras(14)="Z"
arrayLetras(15)="S"
arrayLetras(16)="Q"
arrayLetras(17)="V"
arrayLetras(18)="H"
arrayLetras(19)="L"
arrayLetras(20)="C"
arrayLetras(21)="K"
arrayLetras(22)="E"
doc.nif=numero & arrayLetras(resto)
End Sub
|
Otros documentos de LotusScript
|