|
popud_get_values
Hola
Cheque este codigo que he utilizado para llamar a esta funcion:
START-OF-SELECTION.
MOVE: 'BNKA' TO TINTERNA-TABNAME,
'BANKL' TO TINTERNA-FIELDNAME.
APPEND TINTERNA. CLEAR TINTERNA.
CALL FUNCTION 'POPUP_GET_VALUES'
EXPORTING
* NO_VALUE_CHECK = ' '
POPUP_TITLE = 'Selección..'
START_COLUMN = '5'
START_ROW = '5'
IMPORTING
RETURNCODE = VAR
TABLES
FIELDS = TINTERNA
EXCEPTIONS
ERROR_IN_FIELDS = 1
OTHERS = 2.
IF VAR EQ 'A'.
leave program.
elseif var is initial.
if tinterna-value eq ' '.
leave program.
else.
case tinterna-value.
when 'BAN01'.
call screen 100.
when others.
endcase.
endif.
endif.
Espero haberte ayudado
Saludos
__________________
GregoryG
|