Ver Mensaje Individual
  #1  
Viejo 23/01/08, 16:36:06
Avatar de Rodolfo Montiel Rivera
Rodolfo Montiel Rivera Rodolfo Montiel Rivera is offline
Member
 
Fecha de Ingreso: oct 2007
Mensajes: 92
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.
Responder Con Cita