|
yo una vez tuve que hacer eso tambien, lo que hice fue hacer un batch-input a la transaccion y que agegara el texto desde ahi... me funciona muy bien
y ademas le agrega la linea de fecha-hora-usuario que lo hace por default el SAP...
te dejo el codigo del batch que utilice... saludos...
data name like stxl-tdname.
name = cliente_grid_info-qmnum.
perform bdc_dynpro using 'SAPLIQS0' '0100'.
perform bdc_field using 'BDC_CURSOR'
'RIWO00-QMNUM'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RIWO00-QMNUM'
cliente_grid_info-qmnum.
perform bdc_dynpro using 'SAPLIQS0' '7200'.
perform bdc_field using 'BDC_OKCODE'
'=TXQM'.
perform bdc_dynpro using 'SAPLSTXX' '1100'.
perform bdc_field using 'BDC_OKCODE'
'=TXBA'.
" change position
perform bdc_field using 'BDC_OKCODE'
'=EDPO'.
perform bdc_dynpro using 'SAPLSTXX' '1155'.
perform bdc_field using 'BDC_CURSOR'
'RSTXT-TXLINENR'.
perform bdc_field using 'BDC_OKCODE'
'=EDWE'.
refresh u_data.
call function 'READ_TEXT'
exporting
client = sy-mandt
language = 'S'
object = 'QMEL'
id = 'LTXT'
name = name
tables
lines = u_data
exceptions
others = 1.
data linec type i.
data linet(3) type c.
describe table u_data lines linec. linec = linec + 2.
write linec to linet left-justified.
perform bdc_field using 'RSTXT-TXLINENR'
linet.
perform bdc_dynpro using 'SAPLSTXX' '1100'.
perform bdc_field using 'BDC_OKCODE'
'=TXBA'.
data n type i value 2.
data field(20) type c.
loop at t_data into s_data.
data nc(3) type c.
write n to nc left-justified.
concatenate 'RSTXT-TXLINE(' nc ')' into field.
perform bdc_field using field s_data-tdline.
n = n + 1.
endloop.
perform bdc_dynpro using 'SAPLIQS0' '7200'.
perform bdc_field using 'BDC_OKCODE'
'=BUCH'.
perform bdc_field using 'BDC_CURSOR'
'VIQMEL-QMTXT'.
|