Re: After sorting the table cannot use the position button to find data.

Former Member — Thu, 26 Feb 2009 02:58:00 GMT

----

TABLES DECLARATION

----

tables: afko,

aufk,

marc,

zppe001_02.

data: i_mara type standard table of mara.

data: i_afko type standard table of afko.

data: i_zppe001_02 type standard table of zppe001_02.

data: wa_zppe001_02 type zppe001_02.

----

SELECTION PARAMETERS

----

selection-screen begin of block a with frame title text-001.

select-options:

s_plnbez for afko-plnbez,

s_werks for aufk-werks,

s_dispo for marc-dispo,

s_auart for aufk-auart,

s_aufnr for afko-aufnr.

parameters: p_prlog type c as checkbox default 'X'.

parameters: p_prfor type c as checkbox.

selection-screen: skip.

selection-screen end of block a.

----

DATA DECLARATION

----

data: i_order type standard table of zppe001. "insert DEVK900756

data: wa_order type zppe001. "insert DEVK900756

data: fm_name type rs38l_fnam.

data: no_open type c,

no_close type c.

at selection-screen on s_plnbez.

refresh i_mara.

if not s_plnbez is initial.

select * into table i_mara

from mara

where matnr in s_plnbez.

if sy-subrc ne 0.

message e600(f1) with text-e01.

endif.

at selection-screen on s_aufnr.

if not s_aufnr is initial.

select * into table i_afko

from afko

where aufnr in s_aufnr.

if sy-subrc ne 0.

message e600(f1) with text-e02.

endif.

----

INITIALIZATION

----

initialization.

perform init.

&----

*& Form init

&----

form init.

endform. " init

----

START-OF-SELECTION

----

start-of-selection.

if p_prfor eq 'X'.

data: lv_count type i.

data: lv_counter type i.

clear: lv_counter.

lv_count = 0.

perform get_selected_data.

sort i_order by aufnr.

if not i_order[] is initial.

loop at i_order into wa_order.

*{ insert DEVK901692

no_open = 'X'.

no_close = 'X'.

at first.

clear: fm_name.

perform get_smartform_name.

no_open = ' '.

endat.

*} insert DEVK901692

read table i_zppe001_02 into wa_zppe001_02 with key aufnr = wa_order-aufnr.

if sy-subrc ne 0.

clear: wa_zppe001_02-counter.

endif.

wa_zppe001_02-aufnr = wa_order-aufnr.

wa_zppe001_02-ctime = sy-uzeit.

wa_zppe001_02-cdate = sy-datum.

wa_zppe001_02-name = sy-uname.

wa_zppe001_02-counter = wa_zppe001_02-counter + 1.

*{ insert DEVK901692

at last.

no_close = ' '.

endat.

perform call_smartform using no_open

no_close.

if sy-ucomm eq 'PRNT'.

*} insert DEVK901692

call function 'ENQUEUE_EZPPE001_02'

exporting

mode_zppe001_02 = 'E'

mandt = sy-mandt

aufnr = wa_order-aufnr

exceptions

foreign_lock = 1

system_failure = 2

others = 3.

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

insert into zppe001_02 values wa_zppe001_02.

commit work.

call function 'DEQUEUE_EZPPE001_02'

exporting

mode_zppe001_02 = 'E'

mandt = sy-mandt

aufnr = wa_order-aufnr.

endif.

lv_count = lv_count + 1.

endloop.

endif.

if p_prlog eq 'X'. "OR p_prfor EQ 'X'. insert DEVK901692

perform write_data.

endif.

----

END-OF-SELECTION

----

end-of-selection.

&----

*& Form get_data

&----

form get_data using p_bukrs p_kunnr.

perform get_detail.

endform. " get_data

&----

*& Form get_detail

&----

form get_detail.

endform. " get_detail

&----

*& Form combine_data

&----

form combine_data .

endform. " combine_data

&----

*& Form write_data

&----

form write_data .

select * into table i_zppe001_02

from zppe001_02

where aufnr in s_aufnr.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = 'ZPPR006'

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '

i_structure_name = 'ZPPE001_02'

I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT =
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
I_HTML_HEIGHT_TOP = 0
I_HTML_HEIGHT_END = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = i_zppe001_02

exceptions

program_error = 1

others = 2

if sy-subrc <> 0.

message id sy-msgid type sy-msgty number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

endif.

endform. " write_data

&----

*& Form get_smartform_name

&----

form get_smartform_name .

STEP 1
Passing data to SMARTFORMS and generate SMARTFORM function module

call function 'SSF_FUNCTION_MODULE_NAME'

exporting

formname = 'ZPPF003'

VARIANT = ' '
DIRECT_CALL = ' '

importing

fm_name = fm_name

exceptions

no_form = 1

no_function_module = 2

others = 3

if sy-subrc <> 0.

message 'Error in SMARTFORM function module generation!' type 'E'.

endif.

endform. " get_smartform_name

&----

*& Form call_smartform

&----

form call_smartform using p_no_open

p_no_close.

data: control_parameters type ssfctrlop.

clear control_parameters.

Make sure spool is not closed

control_parameters-no_open = p_no_open.

control_parameters-no_close = p_no_close.

STEP 2
Call the generated SMARTFORM function module

call function fm_name

exporting

ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =

control_parameters = control_parameters

MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'

wa_zppe001 = wa_order

v_counter = wa_zppe001_02-counter

IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
it_bsid = it_zfie001
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

endform. "call_smartform

&----

*& Form get_selected_data

&----

form get_selected_data .

select ko_{plnbez ko}aufnr ko_{gltrp ko}gamng fk_{auart fk}werks kt~maktx

po_{doknr po}dokar tk_{bmeng ko}rsnum tk_{stktx ko}stlty ko_{stlnr ko}stlal

into corresponding fields of table i_order

from aufk as fk

inner join afko as ko

on ko_{aufnr = fk}aufnr

INNER JOIN marc AS rc
ON rc_{matnr = ko}plnbez

inner join makt as kt

on kt_{matnr = ko}plnbez

inner join stko as tk

on tk_{stlty = ko}stlty

and tk_{stlnr = ko}stlnr

and tk_{stlal = ko}stlal

left join stpo as po

on po_{stlty = tk}stlty

and po_{stlnr = tk}stlnr

and po_{stpoz = tk}stkoz

where ko~plnbez in s_plnbez

and ko~aufnr in s_aufnr

and fk~auart in s_auart

and ko~dispo in s_dispo.

*{Insert DEVK902021

if sy-subrc eq 0.

select aufnr max( counter ) as counter into corresponding fields of table i_zppe001_02

from zppe001_02

where aufnr in s_aufnr

group by aufnr.

endif.

*Insert DEVK902021}

if sy-subrc eq 0.

select * into table i_zppe001_02

from zppe001_02

where aufnr in s_aufnr.

endif.

endform. " get_selected_data

topic After sorting the table cannot use the position button to find data. in Application Development and Automation Discussions

After sorting the table cannot use the position button to find data.

Re: After sorting the table cannot use the position button to find data.

Re: After sorting the table cannot use the position button to find data.