Facturas electrónicas [España]

[espinete]

Hola, Netfali

El error que obtengo es el mismo que utilizando la otra forma de hacer el envío:

La petición SOAP no está bien construida: No se encuentra el SOAP Header

El componente HTTPRIO está bien configurado (igual que en tu imagen).

Así ha quedado el código por ahora:

Código Delphi [-]
var facturasspp : SSPPFactura;
    fichero_fac : SSPPFicheroFactura;
    answ : SSPPResultadoEnviarFactura;
    PO:SSPPWebServiceProxyPort;
begin
    if opendialog1.Execute then   //Para elegir el .XML que queremos enviar al webservice
    begin
          PO := GetSSPPWebServiceProxyPort(FALSE, '', nil);
          facturasspp := ssppfactura.Create;
          facturasspp.correo := 'XXXXXXXXXX';

          fichero_fac := ssppficherofactura.Create;
          fichero_fac.nombre := extractfilename(opendialog1.FileName);
          fichero_fac.factura := '72345';
          fichero_fac.mime := 'application/xml';

          facturasspp.fichero_factura := fichero_fac;

          try
              answ := (HTTPRIO1 as SSPPWebServiceProxyPort).enviarFactura(facturasspp);
          except
              on e:exception do showmessage(e.Message);
          end;
    end;

end;