SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +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

7
zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit.
* See http://www.abapgit.org
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)
@ -19351,7 +19351,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
lock( iv_type = iv_type
iv_value = iv_value ).
UPDATE (c_tabname) SET data = iv_data
UPDATE (c_tabname) SET data_str = iv_data
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
@ -20174,6 +20174,8 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
lcl_gui=>call_page( lo_edit ).
WHEN 'delete'.
delete( ls_key ).
WHEN 'back'.
lcl_gui=>back( ).
WHEN OTHERS.
_raise 'Unknown action'.
ENDCASE.
@ -20195,6 +20197,7 @@ CLASS lcl_gui_page_db IMPLEMENTATION.
rv_html = lcl_gui=>header( ) && gc_newline &&
'<h1>Database persistency</h1>' && gc_newline &&
'<a href="sapevent:back">Back</a>' && gc_newline &&
'<br><br>' && gc_newline &&
'<table>' && gc_newline &&
'<tr>' && gc_newline &&