Code: Alles auswählen.
DATA: gv_real TYPE xflag.
IF gv_real = abap_true.
PERFORM create_appl_log.
PERFORM excel_upload USING p_file
CHANGING gt_po_update.
PERFORM check_upload CHANGING gt_po_update.
PERFORM update USING p_test
gt_po_update.
PERFORM checkbox USING p_test
p_error.
ELSEIF gv_real = abap_false.
IF p_test = abap_true.
PERFORM create_appl_log.
PERFORM excel_upload USING p_file
CHANGING gt_po_update.
PERFORM check_upload CHANGING gt_po_update.
PERFORM update USING p_test
gt_po_update.
PERFORM checkbox USING p_test
p_error.
gv_real = abap_true.
p_test = abap_false.
ELSEIF p_test = abap_false.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = text-000
txt1 = text-001
txt2 = ''.
ENDIF.
ENDIF.
Code: Alles auswählen.
PARAMETERS test AS CHECKBOX.
PARAMETERS testrun AS CHECKBOX MODIF ID d.
AT SELECTION-SCREEN OUTPUT.
IMPORT testrun_executed TO testrun FROM MEMORY ID 'TESTRUN'.
if testrun = abap_true.
test = abap_false.
else.
test = abap_true.
endif.
LOOP AT SCREEN.
IF screen-group1 = 'D'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
AT SELECTION-SCREEN.
CASE test.
WHEN abap_true.
MESSAGE 'testrun executed' TYPE 'I'.
test = space.
testrun = abap_true.
EXPORT testrun_executed FROM testrun TO MEMORY ID 'TESTRUN'.
WHEN space.
IF testrun IS INITIAL.
MESSAGE 'run test first!' TYPE 'I'.
STOP.
ELSE.
testrun = space.
EXPORT testrun_executed FROM testrun TO MEMORY ID 'TESTRUN'.
ENDIF.
ENDCASE.
START-OF-SELECTION.
MESSAGE 'program executed.' TYPE 'S'.
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
Mockingbird
oh doch!
ja.Mockingbird hat geschrieben: ↑08.01.2020 16:53@ewx
Nur damit ich das nun richtig verstanden habe:
Wenn ich statt einer globalen Variable eine Parameter TYPE Checkbox nehme müsste es funktionieren und ich brauche den EXPORT und IMPORT ins MEMORY nicht ?
Code: Alles auswählen.
PARAMETERS testrun NO-DISPLAY.
Folgende Benutzer bedankten sich beim Autor ewx für den Beitrag:
Mockingbird