Facturas electrónicas [España]

[[newtron]]

Empezado por elguille

Código Delphi [-]var miarr:arrayofanexofile; miarr1:anexofile; if edit1.Text<>'' then begin MIARR1:=anexofile.create; miarr1.mime:='application/pdf'; MIARR1.nombre:=utf8encode(extractfilename(EDIT1.Text)); MIARR1.anexo:=Encode64(tfile.ReadAllText(edit1.Text),tetUTF8); SetLength(miarr, Length(miarr)+1); miarr[0]:=miarr1; SenderEnviarFactura.anexos := miarr; end;

A falta de hacer una prueba real este es el codigo correcto para añadir un pdf de imagen de la factura.

muchas gracias por la info, el que primero lo pruebe que lo confirme.


Saludos