Werte direkt nach Eingabe ermitteln

Code: Alles auswählen.

PARAMETERS:
  p_bps_to       LIKE   lv_bp OBLIGATORY.
SELECTION-SCREEN COMMENT 50(20) t_bps_to FOR FIELD p_bps_to.

PARAMETERS:
  p_bps_fr       LIKE   lv_bp OBLIGATORY.
SELECTION-SCREEN COMMENT 50(20) t_bps_fr FOR FIELD p_bps_fr.

AT SELECTION-SCREEN ON p_bps_to.

 CLEAR t_bps_to.

    IF p_bps_to IS NOT INITIAL.

        SELECT SINGLE but000~name_first but000~name_last INTO (lv_namef, lv_namel)
        FROM but000
        INNER JOIN but100 ON but000~partner = but100~partner
        WHERE but100~partner = p_bps_to.

          CONCATENATE lv_namef ` ` lv_namel INTO t_bps_to.

      ENDIF.

************************************************************
AT SELECTION-SCREEN ON p_bps_fr.

   CLEAR t_bps_fr.

 IF p_bps_to IS NOT INITIAL.

        SELECT SINGLE but000~name_first but000~name_last INTO (lv_namef, lv_namel)
        FROM but000
        INNER JOIN but100 ON but000~partner = but100~partner
        WHERE but100~partner = p_bps_fr.

          CONCATENATE lv_namef ` ` lv_namel INTO t_bps_fr.

      ENDIF.