diff --git a/src/objects/zcl_abapgit_object_ssfo.clas.abap b/src/objects/zcl_abapgit_object_ssfo.clas.abap index 7e822a67c..8ff2f61b5 100644 --- a/src/objects/zcl_abapgit_object_ssfo.clas.abap +++ b/src/objects/zcl_abapgit_object_ssfo.clas.abap @@ -43,28 +43,50 @@ CLASS zcl_abapgit_object_ssfo IMPLEMENTATION. METHOD zif_abapgit_object~jump. - DATA: lt_bdcdata TYPE TABLE OF bdcdata. + DATA: lt_bdcdata TYPE TABLE OF bdcdata, + lv_formtype TYPE stxfadm-formtype. FIELD-SYMBOLS: LIKE LINE OF lt_bdcdata. - APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -program = 'SAPMSSFO'. -dynpro = '0100'. -dynbegin = abap_true. + SELECT SINGLE formtype FROM stxfadm INTO lv_formtype + WHERE formname = ms_item-obj_name. + + IF lv_formtype = cssf_formtype_text. + + APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . + -fnam = 'RB_TX'. + -fval = abap_true. + + APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . + -fnam = 'BDC_OKCODE'. + -fval = '=RB'. + + APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . + -program = 'SAPMSSFO'. + -dynpro = '0100'. + -dynbegin = abap_true. + + APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . + -fnam = 'SSFSCREEN-TNAME'. + -fval = ms_item-obj_name. + + ELSE. + + APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . + -fnam = 'SSFSCREEN-FNAME'. + -fval = ms_item-obj_name. + + ENDIF. + APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . -fnam = 'BDC_OKCODE'. -fval = '=DISPLAY'. - APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . - -fnam = 'RB_SF'. - -fval = abap_true. - - APPEND INITIAL LINE TO lt_bdcdata ASSIGNING . - -fnam = 'SSFSCREEN-FNAME'. - -fval = ms_item-obj_name. - CALL FUNCTION 'ABAP4_CALL_TRANSACTION' STARTING NEW TASK 'GIT' EXPORTING