Ver Mensaje Individual
  #3427  
Antiguo 27-06-2023
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.030
Reputación: 22
keys Va por buen camino
Cita:
Empezado por dimony Ver Mensaje
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';

     //Cargas todo el Tstream que te pasa el evento en un fichero
     if FileExists(NficheroTemp) then
        DeleteFile(NficheroTemp);

     ss := TFileStream.Create(NficheroTemp, fmCreate);
     SOAPRequest.Position := 0;
     ss.CopyFrom(SOAPRequest, SOAPRequest.size);
     ss.Free;
     SOAPRequest.Position := 0;

    //Reemplazas lo que necesitas
     Fichero := TStringList.Create;
     Fichero.LoadFromFile(NficheroTemp);
     for i := 0 to Fichero.Count - 1 do
     
       Fichero.Strings[i] := //Reemplazas lo que quieras;
     
     
     Sleep(1000);
     Fichero.SaveToFile(NficheroTemp);
     


    //lo vuelves a cargar en el TStream
     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.
Responder Con Cita