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

forgot one, #211

Browse Source
This commit is contained in:
larshp 2016-05-04 07:50:40 +02:00
parent 4d3cf5b63a
commit 0ce2012f2b
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.4.4'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.4.5'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)
@ -19351,7 +19351,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
lock( iv_type = iv_type lock( iv_type = iv_type
iv_value = iv_value ). iv_value = iv_value ).
UPDATE (c_tabname) SET data = iv_data UPDATE (c_tabname) SET data_str = iv_data
WHERE type = iv_type WHERE type = iv_type
AND value = iv_value. AND value = iv_value.
IF sy-subrc <> 0. IF sy-subrc <> 0.
@ -20174,6 +20174,8 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
lcl_gui=>call_page( lo_edit ). lcl_gui=>call_page( lo_edit ).
WHEN 'delete'. WHEN 'delete'.
delete( ls_key ). delete( ls_key ).
WHEN 'back'.
lcl_gui=>back( ).
WHEN OTHERS. WHEN OTHERS.
_raise 'Unknown action'. _raise 'Unknown action'.
ENDCASE. ENDCASE.
@ -20193,15 +20195,16 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
CREATE OBJECT lo_db. CREATE OBJECT lo_db.
lt_data = lo_db->list( ). lt_data = lo_db->list( ).
rv_html = lcl_gui=>header( ) && gc_newline && rv_html = lcl_gui=>header( ) && gc_newline &&
'<h1>Database persistency</h1>' && gc_newline && '<h1>Database persistency</h1>' && gc_newline &&
'<br><br>' && gc_newline && '<a href="sapevent:back">Back</a>' && gc_newline &&
'<table>' && gc_newline && '<br><br>' && gc_newline &&
'<tr>' && gc_newline && '<table>' && gc_newline &&
'<td><b>Type</b></td>' && gc_newline && '<tr>' && gc_newline &&
'<td><b>Value</b></td>' && gc_newline && '<td><b>Type</b></td>' && gc_newline &&
'<td><b>Data</b></td>' && gc_newline && '<td><b>Value</b></td>' && gc_newline &&
'</tr>' && gc_newline. '<td><b>Data</b></td>' && gc_newline &&
'</tr>' && gc_newline.
LOOP AT lt_data ASSIGNING <ls_data>. LOOP AT lt_data ASSIGNING <ls_data>.
lv_escaped = escape( val = <ls_data>-data_str(150) lv_escaped = escape( val = <ls_data>-data_str(150)