Estimado amigo Abapero mira para bajar el sapscript a un pdf necesitas realizar los siguientes pasos:
1.-Declarar ciertas variables que seran utilizadas en nuestras funciones.
data: itcpo like itcpo,
itcpp like itcpp,
itcoo like itcoo occurs 0 with header line.
data: r_file2 type string.
data: pdf_file(132) type c occurs 0 with header line.
data: bin_filesize(4) type i.
data: lines like tline occurs 100 with header line.
2.-En la parte del selection options una variable para guardar el directorio donde quieras dejar el pdf.
parameters: p_file(128) type c default 'C:\downpdf.pdf'.
3.-En la llamada a la funcion "OPEN_FORM" aparte de lo tuyo agregas estos parametros.
exporting
options = itcpo
importing
result = itcpp
todos tus demas parametros igual ok.
4.-El "WRITE_FORM" se queda intacta la ejecutas de la forma en la que lo estas haciendo ningun cambio.
5.-En el "CLOSE_FORM" agregas esto en los parametros.
tables
otfdata = itcoo
NOTA: Que haces con estos dejas guardado el sapscript en un formato Otf en esa tabla itcoo.
6.-La pieza clave de todo esto essss.... taran es la llamada a la funcion "CONVERT_OTF" y quedaria de la siguiente forma.
call function 'CONVERT_OTF'
exporting
format = 'PDF'
max_linewidth = 132
importing
bin_filesize = bin_filesize
tables
otf = itcoo
lines = lines
exceptions
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
err_bad_otf = 4
others = 5
7.-Finalmente usas la funcion "GUI_DOWNLOAD" para bajar tu archivo al directorio indicado y agregar los demas parametros a como estes acostumbrado quedaria algo asi siguiendo el orden en este programa.
move p_file to r_file2.
call function 'GUI_DOWNLOAD'
exporting
bin_filesize = bin_filesize
filename = r_file2
filetype = 'BIN'
tables
data_tab = lines
Seria todo espero verte ayuda y suerte!!!.
__________________
01010000
01001010
10011000
10100001
De Byte a Beat.
|