ESTOY COLOCANDO LA CLASE ASI TRADUCIDA AL VB Y NO ME RECONOCE
Namespace App.Extensions
Public Class IdentityExtensions
Public Shared Function GetUSU_NOMBRE(ByVal identity As IIdentity) As String
Dim claim = DirectCast(identity, ClaimsIdentity).FindFirst("USU_NOMBRE")
Return If((claim IsNot Nothing), claim.Value, String.Empty)
End Function
Public Shared Function GetUSU_CODIGO(ByVal identity As IIdentity) As String
Dim claim = DirectCast(identity, ClaimsIdentity).FindFirst("USU_CODIGO")
Return If((claim IsNot Nothing), claim.Value, String.Empty)
End Function
Public Shared Function GetPSNIDDOCUMENTO(ByVal identity As IIdentity) As String
Dim claim = DirectCast(identity, ClaimsIdentity).FindFirst("psniddocumento")
Return If((claim IsNot Nothing), claim.Value, String.Empty)
End Function
End Class
End Namespace
Namespace App.Extensions
Public Class IdentityExtensions
Public Shared Function GetUSU_NOMBRE(ByVal identity As IIdentity) As String
Dim claim = DirectCast(identity, ClaimsIdentity).FindFirst("USU_NOMBRE")
Return If((claim IsNot Nothing), claim.Value, String.Empty)
End Function
Public Shared Function GetUSU_CODIGO(ByVal identity As IIdentity) As String
Dim claim = DirectCast(identity, ClaimsIdentity).FindFirst("USU_CODIGO")
Return If((claim IsNot Nothing), claim.Value, String.Empty)
End Function
Public Shared Function GetPSNIDDOCUMENTO(ByVal identity As IIdentity) As String
Dim claim = DirectCast(identity, ClaimsIdentity).FindFirst("psniddocumento")
Return If((claim IsNot Nothing), claim.Value, String.Empty)
End Function
End Class
End Namespace