Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-06-2023
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
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?
Responder Con Cita
  #2  
Antiguo 27-06-2023
Avatar de keys
keys keys is offline
Miembro
 
Registrado: sep 2003
Ubicación: Bilbao
Posts: 1.036
Poder: 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
  #3  
Antiguo 27-06-2023
Avatar de dimony
dimony dimony is offline
Miembro
 
Registrado: oct 2006
Posts: 28
Poder: 0
dimony Va por buen camino
Wink

Ha funcionado muuu bien keys, siguiendo la idea he hecho lo siguiente, por si le sirve a alguien:
Código Delphi [-]
procedure TData.HTTPRIO6BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  Document: IXMLDocument;
  registro:integer;
  ss:TFileStream;
  Cadena: TStringList;
begin
SOAPRequest.Position := 0;
Document := TXMLDocument.Create(nil);
Document.Options := [];
Document.LoadFromStream(SOAPRequest);
Document.XML.Text := xmlDoc.FormatXMLData(Document.XML.Text);
main.richedit1.Lines.Add(StringReplace(Document.XML.Text,'','',[rfReplaceAll, rfIgnoreCase]));
Cadena := TStringList.Create;
Cadena.Add(Main.RichEdit1.Lines.Text);
Cadena.SaveToFile('c:\tmp\1.xml');
ss := TFileStream.Create('c:\tmp\1.xml',fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom(ss,ss.Size);
ss.Free;
SOAPRequest.Position := 0;
end;
Que es lo que ha sugerido KEYS pero a mi modo.
Grache Mille

Última edición por Casimiro Notevi fecha: 27-06-2023 a las 17:42:32.
Responder Con Cita
  #4  
Antiguo 28-06-2023
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.474
Poder: 21
newtron Va camino a la fama
Buenos días a tod@s.

Ayer intenté subir una factura al entorno de preproducción y me dio un error "Unauthorized (401)". Pensando que sería algún problema del servidor me he esperado a hoy pero sigo teniendo el mismo problema.

¿Alguien me puede decir si funciona el servidor de pruebas?

Gracias y un saludo.
__________________
Be water my friend.

Última edición por Neftali [Germán.Estévez] fecha: 28-06-2023 a las 10:31:01.
Responder Con Cita
  #5  
Antiguo 28-06-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.309
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por newtron Ver Mensaje
Ayer intenté subir una factura al entorno de preproducción y me dio un error "Unauthorized (401)". Pensando que sería algún problema del servidor me he esperado a hoy pero sigo teniendo el mismo problema.

¿Alguien me puede decir si funciona el servidor de pruebas?
Yo acabo de subir 2 a preproduccion sin problemas.
Una de compras y otra de ventas.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #6  
Antiguo 28-06-2023
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.474
Poder: 21
newtron Va camino a la fama
Gracias Germán. Pues no sé qué ocurre, a ver si han cambiado el endpoint desde la última vez que probé o algo así y no me he enterado.


¿Puedes decirme si el el puerto/url de facturas recibidas son estos?


'SuministroFactRecibidasPruebas';
'https://prewww1.aeat.es/wlpl/SSII-FACT/ws/fr/SiiFactFRV1SOAP';



Saludos.
__________________
Be water my friend.
Responder Con Cita
  #7  
Antiguo 28-06-2023
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.474
Poder: 21
newtron Va camino a la fama
Ok. Parece que es un problema del certificado que estoy usando. He probado con otro y me funciona.


Gracias y un saludo.
__________________
Be water my friend.
Responder Con Cita
  #8  
Antiguo 28-06-2023
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.309
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Cita:
Empezado por newtron Ver Mensaje
Gracias Germán. Pues no sé qué ocurre, a ver si han cambiado el endpoint desde la última vez que probé o algo así y no me he enterado.
¿Puedes decirme si el el puerto/url de facturas recibidas son estos?
'SuministroFactRecibidasPruebas';
'https://prewww1.aeat.es/wlpl/SSII-FACT/ws/fr/SiiFactFRV1SOAP';

Lo siento. En eso no te puedo ayudar, a ver si alguien más te puede echar un cable.
Usamos una pieza "externa" para el envío y no tengo acceso a esa información.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco keys Internet 4175 Hace 1 Día 16:17:35
AEAT envio de datos vía Webservice problemas con WSDL CelsoO Internet 11 09-10-2019 20:03:41
webService Soap de la Administración Digital Española notific@ apicito Internet 3 31-01-2017 11:25:28
Error en Webservice funcion envio de sms webmasterplc Delphi para la web 5 25-07-2013 20:10:29
Problemas con envío de XML a un WebService davidvamo Internet 1 13-02-2007 15:49:20


La franja horaria es GMT +2. Ahora son las 04:42:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi