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

TTYP: clear TYPELEN

Browse Source
This commit is contained in:
larshp 2016-10-08 10:43:26 +00:00
parent e1e06b3b70
commit e136414c51
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/zabapgit_object_ttyp.prog.abap
View File

@ -24,9 +24,9 @@ CLASS lcl_object_ttyp 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 dd40l SELECT SINGLE as4date as4time FROM dd40l
INTO (lv_date, lv_time) INTO (lv_date, lv_time)
@ -128,6 +128,10 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
ls_dd40v-as4date, ls_dd40v-as4date,
ls_dd40v-as4time. ls_dd40v-as4time.
IF NOT ls_dd40v-rowkind IS INITIAL.
CLEAR ls_dd40v-typelen.
ENDIF.
io_xml->add( iv_name = 'DD40V' io_xml->add( iv_name = 'DD40V'
ig_data = ls_dd40v ). ig_data = ls_dd40v ).
io_xml->add( iv_name = 'DD42V' io_xml->add( iv_name = 'DD42V'