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

Fix extended check issues - Part 7

Browse Source 
Fix function calls with parameters that don't exist in lower releases

Ref #5210
This commit is contained in:
Marc Bernard 2024-11-28 00:36:10 +00:00
parent 93935b3dfb
commit aff5f30c3c
1 changed files with 92 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

137
src/objects/zcl_abapgit_object_iobj.clas.abap
View File

@ -61,7 +61,7 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION.
iobj_not_found = 1 iobj_not_found = 1
illegal_input = 2 illegal_input = 2
bct_comp_invalid = 3 bct_comp_invalid = 3
not_authorized = 4 * not_authorized = 4 " not in lower releases
OTHERS = 5. OTHERS = 5.
IF sy-subrc = 0. IF sy-subrc = 0.
ASSIGN COMPONENT 'TSTPNM' OF STRUCTURE <lg_viobj> TO <lg_tstpnm>. ASSIGN COMPONENT 'TSTPNM' OF STRUCTURE <lg_viobj> TO <lg_tstpnm>.
@ -200,36 +200,67 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
IF zif_abapgit_object~exists( ) = abap_false. IF zif_abapgit_object~exists( ) = abap_false.
CALL FUNCTION 'BAPI_IOBJ_CREATE' TRY.
EXPORTING CALL FUNCTION 'BAPI_IOBJ_CREATE'
details = <lg_details> EXPORTING
IMPORTING details = <lg_details>
return = ls_return IMPORTING
TABLES return = ls_return
compounds = <lt_compounds> TABLES
attributes = <lt_attributes> compounds = <lt_compounds>
navigationattributes = <lt_navigationattributes> attributes = <lt_attributes>
atrnavinfoprovider = <lt_atrnavinfoprovider> navigationattributes = <lt_navigationattributes>
hierarchycharacteristics = <lt_hierarchycharacteristics> atrnavinfoprovider = <lt_atrnavinfoprovider>
elimination = <lt_elimination> hierarchycharacteristics = <lt_hierarchycharacteristics>
hanafieldsmapping = <lt_hanafieldsmapping> elimination = <lt_elimination>
xxlattributes = <lt_xxlattributes>. hanafieldsmapping = <lt_hanafieldsmapping>
xxlattributes = <lt_xxlattributes> ##ARG_OK.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'BAPI_IOBJ_CREATE'
EXPORTING
details = <lg_details>
IMPORTING
return = ls_return
TABLES
compounds = <lt_compounds>
attributes = <lt_attributes>
navigationattributes = <lt_navigationattributes>
atrnavinfoprovider = <lt_atrnavinfoprovider>
hierarchycharacteristics = <lt_hierarchycharacteristics>
elimination = <lt_elimination>.
ENDTRY.
ELSE. ELSE.
CALL FUNCTION 'BAPI_IOBJ_CHANGE' TRY.
EXPORTING CALL FUNCTION 'BAPI_IOBJ_CHANGE'
infoobject = <lg_infoobject> EXPORTING
details = <lg_details> infoobject = <lg_infoobject>
IMPORTING details = <lg_details>
return = ls_return IMPORTING
TABLES return = ls_return
compounds = <lt_compounds> TABLES
attributes = <lt_attributes> compounds = <lt_compounds>
navigationattributes = <lt_navigationattributes> attributes = <lt_attributes>
atrnavinfoprovider = <lt_atrnavinfoprovider> navigationattributes = <lt_navigationattributes>
hierarchycharacteristics = <lt_hierarchycharacteristics> atrnavinfoprovider = <lt_atrnavinfoprovider>
elimination = <lt_elimination> hierarchycharacteristics = <lt_hierarchycharacteristics>
hanafieldsmapping = <lt_hanafieldsmapping> elimination = <lt_elimination>
xxlattributes = <lt_xxlattributes>. hanafieldsmapping = <lt_hanafieldsmapping>
xxlattributes = <lt_xxlattributes> ##ARG_OK.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'BAPI_IOBJ_CHANGE'
EXPORTING
infoobject = <lg_infoobject>
details = <lg_details>
IMPORTING
return = ls_return
TABLES
compounds = <lt_compounds>
attributes = <lt_attributes>
navigationattributes = <lt_navigationattributes>
atrnavinfoprovider = <lt_atrnavinfoprovider>
hierarchycharacteristics = <lt_hierarchycharacteristics>
elimination = <lt_elimination>.
ENDTRY.
ENDIF. ENDIF.
IF ls_return-type = 'E'. IF ls_return-type = 'E'.
@ -409,21 +440,37 @@ CLASS zcl_abapgit_object_iobj IMPLEMENTATION.
lv_iobjnam = ms_item-obj_name. lv_iobjnam = ms_item-obj_name.
CALL FUNCTION 'BAPI_IOBJ_GETDETAIL' TRY.
EXPORTING CALL FUNCTION 'BAPI_IOBJ_GETDETAIL'
infoobject = lv_iobjnam EXPORTING
IMPORTING infoobject = lv_iobjnam
details = <lg_details> IMPORTING
return = ls_return details = <lg_details>
TABLES return = ls_return
compounds = <lt_compounds> TABLES
attributes = <lt_attributes> compounds = <lt_compounds>
navigationattributes = <lt_navigationattributes> attributes = <lt_attributes>
atrnavinfoprovider = <lt_atrnavinfoprovider> navigationattributes = <lt_navigationattributes>
hierarchycharacteristics = <lt_hierarchycharacteristics> atrnavinfoprovider = <lt_atrnavinfoprovider>
elimination = <lt_elimination> hierarchycharacteristics = <lt_hierarchycharacteristics>
hanafieldsmapping = <lt_hanafieldsmapping> elimination = <lt_elimination>
xxlattributes = <lt_xxlattributes>. hanafieldsmapping = <lt_hanafieldsmapping>
xxlattributes = <lt_xxlattributes> ##ARG_OK.
CATCH cx_sy_dyn_call_param_not_found.
CALL FUNCTION 'BAPI_IOBJ_GETDETAIL'
EXPORTING
infoobject = lv_iobjnam
IMPORTING
details = <lg_details>
return = ls_return
TABLES
compounds = <lt_compounds>
attributes = <lt_attributes>
navigationattributes = <lt_navigationattributes>
atrnavinfoprovider = <lt_atrnavinfoprovider>
hierarchycharacteristics = <lt_hierarchycharacteristics>
elimination = <lt_elimination>.
ENDTRY.
IF ls_return-type = 'E'. IF ls_return-type = 'E'.
zcx_abapgit_exception=>raise( |Error getting details of InfoObject: { ls_return-message }| ). zcx_abapgit_exception=>raise( |Error getting details of InfoObject: { ls_return-message }| ).