Code:
*&---------------------------------------------------------------------*
*& Include J_3RTRTOP *
*&---------------------------------------------------------------------*
include j_3rtset.
types:
begin of type_time_depended.
include structure j_3rtasset.
types:
mark(1) type c,
end of type_time_depended,
begin of type_time_independed.
include structure j_3rtvehicl.
types:
ctypt like j_3rttypveht-ctypt,
end of type_time_independed,
type_okcode(10) type c,
dt_true(1) type c.
tables:
fleet,
equi,
j_3rtasset,
j_3rtvehicl,
j_3rttypveht,
j_3rttypveh.
controls:
* tax_para TYPE TABLEVIEW USING SCREEN '0907'.
tax_para type tableview using screen g_transp_screen.
* tax_para1 TYPE TABLEVIEW USING SCREEN g_transp_screen.
constants:
cfunkt_de(6) type c value 'TR_DEL',
cfunkt_fi(6) type c value 'TR_P--',
cfunkt_la(6) type c value 'TR_P++',
cfunkt_pr(5) type c value 'TR_P-',
cfunkt_ne(5) type c value 'TR_P+',
gc_true type dt_true value 'X',
gc_id_mess like smesg-arbgb value '/CCIS/RUTAX',
gc_anln_ini like anla-anln1 value 'INTERN-00001'.
field-symbols:
<g_ucomm> type type_okcode.
data:
g_ucomm type sy-ucomm,
g_init type dt_true,
g_loopc like sy-loopc,
total type i,
* lines LIKE sy-loopc,
g_afabe like t093-afaber,
g_pm_use type dt_true, " PM (plant maintenace is used)
g_equnr like itob-equnr,
g_objnr like fleet-objnr,
gd_mark type dt_true.
* x_update(1) TYPE c.
data:
it_data type standard table of type_time_depended
* it_data TYPE SORTED TABLE OF type_time_depended
* WITH NON-UNIQUE KEY adatu bdatu
with header line,
out_data type standard table of type_time_depended
with header line,
* wa_data LIKE LINE OF it_data,
wa_anlb like line of gt_anlb,
st_screen type type_time_independed.
Code:
*{ INSERT CEEK014384 1
*&---------------------------------------------------------------------*
*& Include J_3RTSET *
*&---------------------------------------------------------------------*
constants:
gc_eqtyp_t(1) type c value 'M',
g_type_mess like smesg-msgty value 'W', "#EC *
g_transp_screen(4) type c value '0907'.
*} INSERT