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

TABL TRAN fixes

Browse Source 
TABL: make sure MASKLEN contains valid data, or the XML serialization will dump

TRAN: allow empty description
This commit is contained in:
larshp 2016-12-22 15:39:56 +00:00
parent 4754d3632d
commit 161f9dac68
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/zabapgit_object_tabl.prog.abap
View File

@ -195,6 +195,11 @@ CLASS lcl_object_tabl IMPLEMENTATION.
<ls_dd03p>-scrtext_m, <ls_dd03p>-scrtext_m,
<ls_dd03p>-scrtext_l. <ls_dd03p>-scrtext_l.
IF <ls_dd03p>-masklen = '' OR NOT <ls_dd03p>-masklen CO '0123456789'.
* make sure the field contains valid data, or the XML will dump
CLEAR <ls_dd03p>-masklen.
ENDIF.
IF <ls_dd03p>-comptype = 'E'. IF <ls_dd03p>-comptype = 'E'.
* type specified via data element * type specified via data element
CLEAR: <ls_dd03p>-domname, CLEAR: <ls_dd03p>-domname,

5
src/zabapgit_object_tran.prog.abap
View File

@ -387,10 +387,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
SELECT SINGLE * FROM tstct INTO ls_tstct SELECT SINGLE * FROM tstct INTO ls_tstct
WHERE sprsl = mv_language WHERE sprsl = mv_language
AND tcode = lv_transaction. "#EC CI_GENBUFF AND tcode = lv_transaction. "#EC CI_SUBRC "#EC CI_GENBUFF
IF sy-subrc <> 0.
lcx_exception=>raise( 'Transaction description not found' ).
ENDIF.
SELECT SINGLE * FROM tstcp INTO ls_tstcp SELECT SINGLE * FROM tstcp INTO ls_tstcp
WHERE tcode = lv_transaction. "#EC CI_SUBRC "#EC CI_GENBUFF WHERE tcode = lv_transaction. "#EC CI_SUBRC "#EC CI_GENBUFF