Tema: Subscreen
Ver Mensaje Individual
  #1  
Viejo 11/01/07, 20:51:15
CLAUDIA CARDENAS CLAUDIA CARDENAS is offline
Junior Member
 
Fecha de Ingreso: ene 2007
Localización: Bogotá D.C. - Colombia
Mensajes: 22
Subscreen

HOLA!!!

OTRA VEZ POR AQUI, RESULTA QUE YA ME FUNCIONAN LOS DOS PROGRAMAS QUE HE VENIDO DE DESARROLLANDO, RESULTA QUE ESTOS DOS LOS TENGO QUE INCLUIR EN UN SOLO PROGRAMA, CON SUBSCREEN, PERO LO QUE HE INTENDADO HACER ES HACER UN INCLUDE EN CADA SUBSCREEN RESPECTIVAMENTE, PERO ME VOTA DOS ERRORES,

Programa YACSAP001
Each ABAP program can contain only one "REPORT", "PROGRAM", or
"FUNCTION-POOL". "FUNCTION-POOL" statement.

Programa YACSAP002
Each ABAP program can contain only one "REPORT", "PROGRAM", or
"FUNCTION-POOL". "FUNCTION-POOL" statement.

AHORA SI INCLUYO TODO LO QUE HICE EN ESTOS DE TODAS FORMAS ME EMPIEZA A GENERAR UN MONTONON DE ERRORES,

QUE PENA MOLESTAR TANTO, AGRADEZCO SU COLABORACION Y COMPRENSION, GRACIAS

*&---------------------------------------------------------------------*
*& Report YACSAP003
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

Report YACSAP003.

*________________________________________________
* CARPETA PARA LA TOMA DE DATOS PERSONALES
*________________________________________________
SELECTION-SCREEN BEGIN OF SCREEN 100 AS SUBSCREEN.
* INCLUDE YACSAP001.
SELECTION-SCREEN END OF SCREEN 100.

*________________________________________________
* CARPETA PARA EL MANEJO DE MATERIALES
*________________________________________________
SELECTION-SCREEN BEGIN OF SCREEN 200 AS SUBSCREEN.
* INCLUDE YACSAP002.
SELECTION-SCREEN END OF SCREEN 200.

*_______________________________________________
*
*_______________________________________________
SELECTION-SCREEN: BEGIN OF TABBED BLOCK datos FOR 10 LINES,
TAB (20) carpeta1 USER-COMMAND push1
DEFAULT SCREEN 100,
TAB (20) carpeta2 USER-COMMAND push2
DEFAULT SCREEN 200,
END OF BLOCK datos.

INITIALIZATION.
carpeta1 = 'DATOS PERSONALES'.
carpeta2 = 'SELECCION MATERIALES'.
Responder Con Cita