TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco

[Sistel]

Empezado por ermendalenda

Tiene algunos detalles más.
https://www.agenciatributaria.es/AEA...spanola_.shtml
Madre mía cada año meten más historias. Hace ya varios años que no repasaba esto.

Hola ermendalenda,

Sí, hay muchos casos posibles.
En https://es.wikipedia.org/wiki/N%C3%B...%C3%B3n_fiscal tienes la información de cada uno de ellos y el algoritimo de verificación (cálculo de la letra en el DNI y del último dígito en el CIF)

Saludos

[Sistel]

Empezado por Sistel

Hola ermendalenda,
Sí, hay muchos casos posibles.
En https://es.wikipedia.org/wiki/N%C3%B...%C3%B3n_fiscal tienes la información de cada uno de ellos y el algoritimo de verificación (cálculo de la letra en el DNI y del último dígito en el CIF)
Saludos

Yo, desde hace muchos años, uso las mismas funciones para comprobar si un documento (NIF, NIE o CIF) expedido en España es válido.
En PHP, llamando a la función COMPROBAR_DOCUMENTO($nif) :

Código PHP:

<?php
function COMPROBAR_DOCUMENTO($nif){
    // Limpia
    $nif = LIMPIAR_NIF($nif);
    // Comprueba NIF, CIF o NIE
    if(stristr("XYZ", $nif[0])) $salida = COMPROBAR_NIE($nif);
    if(stristr("ABCDEFGHJKLMNPQRSUVW", $nif[0])) $salida = COMPROBAR_CIF($nif);
    if(stristr("0123456789", $nif[0])) $salida = COMPROBAR_NIF($nif);
    // Si la comprobación ha dado errónea se devuelve texto
    if($salida <> '1') return "Error en documento (CIF/NIF/NIE)";
    return "";
}
/***************************************************************************************************************/
function COMPROBAR_NIE($nie){
    if($nie[0] == "X") $nie = "0".substr($nie, 1);
    if($nie[0] == "Y") $nie = "1".substr($nie, 1);
    if($nie[0] == "Z") $nie = "2".substr($nie, 1);
    $dni = substr($nie, 0, -1);
    if(LETRA_NIF($dni) <> substr($nie, -1, 1)) return "Error: NIE erróneo";
    return 1;
}
/***********************************************************************************/
function COMPROBAR_NIF($nif){
    $nif = str_replace(" ", "", $nif);
    $nif = str_replace(".", "", $nif);
    $nif = str_replace("-", "", $nif);
    $nif = str_replace("_", "", $nif);
    $nif = str_replace(",", "", $nif);
    $dni = substr($nif, 0, -1);
    if(LETRA_NIF($dni) <> strtoupper(substr($nif, -1, 1))) return "Error: NIF erróneo";
    return 1;
}
/***************************************************************************************************************/
function COMPROBAR_CIF($cif){
    $cif = str_replace(" ", "", $cif);
    $cif = str_replace(".", "", $cif);
    $cif = str_replace("-", "", $cif);
    if(strlen($cif) <> 9) return "Error: Número de caracteres del CIF no es 9";
    $validos = "ABCDEFGHJKLMNPQRSUVW";
    if(!strstr($validos, substr($cif, 0, 1))) return "Error: Primera letra del CIF errónea";
    if(!ctype_digit(substr($cif, 1, 7))) return "Error: Dígitos no numéricos en el CIF";

    // Cálculo del dígito final
    $a = $cif[2] + $cif[4] + $cif[6];
    for($i=1; $i<=7; $i=$i+2){
        $x = $cif[$i] * 2;
        $x = sprintf('%02d', $x);
        $b += $x[0] + $x[1];
    }
    $c = $a + $b;
    $c = sprintf('%02d', $c);
    $d = 10 - $c[1];
    if($d == 10) $d = 0;
    $letras = array("J","A","B","C","D","E","F","G","H","I");
    if($cif[8] <> $d && $cif[8] <> $letras[$d]) return "Error: CIF erróneo";
    return 1;
}
/***************************************************************************************************************/
function LIMPIAR_NIF($nif){
    $nif = str_replace(' ', '', $nif);
    $nif = str_replace('-', '', $nif);
    $nif = str_replace('/', '', $nif);
    $nif = str_replace('_', '', $nif);
    $nif = str_replace('.', '', $nif);
    $nif = str_replace(',', '', $nif);        
    $nif = strtoupper($nif);            
    return $nif;
}
/***************************************************************************************************************/
function LETRA_NIF($dni){
    $dni = str_replace(" ", "", $dni);
    $dni = str_replace(".", "", $dni);
    $resto = (int) ($dni % 23);
    $letras = "TRWAGMYFPDXBNJZSQVHLCKE";
    $letra = substr ($letras, $resto, 1);
    return $letra;
}
?>

Saludos

[ermendalenda]

Empezado por Sistel

Yo, desde hace muchos años, uso las mismas funciones para comprobar si un documento (NIF, NIE o CIF) expedido en España es válido.
En PHP, llamando a la función COMPROBAR_DOCUMENTO($nif) :

Código PHP:

<?php
function COMPROBAR_DOCUMENTO($nif){
    // Limpia
    $nif = LIMPIAR_NIF($nif);
    // Comprueba NIF, CIF o NIE
    if(stristr("XYZ", $nif[0])) $salida = COMPROBAR_NIE($nif);
    if(stristr("ABCDEFGHJKLMNPQRSUVW", $nif[0])) $salida = COMPROBAR_CIF($nif);
    if(stristr("0123456789", $nif[0])) $salida = COMPROBAR_NIF($nif);
    // Si la comprobación ha dado errónea se devuelve texto
    if($salida <> '1') return "Error en documento (CIF/NIF/NIE)";
    return "";
}
/***************************************************************************************************************/
function COMPROBAR_NIE($nie){
    if($nie[0] == "X") $nie = "0".substr($nie, 1);
    if($nie[0] == "Y") $nie = "1".substr($nie, 1);
    if($nie[0] == "Z") $nie = "2".substr($nie, 1);
    $dni = substr($nie, 0, -1);
    if(LETRA_NIF($dni) <> substr($nie, -1, 1)) return "Error: NIE erróneo";
    return 1;
}
/***********************************************************************************/
function COMPROBAR_NIF($nif){
    $nif = str_replace(" ", "", $nif);
    $nif = str_replace(".", "", $nif);
    $nif = str_replace("-", "", $nif);
    $nif = str_replace("_", "", $nif);
    $nif = str_replace(",", "", $nif);
    $dni = substr($nif, 0, -1);
    if(LETRA_NIF($dni) <> strtoupper(substr($nif, -1, 1))) return "Error: NIF erróneo";
    return 1;
}
/***************************************************************************************************************/
function COMPROBAR_CIF($cif){
    $cif = str_replace(" ", "", $cif);
    $cif = str_replace(".", "", $cif);
    $cif = str_replace("-", "", $cif);
    if(strlen($cif) <> 9) return "Error: Número de caracteres del CIF no es 9";
    $validos = "ABCDEFGHJKLMNPQRSUVW";
    if(!strstr($validos, substr($cif, 0, 1))) return "Error: Primera letra del CIF errónea";
    if(!ctype_digit(substr($cif, 1, 7))) return "Error: Dígitos no numéricos en el CIF";

    // Cálculo del dígito final
    $a = $cif[2] + $cif[4] + $cif[6];
    for($i=1; $i<=7; $i=$i+2){
        $x = $cif[$i] * 2;
        $x = sprintf('%02d', $x);
        $b += $x[0] + $x[1];
    }
    $c = $a + $b;
    $c = sprintf('%02d', $c);
    $d = 10 - $c[1];
    if($d == 10) $d = 0;
    $letras = array("J","A","B","C","D","E","F","G","H","I");
    if($cif[8] <> $d && $cif[8] <> $letras[$d]) return "Error: CIF erróneo";
    return 1;
}
/***************************************************************************************************************/
function LIMPIAR_NIF($nif){
    $nif = str_replace(' ', '', $nif);
    $nif = str_replace('-', '', $nif);
    $nif = str_replace('/', '', $nif);
    $nif = str_replace('_', '', $nif);
    $nif = str_replace('.', '', $nif);
    $nif = str_replace(',', '', $nif);        
    $nif = strtoupper($nif);            
    return $nif;
}
/***************************************************************************************************************/
function LETRA_NIF($dni){
    $dni = str_replace(" ", "", $dni);
    $dni = str_replace(".", "", $dni);
    $resto = (int) ($dni % 23);
    $letras = "TRWAGMYFPDXBNJZSQVHLCKE";
    $letra = substr ($letras, $resto, 1);
    return $letra;
}
?>

Saludos

Gracias me faltaba la parte dell algoritmo para comprobar los NIE (Offline), con esto listo.

Una cosa menos.

[ermendalenda]

continuo con los CIFS, perdonad los que ya tengais este tema solucionado, pero creo que es una parte importante para que en el futuro no echen para atrás facturas enviadas por errores en los cif/nif/nie/Nombres y por lo tanto se queden facturas huerfanas (no se si se queda aceptado "00" o no aceptado, pero está claro que se va a quedar con errores)

Por lo que tengo visto lo normal es que los que están dado de alta en el ROI los 2 primeros caracteres identifique el país, pero sopresa, primera excepción que me encuentro:
Los que empiezan por "ESN", las primeras letras no identifican al pais si no a "Entidades no residentes" por lo tanto tratamiento¿?: comprobar por el curl extranjero o español, por que el curl extranjero no admite "ESN", así que supongo que será español.

Tenedlo en cuenta sobre todo los que trabajais programas que hacen facturas para laboratorios externos, holandeses, alemanes, etc, que se os va a dar más de un caso.

Esto es más lioso de lo que esperaba, los que podais aportar ideas, documentos... se agradece

[ermendalenda]

Si equivocas la primera letra del cif te lo admite. Esta bien que el algoritmo lo admita., por que entiendo que hay empresas que cambian su sociedad por ejemplo de SL. a SA etc. Y le respetan el mismo número pasando de B-XXXXXXXX a A-XXXXXXXX, pero no entiendo que la consulta curl te de por correcta ambas.

[ermendalenda]

Empezado por ermendalenda

Si equivocas la primera letra del cif te lo admite. Esta bien que el algoritmo lo admita., por que entiendo que hay empresas que cambian su sociedad por ejemplo de SL. a SA etc. Y le respetan el mismo número pasando de B-XXXXXXXX a A-XXXXXXXX, pero no entiendo que la consulta curl te de por correcta ambas.

Devuelve la letra correcta en la respuesta..
Pues es importante dejar la opción de elegir uno u otro por los cambios de sociedades