Code: Alles auswählen.
TABLES: zsws_books.
PARAMETERS: p_pdf_j RADIOBUTTON GROUP radi USER-COMMAND flag DEFAULT 'X', "Keine PDFs anhängen
p_pdf_n RADIOBUTTON GROUP radi. "PDFs anhängen
PARAMETERS: p_pdf1 TYPE file_table-filename LOWER CASE MODIF ID par. "Parameter pdf1 angeben
SELECT-OPTIONS: p_pdf2 FOR zsws_books-isbn13 MODIF ID por. "Select-options angeben
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'PAR'.
IF p_pdf_n = 'X'.
screen-active = '0'.
ENDIF.
IF p_pdf_j = 'X'.
screen-active = '1'.
ENDIF.
WHEN 'POR'.
IF p_pdf_n = 'X'.
screen-active = '1'.
ENDIF.
IF p_pdf_j = 'X'.
screen-active = '0'.
ENDIF.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
Code: Alles auswählen.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
CASE screen-group1.
WHEN 'PAR'.
CASE abap_true.
WHEN p_pdf_j.
screen-active = 0.
WHEN p_pdf_n.
screen-active = 1.
ENDCASE.
MODIFY SCREEN.
WHEN 'POR'.
CASE abap_true.
WHEN p_pdf_j.
screen-active = 1.
WHEN p_pdf_n.
screen-active = 0.
ENDCASE.
MODIFY SCREEN.
ENDCASE.
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor ST22 für den Beitrag:
der_Schwede