Code: Alles auswählen.
DATA: rt_afdia TYPE RANGE OF ndia-afdia, "Tabelle oder Tabellenrumpf oder Tabellekoerper
rs_afdia LIKE LINE OF rt_afdia, " Workarea fuer die obige Tabelle (auch Kopfzeile bei anderen Tabelle genannt)
rt_endia TYPE RANGE OF ndia-endia,
rs_endia LIKE LINE OF rt_endia,
rt_fhdia TYPE RANGE OF ndia-fhdia,
rs_fhdia LIKE LINE OF rt_fhdia ,
rt_khdia TYPE RANGE OF ndia-khdia,
rs_khdia LIKE LINE OF rt_khdia ,
rt_opdia TYPE RANGE OF ndia-opdia
rs_opdia LIKE LINE OF rt_opdia .
UND ersetze:
CLEAR RT_AFDIA
IF afdia IS NOT INITIAL. " CHECKBOX ist angekreuzt
rs_afdia-sign = 'I'.
rs_afdia-option = 'EQ'.
rs_afdia-low = abap_true. "'X"
CLEAR rs_afdia_high.
append rs_afdia to rt_afdia.
else.
Code: Alles auswählen.
DATA: rt_afdia TYPE RANGE OF ndia-afdia,
wa_rt_afdia LIKE LINE OF rt_afdia.
IF afdia IS NOT INITIAL. " CHECKBOX ist angekreuzt
wa_rt_afdia-SIGN = 'I'.
wa_rt_afdia-OPTION = 'EQ'.
wa_rt_afdia-LOW = abap_true. "'X'
CLEAR wa_rt_afdia-HIGH.
APPEND wa_rt_afdia TO rt_afdia.
ELSE.
CLEAR: wa_rt_afdia. " CHECKBOX ist NICHT angekreuzt
ENDIF.