Cita:
Empezado por dimony
He descubierto que si en la etiqueta <cobro> se le pone
"https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd"
Funciona. en el cliente web service de la la AEAT.
Pero no logro hacer que se ponga al generarlo yo, ¿Algún alma caritativa, por favor?
|
No se si es un problema de delphi o del fichero xsd de hacienda. Para solucionarlo tienes que capturar el evento OnBeforeExecute el objeto THTTPPRIO y hacer le cambio. Te pongo un ejemplo
Código Delphi
[-]
NficheroTemp := 'c:\temp\LCFTemporal.Xml';
if FileExists(NficheroTemp) then
DeleteFile(NficheroTemp);
ss := TFileStream.Create(NficheroTemp, fmCreate);
SOAPRequest.Position := 0;
ss.CopyFrom(SOAPRequest, SOAPRequest.size);
ss.Free;
SOAPRequest.Position := 0;
Fichero := TStringList.Create;
Fichero.LoadFromFile(NficheroTemp);
for i := 0 to Fichero.Count - 1 do
Fichero.Strings[i] :=
Sleep(1000);
Fichero.SaveToFile(NficheroTemp);
SOAPRequest.Size:=0;
ss := TFileStream.Create(NficheroTemp, fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom( ss, ss.Size);
ss.Free;
SOAPRequest.Position := 0;
Lo mismo pasa con los pagos.