From c85a447646743285b01e4172f4cd2163e3e65c45 Mon Sep 17 00:00:00 2001
From: Christian Tapia Sabogal <christiants89@gmail.com>
Date: Mon, 23 Jan 2017 08:10:42 -0500
Subject: [PATCH] Add files via upload

---
 src/zabapgit_forms.prog.abap  | 18 ++++++++++++++----
 src/zabapgit_popups.prog.abap | 11 +++++++----
 2 files changed, 21 insertions(+), 8 deletions(-)

diff --git a/src/zabapgit_forms.prog.abap b/src/zabapgit_forms.prog.abap
index 2f231ae85..e3d9d95d1 100644
--- a/src/zabapgit_forms.prog.abap
+++ b/src/zabapgit_forms.prog.abap
@@ -53,7 +53,8 @@ FORM branch_popup TABLES   tt_fields TYPE ty_sval_tt
   DATA: lv_url          TYPE string,
         lx_error        TYPE REF TO lcx_exception,
         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,
                  <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'.
     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 ).
     COMMIT WORK.
@@ -107,7 +112,8 @@ FORM package_popup TABLES   tt_fields TYPE ty_sval_tt
                    RAISING  lcx_exception ##called ##needed.
 * 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.
 
@@ -116,7 +122,11 @@ FORM package_popup TABLES   tt_fields TYPE ty_sval_tt
   IF pv_code = 'COD1'.
     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 ).
     COMMIT WORK.
diff --git a/src/zabapgit_popups.prog.abap b/src/zabapgit_popups.prog.abap
index fcecce94a..3cd11daca 100644
--- a/src/zabapgit_popups.prog.abap
+++ b/src/zabapgit_popups.prog.abap
@@ -66,7 +66,8 @@ CLASS lcl_popups DEFINITION FINAL.
                   text_message          TYPE clike
         RAISING   lcx_exception,
       popup_to_create_package
-        RETURNING VALUE(rs_package_data) TYPE scompkdtln
+        EXPORTING es_package_data        TYPE scompkdtln
+                  ev_create              TYPE boolean
         RAISING lcx_exception.
 ENDCLASS.
 
@@ -512,11 +513,13 @@ CLASS lcl_popups IMPLEMENTATION.
 
     CALL FUNCTION 'PB_POPUP_PACKAGE_CREATE'
       CHANGING
-        p_object_data    = rs_package_data
+        p_object_data    = es_package_data
       EXCEPTIONS
         action_cancelled = 1.
-    IF sy-subrc = 1.
-      RETURN.
+    IF sy-subrc = 0.
+      ev_create = abap_true.
+    ELSE.
+      ev_create = abap_false.
     ENDIF.
   ENDMETHOD.  " popup_to_create_package