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

Add files via upload

Browse Source
This commit is contained in:
Christian Tapia Sabogal 2017-01-23 07:53:40 -05:00 committed by GitHub
parent 532a71de79
commit 16856c322e
2 changed files with 31 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
src/zabapgit_forms.prog.abap
View File

@ -88,26 +88,7 @@ FORM branch_popup TABLES tt_fields TYPE ty_sval_tt
ELSEIF pv_code = 'COD2'.
cv_show_popup = abap_true.
CALL FUNCTION 'FUNCTION_EXISTS'
EXPORTING
funcname = 'PB_POPUP_PACKAGE_CREATE'
EXCEPTIONS
function_not_exist = 1
OTHERS = 2.
IF sy-subrc = 1.
* looks like the function module used does not exist on all
* versions since 702, so show an error
lcx_exception=>raise( 'Function module PB_POPUP_PACKAGE_CREATE does not exist' ).
ENDIF.
CALL FUNCTION 'PB_POPUP_PACKAGE_CREATE'
CHANGING
p_object_data = ls_package_data
EXCEPTIONS
action_cancelled = 1.
IF sy-subrc = 1.
RETURN.
ENDIF.
ls_package_data = lcl_popups=>popup_to_create_package( ).
lcl_sap_package=>create( ls_package_data ).
COMMIT WORK.
@ -135,26 +116,7 @@ FORM package_popup TABLES tt_fields TYPE ty_sval_tt
IF pv_code = 'COD1'.
cv_show_popup = abap_true.
CALL FUNCTION 'FUNCTION_EXISTS'
EXPORTING
funcname = 'PB_POPUP_PACKAGE_CREATE'
EXCEPTIONS
function_not_exist = 1
OTHERS = 2.
IF sy-subrc = 1.
* looks like the function module used does not exist on all
* versions since 702, so show an error
lcx_exception=>raise( 'Function module PB_POPUP_PACKAGE_CREATE does not exist' ).
ENDIF.
CALL FUNCTION 'PB_POPUP_PACKAGE_CREATE'
CHANGING
p_object_data = ls_package_data
EXCEPTIONS
action_cancelled = 1.
IF sy-subrc = 1.
RETURN.
ENDIF.
ls_package_data = lcl_popups=>popup_to_create_package( ).
lcl_sap_package=>create( ls_package_data ).
COMMIT WORK.

35
src/zabapgit_popups.prog.abap
View File

@ -61,12 +61,12 @@ CLASS lcl_popups DEFINITION FINAL.
RETURNING VALUE(rv_answer) TYPE char1
RAISING lcx_exception,
popup_to_inform
IMPORTING
titlebar TYPE clike
text_message TYPE clike
RAISING lcx_exception.
IMPORTING
titlebar TYPE clike
text_message TYPE clike
RAISING lcx_exception,
popup_to_create_package
RETURNING VALUE(rs_package_data) TYPE scompkdtln.
ENDCLASS.
CLASS lcl_popups IMPLEMENTATION.
@ -496,4 +496,27 @@ CLASS lcl_popups IMPLEMENTATION.
ENDMETHOD. " popup_to_inform.
METHOD popup_to_create_package.
CALL FUNCTION 'FUNCTION_EXISTS'
EXPORTING
funcname = 'PB_POPUP_PACKAGE_CREATE'
EXCEPTIONS
function_not_exist = 1
OTHERS = 2.
IF sy-subrc = 1.
* looks like the function module used does not exist on all
* versions since 702, so show an error
lcx_exception=>raise( 'Function module PB_POPUP_PACKAGE_CREATE does not exist' ).
ENDIF.
CALL FUNCTION 'PB_POPUP_PACKAGE_CREATE'
CHANGING
p_object_data = rs_package_data
EXCEPTIONS
action_cancelled = 1.
IF sy-subrc = 1.
RETURN.
ENDIF.
ENDMETHOD. " popup_to_create_package
ENDCLASS.