DD_DOMVALUES_GET – Obtener los valores de un dominio

Caso: se desea obtener la lista de valores de un dominio.

Solución:

TYPES: tty_dd07v   TYPE STANDARD TABLE OF dd07v.
DATA: lt_tipo_ingreso    TYPE tty_dd07v,
      lw_tipo_ingreso    TYPE LINE OF tty_dd07v.
 
REFRESH: lt_tipo_ingreso[].
 
* Leer los valores de un Dominio
CALL FUNCTION 'DD_DOMVALUES_GET'
  EXPORTING
    domname        = 'ZDMM_SC_TIPO_ING'
    text           = 'X'
    langu          = sy-langu
  TABLES
    dd07v_tab      = lt_tipo_ingreso
  EXCEPTIONS
    wrong_textflag = 1
    OTHERS         = 2.
 
LOOP AT lt_tipo_ingreso INTO lw_tipo_ingreso.
  WRITE: /  lw_tipo_ingreso-ddtext.
ENDLOOP.

Anuncio publicitario

COMMENT en pantalla selección

Caso: se busca mostrar la descripción de un campo en la pantalla de selección.

REPORT zprueba_descripcion.
TABLES kna1.

DATA: gv_kunnr TYPE kna1-kunnr.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
SELECTION-SCREEN BEGIN OF LINE.
SELECT-OPTIONS: s_kunnr FOR kna1-kunnr NO-EXTENSION NO INTERVALS.
SELECTION-SCREEN COMMENT 48(35) gv_name1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN ON s_kunnr.
CLEAR gv_name1.

SELECT SINGLE kunnr name1
INTO (gv_kunnr, gv_name1)
FROM kna1
WHERE kunnr IN s_kunnr.

IF sy-subrc NE 0.
MESSAGE s899(mm) WITH ‘Cliente inexistente’ DISPLAY LIKE ‘E’.
ENDIF.