mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 12:20:51 +08:00
* Determination transaction type * Determine TX type * abaplint checks
This commit is contained in:
parent
a85db8c8b8
commit
c9ae5ac122
|
@ -12,17 +12,17 @@ CLASS zcl_abapgit_object_tran DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
|
||||||
WITH NON-UNIQUE DEFAULT KEY .
|
WITH NON-UNIQUE DEFAULT KEY .
|
||||||
|
|
||||||
CONSTANTS:
|
CONSTANTS:
|
||||||
c_oo_program TYPE c LENGTH 9 VALUE '\PROGRAM=' ##NO_TEXT,
|
c_oo_program TYPE c LENGTH 9 VALUE '\PROGRAM=' ##NO_TEXT,
|
||||||
c_oo_class TYPE c LENGTH 7 VALUE '\CLASS=' ##NO_TEXT,
|
c_oo_class TYPE c LENGTH 7 VALUE '\CLASS=' ##NO_TEXT,
|
||||||
c_oo_method TYPE c LENGTH 8 VALUE '\METHOD=' ##NO_TEXT,
|
c_oo_method TYPE c LENGTH 8 VALUE '\METHOD=' ##NO_TEXT,
|
||||||
c_oo_tcode TYPE tcode VALUE 'OS_APPLICATION' ##NO_TEXT,
|
c_oo_tcode TYPE tcode VALUE 'OS_APPLICATION' ##NO_TEXT,
|
||||||
c_oo_frclass TYPE c LENGTH 30 VALUE 'CLASS' ##NO_TEXT,
|
c_oo_frclass TYPE c LENGTH 30 VALUE 'CLASS' ##NO_TEXT,
|
||||||
c_oo_frmethod TYPE c LENGTH 30 VALUE 'METHOD' ##NO_TEXT,
|
c_oo_frmethod TYPE c LENGTH 30 VALUE 'METHOD' ##NO_TEXT,
|
||||||
c_oo_frupdtask TYPE c LENGTH 30 VALUE 'UPDATE_MODE' ##NO_TEXT,
|
c_oo_frupdtask TYPE c LENGTH 30 VALUE 'UPDATE_MODE' ##NO_TEXT,
|
||||||
c_oo_synchron TYPE c VALUE 'S' ##NO_TEXT,
|
c_oo_synchron TYPE c VALUE 'S' ##NO_TEXT,
|
||||||
c_oo_asynchron TYPE c VALUE 'U' ##NO_TEXT,
|
c_oo_asynchron TYPE c VALUE 'U' ##NO_TEXT,
|
||||||
c_true TYPE c VALUE 'X' ##NO_TEXT,
|
c_true TYPE c VALUE 'X' ##NO_TEXT,
|
||||||
c_false TYPE c VALUE space ##NO_TEXT.
|
c_false TYPE c VALUE space ##NO_TEXT.
|
||||||
|
|
||||||
DATA:
|
DATA:
|
||||||
mt_bcdata TYPE STANDARD TABLE OF bdcdata .
|
mt_bcdata TYPE STANDARD TABLE OF bdcdata .
|
||||||
|
@ -78,7 +78,7 @@ ENDCLASS.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
CLASS ZCL_ABAPGIT_OBJECT_TRAN IMPLEMENTATION.
|
CLASS zcl_abapgit_object_tran IMPLEMENTATION.
|
||||||
|
|
||||||
|
|
||||||
METHOD add_data.
|
METHOD add_data.
|
||||||
|
@ -532,10 +532,10 @@ CLASS ZCL_ABAPGIT_OBJECT_TRAN IMPLEMENTATION.
|
||||||
METHOD zif_abapgit_object~deserialize.
|
METHOD zif_abapgit_object~deserialize.
|
||||||
|
|
||||||
CONSTANTS: lc_hex_tra TYPE x VALUE '00',
|
CONSTANTS: lc_hex_tra TYPE x VALUE '00',
|
||||||
* c_hex_men TYPE x VALUE '01',
|
* lc_hex_men TYPE x VALUE '01',
|
||||||
lc_hex_par TYPE x VALUE '02',
|
lc_hex_par TYPE x VALUE '02',
|
||||||
lc_hex_rep TYPE x VALUE '80',
|
lc_hex_rep TYPE x VALUE '80',
|
||||||
* c_hex_rpv TYPE x VALUE '10',
|
* lc_hex_rpv TYPE x VALUE '10',
|
||||||
lc_hex_obj TYPE x VALUE '08'.
|
lc_hex_obj TYPE x VALUE '08'.
|
||||||
|
|
||||||
DATA: lv_dynpro TYPE d020s-dnum,
|
DATA: lv_dynpro TYPE d020s-dnum,
|
||||||
|
@ -563,19 +563,18 @@ CLASS ZCL_ABAPGIT_OBJECT_TRAN IMPLEMENTATION.
|
||||||
|
|
||||||
lv_dynpro = ls_tstc-dypno.
|
lv_dynpro = ls_tstc-dypno.
|
||||||
|
|
||||||
CASE ls_tstc-cinfo.
|
IF ls_tstc-cinfo O lc_hex_rep.
|
||||||
WHEN lc_hex_tra.
|
lv_type = ststc_c_type_report.
|
||||||
lv_type = ststc_c_type_dialog.
|
ELSEIF ls_tstc-cinfo O lc_hex_obj.
|
||||||
WHEN lc_hex_rep.
|
lv_type = ststc_c_type_object.
|
||||||
lv_type = ststc_c_type_report.
|
" todo, or ststc_c_type_variant?
|
||||||
WHEN lc_hex_par.
|
ELSEIF ls_tstc-cinfo O lc_hex_par.
|
||||||
lv_type = ststc_c_type_parameters.
|
lv_type = ststc_c_type_parameters.
|
||||||
WHEN lc_hex_obj.
|
ELSEIF ls_tstc-cinfo O lc_hex_tra.
|
||||||
lv_type = ststc_c_type_object.
|
lv_type = ststc_c_type_dialog.
|
||||||
* todo, or ststc_c_type_variant?
|
ELSE.
|
||||||
WHEN OTHERS.
|
zcx_abapgit_exception=>raise( 'Transaction, unknown CINFO' ).
|
||||||
zcx_abapgit_exception=>raise( 'Transaction, unknown CINFO' ).
|
ENDIF.
|
||||||
ENDCASE.
|
|
||||||
|
|
||||||
IF ls_tstcp IS NOT INITIAL.
|
IF ls_tstcp IS NOT INITIAL.
|
||||||
split_parameters(
|
split_parameters(
|
||||||
|
|
Loading…
Reference in New Issue
Block a user