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

Add files via upload

Browse Source
This commit is contained in:
Christian Tapia Sabogal 2017-01-23 08:10:42 -05:00 committed by GitHub
parent 9e04ff9eae
commit c85a447646
2 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/zabapgit_forms.prog.abap
View File

@ -53,7 +53,8 @@ FORM branch_popup TABLES tt_fields TYPE ty_sval_tt
DATA: lv_url TYPE string, DATA: lv_url TYPE string,
lx_error TYPE REF TO lcx_exception, lx_error TYPE REF TO lcx_exception,
ls_package_data TYPE scompkdtln, ls_package_data TYPE scompkdtln,
ls_branch TYPE lcl_git_branch_list=>ty_git_branch. ls_branch TYPE lcl_git_branch_list=>ty_git_branch,
lv_create TYPE boolean.
FIELD-SYMBOLS: <ls_furl> LIKE LINE OF tt_fields, FIELD-SYMBOLS: <ls_furl> LIKE LINE OF tt_fields,
<ls_fbranch> LIKE LINE OF tt_fields. <ls_fbranch> LIKE LINE OF tt_fields.
@ -88,7 +89,11 @@ FORM branch_popup TABLES tt_fields TYPE ty_sval_tt
ELSEIF pv_code = 'COD2'. ELSEIF pv_code = 'COD2'.
cv_show_popup = abap_true. cv_show_popup = abap_true.
ls_package_data = lcl_popups=>popup_to_create_package( ). lcl_popups=>popup_to_create_package( IMPORTING es_package_data = ls_package_data
ev_create = lv_create ).
IF lv_create = abap_false.
RETURN.
ENDIF.
lcl_sap_package=>create( ls_package_data ). lcl_sap_package=>create( ls_package_data ).
COMMIT WORK. COMMIT WORK.
@ -107,7 +112,8 @@ FORM package_popup TABLES tt_fields TYPE ty_sval_tt
RAISING lcx_exception ##called ##needed. RAISING lcx_exception ##called ##needed.
* called dynamically from function module POPUP_GET_VALUES_USER_BUTTONS * called dynamically from function module POPUP_GET_VALUES_USER_BUTTONS
DATA: ls_package_data TYPE scompkdtln. DATA: ls_package_data TYPE scompkdtln,
lv_create TYPE boolean.
FIELD-SYMBOLS: <ls_fbranch> LIKE LINE OF tt_fields. FIELD-SYMBOLS: <ls_fbranch> LIKE LINE OF tt_fields.
@ -116,7 +122,11 @@ FORM package_popup TABLES tt_fields TYPE ty_sval_tt
IF pv_code = 'COD1'. IF pv_code = 'COD1'.
cv_show_popup = abap_true. cv_show_popup = abap_true.
ls_package_data = lcl_popups=>popup_to_create_package( ). lcl_popups=>popup_to_create_package( IMPORTING es_package_data = ls_package_data
ev_create = lv_create ).
IF lv_create = abap_false.
RETURN.
ENDIF.
lcl_sap_package=>create( ls_package_data ). lcl_sap_package=>create( ls_package_data ).
COMMIT WORK. COMMIT WORK.

11
src/zabapgit_popups.prog.abap
View File

@ -66,7 +66,8 @@ CLASS lcl_popups DEFINITION FINAL.
text_message TYPE clike text_message TYPE clike
RAISING lcx_exception, RAISING lcx_exception,
popup_to_create_package popup_to_create_package
RETURNING VALUE(rs_package_data) TYPE scompkdtln EXPORTING es_package_data TYPE scompkdtln
ev_create TYPE boolean
RAISING lcx_exception. RAISING lcx_exception.
ENDCLASS. ENDCLASS.
@ -512,11 +513,13 @@ CLASS lcl_popups IMPLEMENTATION.
CALL FUNCTION 'PB_POPUP_PACKAGE_CREATE' CALL FUNCTION 'PB_POPUP_PACKAGE_CREATE'
CHANGING CHANGING
p_object_data = rs_package_data p_object_data = es_package_data
EXCEPTIONS EXCEPTIONS
action_cancelled = 1. action_cancelled = 1.
IF sy-subrc = 1. IF sy-subrc = 0.
RETURN. ev_create = abap_true.
ELSE.
ev_create = abap_false.
ENDIF. ENDIF.
ENDMETHOD. " popup_to_create_package ENDMETHOD. " popup_to_create_package