Screen Exits

[ppchico]

Saludos,

Os comento mi duda... El caso es que necesito añadir unos campos en la transacción standard MIGO, y es inviable realizar una copia en un Z, por lo que debo buscar otras vías para solucionar el problema. El caso es que he leído algo de documentación acerca de SCREEN EXITS, pero no logro sacar nada en claro, es decir, no logro encontrar o saber si la transacción MIGO, dispone de SCREEN EXITS. Por ello, si alguien me puede echar una mano, le estaría muy agradecido.

Muchas gracias de antemano, y un saludo.

[bacha]

creo que para esto debes crear una subscreen area donde meteras los nuevos items que mostraras en tu pantalla standar.... y luego llamarla desde unos modulos de funcion ...

la verdad, es un tema un poco complicado.... estoy leyendo mis manuales sobre ese tema y no logro entender a primera vista.....

si encuentro algo de utilidad te lo hare saber.

Saludos.

[ppchico]

Muchísimas gracias.

[bacha]

Saludos compañero....

Yo tambien eh estado teniendo problemas con ese concepto... por el momento estoy creando un "Z" de una transaccion, debido a que no todas las transacciones tienen (eso creo..) las "screen exits".

Te dejo un programa que podria servirte de una u otra forma... Te ayuda a encontrar exits en una transaccion... alli te podras dar cuenta de que tipo de salidas tiene dicha transaccion.

*&---------------------------------------------------------------------*
*& Report YSMOD2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

* Program
REPORT ZENCUENTRA_USEREXIT .

TABLES: MODSAP, MODACT, TSTC.

PARAMETERS: INPUT1 LIKE TSTC-TCODE DEFAULT ' ',
INPUT2 LIKE MODSAP-TYP DEFAULT ' '.

DATA: SEARCH1(6),
SEARCH2(3),
SEARCH3 LIKE MODSAP-MEMBER.

DATA : FIRST_ROW VALUE 'Y'.

CONCATENATE: '%' INPUT1 '%' INTO SEARCH1,
'%' INPUT2 INTO SEARCH2.

SELECT * FROM TSTC WHERE TCODE LIKE SEARCH1.

FIRST_ROW = 'Y'.

CHECK TSTC-PGMNA NE SPACE.

CONCATENATE '%' TSTC-PGMNA '%' INTO SEARCH3.

SELECT * FROM MODSAP WHERE TYP LIKE SEARCH2
AND MEMBER LIKE SEARCH3.

SELECT SINGLE * FROM MODACT WHERE MEMBER = MODSAP-NAME.

IF FIRST_ROW EQ 'Y'.
WRITE: /0 TSTC-TCODE, 6 TSTC-PGMNA, 16 MODSAP-NAME, 32 MODSAP-TYP,
45 MODSAP-MEMBER, 70 MODACT-NAME.
FIRST_ROW = 'N'.
ELSE.
WRITE: /16 MODSAP-NAME, 32 MODSAP-TYP, 45 MODSAP-MEMBER, 70 MODACT-NAME.
ENDIF.

CLEAR : MODSAP, MODACT.

ENDSELECT.

IF SY-SUBRC NE 0.
WRITE : /0 TSTC-TCODE, 6 TSTC-PGMNA, 30 'No exits found'.
ENDIF.

CLEAR TSTC.

ENDSELECT.

END-OF-SELECTION.

CLEAR: SEARCH1, SEARCH2, SEARCH3.

* End

*&---------------------------------------------------------------------*
*& End Report YSMOD2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*


Saludos.

[ppchico]

Muchas gracias, le voy a hacer unas pruebecillas pa ver si me resuelve mi problema.


Un Saludo.

[Martha Torres]

Les anexo esta liga que me ayudó en un caso como el que comentan:

Martha