SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
PARAMETERS: p1 TYPE c LENGTH 10,
p2 TYPE c LENGTH 10,
p3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
PARAMETERS: q1 TYPE c LENGTH 10,
q2 TYPE c LENGTH 10,
q3 TYPE c LENGTH 10.
SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,
TAB (20) button1 USER-COMMAND push1 DEFAULT SCREEN 100,
TAB (20) button2 USER-COMMAND push2 DEFAULT SCREEN 200,
END OF BLOCK mytab.
INITIALIZATION.
button1 = ‘Formulario 1′.
button2 = ‘Formulario 2′.
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.PARAMETERS: p1 TYPE c LENGTH 10,p2 TYPE c LENGTH 10,p3 TYPE c LENGTH 10.SELECTION-SCREEN END OF SCREEN 100.
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.PARAMETERS: q1 TYPE c LENGTH 10,q2 TYPE c LENGTH 10,q3 TYPE c LENGTH 10.SELECTION-SCREEN END OF SCREEN 200.
SELECTION-SCREEN: BEGIN OF TABBED BLOCK mytab FOR 10 LINES,TAB (20) button1 USER-COMMAND push1 DEFAULT SCREEN 100,TAB (20) button2 USER-COMMAND push2 DEFAULT SCREEN 200,END OF BLOCK mytab.INITIALIZATION.button1 = ‘Formulario 1′.button2 = ‘Formulario 2′.
Advertisement
Comentarios