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)
This commit is contained in:
Mattias Johansson 2019-02-02 12:52:14 +01:00 committed by Lars Hvam
parent 6cc064d794
commit 0467707a5b

View File

@ -688,17 +688,30 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
METHOD zif_abapgit_popups~popup_to_create_transp_branch. METHOD zif_abapgit_popups~popup_to_create_transp_branch.
DATA: lt_fields TYPE TABLE OF sval, DATA: lt_fields TYPE TABLE OF sval,
lv_transports_as_text TYPE string, lv_transports_as_text TYPE string,
lv_desc_as_text TYPE string,
ls_transport_header LIKE LINE OF it_transport_headers. ls_transport_header LIKE LINE OF it_transport_headers.
DATA: lv_branch_name TYPE spo_value. DATA: lv_branch_name TYPE spo_value.
DATA: lv_commit_text TYPE spo_value. DATA: lv_commit_text TYPE spo_value.
CLEAR: rs_transport_branch-branch_name, rs_transport_branch-commit_text. CLEAR: rs_transport_branch-branch_name, rs_transport_branch-commit_text.
lv_transports_as_text = 'Transport(s)'. " If we only have one transport selected set branch name to Transport
LOOP AT it_transport_headers INTO ls_transport_header. " name and commit description to transport description.
CONCATENATE lv_transports_as_text '_' ls_transport_header-trkorr INTO lv_transports_as_text. IF lines( it_transport_headers ) = 1.
ENDLOOP. 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' add_field( EXPORTING iv_tabname = 'TEXTL'
iv_fieldname = 'LINE' iv_fieldname = 'LINE'
iv_fieldtext = 'Branch name' iv_fieldtext = 'Branch name'
@ -708,7 +721,7 @@ CLASS zcl_abapgit_popups IMPLEMENTATION.
add_field( EXPORTING iv_tabname = 'ABAPTXT255' add_field( EXPORTING iv_tabname = 'ABAPTXT255'
iv_fieldname = 'LINE' iv_fieldname = 'LINE'
iv_fieldtext = 'Commit text' iv_fieldtext = 'Commit text'
iv_value = lv_transports_as_text iv_value = lv_desc_as_text
CHANGING ct_fields = lt_fields ). CHANGING ct_fields = lt_fields ).
_popup_2_get_values( EXPORTING iv_popup_title = 'Transport to new Branch' "#EC NOTEXT _popup_2_get_values( EXPORTING iv_popup_title = 'Transport to new Branch' "#EC NOTEXT