Abap basic list .

[Former Member]

My requirement is as below .

For every new sales org /Distribution Channel /Division Combination of these three . I have to display the basic list .Can some one guide me on this .

Required output

Sales Area: <KONA-VKORG>/ <KONA-VTWEG>/ <KONA-SPART>

Document no date Validity date

--- --- -

---

Thanks in advance

-padma

[Former Member]

Hi Padma,

Select the data into an internal table.

Sort the table by vkorg vtweg spart.

delete adjacent duplicates

at new spart.

write statements (display the list)

endat.

Regards,

Aarti

[Former Member]

Hi Padma,

Select the data into an internal table.

Sort the table by vkorg vtweg spart.

delete adjacent duplicates

at new spart.

write statements (display the list)

endat.

Regards,

Aarti

[hymavathi_oruganti]

u go into abap editor se38,

write

parameters: and press f1, u will come to know syntax and all.

next press f1 on select statement and u will come to know about that.

like this. u can use f1 as a greatest help.

u try coding ur self then u can learn.

[Former Member]

go through this report

&----

---

• TABLES DECLARATION

&----

---

type-pools: slis.

data: it_fieldcat type slis_t_fieldcat_alv,

wa_fieldcat like line of it_fieldcat.

tables:vbak, "Sales Document Header Details

vbap, "Sales Document Item Details

kna1. "Customer Master Details

&----

---

• INTERNAL TABLES DECLARATION

&----

---

data:begin of it_vbak occurs 0,

vbeln like vbak-vbeln, "Sales Document

erdat like vbak-erdat, "Date on which the record was created

erzet like vbak-erzet, "Entry time

ernam like vbak-ernam, "Name of Person who Created the Object

auart like vbak-auart, "Sales Document Type

end of it_vbak.

data: begin of it_vbap occurs 0,

vbeln like vbap-vbeln,

posnr like vbap-posnr,

matnr like vbap-matnr,

matwa like vbap-matwa,

matkl like vbap-matkl,

arktx like vbap-arktx,

end of it_vbap.

data:begin of it_finaltable occurs 0,

vbeln like vbak-vbeln, "Sales Document

erdat like vbak-erdat, "Date on which the record was created

erzet like vbak-erzet, "Entry time

ernam like vbak-ernam, "Name of Person who Created the Object

auart like vbak-auart,

posnr like vbap-posnr,

matnr like vbap-matnr,

matwa like vbap-matwa,

matkl like vbap-matkl,

arktx like vbap-arktx,

end of it_finaltable.

&----

---

• SELECTION-SCREEN

&----

---

selection-screen begin of block b1.

select-options:s_vbeln for vbak-vbeln.

selection-screen end of block b1.

selection-screen begin of block b2.

select-options:s_erdat for vbak-erdat.

selection-screen end of block b2.

selection-screen begin of block b3.

select-options:s_erzet for vbak-erzet,

s_ernam for vbak-ernam,

s_auart for vbak-auart.

selection-screen end of block b3.

&----

---

• START-OF-SELECTION

&----

---

start-of-selection.

perform get_vbak.

perform alv_datas.

perform alv_displays.

&----

---

• END-OF-SELECTION

&----

---

end-of-selection.

form alv_datas .

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES DOCUMENT NUMBER'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'ERDAT'.

wa_fieldcat-seltext_l = 'DATE ENTERED'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'ERZET'.

wa_fieldcat-seltext_l = 'TIME CREATED'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'ERNAM'.

wa_fieldcat-seltext_l = 'Person Created'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'AUART'.

wa_fieldcat-seltext_l = '----

---

'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'POSNR'.

wa_fieldcat-seltext_l = 'Item Number'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'MATNR'.

wa_fieldcat-seltext_l = 'Material Number'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'MATKL'.

wa_fieldcat-seltext_l = 'Order Qty'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'ARKTX'.

wa_fieldcat-seltext_l = 'Order Unit'.

append wa_fieldcat to it_fieldcat.

wa_fieldcat-fieldname = 'POSAR'.

wa_fieldcat-seltext_l = 'Net Qty'.

append wa_fieldcat to it_fieldcat.

endform. " ALV_DATAS

&----

---

*& Form GET_VBAK

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form get_vbak .

if not it_vbak is initial.

select vbeln

erdat

erzet

ernam

auart from vbak

into table it_vbak

for all entries in it_vbap

where vbeln = it_vbap-vbeln.

endif.

endform.

" GET_VBAK

&----

---

*& Form ALV_DISPALYS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form alv_displays .

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

• I_CALLBACK_PROGRAM = ' '

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

• I_BACKGROUND_ID = ' '

• I_GRID_TITLE = I_GRID_TITLE

• I_GRID_SETTINGS = I_GRID_SETTINGS

• IS_LAYOUT = IS_LAYOUT

it_fieldcat = it_fieldcat

• IT_EXCLUDING = IT_EXCLUDING

• IT_SPECIAL_GROUPS = IT_SPECIAL_GROUPS

• IT_SORT = IT_SORT

• IT_FILTER = IT_FILTER

• IS_SEL_HIDE = IS_SEL_HIDE

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT = IS_VARIANT

• IT_EVENTS = IT_EVENTS

• IT_EVENT_EXIT = IT_EVENT_EXIT

• IS_PRINT = IS_PRINT

• IS_REPREP_ID = 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_ALV_GRAPHICS

• IT_HYPERLINK = IT_HYPERLINK

• IT_ADD_FIELDCAT = IT_ADD_FIELDCAT

• IT_EXCEPT_QINFO = IT_EXCEPT_QINFO

• IR_SALV_FULLSCREEN_ADAPTER = IR_SALV_FULLSCREEN_ADAPTER

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER = E_EXIT_CAUSED_BY_CALLER

• ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER

tables

t_outtab = it_finaltable

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. " ALV_DISPLAYS

reward points if helpful.....