|
#1
|
||||
|
||||
Que creen ya lo corregi fue error de Interfaz de Usuario Jajajaja QUIERO LLORAR
chequen: Variables Globales DATA: v_procesa(1) TYPE c, "Indicador de proceso v_campo(30) TYPE c, v_ind(2) TYPE n, v_flag(1) TYPE c VALUE 'X', v_tabix TYPE sy-tabix, v_cprog LIKE sy-cprog. **************************** FORM desplegar_alv . CLEAR: v_procesa. PERFORM crear_catalogo. PERFORM arregla_catalogo. PERFORM otras_variables. PERFORM events. PERFORM llamadaalv. ENDFORM. ****************************** FORM crear_catalogo . DATA: v_prog LIKE sy-repid. v_prog = sy-cprog. CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE' EXPORTING i_program_name = v_prog i_internal_tabname = 'T_LOG' * I_STRUCTURE_NAME = * I_CLIENT_NEVER_DISPLAY = 'X' i_inclname = v_prog i_bypassing_buffer = 'X' * I_BUFFER_ACTIVE = CHANGING ct_fieldcat = row_fieldcat[] EXCEPTIONS inconsistent_interface = 1 program_error = 2 OTHERS = 3. IF sy-subrc <> 0. ENDIF. ENDFORM. **************************** FORM llamadaalv . CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING * I_INTERFACE_CHECK = ' ' * I_BYPASSING_BUFFER = ' ' * I_BUFFER_ACTIVE = ' ' i_callback_program = v_cprog * I_CALLBACK_PF_STATUS_SET = ' ' * I_CALLBACK_USER_COMMAND = ' ' I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE' i_grid_settings = row_grid_settings is_layout = row_layout it_fieldcat = row_fieldcat[] i_save = 'A' is_variant = row_variant it_events = str_xevents[] * IT_EVENT_EXIT = is_print = row_print TABLES t_outtab = t_log. AHORA LO RARO ES OPR QUE NO TRONO ENDFORM. " LLAMADAALV
__________________
01010000 01001010 10011000 10100001 De Byte a Beat. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|