Ver Mensaje Individual
  #3  
Viejo 15/09/09, 16:57:38
johava johava is offline
Member
 
Fecha de Ingreso: abr 2007
Mensajes: 75
Call Transaction Desde Alv

MIKE, si estoy haciendo el read, te mando el codigo completo

form user_command using r_ucomm like sy-ucomm

rs_selfield type slis_selfield.
case r_ucomm.
when '&IC1'. "Doble Click

* Determina el campo (pago, doc compensado, factura, rpc) por el cual se desea ver detalle de documento
read table t_faccom index rs_selfield-tabindex.
if sy-subrc = 0.


case rs_selfield-fieldname.

when 'BELNR'. "Documento de pago

set parameter id 'BLN' field t_faccom-belnr.
set parameter id 'GJR' field t_faccom-gjahr.
set parameter id 'BUK' field t_faccom-bukrs.
call transaction 'FB03' and skip first screen.


when 'REBZG'. "Documento factura

set parameter id 'BLN' field t_faccom-rebzg.
set parameter id 'GJR' field t_faccom-gjahr1.
set parameter id 'BUK' field t_faccom-bukrs.
call transaction 'FB03' and skip first screen.

when 'AUGBL'. "Documento compensación

set parameter id 'BLN' field t_faccom-augbl.
set parameter id 'GJR' field t_faccom-gjahr2.
set parameter id 'BUK' field t_faccom-bukrs.
call transaction 'FB03' and skip first screen.

when 'VREFBN'. "Documento rpc

if t_faccom-wrttp = '65'.
set parameter id 'KBL' field t_faccom-vrefbn.
set parameter id 'KBP' field ' '.
call transaction 'FMZ3' and skip first screen.
else.
set parameter id 'BES' field t_faccom-vrefbn.
call transaction 'ME23N' and skip first screen.
endif.



endcase.


endif.
endcase.


endform. "USER_COMMAND
Responder Con Cita