mirror of
https://github.com/abapGit/abapGit.git
synced 2025-05-01 04:08:27 +08:00
parent
d79a38eec2
commit
8c2840e517
|
@ -21,7 +21,7 @@ CLASS zcl_abapgit_object_chkc IMPLEMENTATION.
|
|||
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lo_chkc_db_api TYPE REF TO object,
|
||||
lv_name TYPE c LENGTH 120,
|
||||
lv_name TYPE c LENGTH 30,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
FIELD-SYMBOLS: <ls_chkc_header> TYPE any,
|
||||
|
|
|
@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_chko IMPLEMENTATION.
|
|||
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lo_chko_db_api TYPE REF TO object,
|
||||
lv_name TYPE c LENGTH 120,
|
||||
lv_name TYPE c LENGTH 30,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
FIELD-SYMBOLS: <ls_chko_header> TYPE any,
|
||||
|
|
|
@ -22,7 +22,7 @@ CLASS zcl_abapgit_object_chkv IMPLEMENTATION.
|
|||
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lo_chkv_db_api TYPE REF TO object,
|
||||
lv_name TYPE c LENGTH 120,
|
||||
lv_name TYPE c LENGTH 180,
|
||||
lx_error TYPE REF TO cx_root.
|
||||
|
||||
FIELD-SYMBOLS: <ls_chkv_header> TYPE any,
|
||||
|
@ -41,16 +41,16 @@ CLASS zcl_abapgit_object_chkv IMPLEMENTATION.
|
|||
|
||||
CALL METHOD lo_chkv_db_api->('GET_HEADER')
|
||||
EXPORTING
|
||||
name = lv_name
|
||||
version = 'I'
|
||||
object_key = lv_name
|
||||
version = 'I'
|
||||
RECEIVING
|
||||
header = <ls_chkv_header>.
|
||||
|
||||
IF <ls_chkv_header> IS INITIAL.
|
||||
CALL METHOD lo_chkv_db_api->('GET_HEADER')
|
||||
EXPORTING
|
||||
name = lv_name
|
||||
version = 'A'
|
||||
object_key = lv_name
|
||||
version = 'A'
|
||||
RECEIVING
|
||||
header = <ls_chkv_header>.
|
||||
ENDIF.
|
||||
|
|
Loading…
Reference in New Issue
Block a user