✒️ABAP Los módulos de funciones POPUP

Resumen

Unidad 4

Los modulos de funciones POPUP

1- Q son los modulos de funciones POPUP? Es un conjunto de modululos de funciones estandar del sist. SAP con claves xa el cosultor ABAP a la hora de crea programas q teng interacion con el usuario.

Los modulos de funoesns POPUP permiten generar en el prog. ABAP:

• Ventanas de diálogo de confirmación.
• Ventanas de diálogo donde se muestra la información.
• Ventanas de diálogo donde se solicita el ingreso de datos
• Ventanas de diálogo donde se muestra el contenido de tablas internas
• y mucho mas.

Tal como hemos visto en la TX SE37 existe en la biblioteca de funciones, xa generar la interfaz o estructura de un módulo de funciones POPUP. en el lugar del prog. ABAP en donde deseamos generar el código y luego clic en la opción modelo.

El sist. nos muestra en una ventana de diálogo en donde seleccionamos la opción CALL FUNCTION con la condición x criterio de búsqueda POPUP enter o F4.

El código fuente o mejor los parámetros q algunos están comentariados y son los no obligatorios y las otros no están comentariados, son OBLIGATORIOS.

Ahora bien cuando utilizamos módulos de funciones POPUP => no utilizar aquellas obsoletas => Sap no va brindar soporte a partir de la próxima versión.

Ej: a partir de la versión SAP ECC 6.0 al modulo de funciones POPUP_TO_CONFIRM reemplaza a los sgntes módulos de funciones q NO se pueden ser utilizados.

X POPUP_TO_CONFIRM_LOSS_OF_DATA

X POPUP_TO_CONFIRM_STEP

X POPUP_TO_CONFIRM_WITH_MESSAGE

X POPUP_TO_CONFIRM_WITH_VALUE

X POPUP_TO_CONFIRM_WITH_VALUE_2

X POPUP_TO_CONFIRM_DECIDE

X POPUP_TO_CONFIRM_WITH_MESSAGE

Se confirma de la sgnte forma:

POPUP_TO_CONFIRM_LOSS_DATA Do not use! Please use POPUP_TO_CONFIRM

2- Los modulos de funciones POPUP + utilizados

Los modulos de funciones + utilizados y xa c/u aprender a completar entrada / salida

2-1 POPUP_TO_FONFIRM se utiliza xa mostrar en pantalla una ventan de dialogeen donde se le hace un pregunta al usaurio y se esper a un arespuesta xa continuar el procesamiento.

Ej: vamos a declarar las variables

DATA: v_title(150) TYPE c,

v_text_question TYPE c,

v_answer(1) TYPE c.

CONCATENATE 'Se han modificado los datos del clente'

' Desea grabar los cambios?' INTO v_text_question SEPARATED BY space

v_title = 'Modificacion de datos de clientes'.

CALL FUNCTION 'POPUP_TO_CONFIRM'

EXPORTING

titlebar = v_title

text_question = v_text_question

IMPORTING

answer = v_answer

EXCEPTIONS

tex_not_found = 1

OTHER = 2

if sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 msgv3 sy-msgv4

elseif ys-subrc EQ 0.

if v_answer EQ '1'. "presiono boton si

elseif v_answer EQ '2'. "presiono boton No

elseif v_answer EQ 'A' "presiono boton Cancelar

ENDIF.

ENDIF.

Al ejecutar el codigo anterior visualizamos

Se han modificado los datos del cliente, Desea garbar los cambios?

SI NO Cancelar

el modulo de funciones POPUP existe en el sist. este modulo POPUT_TO_CONFIRM es el + utilzado.

2-2 POPUP_TO_CONFIRM_DATA_LOSS

Este se utiliza xa informale al usuario x una ventana de diálogo q los datos modificados se le perderán y se le pregunta si desea grabar. Xa utilizar este metodo de funciones, declaramos variables

DATA: v_title(150) TYPE c,

v_answer(1) TYPE c.

v_title = 'Confirmacion'.

vamos a completar parámetros de entrada y salida

CALL FUNCTION 'POPUP_TO_CONFIRM_DATA_LOSS'

EXPORTING

defaultoption = 'J'

titel = v_title

IMPORTING

answer = v_answer.

IF v_answer EQ 'J'.

....

ENDIF.

Ejecutamos y lo visualizamos asi:

SAP

SI NO X Cancelar

2-3 POPUP_TO_DECIDE_LIST

este módulo de funciones se muestra en pantalla la ventana de dialogo q el usuario elija una de las opciones disponibles xa continuar el procesamiento.

DATA: ti_spopli TYPE STANDARD TABLE OF SPOPLI,

wa_spopli LIKE LINE OF ti_spopli,

v_answer TYPE c.

luego completamos la tabla interna

REFRESH ti_spopli

CLEAR wa_spopli.

MOVE 'Activo' TO wa_splopli-varoption.

MOVE 'X' TO wa_spopli-selflag.

APPEND wa_splopli TO ti_splopli.

MOVE 'Inactivo' TO wa_splopli-varoption.

MOVE 'X' TO wa_spopli-selflag.

APPEND wa_splopli TO ti_splopli.

CALL FUNCTION 'POPUP_TO_DECIDE_LIST'

EXPORTING

cursoline = 1

mark_line = ' '

mark_max = 1

start_col = 70

start_row = 10

textlinel = 'Estado del usuario'

titel = 'Uusarios'

IMPORTING

answer = v_answer

TABLES

t_splpli = ti_spopli

EXCEPTIONS

not_enough_answer = 1

too_much_answer = 2

too_much_mark = 3

OTHERS = 4.

if sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 msgv3 sy-msgv4

elseif ys-subrc EQ 0.

if v_answer EQ '1'. "presiono tilde verde

elseif v_answer EQ 'A' "presiono X

ENDIF.

ENDIF.

2-4 POPUP_TO_SELECT_MONTH

Este modulo de funciones muestra pantalla ventana de dialogo x q el usuario seleccion mes y año

DATA: v_sel_mon TYPE isellist-month.

CALL FUNCTION 'POPUP_TO_SELECT_MONTH'

EXPORTING

actual_month = '202202'

IMPORTING

seleccted_month = v_sel_mon

EXCEPTIONS

factory_calendar_not_found = 1

holiday_calendar_not_found = 2

month_not_found = 3

OTHERS = 4.

if sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 msgv3 sy-msgv4

ENDIF.

2-5 POPUP_WITH_TABLE_DISPLAY

Este modulo de funciones por pantalla ventana de dialogo con el contenido de una tabla interna, la cual previamente cargamos con datos

declaramos variables para este modulo de funciones POPUP_WITH_TABLE_DISPLAY

TYPES: BEGIN OF ty_clientes,

nombre(10) TYPE c,

telefono(12) TYPE c,

fnacimiento(12) TYPE c,

END OF ty_clientes.

DATA: ti_clientes TYPE STANDARD TABLE OF ty_clientes

wa_clientes LIKE LINE OF ti_clientes.

Luego completamos la tabla interna de clientes TI_CLIENTES q se visualizarán en pantalla

REFRESH ti_clientes.

CLEAR wa_clientes.

wa_clientes-nombre = 'Gus'.

wa_clientes-telefono = '123456789'.

wa_clientes-fnacimiento = '20021932'.

APPEND wa_clientes to ti_clientes.

CLEAR wa_clientes.

wa_clientes-nombre = 'Augusto'.

wa_clientes-telefono = '0987654321'.

wa_clientes-fnacimiento = '20021942'.

APPEND wa_clientes to ti_clientes.

CLEAR wa_clientes.

wa_clientes-nombre = 'Laura'.

wa_clientes-telefono = '13579753'.

wa_clientes-fnacimiento = '20021942'.

APPEND wa_clientes to ti_clientes.

vamos a completar los parametros de entrada y salida

CALL FUNCTION 'POPUD_WITH_TABLE_DISPLAY'

EXPORTING

endpos_col = 80

endpos_row = 15

startpos_col = 1

startpos_row = 1

titletext = 'Listado de cLientes'

TABLES

valuetab = ti_clientes

EXCEPTIONS

break_off = 1

OTHERS = 2.

if sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 msgv3 sy-msgv4

ENDIF.

se ejecuta y se visualiza asi

2-6 POPUP_TO_DISPLAY_TEXT

se muestra x pantalla en una ventana de diálogo donde muestra al usuario un texto informativo

DATA: v_title(150) TYPE c.

* completar parametros

v_title = 'Informacion Importante'.

CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT'

EXPORTING

titel = v_title

textline1 = 'A partir del 31/11 el APY pasa hacer calculado anual/'

textline2 = 'El nuevo porcentaje de interes anualizado es del 9%. '

start_column = 25

start_row = 6

if sy-subrc NE 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 msgv3 sy-msgv4

ENDIF.

2-7 POPUP_GET_VALUES

Le muestra al usuario campos de entrada y salida xa q el usuario complete estos campos y continue con el procesamiento.

DATA: ti_campos TYPE STANDARD TABLE OF sval,

wa_campos LIKE LINE OF ti_campos,

v_return_popup(1) TYPE c.

REFRESH ti_campos.

CLEAR wa_campos.

wa_campos-tabname = 'ztabla_usrios_g'.

wa_campos-fieldname = 'DNI'.

wa_campos-fieldtext = 'DNI'.

APPEND wa_campos TO ti_campos.

CLEAR wa_campos.

wa_campos-tabname = 'ztabla_usrios_g'.

wa_campos-fieldname = 'Nombre y ape'.

wa_campos-fieldtext = 'Nombre y apellido'.

wa_campos-field_obl = 'X'.

APPEND wa_campos TO ti_campos.

CLEAR wa_campos.

wa_campos-tabname = 'ztabla_usrios_g'.

wa_campos-fieldname = 'estado_usu'.

wa_campos-fieldtext = 'estado'.

APPEND wa_campos TO ti_campos.

CLEAR v_return_popup.

CALL FUNCTION 'POPUP_GET_VALUES'

EXPORTING

no_value_check = ' '

popup_title = 'Ingrese los datos de usuario'

start_column = '14'

start_row = '5'

IMPORTING

returncode = v_return_popup

TABLES

fields = ti_campos

EXCEPTIONS

error_in_fields = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSEIF sy-subrc EQ 0.

IF v_return_popup EQ space. " presionamos tilde verde

ELSEIF v_return_popup EQ 'A'. " presionamos 'X'

ENDIF.

ENDIF.

2-8 POPUP_TO_SHOW_USERINFO.

esta muestra por pantalla en ventana de dialogo la informacion del usuario

DATA: wa_vtbuser TYPE vtbuser.

CLEAR wa_vtbuser.

wa_vtbuser-cruser = sy-vtbuser " CHAR 12 0 Autor

wa_vtbuser-drcdat = sy-datum " DATS 8 Fecha de entrada

wa_vtbuser-trctim = sy-vzeit " TIMS 6 0 Hora de entrada

wa_vtbuser-upuser = sy-uname " CHAR 12 0 Modificado x

wa_vtbuser-dupdat = sy-datum " CHAR 8 0 Fecha de modificacion

wa_vtbuser-tuptim = sy-vzeit " CHAR 6 0 Hora de modificacion

CALL FUNCTION 'POPUP_TO_SHOW_USERINFO'

EXPORTING

user = wa_vtbuser.

asi se visualiza

Este modulo de POPUP_TO_SHOW_USERINFO es ideal xa mostrar un log de modificaciones de registros.

otro modulo muy similar es POPUP_TO_DISPLAY_USERDATA.