Issue in header display for reuse_alv_grid_display

Hi All,
I have a requirement to place the items as shown below .
Date:      29.03.2011                                     XXX text                                         System: xxxx
new text:   ZRV_XXX                                                                                some text :
User:      u15                           Report to display the material stock                               other comment :
So it can be seen that the various text has to be placed as left aligned , centered and even right aligned in the top_of_page.
But as im using grid display , im unable to place this data while using :
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = t_header.
how can i populate the t_header table so that i can use the alignements a shown.
I have read that I_CALLBACK_HTML_TOP_OF_PAGE can be used to align.
Actually i want to make a function module which can be used in any report and FM make such alignements before using 'REUSE_ALV_COMMENTARY_WRITE' in any object.
Kindly help.

Hi,
Thanks for your replies. The problem is solved by using cl_dd_document class.
I used tables of TYPE REF TO cl_dd_table_element and coloumns of TYPE REF TO cl_dd_area.
Such top of page can be achieved using
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
and use the mentioned class in the form routine HTML_TOP_OF_PAGE.
Edited by: ujjwal_d15 on Apr 12, 2011 11:57 AM

Similar Messages

Create TOP-OF-PAGE display for REUSE_ALV_GRID_DISPLAY

Hi,
I need to create a TOP-OF-PAGE display to show the MATNR, description and EA per CSE for my report.
The report is output using "REUSE_ALV_GRID_DISPLAY."
See following code:
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_CALLBACK_TOP_OF_PAGE =
 I_STRUCTURE_NAME = 'ZSTATE_PROD_INQ'
 TABLES
 T_OUTTAB = I_ALV_MATNR.
How do I add a TOP-OF-PAGE display to the report, while using the above alv?
Points will be rewarded and all responses will be greatly appreciated.
Thanks,
John

See the example Program :
Use FM -
 CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 I_LOGO = 'FDLOGO'
 IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
REPORT ZMM_INV_DAYS_SUPPLY no standard page heading
 message-id zwave.
======================================================================
Program Name : ZMM_INV_DAYS_SUPPLY *
Description : this report identify Obsolete and Excessive inventory*
 it show show days of supply by date. Need to define *
 Average daily sales for a sku. Possibly look back to *
 the last 3 weeks or look at the same period a year ago*
 puls a growth factor to help with seasonal items *
Author : Seshu *
Date : 03/14/2007 *
MODIFICATION HISTORY *
DATE | AUTHOR | CHANGE # | DESCRIPTION OF MODIFICATION *
--|||--
03/14/07| Seshu | DEVK922128 | Initial *
03/22/07| Seshu | DEVK922148 | Removed Duplicates *
03/26/07| Seshu | DEVK922152 | Added new selection-screen *
03/27/07| Seshu | DEVK922154 | Material status as range option now*
03/27/07| Seshu | DEVK922158 | Corrected storage type in where con*
======================================================================
type-pools
type-pools : slis.
Data Declaration
tables : mara,
 marc,
 lagp,
 mvke,
 makt.
Constants
constants : c_werks(4) type c value '1000'," Plant
 c_lgort(4) type c value '1000'," Storage Location
 c_periv like MARC-PERIV value 'XX',
 c_perkz like MVER-PERKZ value 'T'.
Internal Tables
Internal Table for MARA and MAKT and MARD
data : begin of I_material occurs 0,
 matnr like mara-matnr, " Material
 lgpla like mlgt-lgpla," Storage Type
 zzdept like marc-zzdept," Pick Dept
 ZZPRODDEPT like marc-ZZPRODDEPT," Prod Dept
 vmsta like mvke-vmsta, " Material Status
 end of i_material.
Structure
data : begin of i_final occurs 0 ,
 matnr like mara-matnr," Material #
 maktx like makt-maktx," Description
 lgpla like mlgt-lgpla, " Storage Bin
 days like P0347-SCRDD, " No of Days
 menge like mseg-menge, " Avg Daily Sales
 kbetr like konp-kbetr, " Avg
 labst like mard-labst," Inventory Stock
 stprs like mbew-stprs, " Mvg avg Price
 dos like mseg-menge, " DOS Units
 dosm like konp-kbetr, " DOS $$
 end of i_final.
data : int_ges_verb_tab like sverbtaba
 occurs 0 with header line.
Internal table for A004
data : i_a004 like a004 occurs 0 with header line.
Data Variables
data : v_stprs like konp-kbetr,
 v_repid like sy-repid,
 v_labst like mard-labst,
 v_maktx like makt-maktx.
ALV Function Module Variables
DATA: g_repid like sy-repid,
 gs_layout type slis_layout_alv,
 g_exit_caused_by_caller,
 gs_exit_caused_by_user type slis_exit_by_user.
DATA: gt_fieldcat type slis_t_fieldcat_alv,
 gs_print type slis_print_alv,
 gt_events type slis_t_event,
 gt_list_top_of_page type slis_t_listheader,
 g_status_set type slis_formname value 'PF_STATUS_SET',
 g_user_command type slis_formname value 'USER_COMMAND',
 g_top_of_page type slis_formname value 'TOP_OF_PAGE',
 g_top_of_list type slis_formname value 'TOP_OF_LIST',
 g_end_of_list type slis_formname value 'END_OF_LIST',
 g_variant LIKE disvariant,
 g_save(1) TYPE c,
 g_tabname_header TYPE slis_tabname,
 g_tabname_item TYPE slis_tabname,
 g_exit(1) TYPE c,
 gx_variant LIKE disvariant.
Selection-screen
selection-screen : begin of block blk with frame title text-001.
parameters : p_werks like marc-werks obligatory default '1000'.
select-options : s_matnr for mara-matnr,
 s_MATKL for mara-MATKL,
 s_mtart for mara-mtart,
 s_LGTYP for LAGP-LGTYP,
 p_vmsta for MVKE-VMSTA,
 s_dept for marc-zzdept,
 s_pdept for MARC-ZZPRODDEPT.
selection-screen: end of block blk.
selection-screen begin of block periods with frame title text-002.
selection-screen begin of line.
selection-screen comment (15) text-c01.
selection-screen position 18.
Period 1
parameters: p_stdat1 like mkpf-budat obligatory.
selection-screen position 35.
selection-screen comment (10) text-c02.
parameters: p_endat1 like mkpf-budat obligatory.
selection-screen end of line.
selection-screen end of block periods.
Fill the default values
initialization.
v_repid = sy-repid.
PERFORM LAYOUT_INIT USING GS_LAYOUT.
PERFORM EVENTTAB_BUILD USING GT_EVENTS[].
Validation for Dates
at selection-screen.
if p_stdat1 > p_endat1.
 message e206(zwave) with
 ' End date should be greater than or equal to Start Date'.
endif.
Make one of the Selection should be mandatory
if s_matnr-low is initial.
 if s_matkl-low is initial and s_mtart-low is initial and
 s_dept-low is initial and s_pdept-low is initial.
 message e208(zwave) with
 'Enter atleast one selection Criteria'.
 endif.
endif.
Start-of-selection.
start-of-selection.
Get the data from MARA,MARD,MAKT Table
perform get_data_tables.
Read the data into FInal Table.
perform read_data.
END-OF-SELECTION.
end-of-selection.
if not i_final[] is initial.
ALV Function Module
 perform print_alv.
endif.
*& Form get_data_tables
Get the data from Tables MARA,MARD,MAKT
FORM get_data_tables.
select a~matnr
 b~lgpla
 czzdept cZZPRODDEPT d~vmsta into table i_material
 from mara as a inner join mlgt as b on amatnr = bmatnr
 inner join marc as c on cmatnr = amatnr
 inner join mvke as d on dmatnr = amatnr
 where a~matnr in s_matnr
 and c~werks = p_werks
 and a~mtart in s_mtart
 and c~ZZPRODDEPT in s_pdept
 and a~MATKL in s_MATKL
 and c~zzdept in s_dept
 and b~lgnum = '100'
 and b~LGTYP in s_lgtyp
 and b~lgpla ne space
 and d~vkorg = '0001'
 and d~vtweg = '01'
 and d~matnr in s_matnr
 and d~vmsta in p_vmsta.
if sy-subrc ne 0.
message e207(zwave) with 'No data found for Given Selection Criteria'.
endif.
sort i_material by matnr .
DELETE ADJACENT DUPLICATES FROM i_material COMPARING matnr.
ENDFORM. " get_data_tables
*& Form read_data
 Read the data
FORM read_data.
loop at i_material.
Storage Bin
 i_final-lgpla = i_material-lgpla.
Days of Sales ( End date - Start date )
 CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
 EXPORTING
 DATE1 = p_endat1
 DATE2 = p_stdat1
 OUTPUT_FORMAT = '02'
 IMPORTING
 DAYS = i_final-days.
Get the Average Daily Sales (Units) from MVER Table
 perform get_average_sales.
Get the Average Daily Sales ($$) from VK13 Transaction
 perform get_avgsales_price.
 clear : v_labst.
Get the Inventory from MARD Table
 select single labst from mard into v_labst
 where matnr = i_material-matnr
 and werks = p_werks
 and lgort = c_lgort.
 if sy-subrc eq 0.
Inventory Stock - MARD-LABST
 i_final-labst = v_labst.
 endif.
Material #
 i_final-matnr = i_material-matnr.
Get the Material Description
 clear v_maktx.
 select single maktx from makt into v_maktx
 where matnr = i_material-matnr
 and spras = 'EN'.
 if sy-subrc eq 0.
Description
 i_final-maktx = v_maktx.
 endif.
Get the Mvg Average Price
 perform get_moving_avgpr.
Days of Supply Units.
 if i_final-kbetr ne 0.
 i_final-dos = i_final-labst / i_final-menge.
 endif.
Days of Supply $$
 i_final-dosm = i_final-dos * v_stprs.
 append i_final.
 clear : i_final,
 i_material.
endloop.
refresh i_material.
ENDFORM. " read_data
*& Form get_average_sales
 Get the data from MVER Table
FORM get_average_sales.
data : lv_menge like mseg-menge.
refresh int_ges_verb_tab.
clear : int_ges_verb_tab,
 lv_menge.
CALL FUNCTION 'CONSUMPTION_READ_FOR_MM'
 EXPORTING
KZRFB = ' '
 MATNR = i_material-matnr
 WERKS = c_werks
 PERKZ = c_perkz
 PERIV = c_periv
 TABLES
 GES_VERB_TAB = int_ges_verb_tab
UNG_VERB_TAB =
 EXCEPTIONS
 WRONG_CALL = 1
 NOT_FOUND = 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.
loop at int_ges_verb_tab.
 if int_ges_verb_tab-ertag >= p_stdat1 and
 int_ges_verb_tab-ertag <= p_endat1.
 add int_ges_verb_tab-vbwrt to lv_menge.
 endif.
endloop.
i_final-menge = lv_menge / i_final-days.
ENDFORM. " get_average_sales
*& Form get_avgsales_price
 Avg Daily Sales Price
FORM get_avgsales_price.
Get the data from A004 table to get KNUMH
Added new field Sales Unit - Seshu 01/09/2006
refresh : i_a004.
clear : i_a004.
data : lv_kbetr like konp-kbetr," Condition value
 lv_KPEIN like konp-kpein , "per
 lv_KMEIN like konp-KMEIN. " Sales Unit
select * from a004 into table i_a004
 where matnr = i_material-matnr
 and vkorg = '0001'
 and vtweg = '01'.
if sy-subrc eq 0.
 sort i_a004 by DATAB descending.
Get the Latetest Date
 read table i_a004 with key matnr = i_material-matnr
 vkorg = '0001'
 vtweg = '01'
 binary search.
Get the Sales Value
 select single kbetr KPEIN KMEIN from konp
 into (lv_kbetr,lv_KPEIN, lv_KMEIN)
 where knumh = i_a004-knumh
 and kappl = i_a004-kappl
 and kschl = i_a004-kschl.
 if sy-subrc eq 0.
 i_final-kbetr = lv_kbetr / lv_KPEIN.
 i_final-kbetr = i_final-kbetr * i_final-menge.
 endif.
endif.
clear : lv_kbetr,
 lv_kpein,
 lv_KMEIN.
ENDFORM. " get_avgsales_price
*& Form get_moving_avgpr
 Get the data from MVEW Table
FORM get_moving_avgpr.
Local Variables
data : lv_stprs like mbew-stprs, " Standard Price
 lv_verpr like mbew-verpr, " Moving avg Price
 lv_vprsv like mbew-vprsv. " Price Indicator
clear : lv_stprs,
 lv_verpr,
 lv_vprsv,
 v_stprs.
select single stprs verpr vprsv from mbew
 into (lv_stprs,lv_verpr,lv_vprsv)
 where matnr = i_material-matnr.
if sy-subrc eq 0.
 if lv_vprsv = 'S'.
 i_final-stprs = lv_stprs * i_final-labst.
 v_stprs = lv_stprs.
 elseif lv_vprsv = 'V'.
 i_final-stprs = lv_verpr * i_final-labst.
 v_stprs = lv_verpr.
 endif.
endif.
ENDFORM. " get_moving_avgpr
*& Form print_alv
 REUSE_ALV_GRID_DISPLAY Function Module
FORM print_alv.
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
Populate field catalog
PERFORM fieldcat_init using gt_fieldcat[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_INTERFACE_CHECK = ' '
 I_BYPASSING_BUFFER =
 I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = v_repid
 I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = g_user_command
 I_CALLBACK_TOP_OF_PAGE = g_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 = gs_layout
 IT_FIELDCAT = gt_fieldcat[]
 IT_EXCLUDING =
 IT_SPECIAL_GROUPS =
 IT_SORT =
 IT_FILTER =
 IS_SEL_HIDE =
 I_DEFAULT = 'X'
 I_SAVE = 'A'
 IS_VARIANT =
 IT_EVENTS = GT_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
 IT_ALV_GRAPHICS =
 IT_ADD_FIELDCAT =
 IT_HYPERLINK =
 I_HTML_HEIGHT_TOP =
 I_HTML_HEIGHT_END =
 IT_EXCEPT_QINFO =
IMPORTING
 E_EXIT_CAUSED_BY_CALLER =
 ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = i_final
 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. " print_alv
*& Form get_fieldcatlog
 Fieldcatlog
*& Form fieldcat_init
 Fieldcat
FORM fieldcat_init USING e01_lt_fieldcat type slis_t_fieldcat_alv.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
Material #
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MATNR'.
LS_FIELDCAT-ref_fieldname = 'MATNR'.
LS_FIELDCAT-ref_tabname = 'MARA'.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Material'.
ls_fieldcat-seltext_M = 'Material'.
ls_fieldcat-seltext_S = 'Material'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MAKTX'.
LS_FIELDCAT-OUTPUTLEN = 30.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Description'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Storage Bin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'LGPLA'.
LS_FIELDCAT-OUTPUTLEN = 10.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Storage Bin'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Start Date
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'SDATE'.
LS_FIELDCAT-OUTPUTLEN = 10.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Start Date'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
End Date.
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'EDATE'.
LS_FIELDCAT-OUTPUTLEN = 10.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'End Date'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Days of Sales
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'DAYS'.
LS_FIELDCAT-OUTPUTLEN = 12.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Days of Sales'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Average Daily Sales(Units).
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MENGE'.
LS_FIELDCAT-OUTPUTLEN = 18.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Average Daily Sales(Units)'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Average Daily Sales($$)
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'KBETR'.
LS_FIELDCAT-OUTPUTLEN = 18.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Average Daily Sales($$)'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Inventory(Units)
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'LABST'.
LS_FIELDCAT-OUTPUTLEN = 18.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Inventory(Units)'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Inventory($$)
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'STPRS'.
LS_FIELDCAT-OUTPUTLEN = 18.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'Inventory($$)'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
DOS($$)
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'DOSM'.
LS_FIELDCAT-OUTPUTLEN = 13.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'DOS($$)'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
DOS(Days)
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'DOS'.
LS_FIELDCAT-OUTPUTLEN = 13.
LS_FIELDCAT-TABNAME = 'I_FINAL'.
ls_fieldcat-seltext_L = 'DOS(Days)'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
ENDFORM. " get_fieldcatlog
 FORM COMMENT_BUILD *
--> LT_TOP_OF_PAGE *
FORM COMMENT_BUILD USING LT_TOP_OF_PAGE TYPE
 SLIS_T_LISTHEADER.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
Variables for Date
data : lv_year(4) type c,
 lv_mon(2) type c,
 lv_day(2) type c,
 lv_date1(10) type c,
 lv_date2(10) type c.
LIST HEADING LINE: TYPE H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-INFO = sy-title.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
clear : lv_year,
 lv_day,
 lv_mon,
 lv_date1.
lv_year = p_stdat1+0(4).
lv_mon = p_stdat1+4(2).
lv_day = p_stdat1+6(2).
concatenate lv_mon '/' lv_day '/' lv_year into lv_date1.
STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-c01.
LS_LINE-INFO = lv_date1.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
clear : lv_year,
 lv_day,
 lv_mon,
 lv_date2.
lv_year = P_ENDAT1+0(4).
lv_mon = P_ENDAT1+4(2).
lv_day = P_ENDAT1+6(2).
concatenate lv_mon '/' lv_day '/' lv_year into lv_date2.
LS_LINE-KEY = text-c02.
LS_LINE-INFO = lv_date2.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
CLEAR LS_LINE.
ENDFORM.
 FORM TOP_OF_PAGE *
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 I_LOGO = 'FDLOGO'
 IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE.
ENDFORM.
 FORM EVENTTAB_BUILD *
--> RT_EVENTS *
FORM EVENTTAB_BUILD USING RT_EVENTS TYPE SLIS_T_EVENT.
*"Registration of events to happen during list display
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = RT_EVENTS.
READ TABLE RT_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
 INTO LS_EVENT.
IF SY-SUBRC = 0.
 MOVE G_TOP_OF_PAGE TO LS_EVENT-FORM.
 APPEND LS_EVENT TO RT_EVENTS.
ENDIF.
ENDFORM.
 FORM LAYOUT_INIT *
--> RS_LAYOUT *
FORM LAYOUT_INIT USING RS_LAYOUT TYPE SLIS_LAYOUT_ALV.
**"Build layout for list display
RS_LAYOUT-DETAIL_POPUP = 'X'.
lslayout-f2code = p_f2code.
rs_layout-zebra = 'X'.
rs_layout-colwidth_optimize = 'X'.
ENDFORM.

Sending IDoc Batches to SAP: Issue with Header Mapping for SNDPRN

We are sending batched IDocs from XI to SAP. We need the individual IDocs to reflect different SNDPRN values. Our mapping creates the different IDoc EDI_DC40 record correctly with different SNDPRN values. However, XI wipes out the SNDPRN values in the payload. When we define Header mapping to get the Sender Party as the XPath to the SNDPRN in the payload, then the header mapping errors out because the XPath returns multiple values.
I wanted to know if anyone has successfully implemented sending IDoc batches to SAP from XI with different SNDPRN values.
Your feedback is appreciated.
Jay Malla
Licensed To Code
Genentech SAP XI Team

Hello,
I have the same problem. I want XI send an IDOC with the SNDPOR, SNDPRT and the SNDPRN that are in the EDIDC40.
I find this in sap.help : 
Mapping
The IDoc adapter does not make any special demands on mapping. The IDoc adapter must simply be provided with an IDoc XML structure at the Integration Server outbound channel. This either already exists or must be generated by using a mapping.
If the IDoc XML structure contains a control record, it is deleted and created again by the IDoc adapter. If you want to include additional values in the control record, you must select the Apply Control Record Values from Payload checkbox in the parameters in the communication channel and provide a corresponding mapping for the values.
You can include the values from the following fields in your IDoc control record:
MESCOD, MESFCT
TEST
EXPRESS
STD, STDVRS, STDMES
SNDSAD, SNDLAD
RCVSAD, RCVLAD
REFINT, REFGRP, REFMES
http://help.sap.com/saphelp_nw04/helpdata/en/b9/c5b13bbeb0cb37e10000000a11402f/frameset.htm
Perhaps we must use party configuration but I don't know how do this !
Regards,
Chris

Header Vendor text is not getting displayed for PO in BBP_PD transaction.

Hi Experts,
We are upgrading SRM 3.0 to SRM 7.0 .In the upgraded sys the Header Text 'HTXT' is not getting displayed for the Purchase order created in BBP_PD. For the SCs the Header text field is populated correctly.
Inputs on this will be very helpful.
Regards,
Ravi.K

Ravi,
Check in IMG if the text schema is used in configuring PO transaction type. Define Transaction Types is the setting.
SG

Issue in PA - Header Modifications for IT0105

Hi All,
I have done header modifications for PA30 Screen, IT0000, IT0001 and IT 0105 (Communications) and for IT0021.
I am able to get the details of PA, PSA, EG and ESG in the header details.
But when an employee PA/PSA/EG/ESG has changed becoz of any action, the same information is not shown in IT0105 header details. System is picking up the old PA/PSA/EG/ESG details only.
If i change the start date in IT0105 as per the last action run, then it is picking up the updated information. Where in the employee IT0105 (Mail ID/ Mobile Num) remains the same from his Date of joining.
But as the action is been run and the PA/PSA/EG/ESG has already changed the same information should be updated automatically.
Request you to guide me to get the updated PA/PSA/EG/ESG in header details of IT0105.
Kind Regards
Nag
09581555404

Dear Nagesh,
what our Team members suggested is correct.
check the F1 help of Field CHOOSE DATA in Table V_582A_B.
F1 help.
Use
If you set the Choose Data indicator, you will use data that is valid for the start date of the current processed, or displayed, infotype record to structure the infotype header.
If you do not set the Choose Data indicator, the data that is valid for the system date will be used to structure the infotype header.
so uncheck the CHOOSE DATA field
regards,
mohammed

I have an issue with disappearing option for 1920x1080 in Preferences / Displays.

Recently updated to 10.9 - have all updates installed - Mid 2010 iMac 21.5.
I have an issue with disappearing option for 1920x1080 in Preferences / Displays. - After overnight shutdown, my iMac woke up and the screen resolution of my 2nd was set at 800 x 600 - the display a Samsung S22B150 was previously working properly at 1920 x 1080. This option is no longer available in the system preferences - highest resolution available 1600 x 1200.
I use my mMac for Photography and use the second monitor for the interface, leaving the iMac screen as a full work area for the photos.
I have tried:
Power down Monitor & restart
Shutdown & restart
Shutdown & restart in Safe Boot Mode (options same in Prefs)
Power down Monitor & restart in Safe Boot Mode
Ran Disc Utility - Repaired Permissions, verified both HDD & Mac OSX
Udated Pram
I am now at a loss, I guess I could try a recovery, and download/install Mavericks again, but do not wish to do this if I can help it.
I have searched the net to see if there are any Terminal commands to enable the resolution, but can find nothing.
Anyone out there have any ideas, please.

Back up all data. Quit System Preferences if it's running.
Triple-click anywhere in the line below on this page to select it, then copy the text to the Clipboard by pressing the key combination command-C:
~/Library/Preferences/ByHost
In the Finder, select
Go ▹ Go to Folder...
from the menu bar. Paste into the box that opens (command-V), then press return. A folder should open. If it does, look for a file with a long name that begins "com.apple.preference.displays2". There may be several such files. Move them to the Trash.
Test.

Checkbox field in ALV for REUSE_ALV_GRID_DISPLAY

how to handle Checkbox field in ALV for REUSE_ALV_GRID_DISPLAY????
For example Alv has displayed 400 entries if user checks 4 entries and wants to donwload only those 4 entries from ALV using Copy to local file option then how should it be done. please provide some help...

REPORT YHRMR_LTC_TAXABLE NO STANDARD PAGE HEADING LINE-SIZE 120.
TYPE-POOLS: SLIS.
Start of Data Declaration *
DATA: G_PLVAR TYPE PLVAR.
DATA: P_MONTH TYPE TFMATAGE.
DATA: TOTAL_NO TYPE I.
DATA: TOTAL_NO_SUM TYPE I.
DATA: COUNT_15 TYPE I.
DATA: COUNT_15_SUM TYPE I.
DATA: COUNT_LTC TYPE I.
DATA: COUNT_LTC_SUM TYPE I.
DATA: COUNT_ERROR_IT15 TYPE I.
DATA: COUNT_ERROR_IT15_SUM TYPE I.
DATA: COUNT_ERROR_LTC TYPE I.
DATA: COUNT_ERROR_LTC_SUM TYPE I.
DATA: COUNT_ENTRY_IT15 TYPE I.
DATA: COUNT_ENTRY_IT15_SUM TYPE I.
--LOCAL TABLE TYPE--
DATA: T_DATA_LTC LIKE YHRMT_LTC OCCURS 0 WITH HEADER LINE.
DATA: T_DATA_LTC_NEW LIKE YHRMT_LTC OCCURS 0 WITH HEADER LINE.
DATA: T_PA0015 LIKE PA0015 OCCURS 0 WITH HEADER LINE.
DATA: T_P0015 LIKE PA0015 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF T_FINAL OCCURS 0,
 CHECK_BOX(1),
 MANDT TYPE MANDT,
 PERNR TYPE PERSNO,
 ABKRS TYPE ABKRS,
 PERSK TYPE PERSK,
 WAGETYPE TYPE LGART,
 LTCSTART TYPE YAJAHR,
 LTCEND TYPE YYAJAHR,
 FLAG TYPE YCHAR1,
 SEQNR TYPE SEQNR,
 LEVSTART TYPE URBEG,
 LEVEND TYPE BDATU_052R,
 PAYDATE TYPE YBEGDA,
 AMOUNTPAY TYPE AMUNT,
 TAXYR TYPE PHK_TAXYR,
 DOCUNO TYPE YCHAR20,
 DOCUDATE TYPE YENDDA,
 VOUCHNO TYPE YCHAR20,
 APDATE TYPE BPS_APPDA,
 CANCEL_MOD TYPE YCANCELMOD,
 LTC_IND TYPE ATZH1,
 APPL_TAG TYPE YAPPTAG,
 CANCEL_DATE TYPE AEDTM,
 CANCEL_USER TYPE AENAM,
 LASTCHANGE TYPE AEDTM,
 USERNAME TYPE AENAM,
 END OF T_FINAL.
DATA: BEGIN OF T_PA0001 OCCURS 0,
 PERNR LIKE PA0001-PERNR,
 ABKRS LIKE PA0001-ABKRS,
 END OF T_PA0001.
--Message Part Declaration--
DATA: BEGIN OF T_SUCCESS OCCURS 0,
 PERNR TYPE PERSNO,
 MESSAGE(50) TYPE C,
 END OF T_SUCCESS.
DATA: BEGIN OF T_ERROR OCCURS 0,
 PERNR TYPE PERSNO,
 MESSAGE(50) TYPE C,
 END OF T_ERROR.
--TABLE TYPE OF SLIS TYPE-GROUP--
DATA: G_FLD TYPE SLIS_T_FIELDCAT_ALV,
 G_EV TYPE SLIS_T_EVENT,
 G_SORT TYPE SLIS_T_SORTINFO_ALV,
 G_LST TYPE SLIS_T_LISTHEADER.
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
 GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
 GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
 I_EVENTS TYPE SLIS_T_EVENT,
 GD_REPID LIKE SY-REPID.
--STRUCTURE TYPE OF SLIS TYPE-GROUP--
DATA: L_EV TYPE SLIS_ALV_EVENT.
CONSTANTS : C_PF TYPE SLIS_FORMNAME VALUE 'PF_STATUS_SET',
 C_UCOM TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
*---- Start Change by Bibek/Shankar Dated : 12-03-2008 via cmr no : J/08/03/062/1.
DATA: L_ENDDATE LIKE SY-DATUM.
*---- End Change by Bibek/Shankar Dated : 12-03-2008 via cmr no : J/08/03/062/1.
End of Data Declaration *
Start of Selection screen Parameters *
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-002.
*START CHANGE BY SHAYARI ON 18.02.2008, CMR No.:- J/08/02/323
PARAMETERS:P_ABKRS LIKE PA0001-ABKRS OBLIGATORY.
*END CHANGE BY SHAYARI ON 18.02.2008, CMR No.:- J/08/02/323
*START CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-006 FOR FIELD P_LES.
PARAMETER P_LES RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
*END CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-003 FOR FIELD P_ONE.
PARAMETER P_ONE RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-004 FOR FIELD P_TWO.
PARAMETER P_TWO RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 1.
SELECTION-SCREEN COMMENT 1(78) TEXT-005 FOR FIELD P_MORE.
PARAMETER P_MORE RADIOBUTTON GROUP RB1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK A.
End of Selection screen Parameters *
*Get Plan Version
CALL FUNCTION 'RH_GET_PLVAR'
IMPORTING
 PLVAR = G_PLVAR.
PERFORM CLEAR.
CALL FUNCTION 'HR_JP_MONTH_BEGIN_END_DATE'
EXPORTING
 IV_DATE = SY-DATUM
IMPORTING
EV_MONTH_BEGIN_DATE =
 EV_MONTH_END_DATE = L_ENDDATE.
SELECT *
FROM YHRMT_LTC
INTO TABLE T_DATA_LTC
WHERE FLAG = '1'
 AND WAGETYPE = '1640'
 AND LEVEND LE L_ENDDATE
 AND PAYDATE GE '20080101'.
If SY-SUBRC <> 0.
MESSAGE I398(00) with 'No Records to display '.
ENDIF.
DELETE T_DATA_LTC WHERE LEVEND = '00000000'.
*START CHANGE BY BIBEk Dt : 06.03.2008, CMR No.:- J/08/03/062/1
*For Less Than One Month from Leave End Date
IF P_LES = 'X'.
LOOP AT T_DATA_LTC.
 CLEAR P_MONTH.
 CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
 EXPORTING
 BEG_DA = T_DATA_LTC-LEVEND
 END_DA = SY-DATUM
 IMPORTING
 NO_MONTH = P_MONTH.
 IF P_MONTH LT '1'.
 T_FINAL-MANDT = T_DATA_LTC-MANDT.
 T_FINAL-PERNR = T_DATA_LTC-PERSONNELNO.
 T_FINAL-PERSK = T_DATA_LTC-PERSK.
 T_FINAL-WAGETYPE = T_DATA_LTC-WAGETYPE.
 T_FINAL-LTCSTART = T_DATA_LTC-LTCSTART.
 T_FINAL-LTCEND = T_DATA_LTC-LTCEND.
 T_FINAL-FLAG = T_DATA_LTC-FLAG.
 T_FINAL-SEQNR = T_DATA_LTC-SEQNR.
 T_FINAL-LEVSTART = T_DATA_LTC-LEVSTART.
 T_FINAL-LEVEND = T_DATA_LTC-LEVEND.
 T_FINAL-PAYDATE = T_DATA_LTC-PAYDATE.
 T_FINAL-AMOUNTPAY = T_DATA_LTC-AMOUNTPAY.
 T_FINAL-TAXYR = T_DATA_LTC-TAXYR.
 T_FINAL-DOCUNO = T_DATA_LTC-DOCUNO.
 T_FINAL-DOCUDATE = T_DATA_LTC-DOCUDATE.
 T_FINAL-VOUCHNO = T_DATA_LTC-VOUCHNO.
 T_FINAL-APDATE = T_DATA_LTC-APDATE.
 T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
 T_FINAL-LTC_IND = T_DATA_LTC-LTC_IND.
 T_FINAL-APPL_TAG = T_DATA_LTC-APPL_TAG.
 T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
 T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
 T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
 T_FINAL-USERNAME = T_DATA_LTC-USERNAME.
 APPEND T_FINAL.
 CLEAR T_FINAL.
 ENDIF.
ENDLOOP.
*For One Month from Leave End Date
ELSEIF P_ONE = 'X'.
LOOP AT T_DATA_LTC.
 CLEAR P_MONTH.
 CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
 EXPORTING
 BEG_DA = T_DATA_LTC-LEVEND
 END_DA = SY-DATUM
 IMPORTING
 NO_MONTH = P_MONTH.
 IF P_MONTH EQ '1' AND P_MONTH LT '2'.
 T_FINAL-MANDT = T_DATA_LTC-MANDT.
 T_FINAL-PERNR = T_DATA_LTC-PERSONNELNO.
 T_FINAL-PERSK = T_DATA_LTC-PERSK.
 T_FINAL-WAGETYPE = T_DATA_LTC-WAGETYPE.
 T_FINAL-LTCSTART = T_DATA_LTC-LTCSTART.
 T_FINAL-LTCEND = T_DATA_LTC-LTCEND.
 T_FINAL-FLAG = T_DATA_LTC-FLAG.
 T_FINAL-SEQNR = T_DATA_LTC-SEQNR.
 T_FINAL-LEVSTART = T_DATA_LTC-LEVSTART.
 T_FINAL-LEVEND = T_DATA_LTC-LEVEND.
 T_FINAL-PAYDATE = T_DATA_LTC-PAYDATE.
 T_FINAL-AMOUNTPAY = T_DATA_LTC-AMOUNTPAY.
 T_FINAL-TAXYR = T_DATA_LTC-TAXYR.
 T_FINAL-DOCUNO = T_DATA_LTC-DOCUNO.
 T_FINAL-DOCUDATE = T_DATA_LTC-DOCUDATE.
 T_FINAL-VOUCHNO = T_DATA_LTC-VOUCHNO.
 T_FINAL-APDATE = T_DATA_LTC-APDATE.
 T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
 T_FINAL-LTC_IND = T_DATA_LTC-LTC_IND.
 T_FINAL-APPL_TAG = T_DATA_LTC-APPL_TAG.
 T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
 T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
 T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
 T_FINAL-USERNAME = T_DATA_LTC-USERNAME.
 APPEND T_FINAL.
 CLEAR T_FINAL.
 ENDIF.
ENDLOOP.
*For Two Month from Leave End Date
ELSEIF P_TWO = 'X'.
LOOP AT T_DATA_LTC.
 CLEAR P_MONTH.
 CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
 EXPORTING
 BEG_DA = T_DATA_LTC-LEVEND
 END_DA = SY-DATUM
 IMPORTING
 NO_MONTH = P_MONTH.
 IF P_MONTH EQ '2' AND P_MONTH LT '3'.
 T_FINAL-MANDT = T_DATA_LTC-MANDT.
 T_FINAL-PERNR = T_DATA_LTC-PERSONNELNO.
 T_FINAL-PERSK = T_DATA_LTC-PERSK.
 T_FINAL-WAGETYPE = T_DATA_LTC-WAGETYPE.
 T_FINAL-LTCSTART = T_DATA_LTC-LTCSTART.
 T_FINAL-LTCEND = T_DATA_LTC-LTCEND.
 T_FINAL-FLAG = T_DATA_LTC-FLAG.
 T_FINAL-SEQNR = T_DATA_LTC-SEQNR.
 T_FINAL-LEVSTART = T_DATA_LTC-LEVSTART.
 T_FINAL-LEVEND = T_DATA_LTC-LEVEND.
 T_FINAL-PAYDATE = T_DATA_LTC-PAYDATE.
 T_FINAL-AMOUNTPAY = T_DATA_LTC-AMOUNTPAY.
 T_FINAL-TAXYR = T_DATA_LTC-TAXYR.
 T_FINAL-DOCUNO = T_DATA_LTC-DOCUNO.
 T_FINAL-DOCUDATE = T_DATA_LTC-DOCUDATE.
 T_FINAL-VOUCHNO = T_DATA_LTC-VOUCHNO.
 T_FINAL-APDATE = T_DATA_LTC-APDATE.
 T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
 T_FINAL-LTC_IND = T_DATA_LTC-LTC_IND.
 T_FINAL-APPL_TAG = T_DATA_LTC-APPL_TAG.
 T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
 T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
 T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
 T_FINAL-USERNAME = T_DATA_LTC-USERNAME.
 APPEND T_FINAL.
 CLEAR T_FINAL.
 ENDIF.
ENDLOOP.
*For More than Two Month from Leave End Date
ELSEIF P_MORE = 'X'.
LOOP AT T_DATA_LTC.
 CLEAR P_MONTH.
 CALL FUNCTION 'HR_AUPBS_MONTH_DAY'
 EXPORTING
 BEG_DA = T_DATA_LTC-LEVEND
 END_DA = SY-DATUM
 IMPORTING
 NO_MONTH = P_MONTH.
 IF P_MONTH GT '2' .
 T_FINAL-MANDT = T_DATA_LTC-MANDT.
 T_FINAL-PERNR = T_DATA_LTC-PERSONNELNO.
 T_FINAL-PERSK = T_DATA_LTC-PERSK.
 T_FINAL-WAGETYPE = T_DATA_LTC-WAGETYPE.
 T_FINAL-LTCSTART = T_DATA_LTC-LTCSTART.
 T_FINAL-LTCEND = T_DATA_LTC-LTCEND.
 T_FINAL-FLAG = T_DATA_LTC-FLAG.
 T_FINAL-SEQNR = T_DATA_LTC-SEQNR.
 T_FINAL-LEVSTART = T_DATA_LTC-LEVSTART.
 T_FINAL-LEVEND = T_DATA_LTC-LEVEND.
 T_FINAL-PAYDATE = T_DATA_LTC-PAYDATE.
 T_FINAL-AMOUNTPAY = T_DATA_LTC-AMOUNTPAY.
 T_FINAL-TAXYR = T_DATA_LTC-TAXYR.
 T_FINAL-DOCUNO = T_DATA_LTC-DOCUNO.
 T_FINAL-DOCUDATE = T_DATA_LTC-DOCUDATE.
 T_FINAL-VOUCHNO = T_DATA_LTC-VOUCHNO.
 T_FINAL-APDATE = T_DATA_LTC-APDATE.
 T_FINAL-CANCEL_MOD = T_DATA_LTC-CANCEL_MOD.
 T_FINAL-LTC_IND = T_DATA_LTC-LTC_IND.
 T_FINAL-APPL_TAG = T_DATA_LTC-APPL_TAG.
 T_FINAL-CANCEL_DATE = T_DATA_LTC-CANCEL_DATE.
 T_FINAL-CANCEL_USER = T_DATA_LTC-CANCEL_USER.
 T_FINAL-LASTCHANGE = T_DATA_LTC-LASTCHANGE.
 T_FINAL-USERNAME = T_DATA_LTC-USERNAME.
 APPEND T_FINAL.
 CLEAR T_FINAL.
 ENDIF.
ENDLOOP.
ENDIF.
****Payroll Area Put
SELECT PERNR ABKRS FROM PA0001
INTO CORRESPONDING FIELDS OF TABLE T_PA0001
FOR ALL ENTRIES IN T_FINAL
WHERE PERNR = T_FINAL-PERNR
AND ABKRS = P_ABKRS
AND BEGDA LE SY-DATUM
AND ENDDA GE SY-DATUM.
LOOP AT T_FINAL.
READ TABLE T_PA0001 WITH KEY PERNR = T_FINAL-PERNR.
IF SY-SUBRC = 0.
 T_FINAL-ABKRS = T_PA0001-ABKRS.
 MODIFY T_FINAL.
 CLEAR T_FINAL.
ENDIF.
ENDLOOP.
CLEAR T_FINAL.
DELETE T_FINAL WHERE ABKRS = ''.
*Output Form ALV List
PERFORM ALV.
*& Form ALV
FORM ALV .
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_EVENT.
PERFORM DISPLAY_DATA.
ENDFORM. " ALV
*& Form BUILD_FIELDCATALOG
FORM BUILD_FIELDCATALOG .
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'PERNR'.
FIELDCATALOG-SELTEXT_M = 'Personnel number'.
FIELDCATALOG-COL_POS = 1.
FIELDCATALOG-OUTPUTLEN = 17.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'ABKRS'.
FIELDCATALOG-SELTEXT_M = 'Payroll Area'.
FIELDCATALOG-COL_POS = 2.
FIELDCATALOG-OUTPUTLEN = 17.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'LTCSTART'.
FIELDCATALOG-SELTEXT_M = 'LTC Start year'.
FIELDCATALOG-COL_POS = 3.
FIELDCATALOG-OUTPUTLEN = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'LTCEND'.
FIELDCATALOG-SELTEXT_M = 'LTC End year'.
FIELDCATALOG-COL_POS = 4.
FIELDCATALOG-OUTPUTLEN = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'LEVSTART'.
FIELDCATALOG-SELTEXT_M = 'Start of leave'.
FIELDCATALOG-COL_POS = 5.
FIELDCATALOG-OUTPUTLEN = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'LEVEND'.
FIELDCATALOG-SELTEXT_M = 'End of leave'.
FIELDCATALOG-COL_POS = 6.
FIELDCATALOG-OUTPUTLEN = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'AMOUNTPAY'.
FIELDCATALOG-SELTEXT_M = 'Amount'.
FIELDCATALOG-DO_SUM = 'X'.
FIELDCATALOG-COL_POS = 7.
FIELDCATALOG-OUTPUTLEN = 13.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'PAYDATE'.
FIELDCATALOG-SELTEXT_M = 'Payment Date'.
FIELDCATALOG-COL_POS = 8.
FIELDCATALOG-OUTPUTLEN = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-TABNAME = 'T_FINAL'.
FIELDCATALOG-FIELDNAME = 'APPL_TAG'.
FIELDCATALOG-SELTEXT_M = 'Application Tag '.
FIELDCATALOG-COL_POS = 9.
FIELDCATALOG-OUTPUTLEN = 15.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
*Check Box Field Add
CLEAR GD_LAYOUT.
GD_LAYOUT-BOX_FIELDNAME = 'CHECK_BOX'.
GD_LAYOUT-BOX_TABNAME = 'T_FINAL'.
ENDFORM. " BUILD_FIELDCATALOG
*& Form BUILD_EVENT
FORM BUILD_EVENT .
*Event Handler
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = G_EV
 EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
ELSE.
 READ TABLE G_EV INTO L_EV WITH KEY NAME = SLIS_EV_PF_STATUS_SET.
 IF SY-SUBRC = 0.
 MOVE C_PF TO L_EV-FORM.
 MODIFY G_EV FROM L_EV INDEX SY-TABIX TRANSPORTING FORM.
 ENDIF.
 READ TABLE G_EV INTO L_EV WITH KEY NAME = SLIS_EV_USER_COMMAND.
 IF SY-SUBRC = 0.
 MOVE C_UCOM TO L_EV-FORM.
 MODIFY G_EV FROM L_EV INDEX SY-TABIX TRANSPORTING FORM.
 ENDIF.
ENDIF.
ENDFORM. " BUILD_EVENT
*& Form DISPLAY_DATA
FORM DISPLAY_DATA .
GD_REPID = SY-REPID.
CLEAR I_EVENTS. REFRESH I_EVENTS.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GD_REPID
 I_CALLBACK_PF_STATUS_SET = C_PF
 I_CALLBACK_USER_COMMAND = C_UCOM
 IS_LAYOUT = GD_LAYOUT
 IT_FIELDCAT = FIELDCATALOG[]
 IT_EVENTS = G_EV
 TABLES
 T_OUTTAB = T_FINAL.
ENDFORM. " DISPLAY_DATA
 FORM PF_STATUS_SET *
FORM PF_STATUS_SET USING RX_TAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'LTC'.
ENDFORM. "PF_STATUS_SET
 FORM USER_COMMAND *
FORM USER_COMMAND USING R_UCOM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOM.
 WHEN 'POST'.
 PERFORM POST_IT15_LTC_TABLE.
ENDCASE.
ENDFORM. "USER_COMMAND
*& Form POST_IT15_LTC_TABLE
FORM POST_IT15_LTC_TABLE .
ENDFORM. " POST_IT15_LTC_TABLE
*& Form clear
FORM CLEAR .
CLEAR T_DATA_LTC.
REFRESH T_DATA_LTC.
CLEAR T_DATA_LTC_NEW.
REFRESH T_DATA_LTC_NEW.
CLEAR T_FINAL.
REFRESH T_FINAL.
CLEAR T_PA0015.
REFRESH T_PA0015.
CLEAR T_SUCCESS.
REFRESH T_SUCCESS.
CLEAR T_ERROR.
REFRESH T_ERROR.
CLEAR G_PLVAR.
CLEAR P_MONTH.
CLEAR COUNT_15.
CLEAR COUNT_15_SUM.
CLEAR COUNT_LTC.
CLEAR COUNT_LTC_SUM.
CLEAR TOTAL_NO.
CLEAR TOTAL_NO_SUM.
CLEAR COUNT_ERROR_IT15.
CLEAR COUNT_ERROR_IT15_SUM.
CLEAR COUNT_ERROR_LTC.
CLEAR COUNT_ERROR_LTC_SUM.
CLEAR COUNT_ENTRY_IT15.
CLEAR COUNT_ENTRY_IT15_SUM.
ENDFORM. " clear

Issue in PDF output for xml report

Hi,
I developed one template in RTF and output in pdf is looks fine.
I have issue in the output, For some invoices i have more lines,when the line details comes to next page for the same invoice i can able to view only the lines information in the next pages for the same invoice without any header details.
I need header information too if the lines comes to the next page.
i given <G_Headers> in the top of the page and <End for each> in the end of the page.
please how to resolve this issue.
with regards
Ram

There are lot of ways of doing this,
Simple one is given here.
If you are using table to display the rows, there is option in word table properties, to repeat the header in each page,
Repeating table headers
If your data is displayed in a table, and you expect the table to extend across
multiple pages, you can define the header rows that you want to repeat at the start
of each page.
1. Select the row(s) you wish to repeat on each page.
2. From the Table menu, select Heading Rows Repeat
Check out in user guide.

SAP VBA interfacing - error: FI/CO interface: Inconsistent FI/CO document header data for updating

Hello,
Currently I'm working with excel SAP interfacing. For this I am using VBA to call different BAPI functions.
I have already some interface scripts working, however I have also one which I cannot discover what I'm missing.
The VBA code is to reach BAPI_ACC_DOCUMENT_POST
My error is ---> FI/CO interface: Inconsistent FI/CO document header data for updating
So I'm appealing to you SAP bapi VBA gurus whether you have any ideas how to fix my issue.
I'm attaching below my code for you to review:
Option Explicit
' Declaration for the necessary objects
Dim objBAPICortrol, objConnection, objCreateMaterial, objReturn As Object
Dim objPRFCT, objNTXT, objDTXT As Object
Dim vLastRow, vRows As Integer
Dim objMaterial1, objMaterial2, retMess As Object
Sub Batch()
' Getting the last filled Row in Column
vLastRow = Cells(Rows.Count, "A").End(xlUp).Row
' Setting the necessary variables for R/3 connection
Set objBAPICortrol = CreateObject("SAP.functions")
Set objConnection = objBAPICortrol.Connection
objConnection.System = "SYSTEM NAME"
objConnection.Client = "Client number"
objConnection.user = "USERNAME"
objConnection.Password = "PASSWORD"
objConnection.Language = "EN"
' Establish a connection
If objConnection.logon(0, False) <> False Then
'MsgBox "Connection Established"
End If
On Error Resume Next
' Assign the Parameters
Set objCreateMaterial = objBAPICortrol.Add("BAPI_ACC_DOCUMENT_POST")
Set objMaterial = objCreateMaterial.Exports.Item("DOCUMENTHEADER")
Set objMaterial1 = objCreateMaterial.Tables.Item("ACCOUNTGL")
Set objMaterial2 = objCreateMaterial.Tables.Item("CURRENCYAMOUNT")
'Set Values
objMaterial.Value("USERNAME") = "USERNAME"
objMaterial.Value("HEADER_TXT") = "BAPITEST"
objMaterial.Value("COMP_CODE") = "0001"
objMaterial.Value("PSTNG_DATE") = "20140506"
objMaterial.Value("TRANS_DATE") = "20140506"
objMaterial.Value("DOC_DATE") = "20140506"
objMaterial.Value("FISC_YEAR") = "2014"
objMaterial.Value("DOC_TYPE") = "SA"
objMaterial.Value("REF_DOC_NO") = "BAPITEST"
objMaterial.Value("FIS_PERIOD") = "00"
objMaterial1.Rows.Add
objMaterial1.Value(1, "ITEMNO_ACC") = "1"
objMaterial1.Value(1, "GL_ACCOUNT") = "0007180000"
objMaterial1.Value(1, "ITEM_TEXT") = "BAPITEST1"
objMaterial1.Value(1, "DOC_TYPE") = "SA"
objMaterial1.Value(1, "COMP_CODE") = "0001"
objMaterial1.Value(1, "PROFIT_CTR") = "AZ1111" ---->'profit center is normally having 10CHARS but as there are letters I'm not using zeros at the beginning
objMaterial1.Value(1, "ITEMNO_ACC") = "2"
objMaterial1.Value(1, "GL_ACCOUNT") = "0007180000"
objMaterial1.Value(1, "ITEM_TEXT") = "BAPITEST1"
objMaterial1.Value(1, "DOC_TYPE") = "SA"
objMaterial1.Value(1, "COMP_CODE") = "0001"
objMaterial1.Value(1, "PROFIT_CTR") = "AZ1111"
objMaterial2.Rows.Add
objMaterial2.Value(1, "ITEMNO_ACC") = "1"
objMaterial2.Value(1, "CURRENCY") = "EUR"
objMaterial2.Value(1, "AMT_DOCCUR") = "-1.00"
objMaterial2.Value(1, "ITEMNO_ACC") = "2"
objMaterial2.Value(1, "CURRENCY") = "EUR"
objMaterial2.Value(1, "AMT_DOCCUR") = "1.00"
' Function call
objCreateMaterial.call
Set objReturn = objBAPICortrol.Add("BAPI_TRANSACTION_COMMIT")
objReturn.call
Set retMess = objCreateMaterial.Tables.Item("RETURN")
If retMess Is Nothing Then
MsgBox retMess.Value(1, "MESSAGE")
End If
' Get return parameters & display in excel
Set objReturn = objCreateMaterial.Tables("RETURN")
ActiveSheet.Cells(5, 1) = retMess.Value(2, "MESSAGE")
End Sub

after some searching I've discovered that once I'm creating next line for accounting document it is not working properly.
When I debug the BAPI in SE37 after inserting new line it is asking for GL account input, however if I run it using VBA and delete the account from the code, the return message is not giving me any error that GL account is missing.
I appreciate any ideas.

Column Header Display

Hello,
I have a requirement where the columns need display as given below:
When a Material is displayed with key then the header reads as "Material".
Whe both Key and Text are display the Key column has the header as "Material", whereas the Description column does not have any header.
Is it possible any way to display the text as "Material Description".
Appreciate any ones feedback.
Thanks
Sundar

The customer is looking for the Header to read as
Material Description
Vendor Name
Plant Name etc. Since I have so many objects where this is a requirement it is a problem with the creative solution. Although that is a great way to go with.
The VB is a maintenance issue and not allowed for any of the reports. I would prefer something within BW to acheive the description.
Thanks for the quick reply.
Sundar

HDMI to TV as Display for New Mac Mini DOESN'T WORK

I bought a new Mac Mini and was told I could us HDMI to my TV as display.   I was using this TV as display for older Mac Mini (VGA) and for a Windows PC, and DVD via HDMI.     TV is one year old.
The Genius at the store who sold me the new mini said all I needed was an HDMI cable.   Which I purchased.
The screen comes up for the Setup Assistant but as soon I select continue is goes to gray, mixed color scanning garbage mode.    If I turn the TV off and back on, the screen returns (now at the next prompt in the setup assistant) but again it goes gray after hitting continue.    Unusable, CANNOT set up my new purchase.
Unfortunately, the DVI to VGA adapter on my old mini is different and doesn't mate to the HDMI to DVI adapter that ships with new MacMini, so I can't test VGA.   The old DVI to VGA has extra pins not on the new one.
My purchase is not usable and is extremely poor.   Buyer beware I guess.

I have been using MacMini's for commercial digital signage/video conferencing gateway usage for sometime now, they all have HDMI output, about one third are on Lion the others still on Snow Leopard, here's what I have found.
Toshiba & LG tv's are generally reliable, Samsung and Philips generally are not, Panasonic, Sony, Sharp & Viewsonic all work, somtimes with a bit of work from me.
Cables are important (always look for compatibility with HDMI revision 1.3 or greater (1.4 preferred), don't waste your money on exotic brands, adhere to the distance limitations, I generally send the HDMI signal wirelessly (cost of labor to add wiring to an existing space can be very high) so am limited to less than 50ft, same as with a wire.
READ THE TV MANUAL, find out what HDMI choices your tv possesses, is there a 'parallel' audio input available for the times when your signal origin is a MDP or DVI.
Some TV's just don't work well, cut your losses and get another when faced with this issue.

When I try to open the "markets" page on the Firefox hompage, it displays for 3 or 4 seconds and then drops off; I get a white screen; this does not happen with Explorer.

When I open "markets" from the homepage, it comes up but drops off after a few seconds and
I get a white page. This does not happen with Explorer. A similar but much more extensive
problem happened a month or so ago (I couldn't open attachments). I called Microsoft and the
fellow messed about with my computer for an hour or so, but ended up saying he couldn't help
me. However, when he went away, the problems went away.
== This happened ==
Every time Firefox opened
== two weeks ago?

~~red:'''''displays for 3 or 4 seconds and then drops off'''''~~
If you have RealPlayer Browser Record Plugin '''extension''', disable/remove the RealPlayer Browser Record Plugin extension in the RealPlayer Preferences (RP: Tools > Preferences > Download & Recording) . Restart Firefox and test.
See Noah_SUMO's illustrated answer in this thread if the above is not clear: https://support.mozilla.com/en-US/forum/1/557689?
The RealPlayer Browser Record Plugin '''extension''' adds some extra features like saving media files.
Be sure not to get confused with the RealPlayer '''plugin''' (Tools > Add-ons > Plugins) that plays media files.
https://support.mozilla.com/en-US/forum/1/557689?
http://support.mozilla.com/en-US/forum/1/459823
https://support.mozilla.com/en-US/forum/1/446905?
https://support.mozilla.com/tiki-view_forum_thread.php?forumId=1&comments_parentId=472596
http://support.mozilla.com/en-US/forum/1/461211
http://support.mozilla.com/en-US/forum/1/376867
See [[Troubleshooting extensions and themes]] and [[Troubleshooting plugins]].
~~red:'''''Other Issues'''''~~: to correct security/stability issues
'''Update Java''': your ver. 1.6.0.17; current ver. 1.6.0.20 (important security update 04-15-2010)
''(Windows users: Do the manual update; very easy.)''
See: '''[http://support.mozilla.com/en-US/kb/Using+the+Java+plugin+with+Firefox#Updates Updating Java]'''
Do the update with Firefox closed.
'''Update Shockwave for Director''': your version 11.0; current version 11.5
NOTE: this is not the same as Shockwave Flash; this installs the Shockwave Player.
SAVE the installer to your hard drive (Desktop is a good place so you can find it). When the download is complete, exit Firefox (File > Exit), locate and double-click in the installer you just downloaded, let the install complete.
IMPORTANT: I have found it wise to always restart your system after doing anything with Adobe products.
See: '''[http://support.mozilla.com/en-US/kb/Using+the+Shockwave+plugin+with+Firefox#_Installing_Shockwave Installing Shockwave]'''

Material Description is not displaying for few records in Report

Dear Experts,
Report Material Description is not displaying for few records in Bex Report but for records it is coming and even the heading of the material Description is also not coming for this report.
Cud u plz suggest a good solution for it.
Regards,
Sai Phani.

Hi Phani,
For the text of the material in records, check if there is text maintained for that material in the master data. also try by changing the text to medium text and long text.
regarding header, you will have same heading for key and text, you may use Materail ID / Description as the heading if you want.
regards,
Rk.

Using iMac as display for Windows 7 (thunderbolt to thunderbolt)

I currently have a 27-inch Mid 2011 iMac running OS X Yosemite, and my company has issued me a Lenovo W540 that is running Windows 7 and has a thunderbolt port (not mini-display -- yes, I'm sure).
I have spend countless hours trying to use my iMac as a display for my laptop, but have had no luck. When I plug the iMac into the laptop, my laptop does recognize my iMac as a "Base System Device", but when I go to the System Information on my iMac it recognizes that a cable is connected, but says there is "No device connected" to my Thunderbolt ports, and attempting Target Display Mode (Cmd + F2) has no effect. So, has anybody ever gotten this to work? Is there a separate set of drivers that I need to install on my Windows laptop to recognize my iMac as a display?
I have done virtually hundreds searches on this, and haven't found anything that relates to my specific case. Is this simply not supported? I appreciate any help that can be provided!

Hello Allan,
I appreciate your response. I have read that a Mac running Windows with Bootcamp can use TDM, so I expected it would be a matter of installing proper drivers, but, unless anybody else has had some success, I think I'm about ready to admit defeat.
I appreciate you proposing a software solution, however, ScreenRecycler only supports using a Windows PC as another display, not the other way around. I did play around with a couple other software solutions, but none of these solutions would work well once my work PC is connected to VPN.
I guess I'll continue to work off a small laptop screen while a giant 27-inch screen on the same desk goes unused. Very frustrating.

Content in header displayed twice

Hi,
I am exploring sample portal app on WL platform 8.1 . if i add any text,etc in the header, it is displayed twice on the rendered page ...
same happens for footer also..
I am changing header.jsp and footer.jsp in the default skeleton
sometimes it results in null-pointer exception
i am still searching this newsgroup, for such case.. please help.
TIA
Message was edited by deepak79 at Feb 9, 2005 8:45 AM

Yesterday was my first day on portal and was trying it out without reading in details of the working. Now that i have read it I won't be touching skeleton files.
Same names used for header in skeleton and shell were a bit confusing
Doc says "do not be confused by the identically named header.jsp for both the look & feel and the shell header. They are different files with different uses. The fact that both have the same name is coincidence."
Message was edited by deepak79 at Feb 9, 2005 7:39 PM

Issue in header display for reuse_alv_grid_display

Similar Messages

Maybe you are looking for