Code: Alles auswählen.
FORM katalog_fuellen .
CLEAR it_katalog.
CLEAR wa_katalog.
wa_katalog-fieldname = 'NAME'.
wa_katalog-ref_fieldname = 'LASTNAME'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Nachname'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'VORNAME'.
wa_katalog-ref_fieldname = 'FIRSTNAME'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Vorname'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'BNAME'.
wa_katalog-ref_fieldname = 'BNAME'.
wa_katalog-ref_tabname = 'USR02'.
wa_katalog-seltext_s = 'Benutzerkennung'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'BENUTZERTYP'.
wa_katalog-ref_fieldname = 'USTYP'.
wa_katalog-ref_tabname = 'BAPILOGOND'.
wa_katalog-seltext_s = 'Benutzertyp'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'ACCNT'.
wa_katalog-ref_fieldname = 'ACCNT'.
wa_katalog-ref_tabname = 'USR02'.
wa_katalog-seltext_s = 'Abrechnungsnummer'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'UFLAG'.
wa_katalog-ref_fieldname = 'UFLAG'.
wa_katalog-ref_tabname = 'USR02'.
wa_katalog-seltext_s = 'Sperrkennzeichen'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'ABTEILUNG'.
wa_katalog-ref_fieldname = 'DEPARTMENT'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Abteilung'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'FUNKTION'.
wa_katalog-ref_fieldname = 'FUNCTION'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Funktion'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'TELEFONNUMMER'.
wa_katalog-ref_fieldname = 'TEL1_NUMBR'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Telefon'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'FAXNUMMER'.
wa_katalog-ref_fieldname = 'FAX_NUMBER'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Faxnummer'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'EMAIL_ADRESSE'.
wa_katalog-ref_fieldname = 'E_MAIL'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'E-Mail'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'SNC_NAME'.
wa_katalog-ref_fieldname = 'PNAME'.
wa_katalog-ref_tabname = 'BAPISNCU'.
wa_katalog-seltext_s = 'SNC-Name'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'FIRMENADRESSE'.
wa_katalog-ref_fieldname = 'COMPANY'.
wa_katalog-ref_tabname = 'BAPIUSCOMP'.
wa_katalog-seltext_s = 'Firmenadresse'.
APPEND wa_katalog TO it_katalog.
wa_katalog-fieldname = 'SYSTEME'.
wa_katalog-ref_fieldname = 'SUBSYSTEM'.
wa_katalog-ref_tabname = 'USZBVSYS'.
wa_katalog-seltext_s = 'Systeme'.
APPEND wa_katalog TO it_katalog.
gs_layout-colwidth_optimize = 'X'.
gs_layout-zebra = 'X'.
ENDFORM. " katalog_fuellen
Code: Alles auswählen.
FORM alv_anzeigen .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
it_fieldcat = it_katalog
is_layout = gs_layout
TABLES
t_outtab = it_ausgabe.
ENDFORM. " alv_anzeigen
Code: Alles auswählen.
FORM dop_user_fuellen .
CLEAR: it_ausgabe_line.
it_ausgabe_line-name = user_mehrfach_line-name.
it_ausgabe_line-vorname = user_mehrfach_line-vorname.
it_ausgabe_line-bname = user_mehrfach_line-bname.
it_ausgabe_line-benutzertyp = user_mehrfach_line-benutzertyp.
it_ausgabe_line-accnt = user_mehrfach_line-accnt.
it_ausgabe_line-uflag = user_mehrfach_line-uflag.
it_ausgabe_line-abteilung = user_mehrfach_line-abteilung.
it_ausgabe_line-funktion = user_mehrfach_line-funktion.
it_ausgabe_line-telefonnummer = user_mehrfach_line-telefonnummer.
it_ausgabe_line-faxnummer = user_mehrfach_line-faxnummer.
it_ausgabe_line-email_adresse = user_mehrfach_line-email_adresse.
it_ausgabe_line-snc_name = user_mehrfach_line-snc_name.
it_ausgabe_line-firmenadresse = user_mehrfach_line-firmenadresse.
SELECT bname subsystem FROM uszbvsys INTO CORRESPONDING FIELDS OF TABLE systems_tab
WHERE bname = user_mehrfach_line-bname AND
usrsection = c_user. "--> in
LOOP AT systems_tab INTO systems_tab_line
WHERE bname = user_mehrfach_line-bname.
CONCATENATE it_ausgabe_line-systeme systems_tab_line-subsystem c_punkt INTO it_ausgabe_line-systeme.
ENDLOOP.
APPEND it_ausgabe_line TO it_ausgabe.
ENDFORM. " dop_user_fuellen
Code: Alles auswählen.
wa_katalog-fieldname = 'NAME'.
wa_katalog-ref_fieldname = 'LASTNAME'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Nachname'.
APPEND wa_katalog TO it_katalog.
Code: Alles auswählen.
wa_katalog-fieldname = 'NAME'.
wa_katalog-ref_fieldname = 'LASTNAME'.
wa_katalog-ref_tabname = 'BAPIADD3'.
wa_katalog-seltext_s = 'Nachname'.
wa_katalog-seltext_l = wa_katalog-seltext_m = wa_katalog-reptext_ddic = wa_katalog-seltext_s.
APPEND wa_katalog TO it_katalog.