Leer Parametros de Dynpro.

-

Esto me funciona para recopilar los parámetros de la dynpro para luego poder usarlos en código donde aun por cuestiones de eventos no son accesibles.

Como ejemplo de uso tenemos, cuando queremos usar lo que escribió el usuario como fuente para ayudas de Busquedas.

Este es el Código.

Supongamos que tengamos estos parámetro de entrada en nuestro Reporte.

INITIALIZATION.
repid = sy-repid. “ importante para saber de que pantalla y dynpro debo tomar los parámetros.
dynpro = sy-dynnr.

PARAMETERS: p_ani TYPE p1771-ayear OBLIGATORY VALUE CHECK,
p_per TYPE p1771-perid OBLIGATORY VALUE CHECK,
p_mod TYPE objid,
p_sec TYPE objid ,
p_eve TYPE objid .

Y tenemos que desarrollar una ayuda de búsqueda para uno de ellos pero necesitamos los datos introducidos con anterioridad por el usuario

Entonces hacemos el llamado


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_mod.
PERFORM ayuda_modulos.

Y entonces dentro de el PERFORM ayuda_modulos. Hacemos el llamado a la subrutina FORM leer_campos_de_pantalla .

Y listo tenemos el problema resuelto.

*&---------------------------------------------------------------------*
*& Form LEER_CAMPOS_DE_PANTALLA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM leer_campos_de_pantalla .
DATA BEGIN OF dynpfields OCCURS 1.
INCLUDE STRUCTURE dynpread.
DATA END OF dynpfields.
dynpfields-fieldname = 'P_MOD'.
APPEND dynpfields.
dynpfields-fieldname = 'P_ANI'.
APPEND dynpfields.
dynpfields-fieldname = 'P_PER'.
APPEND dynpfields.
dynpfields-fieldname = 'P_SEC'.
APPEND dynpfields.
dynpfields-fieldname = 'P_EVE'.
APPEND dynpfields.



CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = repid
dynumb = dynpro
TABLES
dynpfields = dynpfields
EXCEPTIONS
OTHERS.
READ TABLE dynpfields WITH KEY fieldname = 'P_PER'.
p_per = dynpfields-fieldvalue.
READ TABLE dynpfields WITH KEY fieldname = 'P_ANI'.
p_ani = dynpfields-fieldvalue.
READ TABLE dynpfields WITH KEY fieldname = 'P_MOD'.
p_mod = dynpfields-fieldvalue.
READ TABLE dynpfields WITH KEY fieldname = 'P_SEC'.
p_sec = dynpfields-fieldvalue.
READ TABLE dynpfields WITH KEY fieldname = 'P_EVE'.
p_eve = dynpfields-fieldvalue.
ENDFORM. " LEER_CAMPOS_DE_PANTALLA

Éxito amigos…

Comentarios

Publicar un comentario

Entradas populares de este blog

Cargar Texto estándar y mostrar en un POPUP

-
DATA :   t_lines   TYPE STANDARD TABLE OF   tline  WITH HEADER LINE . DATA :  BEGIN OF  itab  OCCURS  0 ,                 linea  TYPE   char70 ,              END OF   itab .        CALL FUNCTION  'READ_TEXT'        EXPORTING         id                        =   'F01'            language              =  sy - langu           name             =  name           object           =  'EKKO'        ...
Leer más

Crear un campo de entrada, parametro, como un listbox en abap.

-
SELECTION-SCREEN BEGIN OF BLOCK   b1  WITH FRAME TITLE  text- 001.       PARAMETERS    :     s_denom  TYPE  c  LENGTH   40 AS LISTBOX VISIBLE LENGTH   50. SELECTION-SCREEN END OF BLOCK   b1 . *Ahora necesitamos que al hacer clic para ver los valores posibles de la lista *ser carguen los valores desde una subrutina en el evento value-request. AT SELECTION-SCREEN ON VALUE-REQUEST FOR   s_denom .    PERFORM   lista_denominacion . *&---------------------------------------------------------------------* *&      Form  LISTA_DENOMINACION *&---------------------------------------------------------------------* *...
Leer más

Llamar una Webdynpro desde una transacción Z

-
Imagen
Hola, Otro tip que me gustaria compartir con ustedes, esta vez desde Chile. COMO LLAMAR UNA WEBDYNPRO ABAP DESDE UNA TRANSACCION Z. Pues es muy facil. Ir la SE93, crear una Trasacción Z, escojes el nombre segun la nomencratura del cliente, o segun el criterio que escojas, pero la crearas del tipo Transacción con parametros (transacción de paramtros). Selecionar el tipo de transaccion adecuado, Transacción con parametros (transacción de paramtros). Ahora la transacción Z debe llamar a la transacción estandar WDYID que es la encargada de hacer el trabajo Debemos completar los datos como se muestran en la imagen: Campo transacción = WDYID Campo Omitir imagen inicial = Marcado Sap GUI para Windows = Marcado Luego nombre de campo de dynpro debemos completar con APPLICATION y STARTMODE. de estos campos el APPLICATION ES TU APLICACION WEBDYNPRO. Tu aplicacion webdynpro, la puedes encontrar en la SE80 bajo el nodo Web Dynpro Applications de tu componente...
Leer más