From 0467707a5b7e902dba3503dd9f266829945f3a5e Mon Sep 17 00:00:00 2001 From: Mattias Johansson Date: Sat, 2 Feb 2019 12:52:14 +0100 Subject: [PATCH] Changed default text in branch popup (#2344) * Changed default text in branch popup * Downgrade to Abap 7.02 syntax * Reduce line length of commit (for abaplint) --- src/ui/zcl_abapgit_popups.clas.abap | 23 ++++++++++++++++++----- 1 file changed, 18 insertions(+), 5 deletions(-) diff --git a/src/ui/zcl_abapgit_popups.clas.abap b/src/ui/zcl_abapgit_popups.clas.abap index 25aeb4600..f9d0f69d8 100644 --- a/src/ui/zcl_abapgit_popups.clas.abap +++ b/src/ui/zcl_abapgit_popups.clas.abap @@ -688,17 +688,30 @@ CLASS zcl_abapgit_popups IMPLEMENTATION. METHOD zif_abapgit_popups~popup_to_create_transp_branch. DATA: lt_fields TYPE TABLE OF sval, lv_transports_as_text TYPE string, + lv_desc_as_text TYPE string, ls_transport_header LIKE LINE OF it_transport_headers. DATA: lv_branch_name TYPE spo_value. DATA: lv_commit_text TYPE spo_value. CLEAR: rs_transport_branch-branch_name, rs_transport_branch-commit_text. - lv_transports_as_text = 'Transport(s)'. - LOOP AT it_transport_headers INTO ls_transport_header. - CONCATENATE lv_transports_as_text '_' ls_transport_header-trkorr INTO lv_transports_as_text. - ENDLOOP. + " If we only have one transport selected set branch name to Transport + " name and commit description to transport description. + IF lines( it_transport_headers ) = 1. + READ TABLE it_transport_headers INDEX 1 INTO ls_transport_header. + lv_transports_as_text = ls_transport_header-trkorr. + SELECT SINGLE as4text FROM e07t INTO lv_desc_as_text WHERE + trkorr = ls_transport_header-trkorr AND + langu = sy-langu . + ELSE. " Else set branch name and commit message to 'Transport(s)_TRXXXXXX_TRXXXXX' + lv_transports_as_text = 'Transport(s)'. + LOOP AT it_transport_headers INTO ls_transport_header. + CONCATENATE lv_transports_as_text '_' ls_transport_header-trkorr INTO lv_transports_as_text. + ENDLOOP. + lv_desc_as_text = lv_transports_as_text. + + ENDIF. add_field( EXPORTING iv_tabname = 'TEXTL' iv_fieldname = 'LINE' iv_fieldtext = 'Branch name' @@ -708,7 +721,7 @@ CLASS zcl_abapgit_popups IMPLEMENTATION. add_field( EXPORTING iv_tabname = 'ABAPTXT255' iv_fieldname = 'LINE' iv_fieldtext = 'Commit text' - iv_value = lv_transports_as_text + iv_value = lv_desc_as_text CHANGING ct_fields = lt_fields ). _popup_2_get_values( EXPORTING iv_popup_title = 'Transport to new Branch' "#EC NOTEXT