Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

problem in at line selection

Hi,

tis is my query,

{ FORM USER_COMM USING P_UCOMM LIKE SY-UCOMM

R_SELFIELD TYPE SLIS_SELFIELD.

DATA : OK_CODE TYPE SY-UCOMM.

OK_CODE = P_UCOMM.

CASE OK_CODE.

WHEN '&IC1'.

IF R_SELFIELD-FIELDNAME = 'MENGE1'.

LOOP AT ITAB WHERE EBELN = ITAB-EBELN

AND EBELP = ITAB-EBELP

AND MENGE = ITAB-MENGE1.

  • MOVE ITAB-EBELP TO IT_PO-EBELP.

  • MOVE ITAB-EBELN TO IT_PO-EBELN.

  • MOVE ITAB-MENGE1 TO IT_PO-MENGE.

  • APPEND IT_PO.

  • ENDLOOP.

  • loop at it_po.

SELECT * FROM EKBE WHERE

  • EBELN = ITab-EBELN

  • AND EBELP = ITab-EBELP

MENGE = ITAB-MENGE1.

IT_PO-BWART = EKBE-BWART.

IT_PO-BELNR = EKBE-BELNR.

IT_PO-BUZEI = EKBE-BUZEI.

IT_PO-BUDAT = EKBE-BUDAT.

IT_PO-DMBTR = EKBE-DMBTR.

IT_PO-HSWAE = EKBE-HSWAE.

IT_PO-BPMNG = EKBE-BPMNG.

IT_PO-WRBTR = EKBE-WRBTR.

IT_PO-WAERS = EKBE-WAERS.

IT_PO-XBLNR = EKBE-XBLNR.

ENDSELECT.

APPEND IT_PO.

CLEAR IT_PO.

ENDLOOP.

REFRESH IT_FIELDCAT1[].

S_LAYOUT-ZEBRA = 'X' .

S_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

PERFORM FIELD_CATALOG1 TABLES IT_FIELDCAT1

USING: 'IT_PO' 'BWART' ' ' 'MVT TYPE' ' ',

'IT_PO' 'BELNR' ' ' ' MAT DOC.NO' ' ',

'IT_PO' 'BUZEI' ' ' 'ITEM' ' ',

'IT_PO' 'BUDAT' ' ' 'POSTING DATE' '',

'IT_PO' 'DMBTR' ' ' 'AMOUNT' ' ',

'IT_PO' 'HSWAE' ' ' 'CURRENCY KEY' ' ',

'IT_PO' 'BPMNG' ' ' 'QTY IN OPUN' ' ',

'IT_PO' 'WRBTR' ' ' 'AMOUNT IN DOC' ' ',

'IT_PO' 'WAERS' ' ' 'CURRENCY KEY' ' ',

'IT_PO' 'XBLNR' ' ' 'REFERENCE DOC.NO' ' '.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY-CPROG

  • I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'USER_COMM'

  • I_CALLBACK_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_TOP_OF_PAGE = ' '

  • I_CALLBACK_HTML_END_OF_LIST = ' '

  • I_STRUCTURE_NAME =

  • I_BACKGROUND_ID = ' '

  • I_GRID_TITLE =

  • I_GRID_SETTINGS =

  • IS_LAYOUT =

IT_FIELDCAT = IT_FIELDCAT1[]

  • 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 = IT_PO

  • IF SY-SUBRC <> 0.

  • 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.

ENDIF.

ENDCASE.

ENDFORM. "USER_COMM }

my output in alv grid format.

if i am clicking menge1 it will go to next screen.

when i am going next time the existing data repeated again.it should not repeat and also

i want to give one more field ebeln like menge1.

regards,

k.karthikeyan.

Former Member
Not what you were looking for? View more on this topic or Ask a question