*Forma 1 Esta forma es con metodo de la clase
MODULE get_cursor INPUT.
CREATE OBJECT fw.
CALL METHOD cl_framework_mm=>get_instance
IMPORTING
ex_instance = obj_cl_framework_mm.
var_cursor = obj_cl_framework_mm->get_cursor( ).
ENDMODULE. " get_cursor INPUT
*&---------------------------------------------------------------------*
*Forma2 Aqui necesitas declarar una variable selec en la pantalla del dynpro
MODULE linea INPUT.
CLEAR: var_documento,
var_posicion.
IF selec = 'X'.
MOVE itab_reporte-ebelp TO var_posicion.
MOVE itab_reporte-ebeln TO var_documento.
ENDIF.
ENDMODULE.
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
CLEAR: ok_code.
ok_code = sy-ucomm.
CASE sy-dynnr.
WHEN '0100'.
CASE ok_code.
WHEN 'CLIC'.
*Forma 3 Declaras en el menu esa codigo de funcion y utilizas el get cursor
GET CURSOR LINE var_posicion.
var_documento = itab_reporte-ebeln.
PERFORM ejecutar_busqueda USING var_documento var_posicion
ENDCASE.
ENDCASE.
ENDMODULE.
*----------------------------------------------------------------------*
* Definición de Variables
*----------------------------------------------------------------------*
DATA: var_ebeln LIKE ekko-ebeln,
var_documento LIKE ekko-ebeln,
var_posicion LIKE ekpo-ebelp.
DATA: obj_cl_framework_mm TYPE REF TO cl_framework_mm,
var_cursor TYPE mmpur_cursor_position.
Suerte!!
__________________
01010000
01001010
10011000
10100001
De Byte a Beat.
|