rutina del digito verificador NIT y NRC El Salvador

[Mauricio Gonzalez]

Alguien tendra la rutina del digito verificador del NIT y del NRC en El Salvador??

[Leboni]

Mauricio:

No tengo a la mano una rutina específica para NIT (Número de Identificación Tributaria) y NRC(Número de registro de contribuyenre), pero entiendo que el principio es el mismo que para el DUI (Documento único de identidad),  por lo que puede servirte el algoritmo que "Camus de Acuario" publicó en http://www.svcommunity.org y que te dejo a continuación:


El DUI del sonriente señor es:
00016297-5

Digito verificador: 5

Ahora asignemos las posiciones

Posicion -> 9     8     7     6     5     4     3      2
DUI       -> 0     0     0     1     6     2     9      7

SUMA: (9*0)+(8*0)+(7*0)+(6*1)+(5*6)+(4*2)+(3*9)+(2*7) = 85
DIVISION: MOD(85/10) = 5
RESTA: 10 - 5 = 5
Digito Verificador = 5 = Resta = 5 = DUI valido.


Espero te sea de utilidad

_______________________________________________________________________________________________________________________

[Mauricio Gonzalez]

Gracias Lebony, en ese foro, puse una rutina para el DUI, NRC y para el NIT, pero creo que no estan bien, volvere a revisar el codigo mas detenidamente, muchas gracias.

[Mauricio Gonzalez]

Ya termine la rutina del digito verificador del NIT y esta comprobada.

[Harold Argueta]

Gracias por el aporte Leboni, sera de mucha utilidad para evitar errores en la captura del dui, sobre todo por las facturas que exceden los $200.00.

[Rene Ricardo]

Rutina para verificar el NIT
El parametro es el NIT y devuelve el digito verificador que es el último numero del NIT y solo comparan que sean iguales

*!*-------------------------------------------------------------!

*!*      Function : VerificarNit(lcMyNIT) !

*!*-------------------------------------------------------------!

*** Verifica el Numero de NIT

FUNCTION  VerificaNit 

PARAMETERS  lc_NIT

lnSuma = 0

  lcCopiaNIT = lc_NIT

  IF VAL(TRIM((SUBSTR(lcCopiaNIT, 11, 3))))<=100

    FOR lnPosicion = 1 TO 13

        lnSuma = lnSuma+VAL(SUBSTR(lcCopiaNIT, lnPosicion, 1))*(15-lnPosicion)

      ENDFOR 

      lnDigitoVerificador = MOD(lnSuma, 11)

      IF lnDigitoVerificador=10

        lnDigitoVerificador = 0

      ENDIF

  ELSE

    FOR lnPosicion = 1 TO 13

        lnFactor = (3+6*INT((lnPosicion+4)/6))-lnPosicion

lnSuma = lnSuma+VAL(SUBSTR(lcCopiaNIT, lnPosicion, 1))*lnFactor

      ENDFOR

      lnResiduo = MOD(lnSuma, 11)

      IF  lnResiduo>1

lnDigitoVerificador = 11-lnResiduo

ELSE

lnDigitoVerificador = 0

      ENDIF

ENDIF

  lcDigitoVerificadorNIT = STR(lnDigitoVerificador)

 RETURN  lcDigitoVerificadorNIT

ENDFUNC 

El 8 de noviembre de 2014, 19:07, Harold Argueta <harold....@gmail.com> escribió:

Gracias por el aporte Leboni, sera de mucha utilidad para evitar errores en la captura del dui, sobre todo por las facturas que exceden los $200.00.

--

Tel. 2510-8619 

[Luis la Romana]

Excelente para revisar los NIT y que no los rechace el DET.

[William López]

Hola Rene:
Tienes la rutina para verificar el NRC (iva), pues este no lo calcula bien.
Gracias de antemano por la ayuda

[maricel...@gmail.com]

y en exel como seria???????

[maricel...@gmail.com]

Como puedo poner una formula en exel comprobar el verificador del NIT?????

El lunes, 10 de noviembre de 2014, 10:19:35 (UTC-6), Rene Ricardo Rivera Flores escribió:

[william angel]

El jueves, 9 de julio de 2015, 13:06:43 (UTC-6), maricel...@gmail.com escribió:

Hace poco vi este foro y la verdad quiero compartir el codigo hecho en visual basic.

 Codigo verificador de NIT:

Public Class Form1
    'declaracion de las variables


    Private Sub ButtonX1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonX1.Click
        LabelX1.Text = VerificaNit(TextBoxX1.Text.Trim)
    End Sub

    Public Function VerificaNit(ByVal lcNIT As String)
        Dim lnSuma As Integer = 0
        Dim LcCopiaNit = lcNIT
        Dim LnDigitoVerificador As Integer
        Dim LnFactor As Integer
        Dim LnResiduo As Integer
        Dim LcDigitoVerificadorNIT As String

        If LcCopiaNit.Substring(10, 3) <= 100 Then
            For LnPosicion As Integer = 1 To 13
                lnSuma += lnSuma + LcCopiaNit.Substring(LnPosicion - 1, 1) * (15 - LnPosicion)
            Next
            LnDigitoVerificador = lnSuma Mod 11

            If LnDigitoVerificador = 10 Then
                LnDigitoVerificador = 0
            End If
        Else
            For LnPosicion As Integer = 1 To 13
                LnFactor = (3 + 6 * Int((LnPosicion + 4) / 6) - LnPosicion)
                lnSuma += LcCopiaNit.Substring(LnPosicion - 1, 1) * LnFactor
            Next
            LnResiduo = lnSuma Mod 11

            If LnResiduo > 1 Then
                LnDigitoVerificador = 11 - LnResiduo
            Else
                LnDigitoVerificador = 0
            End If
        End If
        LcDigitoVerificadorNIT = LnDigitoVerificador.ToString()

        Return LcDigitoVerificadorNIT
    End Function
  
End Class

[jose antonio pablo amaya]

YA EN CRISTIANO UNA FORMULA DE EXEL ESPERO QUE LES SIRVA, (NOTA LOS NUMEROS VAN SIN GUIONES OK)

El miércoles, 29 de octubre de 2014, 5:19:05 (UTC-6), Mauricio Gonzalez escribió:

[William López M.]

Gracias a Maricela y a Jose Antonio por los aportes, muy buenos.

Pero..... alguien tiene como calcular el dígito verificador de NRC (IVA)?

Gracias

William López M.

[Gabo]

Buen Aporte, Muchas Gracias

(Y)

el NIT funciona con guiones, El DUI hay que colocarlo sin guiones tal cual lo dijiste.

[Angel Alejandro Ascencio]

Perdón por revivir un tema tan viejo pero como calculan el digito verificador del NRC porque no lo encontré