* En un table control para definir el mismo area dentro de una ficha, debemos de dar como atributos de cada una de las fichas como subscreen y asignarle el mismo grupo de dynpro pero ademas y aquí esta lo "y eso donde viene" hay que crear un area en una pestaña y asignarle un nombre "campo referencia" en los atributos de dicha pestaña, y seguidamente decirle a los atributos "campo referencia" de las pestañas siguientes el mismo nombre y de esa forma se pinta ese area automaticamente en la pestaña.
*Otra cosilla que es pa saberla es la forma de eliminar un atributo es situando el cursor en la linea deseada y pulsar boton de papelera (que aparecerá al dar al lapiz).
*Ojo el asistente wizar me coloca por defecto los botones (pestañas) como tipo P ( que pasa del PAI) por lo tanto hay que ir al layout y cambiarlo desde el combo a none.
PASOS
1.-
PBO-->CALL SUBSCREEN SUB INCLUDING SY-REPID NUMBER.
PAI-->CALL SUBSCREEN SUB
2.-
PAI-->CASE OK_CODE.
WHEN 'FUNC1'.
NUMBER = '0110'.
TABSTRIP_S-ACTIVETAB = OK_CODE.
...
3.-Ante cualquier cambio:
CHAIN.
FIELD: I_CARRID,
I_CONNID.
MODULE READ_SFLIGHT ON CHAIN-REQUEST.
ENDCHAIN.
4.- El modulo read_sflight:
SELECT .... INTO CORRESPONDING FIELDS OF TABLE TT_SFLIGHT FROM SFLIGHT
WHERE CARRID = I_CARRID AND CONNID = I_CONNID.
5.- Para añadir un registro a un work area:
DATA:BEGING OF WA_SFLIGHT.
DATA:PICK TYPE C
INCLUDE STRUCTURE SFLIGHT.
DATA: END OF WA_SFLIGHT.
5.-El resto de las variables:
tt_sflight like standard table of wa_sflight,
wa_sbook type sbook,
tt_sbook type standard table of sbook.
6.- un tipo de mensaje muy puesto:
MESSAGE e398(00) WITH 'No hay datos para ' i_carrid i_connid.
7.- la linea la controlamos con el boton:
CONTROLS: tabstrip_s TYPE TABSTRIP,
flights TYPE TABLEVIEW USING SCREEN 120,
books TYPE TABLEVIEW USING SCREEN 130.
...
flights-lines = sy-dbcnt.
