SAP/abap2UI5
1
0
Fork 0
mirror of https://github.com/abap2UI5/abap2UI5.git synced 2025-04-30 11:06:23 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Transpor App fix (#1219)

Browse Source 
Co-authored-by: Viktor Hoffmann <Viktor.Hoffmann@swisskrono.com>
This commit is contained in:
abapsheep 2024-06-20 14:09:48 +02:00 committed by GitHub
parent 26d2855a40
commit 36dde640d3
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
1 changed files with 31 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
src/02/02/z2ui5_cl_pop_transport.clas.abap
View File

@ -3,6 +3,7 @@ CLASS z2ui5_cl_pop_transport DEFINITION
CREATE PUBLIC. CREATE PUBLIC.
PUBLIC SECTION. PUBLIC SECTION.
INTERFACES if_serializable_object. INTERFACES if_serializable_object.
INTERFACES z2ui5_if_app. INTERFACES z2ui5_if_app.
@ -16,10 +17,12 @@ CLASS z2ui5_cl_pop_transport DEFINITION
selkz TYPE abap_bool, selkz TYPE abap_bool,
END OF ty_s_data. END OF ty_s_data.
CLASS-DATA mt_data TYPE STANDARD TABLE OF ty_s_data WITH EMPTY KEY. DATA client TYPE REF TO z2ui5_if_client.
DATA mv_init TYPE abap_bool.
DATA ms_transport TYPE ty_s_data. DATA ms_transport TYPE ty_s_data.
CLASS-DATA mt_data TYPE STANDARD TABLE OF ty_s_data WITH EMPTY KEY.
CLASS-METHODS factory CLASS-METHODS factory
RETURNING RETURNING
VALUE(result) TYPE REF TO z2ui5_cl_pop_transport. VALUE(result) TYPE REF TO z2ui5_cl_pop_transport.
@ -30,13 +33,14 @@ CLASS z2ui5_cl_pop_transport DEFINITION
iv_tabname TYPE string iv_tabname TYPE string
is_transport TYPE ty_s_data. is_transport TYPE ty_s_data.
PROTECTED SECTION.
CLASS-METHODS add_to_transport_onprem CLASS-METHODS add_to_transport_onprem
IMPORTING IMPORTING
ir_data TYPE REF TO datA ir_data TYPE REF TO datA
iv_tabname TYPE string iv_tabname TYPE string
is_transport TYPE ty_s_data. is_transport TYPE ty_s_data.
PROTECTED SECTION.
CLASS-METHODS get_tr_onprem. CLASS-METHODS get_tr_onprem.
CLASS-METHODS set_e071k CLASS-METHODS set_e071k
@ -54,19 +58,6 @@ CLASS z2ui5_cl_pop_transport DEFINITION
RETURNING RETURNING
VALUE(result) TYPE REF TO data. VALUE(result) TYPE REF TO data.
CLASS-METHODS read_e070.
DATA client TYPE REF TO z2ui5_if_client.
DATA mv_init TYPE abap_bool.
METHODS on_init.
METHODS render_view.
METHODS on_event.
METHODS get_tr_cloud.
PRIVATE SECTION.
CLASS-METHODS get_e071k_tabkey CLASS-METHODS get_e071k_tabkey
IMPORTING IMPORTING
!line TYPE any !line TYPE any
@ -74,6 +65,18 @@ CLASS z2ui5_cl_pop_transport DEFINITION
RETURNING RETURNING
VALUE(rv_tabkey) TYPE trobj_name. VALUE(rv_tabkey) TYPE trobj_name.
CLASS-METHODS read_e070.
METHODS on_init.
METHODS render_view.
METHODS on_event.
METHODS get_tr_cloud.
PRIVATE SECTION.
ENDCLASS. ENDCLASS.
@ -335,7 +338,9 @@ CLASS z2ui5_cl_pop_transport IMPLEMENTATION.
where = |( { where } )|. where = |( { where } )|.
ENDLOOP. ENDLOOP.
SELECT trkorr, as4text SELECT trkorr,
langu,
as4text
FROM (table_name) FROM (table_name)
WHERE (where) WHERE (where)
INTO TABLE @<table>. INTO TABLE @<table>.
@ -574,7 +579,15 @@ CLASS z2ui5_cl_pop_transport IMPLEMENTATION.
DATA(where) = DATA(where) =
|( TRFUNCTION EQ 'Q' ) AND ( TRSTATUS EQ 'D' ) AND ( KORRDEV EQ 'CUST' ) AND ( AS4USER EQ '{ sy-uname }' )|. |( TRFUNCTION EQ 'Q' ) AND ( TRSTATUS EQ 'D' ) AND ( KORRDEV EQ 'CUST' ) AND ( AS4USER EQ '{ sy-uname }' )|.
SELECT trkorr, strkorr SELECT trkorr,
trfunction,
trstatus,
tarsystem,
korrdev,
as4user,
as4date,
as4time,
strkorr
FROM (table_name) FROM (table_name)
WHERE (where) WHERE (where)
INTO TABLE @<table>. INTO TABLE @<table>.