2017 Dec 20 2:54 PM
Hi, someone can help me please?
Here it is the code of my program.
SPAN {
font-family: "Courier New";
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
DATA:
orders TYPE REF TO zcl_touch,
t_orders_load TYPE ztouch_order_load_t,
nlin TYPE i.
SELECT-OPTIONS: s_auart FOR vbak-auart,
s_aufnr FOR vbak-aufnr,
s_gltrp FOR afko-gltrp,
s_matnr FOR vbap-matnr.
START-OF-SELECTION.
CREATE OBJECT orders
EXPORTING
s_auart = s_auart[]
s_aufnr = s_aufnr[]
s_gltrp = s_gltrp[]
s_matnr = s_matnr[].
t_orders_load[] = orders->t_order_load.
DELETE t_orders_load WHERE matyp NE 'MODE'.
DATA gr_alvgrid TYPE REF TO cl_gui_alv_grid .
CALL METHOD gr_alvgrid->set_table_for_first_display
* EXPORTING
* i_buffer_active =
* i_bypassing_buffer =
* i_consistency_check =
* i_structure_name =
* is_variant =
* i_save =
* i_default = 'X'
* is_layout =
* is_print =
* it_special_groups =
* it_toolbar_excluding =
* it_hyperlink =
* it_alv_graphics =
* it_except_qinfo =
* ir_salv_adapter =
CHANGING
it_outtab = t_orders_load
* it_fieldcatalog =
* it_sort =
* it_filter =
EXCEPTIONS
invalid_parameter_combination = 1
program_error = 2
too_many_lines = 3
OTHERS = 4.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
2017 Dec 22 1:48 PM
There are a lot of questions about this, that you could use to help you out.
However try removing the * from the export line. Then add your structure. Leave the rest alone.
constants: gc_structure_name type DD02L-TABNAME value 'ZTOUCH_ORDER_LOAD_T'.
i_structure_name = gc_structure_name
2017 Dec 22 1:48 PM
There are a lot of questions about this, that you could use to help you out.
However try removing the * from the export line. Then add your structure. Leave the rest alone.
constants: gc_structure_name type DD02L-TABNAME value 'ZTOUCH_ORDER_LOAD_T'.
i_structure_name = gc_structure_name
2017 Dec 27 8:35 AM
2017 Dec 23 10:33 AM