Funktionsbaustein POPUP GET VALUES

Aus SAP-Wiki
Wechseln zu: Navigation, Suche

Der Funktionsbaustein POPUP_GET_VALUES ist sehr komfortabel, um eine kompakte Abfrage auf dem Bildschirm auszugeben, um vom User 1 oder mehr Felder abzufragen.

Das schöne an diesem Funktionsbaustein ist auch, dass nicht nur die Länge des Abfragefeldes passend ist und eine Typprüfung stattfindet, wenn das richtige Feld als Parameter gefüllt wird, sondern auch eine Wertehilfe erscheint, wenn das entsprechende Feld eine besitzt.

Hier soll eine Abfrage des Kundenauftrags erfolgen.

Screen

POPUP GET VALUES1.jpg

Coding

DATA: lt_fields     TYPE STANDARD TABLE OF sval,
      ls_fields     TYPE sval,
      lv_returncode TYPE c.
  
DATA: ls_vbak TYPE vbak.
ls_fields-tabname   = 'VBAK'.
ls_fields-fieldname = 'VBELN'.
ls_fields-field_obl = 'X'.
APPEND ls_fields TO lt_fields.
CLEAR ls_fields.
 
CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
*   NO_VALUE_CHECK        = ' '
    popup_title           = 'Maintain fields'
    start_column          = '5'
    start_row             = '5'
 IMPORTING
    returncode            = lv_returncode  "space/'A'=Abbruch
 TABLES
    fields                = lt_fields
 EXCEPTIONS
    error_in_fields       = 1
    OTHERS                = 2.
 
IF sy-subrc <> 0.
  MESSAGE i531(0u) WITH 'Problem with Fuba POPUP_GET_VALUES'.
ENDIF.
  
IF lv_returncode = 'A'.
  EXIT.
ENDIF.
  
READ TABLE lt_fields INTO ls_fields INDEX 1.
ls_vbak-vbeln  = ls_fields-value.

Muster

CALL FUNCTION 'POPUP_GET_VALUES'
  EXPORTING
"   NO_VALUE_CHECK        = ' '
    POPUP_TITLE           =
"   START_COLUMN          = '5'
"   START_ROW             = '5'
" IMPORTING
"   RETURNCODE            =
  TABLES
    FIELDS                =
" EXCEPTIONS
"   ERROR_IN_FIELDS       = 1
"   OTHERS                = 2
          .
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

Literatur