Ejemplos De Codigo util

[seccion_31]

Este otro codigo, guarda en una base de datos de incidencias, problemas tecnicos de envio:

    ok:=Verifactu.envio( resultado );

    if not resultado.envioOk then 	// el envio ha sido fallido por causas tecnicas (ha salido del try... except)
    begin
                // lo anotamos en el libro de incidencias
                for f:=1 to resultado.nFacturas do
                begin
                       dbIncidencias.insert;							
               	       dbIncidencias.fieldbyName('fecha').asdatetime:=date;
    		       dbIncidencias.fieldbyName('hora').text:=timetostr(time);
                       dbIncidencias.fieldbyName('motivo').text:=resultado.error;
                       dbIncidencias.fieldbyName('NumSerie').text:=resultado.facturas[f].NumSerieFactura;
    		       dbIncidencias.post;
                end;
    end;