¿Como enviar facturas al web service?

[Neftali [Germán.Estévez]]

En este mensaje tienes un programa de ejemplo "completo" que ha publicado un forero (seccion_31) que incluye el envío del fichero utilizando HTTPRio.
El código fuente está disponible en Github, puedes revisarlo.


El código simplificado es algo así:

Código Delphi [-]
      // --> envío pre-produccion:  'https://prewww1.aeat.es/wlpl/TIKE-CONT/ws/SistemaFacturacion/VerifactuSOAP';
      try
          HTTPRIO1.HTTPWebNode.ClientCertificate.SerialNum := Buscar_Certificado_SERIAL( comboCertificados.text );  // coloca el certificado
          direccion_envio := editURL.text;
          if sender=soloXML then HTTPRIO1.Tag:=1                                                                             // 0-envio  1-generar XML
                            else HTTPRIO1.Tag:=0;                                                                            // 0-envio  1-generar XML
          res:=   RespuestaRegFactuSistemaFacturacionType.Create;
          res:=   GetsfPortTypeVerifactu( false, direccion_envio , HTTPRIO1 ).RegFactuSistemaFacturacion( veriFactu );        // enviarlo !
          // resultado del envio:   (se colocara el csv si la factura ha sido aceptada, en la base de datos: facturas.xml)
          procesarEnvio(res);
      except
            on E:Exception do
                  memoRes.text  :=Format('Error al realizar el envío; (%s)-%s',[E.ClassName, E.Message]);
      end;