Re: [ABAP] hierarchical Sequential model in Object ALV

[Surendranatha Sathvik]

hi,
 
Try this code
 
TABLES: EKKO, EKPO.
SELECT-OPTIONS: S_EBELN FOR EKKO-EBELN.
TYPE-POOLS: SLIS.
DATA: BEGIN OF HEADERTAB OCCURS 0,
EBELN LIKE EKKO-EBELN,
BSTYP LIKE EKKO-BSTYP,
BSART LIKE EKKO-BSART,
STATU LIKE EKKO-STATU,
END OF HEADERTAB.
DATA: BEGIN OF ITEMTAB OCCURS 0,
EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,
WERKS LIKE EKPO-WERKS,
MENGE LIKE EKPO-MENGE,
NETPR LIKE EKPO-NETPR,
PEINH LIKE EKPO-PEINH,
NETWR LIKE EKPO-NETWR,
END OF ITEMTAB.
 
 
 
 
 
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: V_REPID LIKE SY-REPID.
DATA: G_TABNAME_HEADER TYPE SLIS_TABNAME,
G_TABNAME_ITEM TYPE SLIS_TABNAME,
GS_KEYINFO TYPE SLIS_KEYINFO_ALV.
 
 
 
 
START-OF-SELECTION.
 
V_REPID = SY-REPID.
 
SELECT EBELN BSTYP BSART STATU INTO TABLE HEADERTAB FROM
EKKO WHERE EBELN IN S_EBELN.
IF NOT HEADERTAB[] IS INITIAL.
SELECT EBELN EBELP MATNR WERKS MENGE NETPR PEINH NETWR INTO TABLE
ITEMTAB FROM EKPO FOR ALL ENTRIES IN HEADERTAB WHERE EBELN =
HEADERTAB-EBELN.
ENDIF.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = V_REPID
I_INTERNAL_TABNAME = 'HEADERTAB'
* I_STRUCTURE_NAME =
* I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = V_REPID
* I_BYPASSING_BUFFER = 'X'
* I_BUFFER_ACTIVE = ''
CHANGING
CT_FIELDCAT = I_FIELDCAT
* EXCEPTIONS
* INCONSISTENT_INTERFACE = 1
* PROGRAM_ERROR = 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.
 
 
 
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = V_REPID
I_INTERNAL_TABNAME = 'ITEMTAB'
* I_STRUCTURE_NAME =
* I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = V_REPID
* I_BYPASSING_BUFFER = 'X'
* I_BUFFER_ACTIVE = ''
CHANGING
CT_FIELDCAT = I_FIELDCAT
* EXCEPTIONS
* INCONSISTENT_INTERFACE = 1
* PROGRAM_ERROR = 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.
 
 
* GS_KEYINFO-HEADER01 = 'EBELN'.
GS_KEYINFO-ITEM01 = 'EBELN'.
GS_KEYINFO-HEADER01 = 'EBELN'.
 
 
G_TABNAME_HEADER = 'HEADERTAB'.
G_TABNAME_ITEM = 'ITEMTAB'.
 
 
 
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
I_CALLBACK_PROGRAM = V_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* IS_LAYOUT =
IT_FIELDCAT = I_FIELDCAT
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_DEFAULT = 'X'
I_SAVE = 'A'
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
I_TABNAME_HEADER = G_TABNAME_HEADER
I_TABNAME_ITEM = G_TABNAME_ITEM
* I_STRUCTURE_NAME_HEADER =
* I_STRUCTURE_NAME_ITEM =
IS_KEYINFO = GS_KEYINFO
* IS_PRINT =
* IS_REPREP_ID =
* I_BUFFER_ACTIVE = ''
* I_BYPASSING_BUFFER = 'X'
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB_HEADER = HEADERTAB
T_OUTTAB_ITEM = ITEMTAB
* 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.
Regards,
Sathvik[EMAIL PROTECTED] wrote:


 

Hi,
 
Anybody having sample code for Object alv , I need for hierarchical Sequential model.
 
I Have req like when ever new customer occurs , I need to display the sales order details ,this should be in object ALV.
 
Thanks in advance.
 
Regards
Seshu
 


From: anitashail [mailto:[EMAIL PROTECTED] Sent: Thursday, October 21, 2004 4:32 PMTo: [EMAIL PROTECTED]Subject: Re: Re: [ABAP] ABOUT DIALOG PROGRAMMING

see all the sample programs in SDWA development class.
shailendra[EMAIL PROTECTED] wrote: 

Dear amit,
go through T-code : Abapdocu
macamitkholkute <[EMAIL PROTECTED]> wrote:
HIwhere can i get ehelp or online help for dialog programing------------------------ Yahoo! Groups Sponsor --------------------~--> $9.95 domain names from Yahoo!. Register anything.http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/saFolB/TM--------------------------------------------------------------------~-> To unsubscribe from this list, send a to mail to [EMAIL PROTECTED] or go to http://groups.yahoo.com/group/ABAPComments about the list can be sent to [EMAIL PROTECTED] Yahoo! Groups Links<*> To visit your group on the web, go to:http://groups.yahoo.com/group/ABAP/<*> To unsubscribe from this group, send an email to:[EMAIL PROTECTED]<*> Your use of Yahoo! Groups is subject to:http://docs.yahoo.com/info/ter
  m!
 s/
Yahoo! India Matrimony: Find your life partner online. To unsubscribe from this list, send a to mail to [EMAIL PROTECTED] or go to http://groups.yahoo.com/group/ABAPComments about the list can be sent to [EMAIL PROTECTED] 

Indiatimes Email now powered by APIC Advantage. Help! 
Help
Click on the image to chat with me
To unsubscribe from this list, send a to mail to [EMAIL PROTECTED] or go to http://groups.yahoo.com/group/ABAPComments about the list can be sent to [EMAIL PROTECTED] To unsubscribe from this list, send a to mail to [EMAIL PROTECTED] or go to http://groups.yahoo.com/group/ABAPComments about the list can be sent to
 [EMAIL PROTECTED] To unsubscribe from this list, send a to mail to [EMAIL PROTECTED] or go to http://groups.yahoo.com/group/ABAPComments about the list can be sent to [EMAIL PROTECTED] 
S.Surendranatha Sathvik           Consultant SAP Practice.__________________________________________________Do You Yahoo!?Tired of spam?  Yahoo! Mail has the best spam protection around http://mail.yahoo.com 


To unsubscribe from this list, send a to mail to 
[EMAIL PROTECTED] or go to http://groups.yahoo.com/group/ABAP

Comments about the list can be sent to [EMAIL PROTECTED]








Yahoo! Groups Sponsor


  ADVERTISEMENT 












Yahoo! Groups Links

To visit your group on the web, go to:http://groups.yahoo.com/group/ABAP/ 
To unsubscribe from this group, send an email to:[EMAIL PROTECTED] 
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.