10-08-2007 7:11 AM
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
10-08-2007 9:54 AM
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
10-08-2007 9:58 AM
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.
10-08-2007 10:03 AM
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.....