SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

SCP1, sets of sets (#2945)

Browse Source 
* SCP1, first few bits

* try this

* fix transport
This commit is contained in:
Lars Hvam 2019-10-09 01:59:48 -07:00 committed by GitHub
parent 934b3635dd
commit ef0d149fa3
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 98 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

121
src/objects/zcl_abapgit_object_scp1.clas.abap
View File

@ -16,6 +16,7 @@ CLASS zcl_abapgit_object_scp1 DEFINITION
scprvall TYPE STANDARD TABLE OF scprvall WITH DEFAULT KEY, scprvall TYPE STANDARD TABLE OF scprvall WITH DEFAULT KEY,
scprreca TYPE STANDARD TABLE OF scprreca WITH DEFAULT KEY, scprreca TYPE STANDARD TABLE OF scprreca WITH DEFAULT KEY,
scprfldv TYPE STANDARD TABLE OF scprfldv WITH DEFAULT KEY, scprfldv TYPE STANDARD TABLE OF scprfldv WITH DEFAULT KEY,
subprofs TYPE STANDARD TABLE OF scprpprl WITH DEFAULT KEY,
END OF ty_scp1 . END OF ty_scp1 .
METHODS dequeue . METHODS dequeue .
@ -27,6 +28,11 @@ CLASS zcl_abapgit_object_scp1 DEFINITION
!is_scp1 TYPE ty_scp1 !is_scp1 TYPE ty_scp1
RAISING RAISING
zcx_abapgit_exception . zcx_abapgit_exception .
METHODS save_hier
IMPORTING
!is_scp1 TYPE ty_scp1
RAISING
zcx_abapgit_exception .
METHODS adjust_inbound METHODS adjust_inbound
CHANGING CHANGING
!cs_scp1 TYPE ty_scp1 . !cs_scp1 TYPE ty_scp1 .
@ -36,9 +42,14 @@ CLASS zcl_abapgit_object_scp1 DEFINITION
METHODS load METHODS load
CHANGING CHANGING
!cs_scp1 TYPE ty_scp1 . !cs_scp1 TYPE ty_scp1 .
METHODS load_hier
CHANGING
!cs_scp1 TYPE ty_scp1 .
METHODS call_delete_fms METHODS call_delete_fms
IMPORTING iv_profile_id TYPE scpr_id IMPORTING
RAISING zcx_abapgit_exception. !iv_profile_id TYPE scpr_id
RAISING
zcx_abapgit_exception .
PRIVATE SECTION. PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -89,11 +100,15 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
METHOD call_delete_fms. METHOD call_delete_fms.
CONSTANTS lc_version_new TYPE c VALUE 'N' ##NO_TEXT. "Include SCPRINTCONST version_new CONSTANTS:
CONSTANTS lc_operation_delete TYPE c VALUE 'D' ##NO_TEXT. lc_version_new TYPE c VALUE 'N' ##NO_TEXT, "Include SCPRINTCONST version_new
DATA lv_profile_type TYPE scprattr-type. lc_operation_delete TYPE c VALUE 'D' ##NO_TEXT.
DATA lt_fatherprofiles TYPE STANDARD TABLE OF scproprof WITH DEFAULT KEY.
DATA ls_fatherprofile TYPE scproprof. DATA:
lv_profile_type TYPE scprattr-type,
lt_fatherprofiles TYPE STANDARD TABLE OF scproprof WITH DEFAULT KEY,
ls_fatherprofile TYPE scproprof.
CALL FUNCTION 'SCPR_DB_ATTR_GET_DETAIL' CALL FUNCTION 'SCPR_DB_ATTR_GET_DETAIL'
EXPORTING EXPORTING
@ -179,15 +194,6 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
METHOD load. METHOD load.
CALL FUNCTION 'SCPR_TEXT_GET'
EXPORTING
profid = cs_scp1-scprattr-id
category = cs_scp1-scprattr-category
TABLES
texts = cs_scp1-scprtext
EXCEPTIONS
no_text_found = 1.
CALL FUNCTION 'SCPR_TEMPL_DB_VALS_GET_DETAIL' CALL FUNCTION 'SCPR_TEMPL_DB_VALS_GET_DETAIL'
EXPORTING EXPORTING
profid = cs_scp1-scprattr-id profid = cs_scp1-scprattr-id
@ -207,6 +213,18 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD load_hier.
CALL FUNCTION 'SCPR_PRSET_DB_SUBP_GET_DETAIL'
EXPORTING
profid = cs_scp1-scprattr-id
category = cs_scp1-scprattr-category
TABLES
subprofs = cs_scp1-subprofs.
ENDMETHOD.
METHOD save. METHOD save.
DATA: ls_scp1 TYPE ty_scp1, DATA: ls_scp1 TYPE ty_scp1,
@ -216,7 +234,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
* copy everything to local, the function module changes the values * copy everything to local, the function module changes the values
ls_scp1 = is_scp1. ls_scp1 = is_scp1.
READ TABLE ls_scp1-scprtext INTO ls_text WITH KEY langu = sy-langu. READ TABLE ls_scp1-scprtext INTO ls_text WITH KEY langu = sy-langu. "#EC CI_SUBRC
CALL FUNCTION 'SCPR_TEMPL_MN_TEMPLATE_SAVE' CALL FUNCTION 'SCPR_TEMPL_MN_TEMPLATE_SAVE'
EXPORTING EXPORTING
@ -235,7 +253,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
bcset_type = ls_scp1-scprattr-type bcset_type = ls_scp1-scprattr-type
fldtxtvar_supplied = 'YES' fldtxtvar_supplied = 'YES'
with_transp_insert = abap_false with_transp_insert = abap_false
with_progress_indicator = abap_true with_progress_indicator = abap_false
remove_denied_data = abap_true remove_denied_data = abap_true
ask_for_cont_after_remove = abap_true ask_for_cont_after_remove = abap_true
TABLES TABLES
@ -251,7 +269,57 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
database_error = 4 database_error = 4
OTHERS = 5. OTHERS = 5.
IF sy-subrc <> 0. IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error saving SCP1, { sy-tabix }| ). zcx_abapgit_exception=>raise( |Error saving SCP1, { sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD save_hier.
DATA: ls_scp1 TYPE ty_scp1,
ls_profs LIKE LINE OF ls_scp1-subprofs,
lt_sub TYPE STANDARD TABLE OF scproprof WITH DEFAULT KEY,
ls_sub LIKE LINE OF lt_sub,
ls_text TYPE scprtext.
* copy everything to local, the function module changes the values
ls_scp1 = is_scp1.
READ TABLE ls_scp1-scprtext INTO ls_text WITH KEY langu = sy-langu. "#EC CI_SUBRC
* see fm SCPR_PRSET_DB_STORE, only this field and sequence is used
LOOP AT ls_scp1-subprofs INTO ls_profs.
ls_sub-id = ls_profs-subprofile.
APPEND ls_sub TO lt_sub.
ENDLOOP.
CALL FUNCTION 'SCPR_PRSET_MN_BCSET_SAVE'
EXPORTING
profid = ls_scp1-scprattr-id
proftext = ls_text-text
category = ls_scp1-scprattr-category
cli_dep = ls_scp1-scprattr-cli_dep
cli_cas = ls_scp1-scprattr-cli_cas
reftype = ls_scp1-scprattr-reftype
refname = ls_scp1-scprattr-refname
orgid = ls_scp1-scprattr-orgid
component = ls_scp1-scprattr-component
minrelease = ls_scp1-scprattr-minrelease
maxrelease = ls_scp1-scprattr-maxrelease
act_info = ls_scp1-scprattr-act_info
with_transp_insert = abap_false
with_progress_indicator = abap_false
TABLES
subprofs = lt_sub
texts = ls_scp1-scprtext
EXCEPTIONS
user_abort = 1
error_in_transport_layer = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error saving SCP1, { sy-subrc }| ).
ENDIF. ENDIF.
ENDMETHOD. ENDMETHOD.
@ -294,8 +362,7 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
adjust_inbound( CHANGING cs_scp1 = ls_scp1 ). adjust_inbound( CHANGING cs_scp1 = ls_scp1 ).
IF ls_scp1-scprattr-type = 'TMP'. IF ls_scp1-scprattr-type = 'TMP'.
* todo, function module SCPR_PRSET_MN_BCSET_SAVE save_hier( ls_scp1 ).
zcx_abapgit_exception=>raise( |todo, SCP1| ).
ELSE. ELSE.
save( ls_scp1 ). save( ls_scp1 ).
ENDIF. ENDIF.
@ -393,9 +460,17 @@ CLASS ZCL_ABAPGIT_OBJECT_SCP1 IMPLEMENTATION.
orgid = ls_scp1-scprattr-orgid orgid = ls_scp1-scprattr-orgid
act_info = ls_scp1-scprattr-act_info. act_info = ls_scp1-scprattr-act_info.
CALL FUNCTION 'SCPR_TEXT_GET'
EXPORTING
profid = ls_scp1-scprattr-id
category = ls_scp1-scprattr-category
TABLES
texts = ls_scp1-scprtext
EXCEPTIONS
no_text_found = 1.
IF ls_scp1-scprattr-type = 'TMP'. IF ls_scp1-scprattr-type = 'TMP'.
* todo, Hierarchical, fm SCPR_PRSET_DB_SUBP_GET_DETAIL, recursive? load_hier( CHANGING cs_scp1 = ls_scp1 ).
zcx_abapgit_exception=>raise( |todo, SCP1| ).
ELSE. ELSE.
load( CHANGING cs_scp1 = ls_scp1 ). load( CHANGING cs_scp1 = ls_scp1 ).
ENDIF. ENDIF.