|
Programación: El CIF - Código de Identificación Fiscal
Os explicamos en qué consiste el CIF (Código de Identificación Fiscal), os mostramos su estructura, lo que significa cada número y cada letra, cómo calcular el dígito de control y cómo saber a qué comunidad pertenece una empresa sabiendo su CIF. También podremos saber el tipo de empresa (sociedad anónima, sociedad limitada, comunidades de bienes, etc). Incluimos un ejemplo freeware de la obtención de esta información en Delphi (open source). Definición: El Código de identificación fiscal (CIF) es el sistema de identificación tributaria utilizada en España para las personas jurídicas o entidades en general. Este código debe ser único para cada entidad (empresa), por ello, para que una factura tenga validez legal debe aparecer el CIF del cliente facturado y el CIF de la empresa que factura. Estructura: X-XX-XXXXX-X El CIF está compuesto de de 9 caracteres. El primero de ellos (posición 1) es una letra que define el tipo de entidad, con la siguiente correspondencia:
Los cinco siguientes dígitos (posición 4 a 8) constituyen un número correlativo de inscripción de la organización en el registro provincial. El último dígito (posición 9) es un código de control que puede ser un número o una letra:
Cálculo del dígito de control: Las operaciones para calcular el dígito de control se realizan sobre los siete dígitos centrales (posición 2 a 8) y son las siguientes: X-X-X-X-X-X-X
A continuación mostramos un ejemplo para el CIF: E73467433 1. Utilizaremos los siete dígitos centrales: 7346743 2. Sumamos los dígitos pares: A = 3 + 6 + 4 = 13 3. Multiplicamos por 2 los impares:
4. Sumamos A + B: C = A + B = 14 + 15 = 29 5. Para obtener D cogemos el "9" de C y a 10 le restamos este valor: D = 10 - 9 = 1 6. Con el último valor (D) ya podemos obtener el dígito de control, primero tendremos que saber si es una letra o un número, si es un número ya lo tenemos, será el 1 (el valor de D), si es una letra, teniendo en cuenta la relación: A = 1, B = 2, C= 3, D = 4, E = 5, F = 6, G = 7, H = 8, I = 9, J = 10, será una A.
Ejemplo de cálculo del CIF con Delphi: ... Ejemplo de cálculo del CIF con Visual Basic:
Public Function cifDigito(cif As String) As String Dim A As Integer 'impares Dim B As Integer 'pares Dim C As Integer Dim Digito As String Dim letras As Variant A = 0 B = 0 For i = 2 To 6 Step 2 A = A + Mid(cif, i + 1, 1) 'impares C = 2 * Mid(cif, i, 1) 'pares B = B + (C Mod 10) + Int(C / 10) 'Suma de dígitos Next i B = B + ((2 * Mid(cif, 8, 1)) Mod 10) + _ Int((2 * Mid(cif, 8, 1)) / 10) C = 10 - ((A + B) Mod 10) letras = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J") Select Case (Left(cif, 1)) Case "K", "P", "Q", "S": Digito = letras(C-1) Case "A", "B", "E", "H": Digito = C Case Else: Digito = C & " o " & letras(C-1) End Select cifDigito = Digito End Function Anuncios
Enviado el Miércoles, 14 mayo a las 01:15:20 por ajpdsoft
|
|