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

SHLP: clear info inherited from domain

Browse Source
This commit is contained in:
larshp 2016-10-08 16:30:53 +00:00
parent 864449ae1f
commit df549d1c47
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/zabapgit_object_shlp.prog.abap
View File

@ -24,9 +24,9 @@ CLASS lcl_object_shlp IMPLEMENTATION.
METHOD lif_object~has_changed_since. METHOD lif_object~has_changed_since.
DATA: lv_date TYPE dats, DATA: lv_date TYPE dats,
lv_time TYPE tims, lv_time TYPE tims,
lv_ts TYPE timestamp. lv_ts TYPE timestamp.
SELECT SINGLE as4date as4time FROM dd30l SELECT SINGLE as4date as4time FROM dd30l
INTO (lv_date, lv_time) INTO (lv_date, lv_time)
@ -102,6 +102,8 @@ CLASS lcl_object_shlp IMPLEMENTATION.
lt_dd32p TYPE TABLE OF dd32p, lt_dd32p TYPE TABLE OF dd32p,
lt_dd33v TYPE TABLE OF dd33v. lt_dd33v TYPE TABLE OF dd33v.
FIELD-SYMBOLS: <ls_dd32p> LIKE LINE OF lt_dd32p.
lv_name = ms_item-obj_name. lv_name = ms_item-obj_name.
@ -130,6 +132,21 @@ CLASS lcl_object_shlp IMPLEMENTATION.
ls_dd30v-as4date, ls_dd30v-as4date,
ls_dd30v-as4time. ls_dd30v-as4time.
LOOP AT lt_dd32p ASSIGNING <ls_dd32p>.
* clear information inherited from domain
CLEAR: <ls_dd32p>-domname,
<ls_dd32p>-headlen,
<ls_dd32p>-scrlen1,
<ls_dd32p>-scrlen2,
<ls_dd32p>-datatype,
<ls_dd32p>-leng,
<ls_dd32p>-outputlen,
<ls_dd32p>-decimals,
<ls_dd32p>-lowercase,
<ls_dd32p>-signflag,
<ls_dd32p>-convexit.
ENDLOOP.
io_xml->add( iv_name = 'DD30V' io_xml->add( iv_name = 'DD30V'
ig_data = ls_dd30v ). ig_data = ls_dd30v ).
io_xml->add( ig_data = lt_dd31v io_xml->add( ig_data = lt_dd31v