SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice

[elguille]

Empezado por keys

Yo sólo te puedo decir que la AEAT y el resto de haciendas funciona correctamente. No tengo ninguno a canarias.

Acabo de probar de importar el WSDL del estado desde delphi con estos dos
https://www.agenciatributaria.es/sta...ctEmitidas.xml

https://www2.agenciatributaria.gob.e...oEmitidas.wsdl
y da el mismo error en ambos "Error sending fata: (12175) Error de seguridad"
¿a vosotros no os pasa?

Haciendo pruebas veo que en mi aplicativo para el estado
Si hago la llamada
GetsiiSOAP(false, '', HTTPRIO1).SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);
Funciona pero
GetsiiSOAP(true, '', HTTPRIO1).SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);
da el error anterior, y creo recordar que cuando hice las pruebas las dos llamadas eran correctas. ¿puede ser que hayan puesto algun tipo de seguridad para los wsdl que no funcione en delphi ? En el navegador no hay ningun problema.

Código Delphi [-]
function GetsiiSOAP(UseWSDL: boolean; Addr: string; HTTPRIO: THTTPRIO): siiSOAP;
const
//  defWSDL = 'http://www.agenciatributaria.es/static_files/AEAT/Contenidos_Comunes/La_Agencia_Tributaria/Modelos_y_formularios/Suministro_inmediato_informacion/FicherosSuministros/V_1_1/SuministroFactEmitidas.wsdl';
//  defWSDL = 'https://www.agenciatributaria.es/static_files/Sede/Procedimiento_ayuda/G417/FicherosSuministros/V_1_1/WSDL/SuministroFactEmitidas.xml';
  defWSDL = 'https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroEmitidas.wsdl';
  defURL = 'https://www1.agenciatributaria.gob.es/wlpl/SSII-FACT/ws/fe/SiiFactFEV1SOAP';
  defSvc = 'siiService';
  defPrt  = 'SuministroFactEmitidas';
// defPrt = 'SuministroFactEmitidasPruebas';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as siiSOAP);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end
    else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;