✒️ABAP / La ejecución de la transacción de diálogo Por Oscar Rodriguez Villate

EJECUCION DE UN PROGRAMA DE DIALOGO

El programa principal tiene 4 includes

INCLUDE: zprueba_dialogo_top, "para declarar datos zprueba_dialogo_pbo, "almacenar codigo del pbo zprueba_dialogo_pai, "almacenar codigo del pai zprueba_dialogo_sub. "para almacenar todo el codigo propio de la tabla de control
en cada dynpro esta:
PROCESS BFORE OUTPUT
MODULE STATUS_0XXX
MODULE CARGAR_CAMPOS_0XXX. PROCESS AFTER INPUT.
MODULE EXIT_0XXX AT EXIT-COMMAND. MODULE USER_COMMAND_0XXX.

Procesamiento de la dynpro 0200 Miramos su layout Ahora analizamos los módulos de la dynpro 0200 El que setea el status gui y el título de la dynpro El modulo del PBO cargar_tc_0200 carga la tabla de control con los campos que se seleccionan de la tabla de usuarios a partir del dni introducido en la dynpro 0100 Acá vemos la lógica que se genera automáticamente para el tratamiento de la tabla de control El modulo exit_0200 vuelve a la dynpro anterior El módulo PAI User-command_0200 analiza la acción realizada por el usuario, si presiono cancelar vuelve a la dynpro 0100, si presiono Modificar valida que si haya seleccionado una fila de la tabla de control, si esto se cumple llama a la dynpro 0300, sino emite un mensaje de error Logia de procesamiento 0300 Miramos el modulo status 0300 Es el que setea el status gui y el título de la dynpro El modulo del PBO 0300 La que se encarga de llenar la pantalla con datos El modulo del PAI 0300 llama a la dynpro anterior El modulo del PAI user_command_0300 analiza la acción realizada por el usuario, si presiona cancelar vuelve a la dynpro 0100, si presiona modificar ejecutara un popap para confirmar la modificaión si responde si modificara la tabla bases de datos

*&---------------------------------------------------------------------* *& Module Pool ZPRUEBA_DIALOGO *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* PROGRAM zprueba_dialogo. INCLUDE: zprueba_dialogo_top, zprueba_dialogo_pbo, zprueba_dialogo_pai, zprueba_dialogo_sub. *&---------------------------------------------------------------------* *& Include ZPRUEBA_DIALOGO_TOP *&---------------------------------------------------------------------* TYPE-POOLS: slis. DATA: BEGIN OF ti_usuarios OCCURS 0, marca(1) TYPE c, dni TYPE z_dni, nombre_ape TYPE z_nombre_ape, estado_usu TYPE z_estado_usu, direccion TYPE z_direccion, codigo_postal TYPE z_codigo_postal, f_nacimiento TYPE z_fnacimiento, estado_civil TYPE z_estado_civil, END OF ti_usuarios. DATA: st_usuarios LIKE LINE OF ti_usuarios, ti_botones TYPE slis_t_extab. DATA: BEGIN OF ti_usuarios_aux OCCURS 0, dni TYPE z_dni, nombre_ape TYPE z_nombre_ape, estado_usu TYPE z_estado_usu, direccion TYPE z_direccion, codigo_postal TYPE z_codigo_postal, f_nacimiento TYPE z_fnacimiento, estado_civil TYPE z_estado_civil, END OF ti_usuarios_aux. DATA: st_usuarios_aux LIKE LINE OF ti_usuarios_aux. DATA: BEGIN OF wa_screen_0100, dni TYPE z_dni, END OF wa_screen_0100. DATA: v_ucomm TYPE sy-ucomm, v_dni LIKE wa_screen_0100-dni, v_cantidad TYPE i, v_answer(1) TYPE c, st_tabla_usuarios TYPE ztabla_usuarios. DATA: BEGIN OF wa_screen_0300, dni TYPE z_dni, nombre_ape TYPE z_nombre_ape, estado_usu TYPE z_estado_usu, direccion TYPE z_direccion, codigo_postal TYPE z_codigo_postal, f_nacimiento TYPE z_fnacimiento, estado_civil TYPE z_estado_civil, END OF wa_screen_0300. *&SPWIZARD: DECLARATION OF TABLECONTROL 'TC_USUARIOS' ITSELF CONTROLS: tc_usuarios TYPE TABLEVIEW USING SCREEN 0200. *&SPWIZARD: LINES OF TABLECONTROL 'TC_USUARIOS' DATA: g_tc_usuarios_lines LIKE sy-loopc. DATA: ok_code LIKE sy-ucomm. *&SPWIZARD: FUNCTION CODES FOR TABSTRIP 'TS_USUARIOS' CONSTANTS: BEGIN OF c_ts_usuarios, tab1 LIKE sy-ucomm VALUE 'TS_USUARIOS_FC1', tab2 LIKE sy-ucomm VALUE 'TS_USUARIOS_FC2', tab3 LIKE sy-ucomm VALUE 'TS_USUARIOS_FC3', END OF c_ts_usuarios. *&SPWIZARD: DATA FOR TABSTRIP 'TS_USUARIOS' CONTROLS: ts_usuarios TYPE TABSTRIP. DATA: BEGIN OF g_ts_usuarios, subscreen LIKE sy-dynnr, prog LIKE sy-repid VALUE 'ZPRUEBA_DIALOGO', pressed_tab LIKE sy-ucomm VALUE c_ts_usuarios-tab1, END OF g_ts_usuarios. *&---------------------------------------------------------------------* *& Include ZPRUEBA_DIALOGO_PBO *&---------------------------------------------------------------------* *&SPWIZARD: OUTPUT MODULE FOR TC 'TC_USUARIOS'. DO NOT CHANGE THIS LINE! *&SPWIZARD: UPDATE LINES FOR EQUIVALENT SCROLLBAR MODULE tc_usuarios_change_tc_attr OUTPUT. DESCRIBE TABLE ti_usuarios LINES tc_usuarios-lines. ENDMODULE. "TC_USUARIOS_CHANGE_TC_ATTR OUTPUT *&SPWIZARD: OUTPUT MODULE FOR TC 'TC_USUARIOS'. DO NOT CHANGE THIS LINE! *&SPWIZARD: GET LINES OF TABLECONTROL MODULE tc_usuarios_get_lines OUTPUT. g_tc_usuarios_lines = sy-loopc. ENDMODULE. "TC_USUARIOS_GET_LINES OUTPUT *&---------------------------------------------------------------------* *& Module STATUS_0200 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0200 OUTPUT. SET PF-STATUS '0200'. SET TITLEBAR '0200'. ENDMODULE. " STATUS_0200 OUTPUT *&---------------------------------------------------------------------* *& Module STATUS_0300 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0300 OUTPUT. SET PF-STATUS '0300'. SET TITLEBAR '0300'. ENDMODULE. " STATUS_0300 OUTPUT *&SPWIZARD: OUTPUT MODULE FOR TS 'TS_USUARIOS'. DO NOT CHANGE THIS LINE! *&SPWIZARD: SETS ACTIVE TAB MODULE ts_usuarios_active_tab_set OUTPUT. ts_usuarios-activetab = g_ts_usuarios-pressed_tab. CASE g_ts_usuarios-pressed_tab. WHEN c_ts_usuarios-tab1. g_ts_usuarios-subscreen = '0101'. WHEN c_ts_usuarios-tab2. g_ts_usuarios-subscreen = '0102'. WHEN c_ts_usuarios-tab3. g_ts_usuarios-subscreen = '0103'. WHEN OTHERS. *&SPWIZARD: DO NOTHING ENDCASE. ENDMODULE. "TS_USUARIOS_ACTIVE_TAB_SET OUTPUT *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS '0100'. SET TITLEBAR '0100'. ENDMODULE. " STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& Module CARGAR_TC_0200 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE cargar_tc_0200 OUTPUT. CLEAR: ti_usuarios_aux, st_usuarios, ti_usuarios. REFRESH: ti_usuarios_aux, ti_usuarios. IF NOT wa_screen_0100-dni IS INITIAL. * Recupero solo el dni introducido SELECT dni nombre_ape estado_usu direccion codigo_postal f_nacimiento estado_civil FROM ztabla_usuarios INTO TABLE ti_usuarios_aux WHERE dni EQ wa_screen_0100-dni. ELSE. * Recupero todos los DNIs SELECT dni nombre_ape estado_usu direccion codigo_postal f_nacimiento estado_civil FROM ztabla_usuarios INTO TABLE ti_usuarios_aux. ENDIF. * Pasamos el contenido a la tabla del TC LOOP AT ti_usuarios_aux INTO st_usuarios_aux. CLEAR st_usuarios. st_usuarios-dni = st_usuarios_aux-dni. st_usuarios-nombre_ape = st_usuarios_aux-nombre_ape. st_usuarios-estado_usu = st_usuarios_aux-estado_usu. st_usuarios-direccion = st_usuarios_aux-direccion. st_usuarios-codigo_postal = st_usuarios_aux-codigo_postal. st_usuarios-f_nacimiento = st_usuarios_aux-f_nacimiento. st_usuarios-estado_civil = st_usuarios_aux-estado_civil. APPEND st_usuarios TO ti_usuarios. ENDLOOP. ENDMODULE. " CARGAR_TC_0200 OUTPUT *&---------------------------------------------------------------------* *& Module EXIT_0300 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE exit_0300 INPUT. CALL SCREEN 0200. ENDMODULE. " EXIT_0300 INPUT *&---------------------------------------------------------------------* *& Module CARGAR_CAMPOS_0300 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE cargar_campos_0300 OUTPUT. READ TABLE ti_usuarios INTO st_usuarios WITH KEY marca = 'X'. IF sy-subrc EQ 0. CLEAR wa_screen_0300. wa_screen_0300-dni = st_usuarios-dni. wa_screen_0300-nombre_ape = st_usuarios-nombre_ape. wa_screen_0300-estado_usu = st_usuarios-estado_usu. wa_screen_0300-direccion = st_usuarios-direccion. wa_screen_0300-f_nacimiento = st_usuarios-f_nacimiento. wa_screen_0300-estado_civil = st_usuarios-estado_civil. ENDIF. ENDMODULE. " CARGAR_CAMPOS_0300 OUTPUT *&---------------------------------------------------------------------* *& Include ZPRUEBA_DIALOGO_PAI *&---------------------------------------------------------------------* *&SPWIZARD: INPUT MODUL FOR TC 'TC_USUARIOS'. DO NOT CHANGE THIS LINE! *&SPWIZARD: MARK TABLE MODULE tc_usuarios_mark INPUT. DATA: g_tc_usuarios_wa2 LIKE LINE OF ti_usuarios. IF tc_usuarios-line_sel_mode = 1 AND st_usuarios-marca = 'X'. LOOP AT ti_usuarios INTO g_tc_usuarios_wa2 WHERE marca = 'X'. g_tc_usuarios_wa2-marca = ''. MODIFY ti_usuarios FROM g_tc_usuarios_wa2 TRANSPORTING marca. ENDLOOP. ENDIF. MODIFY ti_usuarios FROM st_usuarios INDEX tc_usuarios-current_line TRANSPORTING marca. ENDMODULE. "TC_USUARIOS_MARK INPUT *&SPWIZARD: INPUT MODULE FOR TC 'TC_USUARIOS'. DO NOT CHANGE THIS LINE! *&SPWIZARD: PROCESS USER COMMAND MODULE tc_usuarios_user_command INPUT. ok_code = sy-ucomm. PERFORM user_ok_tc USING 'TC_USUARIOS' 'TI_USUARIOS' 'MARCA' CHANGING ok_code. sy-ucomm = ok_code. ENDMODULE. "TC_USUARIOS_USER_COMMAND INPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. MOVE ok_code TO v_ucomm. CLEAR ok_code. CASE v_ucomm. * Borrar DNI WHEN 'BORRAR'. CLEAR wa_screen_0100-dni. WHEN 'BUSCAR_USU'. CALL SCREEN 0200 STARTING AT 5 1 ENDING AT 130 25. ENDCASE. ENDMODULE. " USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0200 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0200 INPUT. MOVE ok_code TO v_ucomm. CLEAR ok_code. CASE v_ucomm. WHEN 'CANCELAR'. CALL SCREEN 0100. WHEN 'MODIFICAR'. * Sumarizo la cantidad de filas seleccionadas CLEAR v_cantidad. LOOP AT ti_usuarios INTO st_usuarios WHERE marca EQ 'X'. ADD 1 TO v_cantidad. ENDLOOP. IF v_cantidad IS INITIAL. MESSAGE e003(z_prueba) WITH 'Debe seleccionar al menos un registro'. ELSEIF v_cantidad EQ 1. CALL SCREEN 0300. ENDIF. ENDCASE. ENDMODULE. " USER_COMMAND_0200 INPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0300 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0300 INPUT. MOVE ok_code TO v_ucomm. CLEAR ok_code. CASE v_ucomm. WHEN 'CANCELAR'. CALL SCREEN 0100. WHEN 'CONFIRMAR'. CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = 'Confirmación' text_question = 'Está seguro que desea modificar?' text_button_1 = 'Si' text_button_2 = 'No' display_cancel_button = ' ' IMPORTING answer = v_answer EXCEPTIONS text_not_found = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ELSE. IF v_answer EQ '1'. CLEAR st_tabla_usuarios. st_tabla_usuarios-mandt = sy-mandt. st_tabla_usuarios-dni = wa_screen_0300-dni. st_tabla_usuarios-nombre_ape = wa_screen_0300-nombre_ape. st_tabla_usuarios-estado_usu = wa_screen_0300-estado_usu. st_tabla_usuarios-direccion = wa_screen_0300-direccion. st_tabla_usuarios-f_nacimiento = wa_screen_0300-f_nacimiento. st_tabla_usuarios-estado_civil = wa_screen_0300-estado_civil. MODIFY ztabla_usuarios FROM st_tabla_usuarios. IF sy-subrc EQ 0. COMMIT WORK AND WAIT. MESSAGE s003(z_prueba) WITH 'Los datos han sido modificados correctamente'. CALL SCREEN 0100. ELSE. ROLLBACK WORK. ENDIF. ENDIF. ENDIF. ENDCASE. ENDMODULE. " USER_COMMAND_0300 INPUT *&SPWIZARD: INPUT MODULE FOR TS 'TS_USUARIOS'. DO NOT CHANGE THIS LINE! *&SPWIZARD: GETS ACTIVE TAB MODULE ts_usuarios_active_tab_get INPUT. ok_code = sy-ucomm. CASE ok_code. WHEN c_ts_usuarios-tab1. g_ts_usuarios-pressed_tab = c_ts_usuarios-tab1. WHEN c_ts_usuarios-tab2. g_ts_usuarios-pressed_tab = c_ts_usuarios-tab2. WHEN c_ts_usuarios-tab3. g_ts_usuarios-pressed_tab = c_ts_usuarios-tab3. WHEN OTHERS. *&SPWIZARD: DO NOTHING ENDCASE. ENDMODULE. "TS_USUARIOS_ACTIVE_TAB_GET INPUT *&---------------------------------------------------------------------* *& Module EXIT INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE exit_0100 INPUT. LEAVE PROGRAM. ENDMODULE. " EXIT INPUT *&---------------------------------------------------------------------* *& Module VALIDAR_DNI_0100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE validar_dni_0100 INPUT. IF NOT wa_screen_0100-dni IS INITIAL. CLEAR v_dni. SELECT SINGLE dni FROM ztabla_usuarios INTO v_dni WHERE dni = wa_screen_0100-dni. IF sy-subrc NE 0. MESSAGE e003(z_prueba) WITH 'El DNI introducido no existe'. ENDIF. ENDIF. ENDMODULE. " VALIDAR_DNI_0100 INPUT *&---------------------------------------------------------------------* *& Module EXIT_0200 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE exit_0200 INPUT. LEAVE TO SCREEN 0100. ENDMODULE. " EXIT_0200 INPUT *&---------------------------------------------------------------------* *& Include ZPRUEBA_DIALOGO_SUB *&---------------------------------------------------------------------* *----------------------------------------------------------------------* * INCLUDE TABLECONTROL_FORMS * *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Form USER_OK_TC * *&---------------------------------------------------------------------* FORM USER_OK_TC USING P_TC_NAME TYPE DYNFNAM P_TABLE_NAME P_MARK_NAME CHANGING P_OK LIKE SY-UCOMM. *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA: L_OK TYPE SY-UCOMM, L_OFFSET TYPE I. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* *&SPWIZARD: Table control specific operations * *&SPWIZARD: evaluate TC name and operations * SEARCH P_OK FOR P_TC_NAME. IF SY-SUBRC <> 0. EXIT. ENDIF. L_OFFSET = STRLEN( P_TC_NAME ) 1. L_OK = P_OK L_OFFSET. *&SPWIZARD: execute general and TC specific operations * CASE L_OK. WHEN 'INSR'. "insert row PERFORM FCODE_INSERT_ROW USING P_TC_NAME P_TABLE_NAME. CLEAR P_OK. WHEN 'DELE'. "delete row PERFORM FCODE_DELETE_ROW USING P_TC_NAME P_TABLE_NAME P_MARK_NAME. CLEAR P_OK. WHEN 'P--' OR "top of list 'P-' OR "previous page 'P ' OR "next page 'P '. "bottom of list PERFORM COMPUTE_SCROLLING_IN_TC USING P_TC_NAME L_OK. CLEAR P_OK. * WHEN 'L--'. "total left * PERFORM FCODE_TOTAL_LEFT USING P_TC_NAME. * * WHEN 'L-'. "column left * PERFORM FCODE_COLUMN_LEFT USING P_TC_NAME. * * WHEN 'R '. "column right * PERFORM FCODE_COLUMN_RIGHT USING P_TC_NAME. * * WHEN 'R '. "total right * PERFORM FCODE_TOTAL_RIGHT USING P_TC_NAME. * WHEN 'MARK'. "mark all filled lines PERFORM FCODE_TC_MARK_LINES USING P_TC_NAME P_TABLE_NAME P_MARK_NAME . CLEAR P_OK. WHEN 'DMRK'. "demark all filled lines PERFORM FCODE_TC_DEMARK_LINES USING P_TC_NAME P_TABLE_NAME P_MARK_NAME . CLEAR P_OK. * WHEN 'SASCEND' OR * 'SDESCEND'. "sort column * PERFORM FCODE_SORT_TC USING P_TC_NAME * l_ok. ENDCASE. ENDFORM. " USER_OK_TC *&---------------------------------------------------------------------* *& Form FCODE_INSERT_ROW * *&---------------------------------------------------------------------* FORM fcode_insert_row USING P_TC_NAME TYPE DYNFNAM P_TABLE_NAME . *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA L_LINES_NAME LIKE FELD-NAME. DATA L_SELLINE LIKE SY-STEPL. DATA L_LASTLINE TYPE I. DATA L_LINE TYPE I. DATA L_TABLE_NAME LIKE FELD-NAME. FIELD-SYMBOLS <TC> TYPE CXTAB_CONTROL. FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE. FIELD-SYMBOLS <LINES> TYPE I. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (P_TC_NAME) TO <TC>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline *&SPWIZARD: get looplines of TableControl * CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_LINES_NAME. ASSIGN (L_LINES_NAME) TO <LINES>. *&SPWIZARD: get current line * GET CURSOR LINE L_SELLINE. IF SY-SUBRC <> 0. " append line to table L_SELLINE = <TC>-LINES 1. *&SPWIZARD: set top line * IF L_SELLINE > <LINES>. <TC>-TOP_LINE = L_SELLINE - <LINES> 1 . ELSE. <TC>-TOP_LINE = 1. ENDIF. ELSE. " insert line into table L_SELLINE = <TC>-TOP_LINE L_SELLINE - 1. L_LASTLINE = <TC>-TOP_LINE <LINES> - 1. ENDIF. *&SPWIZARD: set new cursor line * L_LINE = L_SELLINE - <TC>-TOP_LINE 1. *&SPWIZARD: insert initial line * INSERT INITIAL LINE INTO <TABLE> INDEX L_SELLINE. <TC>-LINES = <TC>-LINES 1. *&SPWIZARD: set cursor * SET CURSOR LINE L_LINE. ENDFORM. " FCODE_INSERT_ROW *&---------------------------------------------------------------------* *& Form FCODE_DELETE_ROW * *&---------------------------------------------------------------------* FORM fcode_delete_row USING P_TC_NAME TYPE DYNFNAM P_TABLE_NAME P_MARK_NAME . *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA L_TABLE_NAME LIKE FELD-NAME. FIELD-SYMBOLS <TC> TYPE cxtab_control. FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE. FIELD-SYMBOLS <WA>. FIELD-SYMBOLS <MARK_FIELD>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (P_TC_NAME) TO <TC>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline *&SPWIZARD: delete marked lines * DESCRIBE TABLE <TABLE> LINES <TC>-LINES. LOOP AT <TABLE> ASSIGNING <WA>. *&SPWIZARD: access to the component 'FLAG' of the table header * ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>. IF <MARK_FIELD> = 'X'. DELETE <TABLE> INDEX SYST-TABIX. IF SY-SUBRC = 0. <TC>-LINES = <TC>-LINES - 1. ENDIF. ENDIF. ENDLOOP. ENDFORM. " FCODE_DELETE_ROW *&---------------------------------------------------------------------* *& Form COMPUTE_SCROLLING_IN_TC *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_TC_NAME name of tablecontrol * -->P_OK ok code *----------------------------------------------------------------------* FORM COMPUTE_SCROLLING_IN_TC USING P_TC_NAME P_OK. *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA L_TC_NEW_TOP_LINE TYPE I. DATA L_TC_NAME LIKE FELD-NAME. DATA L_TC_LINES_NAME LIKE FELD-NAME. DATA L_TC_FIELD_NAME LIKE FELD-NAME. FIELD-SYMBOLS <TC> TYPE cxtab_control. FIELD-SYMBOLS <LINES> TYPE I. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (P_TC_NAME) TO <TC>. *&SPWIZARD: get looplines of TableControl * CONCATENATE 'G_' P_TC_NAME '_LINES' INTO L_TC_LINES_NAME. ASSIGN (L_TC_LINES_NAME) TO <LINES>. *&SPWIZARD: is no line filled? * IF <TC>-LINES = 0. *&SPWIZARD: yes, ... * L_TC_NEW_TOP_LINE = 1. ELSE. *&SPWIZARD: no, ... * CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING ENTRY_ACT = <TC>-TOP_LINE ENTRY_FROM = 1 ENTRY_TO = <TC>-LINES LAST_PAGE_FULL = 'X' LOOPS = <LINES> OK_CODE = P_OK OVERLAPPING = 'X' IMPORTING ENTRY_NEW = L_TC_NEW_TOP_LINE EXCEPTIONS * NO_ENTRY_OR_PAGE_ACT = 01 * NO_ENTRY_TO = 02 * NO_OK_CODE_OR_PAGE_GO = 03 OTHERS = 0. ENDIF. *&SPWIZARD: get actual tc and column * GET CURSOR FIELD L_TC_FIELD_NAME AREA L_TC_NAME. IF SYST-SUBRC = 0. IF L_TC_NAME = P_TC_NAME. *&SPWIZARD: et actual column * SET CURSOR FIELD L_TC_FIELD_NAME LINE 1. ENDIF. ENDIF. *&SPWIZARD: set the new top line * <TC>-TOP_LINE = L_TC_NEW_TOP_LINE. ENDFORM. " COMPUTE_SCROLLING_IN_TC *&---------------------------------------------------------------------* *& Form FCODE_TC_MARK_LINES *&---------------------------------------------------------------------* * marks all TableControl lines *----------------------------------------------------------------------* * -->P_TC_NAME name of tablecontrol *----------------------------------------------------------------------* FORM FCODE_TC_MARK_LINES USING P_TC_NAME P_TABLE_NAME P_MARK_NAME. *&SPWIZARD: EGIN OF LOCAL DATA-----------------------------------------* DATA L_TABLE_NAME LIKE FELD-NAME. FIELD-SYMBOLS <TC> TYPE cxtab_control. FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE. FIELD-SYMBOLS <WA>. FIELD-SYMBOLS <MARK_FIELD>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (P_TC_NAME) TO <TC>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline *&SPWIZARD: mark all filled lines * LOOP AT <TABLE> ASSIGNING <WA>. *&SPWIZARD: access to the component 'FLAG' of the table header * ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>. <MARK_FIELD> = 'X'. ENDLOOP. ENDFORM. "fcode_tc_mark_lines *&---------------------------------------------------------------------* *& Form FCODE_TC_DEMARK_LINES *&---------------------------------------------------------------------* * demarks all TableControl lines *----------------------------------------------------------------------* * -->P_TC_NAME name of tablecontrol *----------------------------------------------------------------------* FORM FCODE_TC_DEMARK_LINES USING P_TC_NAME P_TABLE_NAME P_MARK_NAME . *&SPWIZARD: BEGIN OF LOCAL DATA----------------------------------------* DATA L_TABLE_NAME LIKE FELD-NAME. FIELD-SYMBOLS <TC> TYPE cxtab_control. FIELD-SYMBOLS <TABLE> TYPE STANDARD TABLE. FIELD-SYMBOLS <WA>. FIELD-SYMBOLS <MARK_FIELD>. *&SPWIZARD: END OF LOCAL DATA------------------------------------------* ASSIGN (P_TC_NAME) TO <TC>. *&SPWIZARD: get the table, which belongs to the tc * CONCATENATE P_TABLE_NAME '[]' INTO L_TABLE_NAME. "table body ASSIGN (L_TABLE_NAME) TO <TABLE>. "not headerline *&SPWIZARD: demark all filled lines * LOOP AT <TABLE> ASSIGNING <WA>. *&SPWIZARD: access to the component 'FLAG' of the table header * ASSIGN COMPONENT P_MARK_NAME OF STRUCTURE <WA> TO <MARK_FIELD>. <MARK_FIELD> = SPACE. ENDLOOP. ENDFORM. "fcode_tc_mark_lines