mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
TRAN refactoring, reduce method length #2128
This commit is contained in:
larshp
Lars Hvam
parent
558ece49c5
commit
2fe5b30e4d
|
|
@ -4,273 +4,109 @@ CLASS zcl_abapgit_object_tran DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
|
||||||
INTERFACES zif_abapgit_object.
|
INTERFACES zif_abapgit_object.
|
||||||
ALIASES mo_files FOR zif_abapgit_object~mo_files.
|
ALIASES mo_files FOR zif_abapgit_object~mo_files.
|
||||||
|
|
||||||
|
PROTECTED SECTION.
|
||||||
PRIVATE SECTION.
|
PRIVATE SECTION.
|
||||||
|
|
||||||
TYPES: tty_param_values TYPE STANDARD TABLE OF rsparam
|
TYPES:
|
||||||
WITH NON-UNIQUE DEFAULT KEY.
|
tty_param_values TYPE STANDARD TABLE OF rsparam
|
||||||
|
WITH NON-UNIQUE DEFAULT KEY .
|
||||||
|
|
||||||
CONSTANTS: c_oo_program(9) VALUE '\PROGRAM=',
|
CONSTANTS:
|
||||||
c_oo_class(7) VALUE '\CLASS=',
|
c_oo_program(9) VALUE '\PROGRAM=' ##NO_TEXT.
|
||||||
c_oo_method(8) VALUE '\METHOD=',
|
CONSTANTS:
|
||||||
c_oo_tcode TYPE tcode VALUE 'OS_APPLICATION',
|
c_oo_class(7) VALUE '\CLASS=' ##NO_TEXT.
|
||||||
c_oo_frclass(30) VALUE 'CLASS',
|
CONSTANTS:
|
||||||
c_oo_frmethod(30) VALUE 'METHOD',
|
c_oo_method(8) VALUE '\METHOD=' ##NO_TEXT.
|
||||||
c_oo_frupdtask(30) VALUE 'UPDATE_MODE',
|
CONSTANTS c_oo_tcode TYPE tcode VALUE 'OS_APPLICATION' ##NO_TEXT.
|
||||||
c_oo_synchron VALUE 'S',
|
CONSTANTS:
|
||||||
c_oo_asynchron VALUE 'U',
|
c_oo_frclass(30) VALUE 'CLASS' ##NO_TEXT.
|
||||||
c_true TYPE c VALUE 'X',
|
CONSTANTS:
|
||||||
c_false TYPE c VALUE space.
|
c_oo_frmethod(30) VALUE 'METHOD' ##NO_TEXT.
|
||||||
|
CONSTANTS:
|
||||||
METHODS:
|
c_oo_frupdtask(30) VALUE 'UPDATE_MODE' ##NO_TEXT.
|
||||||
split_parameters
|
CONSTANTS c_oo_synchron TYPE c VALUE 'S' ##NO_TEXT.
|
||||||
CHANGING ct_rsparam TYPE s_param
|
CONSTANTS c_oo_asynchron TYPE c VALUE 'U' ##NO_TEXT.
|
||||||
cs_rsstcd TYPE rsstcd
|
CONSTANTS c_true TYPE c VALUE 'X' ##NO_TEXT.
|
||||||
cs_tstcp TYPE tstcp
|
CONSTANTS c_false TYPE c VALUE space ##NO_TEXT.
|
||||||
cs_tstc TYPE tstc,
|
DATA:
|
||||||
|
mt_bcdata TYPE STANDARD TABLE OF bdcdata .
|
||||||
split_parameters_comp
|
|
||||||
IMPORTING ig_type TYPE any
|
|
||||||
ig_param TYPE any
|
|
||||||
CHANGING cg_value TYPE any,
|
|
||||||
|
|
||||||
serialize_texts
|
|
||||||
IMPORTING io_xml TYPE REF TO zcl_abapgit_xml_output
|
|
||||||
RAISING zcx_abapgit_exception,
|
|
||||||
|
|
||||||
deserialize_texts
|
|
||||||
IMPORTING io_xml TYPE REF TO zcl_abapgit_xml_input
|
|
||||||
RAISING zcx_abapgit_exception,
|
|
||||||
|
|
||||||
deserialize_oo_transaction
|
|
||||||
IMPORTING
|
|
||||||
iv_package TYPE devclass
|
|
||||||
is_tstc TYPE tstc
|
|
||||||
is_tstcc TYPE tstcc
|
|
||||||
is_tstct TYPE tstct
|
|
||||||
is_tstcp TYPE tstcp
|
|
||||||
it_param_values TYPE zcl_abapgit_object_tran=>tty_param_values
|
|
||||||
is_rsstcd TYPE rsstcd
|
|
||||||
RAISING
|
|
||||||
zcx_abapgit_exception.
|
|
||||||
|
|
||||||
|
METHODS add_data
|
||||||
|
IMPORTING
|
||||||
|
!iv_fnam TYPE bdcdata-fnam
|
||||||
|
!iv_fval TYPE clike .
|
||||||
|
METHODS call_se93
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS set_oo_parameters
|
||||||
|
IMPORTING
|
||||||
|
!it_rsparam TYPE s_param
|
||||||
|
CHANGING
|
||||||
|
!cs_rsstcd TYPE rsstcd .
|
||||||
|
METHODS split_parameters
|
||||||
|
CHANGING
|
||||||
|
!ct_rsparam TYPE s_param
|
||||||
|
!cs_rsstcd TYPE rsstcd
|
||||||
|
!cs_tstcp TYPE tstcp
|
||||||
|
!cs_tstc TYPE tstc .
|
||||||
|
METHODS split_parameters_comp
|
||||||
|
IMPORTING
|
||||||
|
!ig_type TYPE any
|
||||||
|
!ig_param TYPE any
|
||||||
|
CHANGING
|
||||||
|
!cg_value TYPE any .
|
||||||
|
METHODS serialize_texts
|
||||||
|
IMPORTING
|
||||||
|
!io_xml TYPE REF TO zcl_abapgit_xml_output
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS deserialize_texts
|
||||||
|
IMPORTING
|
||||||
|
!io_xml TYPE REF TO zcl_abapgit_xml_input
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
|
METHODS deserialize_oo_transaction
|
||||||
|
IMPORTING
|
||||||
|
!iv_package TYPE devclass
|
||||||
|
!is_tstc TYPE tstc
|
||||||
|
!is_tstcc TYPE tstcc
|
||||||
|
!is_tstct TYPE tstct
|
||||||
|
!is_tstcp TYPE tstcp
|
||||||
|
!it_param_values TYPE zcl_abapgit_object_tran=>tty_param_values
|
||||||
|
!is_rsstcd TYPE rsstcd
|
||||||
|
RAISING
|
||||||
|
zcx_abapgit_exception .
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS zcl_abapgit_object_tran IMPLEMENTATION.
|
CLASS ZCL_ABAPGIT_OBJECT_TRAN IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD deserialize_oo_transaction.
|
METHOD add_data.
|
||||||
|
|
||||||
" You should remember that we don't use batch input just for fun,
|
DATA: ls_bcdata LIKE LINE OF mt_bcdata.
|
||||||
" but because FM RPY_TRANSACTION_INSERT doesn't support OO transactions.
|
|
||||||
|
|
||||||
DATA: ls_bcdata TYPE bdcdata,
|
ls_bcdata-fnam = iv_fnam.
|
||||||
lt_bcdata TYPE STANDARD TABLE OF bdcdata,
|
ls_bcdata-fval = iv_fval.
|
||||||
lt_message TYPE STANDARD TABLE OF bdcmsgcoll.
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD call_se93.
|
||||||
|
|
||||||
|
DATA: lt_message TYPE STANDARD TABLE OF bdcmsgcoll.
|
||||||
|
|
||||||
FIELD-SYMBOLS: <ls_message> TYPE bdcmsgcoll.
|
FIELD-SYMBOLS: <ls_message> TYPE bdcmsgcoll.
|
||||||
|
|
||||||
ls_bcdata-program = 'SAPLSEUK'.
|
|
||||||
ls_bcdata-dynpro = '0390'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTC-TCODE'.
|
|
||||||
ls_bcdata-fval = is_tstc-tcode.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
IF zif_abapgit_object~exists( ) = abap_true.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=CHNG'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ELSE.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=ADD'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
ls_bcdata-program = 'SAPLSEUK'.
|
|
||||||
ls_bcdata-dynpro = '0300'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTCT-TTEXT'.
|
|
||||||
ls_bcdata-fval = is_tstct-ttext.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'RSSTCD-S_CLASS'.
|
|
||||||
ls_bcdata-fval = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=ENTR'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ls_bcdata-program = 'SAPLSEUK'.
|
|
||||||
ls_bcdata-dynpro = '0360'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'RSSTCD-S_TRFRAME'.
|
|
||||||
ls_bcdata-fval = is_rsstcd-s_trframe.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'RSSTCD-S_UPDTASK'.
|
|
||||||
ls_bcdata-fval = is_rsstcd-s_updtask.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=TR_FRAMEWORK'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ls_bcdata-program = 'SAPLSEUK'.
|
|
||||||
ls_bcdata-dynpro = '0360'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'RSSTCD-CLASSNAME'.
|
|
||||||
ls_bcdata-fval = is_rsstcd-classname.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'RSSTCD-METHOD'.
|
|
||||||
ls_bcdata-fval = is_rsstcd-method.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
IF is_rsstcd-s_local IS NOT INITIAL.
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'RSSTCD-S_LOCAL'.
|
|
||||||
ls_bcdata-fval = is_rsstcd-s_local.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
IF is_rsstcd-s_updlok IS NOT INITIAL.
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'RSSTCD-S_UPDLOK'.
|
|
||||||
ls_bcdata-fval = is_rsstcd-s_updlok.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTC-PGMNA'.
|
|
||||||
ls_bcdata-fval = is_tstc-pgmna.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
IF is_tstcc-s_webgui = '2'.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'G_IAC_EWT'.
|
|
||||||
ls_bcdata-fval = abap_true.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = 'MAKE_PROFI '.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ls_bcdata-program = 'SAPLSEUK'.
|
|
||||||
ls_bcdata-dynpro = '0360'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ELSEIF is_tstcc-s_webgui IS NOT INITIAL.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTCC-S_WEBGUI'.
|
|
||||||
ls_bcdata-fval = is_tstcc-s_webgui.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
IF is_tstcc-s_pervas IS NOT INITIAL.
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTCC-S_PERVAS'.
|
|
||||||
ls_bcdata-fval = is_tstcc-s_pervas.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
IF is_tstcc-s_service IS NOT INITIAL.
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTCC-S_SERVICE'.
|
|
||||||
ls_bcdata-fval = is_tstcc-s_service.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
IF is_tstcc-s_platin IS NOT INITIAL.
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTCC-S_PLATIN'.
|
|
||||||
ls_bcdata-fval = is_tstcc-s_platin.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
IF is_tstcc-s_win32 IS NOT INITIAL.
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'TSTCC-S_WIN32'.
|
|
||||||
ls_bcdata-fval = is_tstcc-s_win32.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
ENDIF.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=WB_SAVE'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ls_bcdata-program = 'SAPLSTRD'.
|
|
||||||
ls_bcdata-dynpro = '0100'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'KO007-L_DEVCLASS'.
|
|
||||||
ls_bcdata-fval = iv_package.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=ADD'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ls_bcdata-program = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-dynpro = '0360'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=WB_BACK'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
ls_bcdata-program = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-dynpro = '0360'.
|
|
||||||
ls_bcdata-dynbegin = 'X'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CLEAR ls_bcdata.
|
|
||||||
ls_bcdata-fnam = 'BDC_OKCODE'.
|
|
||||||
ls_bcdata-fval = '=WB_BACK'.
|
|
||||||
APPEND ls_bcdata TO lt_bcdata.
|
|
||||||
|
|
||||||
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
|
||||||
EXPORTING
|
EXPORTING
|
||||||
tcode = 'SE93'
|
tcode = 'SE93'
|
||||||
mode_val = 'N'
|
mode_val = 'N'
|
||||||
TABLES
|
TABLES
|
||||||
using_tab = lt_bcdata
|
using_tab = mt_bcdata
|
||||||
mess_tab = lt_message
|
mess_tab = lt_message
|
||||||
EXCEPTIONS
|
EXCEPTIONS
|
||||||
OTHERS = 1.
|
OTHERS = 1.
|
||||||
|
|
@ -294,6 +130,163 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD deserialize_oo_transaction.
|
||||||
|
|
||||||
|
" You should remember that we don't use batch input just for fun,
|
||||||
|
" but because FM RPY_TRANSACTION_INSERT doesn't support OO transactions.
|
||||||
|
|
||||||
|
DATA: ls_bcdata TYPE bdcdata.
|
||||||
|
|
||||||
|
|
||||||
|
CLEAR mt_bcdata.
|
||||||
|
|
||||||
|
ls_bcdata-program = 'SAPLSEUK'.
|
||||||
|
ls_bcdata-dynpro = '0390'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'TSTC-TCODE'
|
||||||
|
iv_fval = is_tstc-tcode ).
|
||||||
|
|
||||||
|
IF zif_abapgit_object~exists( ) = abap_true.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=CHNG' ).
|
||||||
|
|
||||||
|
ELSE.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=ADD' ).
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ls_bcdata-program = 'SAPLSEUK'.
|
||||||
|
ls_bcdata-dynpro = '0300'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'TSTCT-TTEXT'
|
||||||
|
iv_fval = is_tstct-ttext ).
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'RSSTCD-S_CLASS'
|
||||||
|
iv_fval = 'X' ).
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=ENTR' ).
|
||||||
|
|
||||||
|
ls_bcdata-program = 'SAPLSEUK'.
|
||||||
|
ls_bcdata-dynpro = '0360'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'RSSTCD-S_TRFRAME'
|
||||||
|
iv_fval = is_rsstcd-s_trframe ).
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'RSSTCD-S_UPDTASK'
|
||||||
|
iv_fval = is_rsstcd-s_updtask ).
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=TR_FRAMEWORK' ).
|
||||||
|
|
||||||
|
ls_bcdata-program = 'SAPLSEUK'.
|
||||||
|
ls_bcdata-dynpro = '0360'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'RSSTCD-CLASSNAME'
|
||||||
|
iv_fval = is_rsstcd-classname ).
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'RSSTCD-METHOD'
|
||||||
|
iv_fval = is_rsstcd-method ).
|
||||||
|
|
||||||
|
IF is_rsstcd-s_local IS NOT INITIAL.
|
||||||
|
add_data( iv_fnam = 'RSSTCD-S_LOCAL'
|
||||||
|
iv_fval = is_rsstcd-s_local ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF is_rsstcd-s_updlok IS NOT INITIAL.
|
||||||
|
add_data( iv_fnam = 'RSSTCD-S_UPDLOK'
|
||||||
|
iv_fval = is_rsstcd-s_updlok ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'TSTC-PGMNA'
|
||||||
|
iv_fval = is_tstc-pgmna ).
|
||||||
|
|
||||||
|
IF is_tstcc-s_webgui = '2'.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'G_IAC_EWT'
|
||||||
|
iv_fval = abap_true ).
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = 'MAKE_PROFI' ).
|
||||||
|
|
||||||
|
ls_bcdata-program = 'SAPLSEUK'.
|
||||||
|
ls_bcdata-dynpro = '0360'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
ELSEIF is_tstcc-s_webgui IS NOT INITIAL.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'TSTCC-S_WEBGUI'
|
||||||
|
iv_fval = is_tstcc-s_webgui ).
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF is_tstcc-s_pervas IS NOT INITIAL.
|
||||||
|
add_data( iv_fnam = 'TSTCC-S_PERVAS'
|
||||||
|
iv_fval = is_tstcc-s_pervas ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF is_tstcc-s_service IS NOT INITIAL.
|
||||||
|
add_data( iv_fnam = 'TSTCC-S_SERVICE'
|
||||||
|
iv_fval = is_tstcc-s_service ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF is_tstcc-s_platin IS NOT INITIAL.
|
||||||
|
add_data( iv_fnam = 'TSTCC-S_PLATIN'
|
||||||
|
iv_fval = is_tstcc-s_platin ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
IF is_tstcc-s_win32 IS NOT INITIAL.
|
||||||
|
add_data( iv_fnam = 'TSTCC-S_WIN32'
|
||||||
|
iv_fval = is_tstcc-s_win32 ).
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=WB_SAVE' ).
|
||||||
|
|
||||||
|
ls_bcdata-program = 'SAPLSTRD'.
|
||||||
|
ls_bcdata-dynpro = '0100'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'KO007-L_DEVCLASS'
|
||||||
|
iv_fval = iv_package ).
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=ADD' ).
|
||||||
|
|
||||||
|
ls_bcdata-program = 'BDC_OKCODE'.
|
||||||
|
ls_bcdata-dynpro = '0360'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=WB_BACK' ).
|
||||||
|
|
||||||
|
ls_bcdata-program = 'BDC_OKCODE'.
|
||||||
|
ls_bcdata-dynpro = '0360'.
|
||||||
|
ls_bcdata-dynbegin = 'X'.
|
||||||
|
APPEND ls_bcdata TO mt_bcdata.
|
||||||
|
|
||||||
|
add_data( iv_fnam = 'BDC_OKCODE'
|
||||||
|
iv_fval = '=WB_BACK' ).
|
||||||
|
|
||||||
|
call_se93( ).
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD deserialize_texts.
|
METHOD deserialize_texts.
|
||||||
|
|
||||||
DATA lt_tpool_i18n TYPE TABLE OF tstct.
|
DATA lt_tpool_i18n TYPE TABLE OF tstct.
|
||||||
|
|
@ -341,6 +334,39 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD set_oo_parameters.
|
||||||
|
|
||||||
|
DATA: ls_param LIKE LINE OF it_rsparam.
|
||||||
|
|
||||||
|
IF cs_rsstcd-call_tcode = c_oo_tcode.
|
||||||
|
cs_rsstcd-s_trframe = c_true.
|
||||||
|
LOOP AT it_rsparam INTO ls_param.
|
||||||
|
CASE ls_param-field.
|
||||||
|
WHEN c_oo_frclass.
|
||||||
|
cs_rsstcd-classname = ls_param-value.
|
||||||
|
WHEN c_oo_frmethod.
|
||||||
|
cs_rsstcd-method = ls_param-value.
|
||||||
|
WHEN c_oo_frupdtask.
|
||||||
|
IF ls_param-value = c_oo_synchron.
|
||||||
|
cs_rsstcd-s_upddir = c_true.
|
||||||
|
cs_rsstcd-s_updtask = c_false.
|
||||||
|
cs_rsstcd-s_updlok = c_false.
|
||||||
|
ELSEIF ls_param-value = c_oo_asynchron.
|
||||||
|
cs_rsstcd-s_upddir = c_false.
|
||||||
|
cs_rsstcd-s_updtask = c_true.
|
||||||
|
cs_rsstcd-s_updlok = c_false.
|
||||||
|
ELSE.
|
||||||
|
cs_rsstcd-s_upddir = c_false.
|
||||||
|
cs_rsstcd-s_updtask = c_false.
|
||||||
|
cs_rsstcd-s_updlok = c_true.
|
||||||
|
ENDIF.
|
||||||
|
ENDCASE.
|
||||||
|
ENDLOOP.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD split_parameters.
|
METHOD split_parameters.
|
||||||
* see subroutine split_parameters in include LSEUKF01
|
* see subroutine split_parameters in include LSEUKF01
|
||||||
|
|
||||||
|
|
@ -446,32 +472,11 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ENDIF.
|
ENDIF.
|
||||||
ENDDO.
|
ENDDO.
|
||||||
* oo-Transaktion mit Framework
|
|
||||||
IF cs_rsstcd-call_tcode = c_oo_tcode.
|
set_oo_parameters(
|
||||||
cs_rsstcd-s_trframe = c_true.
|
EXPORTING it_rsparam = ct_rsparam
|
||||||
LOOP AT ct_rsparam INTO ls_param.
|
CHANGING cs_rsstcd = cs_rsstcd ).
|
||||||
CASE ls_param-field.
|
|
||||||
WHEN c_oo_frclass.
|
|
||||||
cs_rsstcd-classname = ls_param-value.
|
|
||||||
WHEN c_oo_frmethod.
|
|
||||||
cs_rsstcd-method = ls_param-value.
|
|
||||||
WHEN c_oo_frupdtask.
|
|
||||||
IF ls_param-value = c_oo_synchron.
|
|
||||||
cs_rsstcd-s_upddir = c_true.
|
|
||||||
cs_rsstcd-s_updtask = c_false.
|
|
||||||
cs_rsstcd-s_updlok = c_false.
|
|
||||||
ELSEIF ls_param-value = c_oo_asynchron.
|
|
||||||
cs_rsstcd-s_upddir = c_false.
|
|
||||||
cs_rsstcd-s_updtask = c_true.
|
|
||||||
cs_rsstcd-s_updlok = c_false.
|
|
||||||
ELSE.
|
|
||||||
cs_rsstcd-s_upddir = c_false.
|
|
||||||
cs_rsstcd-s_updtask = c_false.
|
|
||||||
cs_rsstcd-s_updlok = c_true.
|
|
||||||
ENDIF.
|
|
||||||
ENDCASE.
|
|
||||||
ENDLOOP.
|
|
||||||
ENDIF.
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -651,6 +656,11 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION.
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
|
METHOD zif_abapgit_object~is_active.
|
||||||
|
rv_active = is_active( ).
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~is_locked.
|
METHOD zif_abapgit_object~is_locked.
|
||||||
|
|
||||||
DATA: lv_object TYPE eqegraarg.
|
DATA: lv_object TYPE eqegraarg.
|
||||||
|
|
@ -761,9 +771,4 @@ CLASS zcl_abapgit_object_tran IMPLEMENTATION.
|
||||||
serialize_texts( io_xml ).
|
serialize_texts( io_xml ).
|
||||||
|
|
||||||
ENDMETHOD.
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD zif_abapgit_object~is_active.
|
|
||||||
rv_active = is_active( ).
|
|
||||||
ENDMETHOD.
|
|
||||||
ENDCLASS.
|
ENDCLASS.
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user