Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Colaboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-11-2022
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Poder: 21
newtron Va camino a la fama
Validar DNI/CIF

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.
__________________
Be water my friend.
Responder Con Cita
  #2  
Antiguo 15-11-2022
Avatar de mRoman
mRoman mRoman is offline
Miembro
 
Registrado: nov 2003
Posts: 638
Poder: 21
mRoman Va por buen camino
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.
__________________
Miguel Román

Afectuoso saludo desde tierras mexicanas....un aguachile?, con unas "cetaseas" bien "muertas"?, VENTE PUES !!
Responder Con Cita
  #3  
Antiguo 15-11-2022
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.257
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Aquí está para Europa.
https://ec.europa.eu/taxation_customs/tin/#/check-tin
Responder Con Cita
  #4  
Antiguo 15-11-2022
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Poder: 21
newtron Va camino a la fama
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.
__________________
Be water my friend.
Responder Con Cita
  #5  
Antiguo 15-11-2022
Garada Garada is offline
Miembro
 
Registrado: jul 2004
Posts: 68
Poder: 21
Garada Va por buen camino
¿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.
Responder Con Cita
  #6  
Antiguo 16-11-2022
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Poder: 21
newtron Va camino a la fama
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.
__________________
Be water my friend.
Responder Con Cita
  #7  
Antiguo 30-01-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 143
Poder: 15
iMia Va por buen camino
Validador nif de la agencia tibutaria (AEAT)

Requisitos:
- Importar la wsdl: "https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/burt/jdit/ws/VNifV2.wsdl"
- Tener capicom.dll registrada (regsvr32 C:\...\capicom.dll) y
- Importar el componente capicom.DLL creará el fuente CAPICOM_TBL
- Open ssl. (libeay.pas y openSsslUtils.pas).


Un form "TMain",
un TEdit "edNif", un TEdit "edNombre"
un TEdit "edCertificado", un TmaskEdit "mskCertPass"
un boton "btnValidarESNif"

opcional:
un TEdit "edResultado", un TEdit "edDNIValidado", un TEdit "edNombreValidado"


uses

Código:
uses
  // Windows API
  Winapi.Windows, Winapi.Messages, WinApi.WinInet,
  // System
  System.SysUtils, System.Variants, System.Classes, System.IniFiles, System.UITypes, System.Win.ComObj,
  System.Net.URLClient, System.Net.HttpClient, System.Net.HttpClientComponent,

  // Rest - JSON
  REST.Json,
  // Soap
  Soap.SOAPHTTPClient, Soap.SOAPHTTPTrans, Soap.InvokeRegistry, Soap.Rio,
  // aeat NIF VAlidador
  VNifV21; // Módulo creado al importar el wsdl


  CAPICOM_TLB, // Unidad creada al importar la dll de capicom.

  libeay32, OpenSSLUtils;
declarar el tipo:

Código:
type
  PCCERT_CONTEXT = type Pointer;
Código:
function TMain.validarESNif(): VNifV2Sal;
var
  nifValidatorWS: VNifV2;
  VNifV2Entrada: VNifV2Ent;
  VNifV2Salida: VNifV2Sal;
  contri: Contribuyente;
  HTTPRIO: THTTPRIO;
begin
  HTTPRIO := THTTPRIO.create(self);
  HTTPRIO.HTTPWebNode.OnBeforePost := HTTPWebNode1BeforePost;
    nifValidatorWS := GetVNifV2(false, '', HTTPRIO);
    if nifValidatorWS <> nil then
  begin
    contri := Contribuyente.Create;
    contri.Nif := edDni.text;
    contri.Nombre := edNombre.text;
    setLength(VNifV2Entrada, 1);
    VNifV2Entrada[0] := contri;
    try
      VNifV2Salida := nifValidatorWS.VNifV2(VNifV2Entrada);
    except
      on E: EDOMParseError do
        ShowMessage('Sin respuesta: ' + #10 + #13 + E.message);
    end;
  end;
  result := VNifV2Salida;
end;

procedure TMain.HTTPWebNode1BeforePost(const HTTPReqResp: THTTPReqResp; Data: Pointer);
begin
    SetCertificate(trim(edCertificado.text), mskCertPass.text, Data);
end;

procedure TMain.IdSSLIOHandlerGetPassword(var Password: string);
begin
  Password := mskCertPass.text;
end;

procedure TMain.btnValidarESNifClick(Sender: TObject);
var
  VNifV2Salida: VNifV2Sal;
begin
  VNifV2Salida := validarESNif();
  if VNifV2Salida <> nil then
  begin
    edResultado.Text := VNifV2Salida[0].Resultado;
    edDNIValidado.Text := VNifV2Salida[0].Nif;
    edNombreValidado.Text := VNifV2Salida[0].Nombre; // No importa por que por la LODP no devuelven el nombre. Dejan lo que se envía.
  end
  else ShowMessage('No se ha podido validar el NIF: ' + edDni.Text);
end;

Última edición por iMia fecha: 30-01-2023 a las 11:59:59.
Responder Con Cita
  #8  
Antiguo 30-01-2023
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Poder: 21
newtron Va camino a la fama
Gracias iMia.

¿Podrías decirnos qué tipos de documentos valida esto?

Saludos.
__________________
Be water my friend.
Responder Con Cita
  #9  
Antiguo 30-01-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 143
Poder: 15
iMia Va por buen camino
Cita:
Empezado por newtron Ver Mensaje
Gracias iMia.

¿Podrías decirnos qué tipos de documentos valida esto?

Saludos.

Valida que el NIF/nombre sean correctos (en España)

Saludos

Pd.:
en genérico es es uso de un certificado con http, y con capicom, y no tener que pagar componentes de terceros (blackbox, inet, etc...)

Última edición por iMia fecha: 30-01-2023 a las 12:51:20.
Responder Con Cita
  #10  
Antiguo 30-01-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por newtron Ver Mensaje
...no controlo si el dni/cif es correcto en caso de ser extranjero.
Creo que ninguno controlamos eso. Y ellos tampoco.

Cita:
Empezado por Garada Ver Mensaje
¿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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.

Última edición por Neftali [Germán.Estévez] fecha: 30-01-2023 a las 12:55:43. Razón: Añadir comentario sobre lo dicho por [Garada]
Responder Con Cita
  #11  
Antiguo 30-01-2023
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Poder: 21
newtron Va camino a la fama
Perfecto.

Gracias a todos.
__________________
Be water my friend.
Responder Con Cita
  #12  
Antiguo 15-03-2023
serpic serpic is offline
Registrado
 
Registrado: oct 2008
Posts: 1
Poder: 0
serpic Va por buen camino
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
Responder Con Cita
  #13  
Antiguo 16-03-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 143
Poder: 15
iMia Va por buen camino
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.

Última edición por iMia fecha: 16-03-2023 a las 09:34:23.
Responder Con Cita
  #14  
Antiguo 16-03-2023
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 143
Poder: 15
iMia Va por buen camino
Cita:
Empezado por iMia Ver Mensaje
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);
Responder Con Cita
  #15  
Antiguo 12-02-2024
muli muli is offline
Miembro
 
Registrado: jun 2003
Ubicación: A Coruña
Posts: 199
Poder: 22
muli Va por buen camino
Tambien da error a la compilar

Código Delphi [-]
En esta function  VNifV2(const VNifV2Ent: VNifV2Ent): VNifV2Sal; stdcall;

No encuentra VNifV2Ent): VNifV2Sal;

Y aqui 

  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(VNifV2), '');
  InvRegistry.RegisterInvokeOptions(TypeInfo(VNifV2), ioDocument);
  InvRegistry.RegisterInvokeOptions(TypeInfo(VNifV2), ioLiteral);

[dcc32 Error] VNifV21.pas(97): E2134 Type 'VNifV2' has no type info
__________________
SI UN PROBLEMA TIENE SOLUCION, YA NO ES UN PROBLEMA, Y SI NO LA TIENE PARA QUE PREOCUPARSE.
Responder Con Cita
  #16  
Antiguo 13-03-2024
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.085
Poder: 23
keys Va por buen camino
Para poder hacer operaciones intracomunitarias una empresa tiene que estar dada de alta en el VIES. Existe un servicio web para validar si una empresa esta o no dentra del VIES https://ec.europa.eu/taxation_custom...vat-validation es una manera de validar si un cif intracomunitario es correcto o no.
Responder Con Cita
  #17  
Antiguo 13-03-2024
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.085
Poder: 23
keys Va por buen camino
Pongo el código por si a alguien le interesa.

Código Delphi [-]

 //Pais son las letras del codigo del pais
function ComprobarDocumentoVIES(Pais, Documento: string): boolean;
var
  LRequest: THTTPClient;

  LResponse: TStringStream;
  JSONData: TJSONObject;
  StringStream: TStringStream;
  valido : Boolean;
begin

  result := false;
  LRequest := THTTPClient.Create;
  LResponse := TStringStream.Create;


  JSONData := TJSONObject.Create;

  JSONData.AddPair('countryCode', Pais);
  JSONData.AddPair('vatNumber', Documento);

  
    Lrequest.ContentType := 'application/json';
    StringStream := TStringStream.Create(JSONData.ToString, TEncoding.UTF8);
    LRequest.SecureProtocols := [THTTPSecureProtocol.TLS12];
    LRequest.Post('https://ec.europa.eu/taxation_customs/vies/rest-api/check-vat-number', StringStream , LResponse);
    JSONData := TJSONObject.ParseJSONValue(LResponse.DataString) as TJSONObject;

    if Assigned(JSONData) then
      begin
        // Obtener el valor del campo deseado de la respuesta que es el valid
         if JSONData.TryGetValue('valid', valido) then
          begin
            result := valido;
          end;
      end;

    JsonData.destroy;
    LResponse.Free;
    LRequest.Free;
    StringStream.Destroy;
 

end;
Responder Con Cita
  #18  
Antiguo 13-03-2024
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.591
Poder: 21
newtron Va camino a la fama
Gracias compañero.
__________________
Be water my friend.
Responder Con Cita
  #19  
Antiguo 13-03-2024
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.549
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por keys Ver Mensaje
Pongo el código por si a alguien le interesa.

Nosotros hasta ahora lanzábamos la página para validar manualmente, pero no está de más tener accesible la API.
Gracias.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #20  
Antiguo 13-03-2024
iMia iMia is offline
Miembro
 
Registrado: jul 2010
Posts: 143
Poder: 15
iMia Va por buen camino
El Wsdl ...

https:// ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Validar un XML r_e_g_2007 Varios 0 05-11-2011 09:00:21
validar RFC.. tebre Varios 12 06-01-2009 19:48:55
Validar Elite237 OOP 1 29-07-2007 00:25:30
Validar Nif Colgueit OOP 12 10-05-2006 03:50:28
validar en qry alcides SQL 2 06-01-2004 19:11:19


La franja horaria es GMT +2. Ahora son las 01:45:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi