Verificación de VAT comunitario

[[newtron]]

Hola a tod@s.

Estoy teniendo un pequeño problema y es que en los programas de facturación, sobre todo los que generan datos para el sii, no controlo si el dni/cif es correcto en caso de ser extranjero. El operario se equivoca al teclearlo, luego no entra en el sii y no hay forma de buscar al cliente si son clientes de paso.

En el caso de dnis/cifs nacionales no es problema porque hay formas de calcular si el número es correcto pero mi pregunta es si hay alguna forma de hacer una consulta a algún sitio (webservice) en el que se pueda introducir un dni/cif extranjero, especificando el país, y que te diga si es correcto.

Gracias y un saludo.

[mRoman]

Pues algo muy complicado lo que requieres.

Me encontré una página (https://expinterweb.mites.gob.es/rea/pub/consulta.htm) que válida empresas acreditadas, pero solo de España, yo vivo en México, así que la página para tal fin seria esta asi que...no lo sé, tendrías q tener un catálogo de páginas de cada país para consultar los datos...algo complicado si tus volúmenes de empresas o personas extranjeras son muchas.

Talvez tendrías que ir elaborando tu propio catálogo de empresas con sus identificadores empresariales para cada cliente/pais e ir almacenando los datos, claro, con el riesgo de que tu usuario ingrese mal los datos consultados, que se reduciría el margen de error si COPIA y PEGA esos datos de las páginas.

En fin, espero te sirvan mis comentarios.

Saludos.

[Casimiro Noteví]

Aquí está para Europa.
https://ec.europa.eu/taxation_customs/tin/#/check-tin

[[newtron]]

Todos los comentarios son instructivos mRoman, gracias por el tuyo.

Gracias también a ti Casimiro, le echaré un vistazo a esa web. El problema es que "mi tema" se queda cojo porque, aunque los intracomunitarios sean muchos (quizás la mayoría), por el sur de España se mueve mucho marroquí (por ejemplo) y mucho inglés que ya no son comunitarios así que aunque le de solución parcial sigo teniendo el problema. A ver qué se me ocurre y/o si tiene solución este asunto.

Gracias de nuevo y un saludo.

[Garada]

¿Realmente el SII te echa para atrás los ID de extranjeros?

Creo recordar que bastaba con identificar el país y en el ID marcarlo como "otra identificacion"

Dudo que Hacienda pueda comprobar que un ID extranjero sea correcto como puede ser con los NIF que aparte del digito de control ya sabe el nombre.

[[newtron]]

Pues ahora que lo dices... después de poner el post me quedé dandole vueltas precisamente a ese detalle. Igual los únicos que controlan son los comunitarios y no los extranjeros. Es un tema que tengo que confirmar.

Gracias y un saludo.

[Neftali [Germán.Estévez]]

Empezado por newtron

...no controlo si el dni/cif es correcto en caso de ser extranjero.

Creo que ninguno controlamos eso. Y ellos tampoco.

Empezado por Garada

¿Realmente el SII te echa para atrás los ID de extranjeros?
Creo recordar que bastaba con identificar el país y en el ID marcarlo como "otra identificacion"

Veo ahora que [Garada] ya lo ha comentado.

[[newtron]]

Perfecto.

Gracias a todos.

[serpic]

Hola iMia, grácias por compartir el código.
He conseguido recrear el programa grácias a la información que has aportado.
Lo que no entiendo es como asignar el certificado que me interesa.
Veo que llamas a la función SetCertificate(trim(edCertificado.text), mskCertPass.text, Data) pero me da error y no se si es una función propia tuya o de algún componente.
Me puedes ayudar ?
Grácias

[iMia]

Hola Serpic,

Tienes razón, no puse la función de asignación del certificado

Ahí va..

Código Delphi [-]

procedure TMainForm.SetCertificate(const FileName, Password: string; var Data: Pointer);
var
  Cert : ICertificate2;
  CertContext : ICertContext;
  PCertContext : PCCERT_CONTEXT;
begin
  try
    Cert := CoCertificate.Create;
  except
    on E: EOleSysError  do
      raise Exception.Create('CAPICOM.DLL no está registrada correctamente.')
  end;

  Cert.Load(FileName, Password, CAPICOM_KEY_STORAGE_EXPORTABLE, CAPICOM_LOCAL_MACHINE_KEY);
  CertContext := Cert as ICertContext;
  CertContext.Get_CertContext(Integer(PCertContext));
  if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, 4096) = False then
    raise Exception.Create ( 'Error al asignar el certificado de cliente' )
end;

Como se ve en el código inicial, hay que importar la libreria CAPICOM.DLL (y registrarla en cada equipo que se vaya a utilizar la app) y generar el TLB y así se pueden utilizar las constantes de CAPICOM

Saludos...


P.D.: Espero no tengas los problemas que estoy experimentando en alqunas máquinas. en el Hilo: https://www.clubdelphi.com/foros/sho...d.php?p=550756

Saludos.

[iMia]

Empezado por iMia

Hola Serpic,

Tienes razón, no puse la función de asignación del certificado

Ahí va..

Código Delphi [-]
procedure TMainForm.SetCertificate(const FileName, Password: string; var Data: Pointer);
var
  Cert : ICertificate2;
  CertContext : ICertContext;
  PCertContext : PCCERT_CONTEXT;
begin
  try
    Cert := CoCertificate.Create;
  except
    on E: EOleSysError  do
      raise Exception.Create('CAPICOM.DLL no está registrada correctamente.')
  end;

  Cert.Load(FileName, Password, CAPICOM_KEY_STORAGE_EXPORTABLE, CAPICOM_LOCAL_MACHINE_KEY);
  CertContext := Cert as ICertContext;
  CertContext.Get_CertContext(Integer(PCertContext));
  if InternetSetOption(Data, INTERNET_OPTION_CLIENT_CERT_CONTEXT, PCertContext, 4096) = False then
    raise Exception.Create ( 'Error al asignar el certificado de cliente' )
end;

Como se ve en el código inicial, hay que importar la libreria CAPICOM.DLL (y registrarla en cada equipo que se vaya a utilizar la app) y generar el TLB y así se pueden utilizar las constantes de CAPICOM

Saludos...


P.D.: Espero no tengas los problemas que estoy experimentando en alqunas máquinas. en el Hilo: https://www.clubdelphi.com/foros/sho...d.php?p=550756

Saludos.

Atención!!
la llamada de carga del certificado es incorrecta...

deberia ser:

Código Delphi [-]
Cert.Load(FileName, Password, CAPICOM_KEY_STORAGE_EXPORTABLE, CAPICOM_CURRENT_USER_KEY);

[edari]

Buenos días,


Como complemento a la consulta a la AEAT de los NIFS nacionales para tener localizados los que están identificados o no quiero empezar a hacer lo mismo con los clientes intracomunitarios y preparar un xml que pueda enviar a algún sitio para que me los valide


No encuentro mucha documentación oficial de como hacerlo pero sí he llegado al hilo común donde teníamos todo lo de Verifactu mezclado y en eso estoy


Genero un fichero tal que así

Código PHP:

<?xml version="1.0" encoding="UTF-8"?>
<soapenv:Envelope xmlns:urn="urn:ec.europa.eu:taxud:vies:services:checkVat:types">
<soapenv:Body>                                                                    
<urn:checkVat>
<urn:countryCode>DE</urn:countryCode>
<urn:vatNumber>DE12345678</urn:vatNumber>
</urn:checkVat>
</soapenv:Body>
</soapenv:Envelope>

Y lo intento subir con

Código PHP:

curl.exe --tlsv1.2 --data-binary @VIESEJEMPLO.XML --cert-type P12 --cert Certificado.p12:CONTRASEÑA -H "Content-Type: application/xml;charset=UTF8" -X POST http://ec.europa.eu/taxation_customs/vies/services/checkVatService -o RESPUESTA.XML 


Y no consigo respuesta


Alguien me pueda ayudar?


Gracias

[gcqZW]

Nosotros lo hacemos así, no se si te servirá:

Código PHP:

try {
        $client = new SoapClient("https://ec.europa.eu/taxation_customs/tin/services/checkTinService.wsdl", [
            'trace' => 0,
            'exceptions' => true,
        ]);

        $params = [
            'countryCode' => $codigo_pais,
            'tinNumber' => $nif,
        ];

        $response = $client->__soapCall('checkTin', [$params]);
        if ($response->validStructure) {
            if ($response->validSyntax) {
                $nif_valido[$id_res] = 1;
                if ($codigo_pais == 'ES') {
                    $res_dni[$id_res]['dni_tipo'] = '07';
                }
            } else {
                $nif_valido[$id_res] = 0;
            }
        } else {
            $nif_valido[$id_res] = 0;
        }
    } catch (SoapFault $e) {
        // Manejo de errores
        enviarLog('ERROR', $opcion, $vista, 'Error en la petición al webservice de validación de NIF: ' . $e->getMessage());
        $nif_valido[$id_res] = 0;
    } 


[edari]

Pues no mucho, pero gracias en cualquier caso...a alguien seguro que le vale

[Neftali [Germán.Estévez]]

Lo uno con este otro hilo que parece que va de lo mismo.
https://www.clubdelphi.com/foros/showthread.php?t=95967

Por favor, hagamos búsquedas sobre el tema a preguntar antes de crear nuevos hilos.
Y revisad bien los foros; La consulta de un NIF intracomunitario (el título es correcto) no tiene que ver expresamente con LeyAntifraude, creo que se puede usar en muchos más ámbitos.

[Decanato]

Buenas tardes. Alguien ha tenido la necesidad de verificar un NIF comunitario??? Yo lo estoy intentando a través de http://ec.europa.eu/taxation_customs...heckVatService pero no debo estar montando bien el XML de entrada. Alguien que lo haya utilizado y pueda colgar aquí un ejemplo???

Gracias

[Neftali [Germán.Estévez]]

Empezado por Decanato

Buenas tardes. Alguien ha tenido la necesidad de verificar un NIF comunitario??? Yo lo estoy intentando a través de http://ec.europa.eu/taxation_customs...heckVatService pero no debo estar montando bien el XML de entrada. Alguien que lo haya utilizado y pueda colgar aquí un ejemplo???

Por favor, utilicemos las búsquedas antes de crear hilos nuevos.
Uno con el hilo ya existente sobre el tema....

revisa los códigos anteriores

[edari]

Empezado por Decanato

Buenas tardes. Alguien ha tenido la necesidad de verificar un NIF comunitario??? Yo lo estoy intentando a través de http://ec.europa.eu/taxation_customs...heckVatService pero no debo estar montando bien el XML de entrada. Alguien que lo haya utilizado y pueda colgar aquí un ejemplo???

Gracias

Yo también lo necesitaría y tampoco avanzo nada


Tienes más arriba en este hilo el xml que yo genero sin éxito a ver como de diferentes son los dos pero vamos


Tampoco he encontrado documentación oficial de la cual tirar




Seguiremos buscando

[keys]

Yo con xml no lo logré. Con JSON si. tienes el ejemplo en este mismo tema más atrás.

[edari]

Vi tu solución pero no trabajo con Delphi y no sé como "transportarlo" a generar el xml