Hola foro,
Voy a intentar aportar algo al respecto, no uso ese WS de la AEAT por lo que no se exactamente los parámetros que hay que rellenar, pero si he importado WS de otros portales con un funcionamiento parecido.
Tras importar el WS del link de la AEAT y generar la correspondiente unit, el funcionamiento debería de ser algo así:
Código Delphi
[-]
var
ASuministroLRFacturasEmitidas:SuministroLRFacturasEmitidas;
ARegistroLRFacturasEmitidas:Array_Of_LRfacturasEmitidasType;
begin
try
SetLength(ARegistroLRFacturasEmitidas, 1);
ARegistroLRFacturasEmitidas[0].IDFactura:='tu numero de factura';
ARegistroLRFacturasEmitidas[0].FacturaExpedida. := ... ;
ARegistroLRFacturasEmitidas[0].PeriodoImpositivo. := ... ;
ASuministroLRFacturasEmitidas := SuministroLRFacturasEmitidas.Create;
ASuministroLRFacturasEmitidas.Cabecera.Titular.NombreRazon:='tu nombre';
ASuministroLRFacturasEmitidas.Cabecera.Titular.NIF:='tu nif';
ASuministroLRFacturasEmitidas.Cabecera.TipoComunicacion:='A4';
ASuministroLRFacturasEmitidas.RegistroLRFacturasEmitidas:=ARegistroLRFacturasEmitidas;
try
GetsiiSOAP.SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);
except
On E:Exception do
MessageDlg(E.Message, mtError, [mbOK], 0);
end;
finally
ASuministroLRFacturasEmitidas.Free;
setLength(ARegistroLRFacturasEmitidas, 0);
end;
end;
Espero que esto pueda aportar algo de luz al tema
Un Saludo