Fixed small bug in the exception handling reported by Sumit Kundu at h…

…ttps://cw.sdn.sap.com/cw/docs/DOC-145448#comment-25796

git-svn-id: https://subversion.assembla.com/svn/saplink-plugins/trunk@111 34c13d75-2153-4048-8815-4c520bed797d

Enhancement_Implementation/CLAS_ZSAPLINK_ENH_IMPLEMENTATION.slnk

@@ -1,76 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<CLAS CLSNAME="ZSAPLINK_ENH_IMPLEMENTATION" VERSION="1" LANGU="E" DESCRIPT="SAPlink Class Installer" UUID="502D151B98370BC0E10080000A125D40" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" CLSCCINCL="X" FIXPT="X" UNICODE="X" CLSBCCAT="00" WITH_UNIT_TESTS="X" DURATION_TYPE="0 " RISK_LEVEL="0 " REFCLSNAME="ZSAPLINK">
- <publicSection>class ZSAPLINK_ENH_IMPLEMENTATION definition
-  public
-  inheriting from ZSAPLINK
-  create public .
-
-public section.
-*&quot;* public components of class ZSAPLINK_ENH_IMPLEMENTATION
-*&quot;* do not include other source files here!!!
-  type-pools ABAP .
-  type-pools SEOP .
-  type-pools SEOR .
-  type-pools SEOS .
-  type-pools SEOT .
-  type-pools SEOX .
-
-  methods CHECKEXISTS
-    redefinition .
-  methods CREATEIXMLDOCFROMOBJECT
-    redefinition .
-  methods CREATEOBJECTFROMIXMLDOC
-    redefinition .</publicSection>
- <protectedSection>*&quot;* protected components of class ZSAPLINK_ENH_IMPLEMENTATION
-*&quot;* do not include other source files here!!!
-protected section.
-
-  methods DELETEOBJECT
-    redefinition .
-  methods GETOBJECTTYPE
-    redefinition .</protectedSection>
- <privateSection>private section.
-*&quot;* private components of class ZSAPLINK_ENH_IMPLEMENTATION
-*&quot;* do not include other source files here!!!
-
-  data SHORTTEXT type STRING .
-  data SPOT_NAME type ENHSPOTNAME .
-  constants ENHANCEMENT_ID type STRING value &apos;enhancement_id&apos;. &quot;#EC NOTEXT
-  constants SHORTTEXT_ID type STRING value &apos;shorttext&apos;. &quot;#EC NOTEXT
-  constants SPOT_NAME_ID type STRING value &apos;spot_name&apos;. &quot;#EC NOTEXT
-  data BADIIMPL_TOOL type ref to CL_ENH_TOOL_BADI_IMPL .
-  data HOOKIMPL_TOOL type ref to CL_ENH_TOOL_HOOK_IMPL .
-  data ENHTOOLTYPE type ENHTOOLTYPE value &apos;Tool Type&apos;. &quot;#EC NOTEXT .
-  constants ENHTOOLTYPE_ID type STRING value &apos;tooltype_id&apos;. &quot;#EC NOTEXT
-  data PGMID type PGMID .
-  data OBJ_NAME type TROBJ_NAME .
-  data OBJ_TYPE type TROBJTYPE .
-  data PROGRAM type PROGNAME .
-  constants ORIG_OBJ type STRING value &apos;orig_object&apos;. &quot;#EC NOTEXT
-
-  methods GET_IMPL_TOOL
-    importing
-      !I_LOCK type BOOLEAN optional
-    raising
-      ZCX_SAPLINK .
-  methods GET_IMPLEMENTATIONS
-    exporting
-      value(R_IMPLEMENTATIONS) type ANY
-    raising
-      ZCX_SAPLINK .
-  methods GET_SHORTTEXT .
-  methods SAVE_BADI_IMPL
-    importing
-      value(ENHREF) type ref to IF_ENH_TOOL
-      value(BADI_IMPLS) type ENH_BADI_IMPL_DATA_IT
-    raising
-      ZCX_SAPLINK .
-  methods SAVE_HOOK_IMPL
-    importing
-      value(ENHREF) type ref to IF_ENH_TOOL
-      value(HOOK_IMPLS) type ENH_HOOK_IMPL_IT
-    raising
-      ZCX_SAPLINK .</privateSection>
+<CLAS CLSNAME="ZSAPLINK_ENH_IMPLEMENTATION" VERSION="1" LANGU="E" DESCRIPT="SAPlink Class Installer" CATEGORY="00" EXPOSURE="2" STATE="1" RELEASE="0" CLSCCINCL="X" FIXPT="X" UNICODE="X" CLSBCCAT="00" WITH_UNIT_TESTS="X" DURATION_TYPE="0 " RISK_LEVEL="0 " REFCLSNAME="ZSAPLINK">
  <localImplementation>*&quot;* local class implementation for public class
 *&quot;* use this source file for the implementation part of
 *&quot;* local helper classes</localImplementation>
@@ -628,8 +557,10 @@ endmethod.</source>
 
       &quot; Check that is is realy a BAdI or Hook
       enhtooltype = enhref-&gt;get_tool( ).
-      if enhtooltype ne cl_enh_tool_badi_impl=&gt;tooltype and
-         enhtooltype ne cl_enh_tool_hook_impl=&gt;tooltype.
+      &quot; The static constans are only available in NetWeaver 7.02 or higher
+      &quot; yo have to replace them with the values provided in the comment
+      if enhtooltype ne cl_enh_tool_badi_impl=&gt;tooltype and &quot; &apos;BADI_IMPL&apos;
+         enhtooltype ne cl_enh_tool_hook_impl=&gt;tooltype.    &quot; &apos;HOOK_IMPL&apos;
          CONCATENATE &apos;The enhancement&apos; enhname &apos;is not a BAdI/Hook Implementation&apos; INTO msg SEPARATED BY space.
           RAISE EXCEPTION TYPE zcx_saplink
             EXPORTING
@@ -641,8 +572,8 @@ endmethod.</source>
       msg = cx-&gt;get_text( ).
       RAISE EXCEPTION TYPE zcx_saplink
         EXPORTING
-          textid = zcx_saplink=&gt;not_found
-          object = objname.
+          textid = zcx_saplink=&gt;error_message
+          msg    = msg.
 
   ENDTRY.