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;