From 3ad85b4c58fad0d113acd91b254087719c5b279a Mon Sep 17 00:00:00 2001 From: Lars Hvam Date: Tue, 5 Mar 2024 10:16:04 +0100 Subject: [PATCH] bugfix, FORM existence (#6832) --- src/objects/zcl_abapgit_object_form.clas.abap | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/objects/zcl_abapgit_object_form.clas.abap b/src/objects/zcl_abapgit_object_form.clas.abap index c2177b4bc..83bb5e900 100644 --- a/src/objects/zcl_abapgit_object_form.clas.abap +++ b/src/objects/zcl_abapgit_object_form.clas.abap @@ -317,12 +317,19 @@ CLASS zcl_abapgit_object_form IMPLEMENTATION. METHOD zif_abapgit_object~exists. + DATA lv_lang TYPE sy-langu. + +* this will try to read the FORM in language EN +* if it exists in other language, then "found" will be set to abap_false +* so check the "olanguage" to see if the FORM exists CALL FUNCTION 'READ_FORM' EXPORTING form = mv_form_name read_only_header = abap_true IMPORTING - found = rv_bool. + olanguage = lv_lang. + + rv_bool = boolc( lv_lang IS NOT INITIAL ). ENDMETHOD.