Facturas electrónicas [España]

[espinete]

Bueno, creo que funciona

He conseguido obtener el listado de Administraciones, que también requiere una petición soap firmada. No puedo enviar captura de pantalla porque los límites de tamaño y dimensiones para los archivos son un tanto peculiares en el foro...

Mañana intentaré enviar una factura (necesitaría saber qué código de administración es válido) y poner el código que he usado

[elguille]

Espinete, ¿lo has conseguido? ¿Puedes ilustrarnos?

Gracias

[espinete]

Hola!

Pues sí, creo que lo tengo todo, a falta de probar en modo producción.
Esta semana ha habido varios cortes del servicio (avisan por email cuando tienen previsto uno), pero conseguí hacer pruebas para enviar una factura, consultar el estado de una factura, obtener el listado de organismos disponibles, anular una factura, etc.

Mañana intentaré poner algunos ejemplos, pero ahora mismo tengo este a mano: Consultar Administraciones:

Código Delphi [-]
procedure TfrmMain.Button3Click(Sender: TObject);
var
    answ : ConsultarAdministracionesResponse;
    htpr: THTTPRIO;
    sphdr: TSOAPHEADER;
    WS: FacturaSSPPWebServiceProxyPort;
    UnidadDir : UnidadDir3;
    i:integer;
begin
    if comboCertificate.ItemIndex=-1 then
    begin
      showmessage('Debe seleccionar primero un certificado en el desplegable.');
      exit;
    end;
    
    Listbox1.items.clear;

        //Creamos los headers, necesarios para la petición SOAP
        sphdr := TSOAPHEADER.create;

        // Creo el HTTP, que utilizaré como vehículo
        htpr := THTTPRIO.create(Self);

        //Aquí trabajamos con el propio httprio, donde podemos poner cabeceras, asignar eventos, etc...

        htpr.SOAPHeaders.Send(sphdr);
        htpr.OnBeforeExecute := HTTPRIO1BeforeExecute;

        // Al crear la instancia del WS, le asigno el httprio que he creado y he manipulado...
        WS:= GetFacturaSSPPWebServiceProxyPort(FALSE, '', htpr);
        try
            answ := WS.consultarAdministraciones;
        except
            on e:exception do showmessage(e.Message);
        end;

        if answ.resultado.codigo='0' then
        begin
            UnidadDir := UnidadDir3.Create;
            for i:=0 to length(answ.administraciones)-1 do
            begin
                UnidadDir := answ.administraciones[i];
                begin
                    listbox1.items.append(UnidadDir.codigo + ' - ' + UnidadDir.nombre )
                end;
            end;
            UnidadDir.Free;
        end;
end;

El evento HTTPRIO1BeforeExecute creo recordar que ya lo publiqué en otro post más arriba.
Cuando tenga más tiempo editaré el post original añadiendo todas las funciones.

[[newtron]]

Hola.

¿Qué pasó al final con este tema?

Saludos

[Ñuño Martínez]

Iba a ponerte un enlace, pero creo que ya has encontrado el hilo tú mismo.

[[newtron]]

Empezado por Ñuño Martínez

Iba a ponerte un enlace, pero creo que ya has encontrado el hilo tú mismo.

¿Qué hilo?

[Ñuño Martínez]

Empezado por newtron

¿Qué hilo?

Este, ¿no?

[bey23]

Hola!

Actualmente estoy buscando información sobre FACe, cómo subir las facturas automáticamente, y visto lo visto hay poquísima documentación sobre esto o ejemplos.

Me he leído de pe a pa todo este hilo, y por cierto, sois unos máquinas!!

Sólo quería preguntar si ahora mismo conseguisteis completar el proceso, crear el XML firmado y subirlo automáticamente, y si está en algún sitio ese proyecto o ejemplos del mismo...

Lo siento si es un tema que ya estaba cerrado, pero la verdad es que me urge y este es el único foro que de verdad se lo ha estado currando.

Muchas gracias a todos!!

[manelb]

Nosotros hemos ido atacando el proyecto por fases.
Ahora generamos el xml de la factura y lo firmamos, pero tenemos pendiente el envío directo a FACE.

Supongo que en unas semanas como mucho volveremos al proyecto y debe servirnos como experiencia el trabajo realizado con el SII.

Si queréis podemos mantener este hilo para ir compartiendo avances o, si a los moderadores les parece mejor, crear un hilo nuevo.

Saludo

[[newtron]]

Espinete en su último post comentaba que lo había conseguido y que pondría unos ejemplos pero al final ahí se quedó la cosa.

Saludos

[[newtron]]

Buenas a tod@s.

Voy a intentar ponerme con este tema.

¿Alguien ha avanzado algo con respecto a lo que ya hay por aquí?

Saludos