Validar DNI/CIF

[keys]

Empezado por iMia

El Wsdl ...

https:// ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl

Yo con el wsdl no conseguí hacerlo. Hice la llamada directamente al servicio con JSON.

[iMia]

Empezado por iMia

El Wsdl ...

https:// ec.europa.eu/taxation_customs/vies/checkVatTestService.wsdl

Perdón, puse el wsdl de test.
Este es el bueno;


https:// ec.europa.eu/taxation_customs/vies/checkVatService.wsdl

[iMia]

Empezado por keys

Yo con el wsdl no conseguí hacerlo. Hice la llamada directamente al servicio con JSON.

Pues me ha gustado mucho com lo has hecho directamente sin tener que importar el wsdl !!!

[iMia]

enga va....

- importado el wsdl (ojo con los textos de más de 250 caracteres....)
- Ojoj que el pais lo he puesto con calzador... hay que parametrizarlo.

Código Delphi [-]

procedure TMainForm.btnValidarEUCIFClick(Sender: TObject);
var
  cv: checkVat;
  cvResp: checkVatResponse;
  cvWS: checkVatPortType;
  strMessage: string;

begin
  cv := checkVat.create();
  cv.countryCode := 'ES';
  cv.vatNumber := edDNI.Text;

  try
    cvWS := GetcheckVatPortType(false, '', nil);
    if cvWS <> nil then
    begin
      cvResp := cvWS.checkVat(cv);
      if cvResp.valid then
      begin
        strMessage := 'Valido!' + CRLF;
        strMessage := strMessage + 'CIF: ' + cvResp.vatNumber + CRLF;
      end
      else
        strMessage := 'NO ES VÁLIDO!';
      ShowMessage(strMessage);
    end;
  except
      on E: ERemotableException do
      begin
        ShowMessage('Sin respuesta: ' + #10 + #13 + E.message);
      end;
  end;
end;

[iMia]

Hoy 14/01/2025 no está funcionando el servicio...
Da error que no hay respuesta... (no se puede parsear la respuesta)
Esperemos que lo arreglen pronto...
Si sigue fallando es que deben haber dado de baja el servicio y lo han movido a otro servicio/servidor o cambiado algo... miraré mañana si sigue fallando...

[YellowStone]

Creo que no es que el servicio esté movido, a día de hoy sigue funcionando, el problema es que se satura, y entonces devuelve un "<faultcode>", que normalmente viene con un "<faultstring>" con algo así como "TOO MANY CONCURRENTS". Al rato vuelve a ir.