Decimal point for Price value in ALV Report

HI,
I have created ALV report,
I have 2 price fields in ALV report
For first field i have to display in the below format.
If the value of the field is 3601152 then I have to display it as 36011.52
For second field I have to display in the below format
if the value is 2494 then I have to display it as 2495.00
else if the value is 3498.73,then I need not to do anything.
that means If there is no decimal point, then I have to keep decimal point.
Thanks&Regards
RamaDevi

HI,
you can work with search and concatenate.
value1 = 3601152
search value1 for '.' .
if sy-subrc eq 0.
concatenate value1(5) '.' value1(2)+5 into text.
Or value1 = value1 / 100.
endif.
Regards
Nicole

Similar Messages

Tool Tip Text for field values in ALV report

Hi,
How to get the tool tip text for the field values in ALV report.
Thanks & Regards,
Pallavi.

Hi,
In fieldcatalog specify the TOOLTIP.

LVC_S_FCAT-TOOLTIP

In this speicfyteh tooltip you want.
Then append this to the fieldcatalog.
Hope this solves ur problem.

Dynamic displaying of decimal points for currency field in ALV

Hi,
 In ALV output there is a currency field and displaying data of different countries. It should display decimal point according to the country's currency. But at a time it can display data of different countries.

Hi Dilip,
I think your question is about currencies with different number of digits after decimal point. If you have the currency field in the ALV row, you have to give it's name as currency reference for the value field in the field catalog.
After creating the field catalog, call a form and do something like this (change fielnames accordingly).
<pre>
*& Form alv_fieldcat_enhance
 Individual Enrichment of field catalog
FORM alv_fieldcat_enhance
CHANGING pt_alv_fieldcat TYPE slis_t_fieldcat_alv.
FIELD-SYMBOLS:
 <alv_fieldcat> TYPE slis_fieldcat_alv.
LOOP AT pt_alv_fieldcat ASSIGNING <alv_fieldcat>.
 IF <alv_fieldcat>-fieldname(5) = 'KBETR' OR
 <alv_fieldcat>-fieldname(5) = 'SKBTR' OR
 <alv_fieldcat>-fieldname(5) = 'DMBTR'.
Company code currency
 <alv_fieldcat>-cfieldname = 'BWAER'.
Document Currency for conditions, net value and taxes
 ELSEIF <alv_fieldcat>-fieldname(5) = 'KWERT' OR
 <alv_fieldcat>-fieldname = 'NETWR' OR
 <alv_fieldcat>-fieldname = 'NPAX_MWST_AMNT'.
Document Currency
 <alv_fieldcat>-cfieldname = 'WAERK'.
 ENDIF." <alv_fieldcat>-fieldname(5) = 'KBETR' or
ENDLOOP." at pt_alv_fieldcat assigning <fieldcat_alv>.
ENDFORM. " alv_fieldcat_enhance
</pre>
Regards,
Clemens

Color for negative Values in ALV Report

I want to change the color for negative values displayed in ALV list diplay report. Eg. -5 in Quantity should be changed to orange. Kindly help me
Thanks

Check the below program and bold one are important ( which is similar to MD05 Traffic lights )
REPORT ZWM_BIN_STOCK_REQ no standard page heading
 message-id zwave.
D A T A D E C L A R A T I O N ****************************
Tables
tables :zpwvbap,
 mara,
 marc,
 makt,
 vbap,
 zshift,
 marm,
 lqua.
TYPE-POOLS: SLIS.
Internal Table for Sales order
data : begin of i_vbap occurs 0,
 matnr like zpwvbap-matnr," Material #
 ZZCUTOFF like zpwvbak-ZZCUTOFF," Cutoff Time
 vlpla like zpwvbap-vlpla,
 kwmeng like zpwvbap-kwmeng," Quantity
 vrkme like zpwvbap-vrkme, " Sales Unit
 meins like zpwvbap-meins, " Unit of measure
 end of i_vbap.
Internal Table for final Processing
data : begin of i_final occurs 0,
 date(8) type c,
 matnr like zpwvbap-matnr," Material #
 zzshift like zshift-zzshift, " Wave Drop
 maktx like makt-maktx," Desc
 lgpla like lagp-lgpla, " Pick Bin
 pverme like lqua-verme," Stock at Pick Bin
 prverme like lqua-verme," Stock at Prod Bin
 kwmeng like zpwvbap-kwmeng," Requiremnet from Wave Drop
 vrkme like zpwvbap-vrkme, " Sales Unit
 meins like zpwvbap-meins," Unit of measure
 end of i_final.
Internal Table for Output
data : begin of i_output occurs 0,
 field type c, " Traffic Lights
 zzshift like zshift-zzshift, " Wave Drop
 matnr like zpwvbap-matnr," Material #
 maktx like makt-maktx," Desc
 lgpla like lagp-lgpla, " Pick Bin
 pverme like lqua-verme," Stock at Pick Bin
 prverme like lqua-verme," Stock at Prod Bin
 kwmeng like zpwvbap-kwmeng," Requiremnet from Wave Drop
 vrkme like zpwvbap-vrkme," Sales Unit
 meins like zpwvbap-meins," Unit of measure
 diff like zpwvbap-kwmeng, " Diffrence
 end of i_output.
Work Area for Final Internal Table
data wa_final like i_final.
data : w_zzcutoff(12) TYPE c,
 v_date type sy-datum,
 v_time(4) type c,
 v_fldate(12) type c,
 v_fhdate(12) type c,
 v_pverme like lqua-verme,
 v_prverme like lqua-verme,
 v_diff like zpwvbap-kwmeng.
Variables for new check box
data : v_nverme like lqua-verme.
Internal Table for Pick Bin
data : begin of i_verme occurs 0,
 verme like lqua-verme,
 end of i_verme.
Internal table for Prod Bin
data : begin of i_pverme occurs 0,
 verme like lqua-verme,
 end of i_pverme.
Variables for ALV
DATA: FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 FIELDCAT_LN LIKE LINE OF FIELDCAT,
 SORTCAT TYPE SLIS_T_SORTINFO_ALV,
 SORTCAT_LN LIKE LINE OF SORTCAT,
 EVENTCAT TYPE SLIS_T_EVENT,
 EVENTCAT_LN LIKE LINE OF EVENTCAT,
 LAYOUT TYPE SLIS_LAYOUT_ALV,
 C_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
 g_user_command TYPE slis_formname VALUE 'USER_COMMAND',
 GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
DATA: COL_POS TYPE I,
 P_LIGNAM TYPE SLIS_FIELDNAME VALUE 'FIELD'.
DATA : V_REPID LIKE SY-REPID,
 flag type c.
S E L E C T I O N - S C R E E N *************************
selection-screen : begin of block blk with frame title text-001.
parameter : p_plant like marc-werks obligatory default '1000'.
select-options : s_date for sy-datum obligatory ,
 s_shift for zshift-zzshift,
 s_matnr for mara-matnr,
 s_dept for zpwvbap-zzdept,
 s_pdept for marc-ZZPRODDEPT.
selection-screen: end of block blk.
parameters : p_check as checkbox ."default 'X'.
ranges r_cutoff for w_zzcutoff.
I N I T I A L I Z A T I O N ****************************
initialization.
V_REPID = SY-REPID.
s_date-low = sy-datum + 1.
append s_date.
S T A R T - O F - S E L E C T I O N ***********************
start-of-selection.
Get the Shift Data.
PERFORM GET_SHIFT_DETAILS.
Get the data from ZPWVBAP Table
PERFORM GET_DATA_VBAP.
E N D - O F - S E L E C T I O N **********************
end-of-selection.
if not i_output[] is initial.
 sort i_output by field zzshift matnr.
Reset the all Fiedcatlog.
 PERFORM RESETVALUES.
Traffic Lights
 PERFORM BUILD_LAYOUT.
Fill the fieldcatlog values
 PERFORM FILL_FIELDCATLOG.
Call the List Function module
 PERFORM CALL_lIST.
endif.
*& Form GET_SHIFT_DETAILS
 Get the Cutoff Time.
FORM GET_SHIFT_DETAILS.
clear : v_fldate,
 v_fhdate.
if not s_shift-low is initial.
 clear: v_time,
 v_date.
 if s_shift-low = '1'.
 v_time = '2000'.
 elseif s_shift-low = '2'.
 v_time = '2300'.
 endif.
 v_date = s_date-low - 1.
 concatenate v_date v_time into v_fldate.
endif.
if not s_shift-high is initial.
 clear : v_date,
 v_time.
 if s_shift-high = '1'.
 v_time = '2000'.
 elseif s_shift-high = '2'.
 v_time = '2300'.
 endif.
 if not s_date-high is initial.
 v_date = s_date-high - 1.
 else.
 v_date = s_date-low - 1.
 endif.
 concatenate v_date v_time into v_fhdate.
endif.
if not v_fhdate is initial.
 r_cutoff-low = v_fldate.
 r_cutoff-high = v_fhdate.
 r_cutoff-sign = 'I'.
 r_cutoff-option = 'BT'.
 append r_cutoff.
endif.
ENDFORM. " GET_SHIFT_DETAILS
*& Form GET_DATA_VBAP
 Get the data from ZPWVBAP Table
FORM GET_DATA_VBAP.
Get the data from ZPWVBAP and ZPWVBAK Table
if not v_fhdate is initial.
 select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
 into table i_vbap
 from zpwvbap as a inner join zpwvbak as b on
 a~vbeln = b~vbeln
 where a~werks = p_plant
 and a~matnr in s_matnr
 and b~vdatu in s_date
 and a~zzdept in s_dept
 and b~zzcutoff in r_cutoff
 group by matnr zzcutoff vlpla vrkme meins.
elseif not v_fldate is initial.
 select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
 into table i_vbap
 from zpwvbap as a inner join zpwvbak as b on
 a~vbeln = b~vbeln
 where a~werks = p_plant
 and a~matnr in s_matnr
 and b~vdatu in s_date
 and a~zzdept in s_dept
 and b~zzcutoff = v_fldate
 group by matnr zzcutoff vlpla vrkme meins.
else.
 select matnr ZZCUTOFF vlpla sum( kwmeng ) vrkme meins
 into table i_vbap
 from zpwvbap as a inner join zpwvbak as b on
 a~vbeln = b~vbeln
 where a~werks = p_plant
 and a~matnr in s_matnr
 and b~vdatu in s_date
 and a~zzdept in s_dept
 and b~zzcutoff in r_cutoff
 group by matnr zzcutoff vlpla vrkme meins .
endif.
if sy-subrc ne 0.
 message i000(zwave) with 'No data found for given selection'.
 stop.
endif.
sort i_vbap by zzcutoff matnr.
loop at i_vbap.
 clear : v_pverme,
 v_prverme.
Compare the data with pick method
 select single zzpick from marc into marc-zzpick
 where matnr = i_vbap-matnr
 and werks = p_plant
 and zzpick = '01'.
 if sy-subrc ne 0.
 continue.
 endif.
Compare the data from MARC Table with Production Department
 select single zzPRODdept from marc into marc-zzPRODdept
 where matnr = i_vbap-matnr
 and werks = p_plant
 and zzPRODdept in s_pdept.
 if sy-subrc ne 0.
 continue.
 endif.
Get the Material Description from MAKT Table
 Select single maktx from makt into makt-maktx
 where matnr = i_vbap-matnr
 and spras = 'E'.
 if sy-subrc eq 0.
 i_final-maktx = makt-maktx.
 endif.
Get the Pick Bin
 i_final-lgpla = i_vbap-vlpla.
 refresh i_verme.
 clear i_verme.
Get the stock at Pick bin
 select verme from lqua into table i_verme
 where lgpla = i_vbap-vlpla
 and matnr = i_vbap-matnr
 and LGNUM = '100'.
 if sy-subrc eq 0.
 loop at i_verme.
 v_pverme = v_pverme + i_verme-verme.
 endloop.
 if sy-subrc eq 0.
 i_final-pverme = v_pverme.
 endif.
 endif.
 refresh i_pverme.
 clear i_pverme.
Get the stock at Production bin
 select verme from lqua into table i_pverme
 where matnr = i_vbap-matnr
 and LGNUM = '100'
 and ( lgpla = '9595959595' or
 lgpla = '2222222222' or
 lgpla = '5555555555' or
 lgpla = '3232323232' or
 lgpla = '8080808080' or
 lgpla = '4040404040' or
 lgpla = '9090909090' ).
 if sy-subrc eq 0.
 loop at i_pverme.
 v_prverme = v_prverme + i_pverme-verme.
 endloop.
 if sy-subrc eq 0.
 i_final-prverme = v_prverme.
 endif.
 endif.
Compare the unit of measure and sales unit
 if i_vbap-vrkme ne i_vbap-meins.
Get the data from MARM Table ( Unit of measure )
 select single * from marm into marm
 where matnr = i_vbap-matnr
 and meinh = i_vbap-vrkme.
 if sy-subrc eq 0.
 i_final-pverme = ( i_final-pverme * marm-umren ) / marm-umrez.
 endif.
 endif.
Material #
 i_final-matnr = i_vbap-matnr.
Quantity from ZPWVBAP
 i_final-kwmeng = i_vbap-kwmeng.
Unit of Measure
 i_final-meins = i_vbap-meins.
Sales Unit
 i_final-vrkme = i_vbap-vrkme.
Wave Drop
 if i_vbap-ZZCUTOFF+8(4) = '2000' .
 i_final-zzshift = '1'.
 endif.
 if i_vbap-zzcutoff+8(4) = '2300'.
 i_final-zzshift = '2'.
 endif.
 i_final-date = i_vbap-zzcutoff+0(8).
 append i_final.
 clear : i_final,
 i_vbap.
**Difference
 i_output-diff = i_output-pverme - i_vbap-kwmeng.
Traffic Lights Depends on value
 if i_output-pverme > i_output-kwmeng.
 i_output-field = '3'.
 elseif i_output-pverme < i_output-kwmeng.
 i_output-field = '1'.
 elseif i_output-pverme = i_output-kwmeng.
 i_output-field = '2'.
 endif.
 append i_output.
 clear : i_output,
 i_vbap.
endloop.
refresh i_vbap.
sort i_final by date matnr zzshift.
Processing the internal table to get same material with pick quantity
deduction even it for 2nd shift
loop at i_final.
Move the data into work area in order remove #
 move i_final to wa_final.
 clear : flag.
 at new matnr.
 move : wa_final-matnr to i_output-matnr," Material #
 wa_final-maktx to i_output-maktx," Desc
 wa_final-lgpla to i_output-lgpla," Pick Bin
 wa_final-kwmeng to i_output-kwmeng," Order qty
 wa_final-zzshift to i_output-zzshift," Shift
 wa_final-pverme to i_output-pverme, " Pick bin qty
 wa_final-vrkme to i_output-vrkme," Sales Unit
 wa_final-prverme to i_output-prverme. " Prod Bin Qty
Difference
 i_output-diff = i_output-pverme - i_output-kwmeng.
New logic for Only HMR Department
 if p_check = 'X'.
 if i_output-pverme < i_output-kwmeng.
 v_nverme = i_output-pverme + i_output-prverme.
 if v_nverme > i_output-kwmeng.
 if i_output-pverme < i_output-kwmeng.
 i_output-field = '2'.
 else.
Traffic Lights Depends on value
 i_output-field = '3'.
 endif.
 elseif v_nverme < i_output-kwmeng.
 i_output-field = '1'.
 elseif v_nverme = i_output-kwmeng.
 i_output-field = '2'.
 endif.
 elseif i_output-pverme > i_output-kwmeng.
 i_output-field = '3'.
 elseif i_output-pverme = i_output-kwmeng.
 i_output-field = '3'.
 endif.
 else.
Traffic Lights Depends on value
 if i_output-pverme > i_output-kwmeng.
 i_output-field = '3'.
 elseif i_output-pverme < i_output-kwmeng.
 i_output-field = '1'.
 elseif i_output-pverme = i_output-kwmeng.
 i_output-field = '2'.
 endif.
 endif.
 move i_output-diff to v_diff.
 flag = 'X'.
 endat.
 if flag ne 'X'.
 move : wa_final-matnr to i_output-matnr," Material #
 wa_final-maktx to i_output-maktx," Desc
 wa_final-lgpla to i_output-lgpla," Pick Bin
 wa_final-kwmeng to i_output-kwmeng," Order qty
 wa_final-zzshift to i_output-zzshift," Shift
 wa_final-vrkme to i_output-vrkme," Sales Unit
 wa_final-prverme to i_output-prverme. " Prod Bin Qty
Move Diffrence value
 move v_diff to i_output-pverme.
 clear: v_diff.
New logic for Only HMR Department
New logic for Only HMR Department
 if p_check = 'X'.
 if i_output-pverme < i_output-kwmeng.
 v_nverme = i_output-pverme + i_output-prverme.
 if v_nverme > i_output-kwmeng.
 if i_output-pverme < i_output-kwmeng.
 i_output-field = '2'.
 else.
Traffic Lights Depends on value
 i_output-field = '3'.
 endif.
Traffic Lights Depends on value
 i_output-field = '3'.
 elseif v_nverme < i_output-kwmeng.
 i_output-field = '1'.
 elseif v_nverme = i_output-kwmeng.
 i_output-field = '2'.
 endif.
 elseif i_output-pverme > i_output-kwmeng.
 i_output-field = '3'.
 elseif i_output-pverme = i_output-kwmeng.
 i_output-field = '3'.
 endif.
i_output-diff = i_output-pverme - i_output-kwmeng.
 else.
Difference
 i_output-diff = i_output-pverme - i_output-kwmeng.
Traffic Lights Depends on value
 if i_output-pverme > i_output-kwmeng.
 i_output-field = '3'.
 elseif i_output-pverme < i_output-kwmeng.
 i_output-field = '1'.
 elseif i_output-pverme = i_output-kwmeng.
 i_output-field = '2'.
 endif.
 endif.
 endif.
 append i_output.
 clear : i_output,
 wa_final,
 i_final,
 v_nverme.
endloop.
sort i_output by field zzshift matnr.
ENDFORM. " GET_DATA_VBAP
*& Form RESETVALUES
 Reset the all fieldcatlogs
FORM RESETVALUES.
FIELDCAT_LN-KEY = SPACE.
FIELDCAT_LN-DO_SUM = SPACE.
FIELDCAT_LN-NO_OUT = SPACE.
FIELDCAT_LN-QFIELDNAME = SPACE.
FIELDCAT_LN-HOTSPOT = SPACE.
FIELDCAT_LN-OUTPUTLEN = '0'.
CLEAR: fieldcat_ln-seltext_l, fieldcat_ln-seltext_m,
 fieldcat_ln-seltext_s, fieldcat_ln-reptext_ddic.
ENDFORM. " RESETVALUES
*& Form FILL_FIELDCATLOG
 Fill the Fieldcatlog values
FORM FILL_FIELDCATLOG.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
Trafiic Light
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'FIELD'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 7.
LS_FIELDCAT-col_pos = '1'.
ls_fieldcat-seltext_L = 'Lights'.
ls_fieldcat-seltext_s = 'Lights'.
ls_fieldcat-seltext_m = 'Lights'.
APPEND LS_FIELDCAT TO FIELDCAT.
Wave Drop
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'ZZSHIFT'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 9.
LS_FIELDCAT-col_pos = '2'.
ls_fieldcat-seltext_L = 'Wave Drop'.
APPEND LS_FIELDCAT TO FIELDCAT.
Material
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MATNR'.
LS_FIELDCAT-ref_fieldname = 'MATNR'.
LS_FIELDCAT-ref_tabname = 'MARA'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 18.
LS_FIELDCAT-col_pos = '3'.
ls_fieldcat-seltext_L = 'Material'.
APPEND LS_FIELDCAT TO FIELDCAT.
Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MAKTX'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 40.
LS_FIELDCAT-col_pos = '4'.
ls_fieldcat-seltext_L = 'Description'.
APPEND LS_FIELDCAT TO FIELDCAT.
Pick Bin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'LGPLA'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 15.
LS_FIELDCAT-col_pos = '5'.
ls_fieldcat-seltext_L = 'Pick Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Trafiic Light
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'PVERME'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 16.
LS_FIELDCAT-col_pos = '6'.
ls_fieldcat-seltext_L = 'Stock at Pick Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Stock at Prod Bin
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'PRVERME'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 16.
LS_FIELDCAT-col_pos = '7'.
ls_fieldcat-seltext_L = 'Stock at Prod Bin'.
APPEND LS_FIELDCAT TO FIELDCAT.
Req from wave drop
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'KWMENG'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 23.
LS_FIELDCAT-col_pos = '8'.
ls_fieldcat-seltext_L = 'Requirement from Wave Drop'.
APPEND LS_FIELDCAT TO FIELDCAT.
Sales Unit
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'VRKME'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 12.
LS_FIELDCAT-col_pos = '9'.
ls_fieldcat-seltext_L = 'Sales Unit'.
APPEND LS_FIELDCAT TO FIELDCAT.
Unit of Measure
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MEINS'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 9.
LS_FIELDCAT-col_pos = '10'.
ls_fieldcat-seltext_L = 'UNIT'.
ls_fieldcat-no_out = 'X'.
APPEND LS_FIELDCAT TO FIELDCAT.
Diffference
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'DIFF'.
LS_FIELDCAT-TABNAME = 'I_OUTPUT'.
LS_FIELDCAT-OUTPUTLEN = 12.
LS_FIELDCAT-col_pos = '11'.
ls_fieldcat-seltext_L = 'Difference'.
APPEND LS_FIELDCAT TO FIELDCAT.
ENDFORM. " FILL_FIELDCATLOG
*& Form CALL_lIST
 Use ALV Function module to display output
FORM CALL_lIST.
Top - of - Page
PERFORM COMMENT_BUILD USING GT_LIST_TOP_OF_PAGE[].
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 = C_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 = LAYOUT
 IT_FIELDCAT = FIELDCAT
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
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_OUTPUT
 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. " CALL_lIST
*& Form BUILD_LAYOUT
 text
FORM BUILD_LAYOUT.
LAYOUT-GET_SELINFOS = 'X'.
Now we want a traffic light to say if the Truck is deleted
the variable p_lignam contains the name in IREPO which stores the
value for the traffic light
LAYOUT-LIGHTS_FIELDNAME = P_LIGNAM.
layout-HEADER_TEXT = 'Lights'.
LAYOUT-LIGHTS_CONDENSE = 'X'.
ENDFORM. " BUILD_LAYOUT
*& Form COMMENT_BUILD
 text
 -->P_GT_LIST_TOP_OF_PAGE[] text
FORM COMMENT_BUILD USING LT_TOP_OF_PAGE TYPE
 SLIS_T_LISTHEADER.
data : v_day(2) type c,
 v_mon(2) type c,
 v_year(4) type c,
 v_ldate(10) type c,
 v_hdate(10) type c.
DATA: LS_LINE TYPE SLIS_LISTHEADER.
data: d_date like sy-datum.
clear : v_ldate,
 v_hdate.
Header Information.
LIST HEADING LINE: TYPE H
CLEAR LS_LINE.
LS_LINE-TYP = 'H'.
LS_LINE-KEY: NOT USED FOR THIS TYPE
LS_LINE-INFO = 'Bin Replenishment report for HMR'.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-003.
LS_LINE-INFO = TEXT-003.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
STATUS LINE: TYPE S
CLEAR LS_LINE.
LS_LINE-TYP = 'S'.
LS_LINE-KEY = TEXT-003.
LS_LINE-INFO = TEXT-003.
APPEND LS_LINE TO LT_TOP_OF_PAGE.
Get the data ( s_date_low) into proper format.
v_year = s_date-low+0(4).
v_mon = s_date-low+4(2).
v_day = s_date-low+6(2).
concatenate v_mon '/' v_day '/' v_year into v_ldate.
clear : v_mon,
 v_year,
 v_day.
Get the data ( s_date_high) into proper format.
v_year = s_date-high+0(4).
v_mon = s_date-high+4(2).
v_day = s_date-high+6(2).
concatenate v_mon '/' v_day '/' v_year into v_hdate.
clear : v_mon,
 v_year,
 v_day.
Delivery date
if not s_date-low is initial .
 if not s_date-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Delivery date From:'.
 LS_LINE-INFO = v_ldate.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Delivery date To :'.
 LS_LINE-INFO = v_hdate.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
if not s_date-low is initial.
 if s_date-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Delivery date :'.
 LS_LINE-INFO = v_ldate.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
Wave Drop
if not S_SHIFT-LOW is initial.
 if not S_SHIFT-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Wave Drop From :'.
 LS_LINE-INFO = s_shift-low.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Wave Drop to :'.
 LS_LINE-INFO = s_shift-high.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
if not S_SHIFT-LOW is initial.
 if S_SHIFT-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Wave Drop :'.
 LS_LINE-INFO = s_shift-low.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Wave Drop to :'.
 LS_LINE-INFO = s_shift-high.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
Department
if not s_dept-low is initial .
 if not s_dept-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Department From :'.
 LS_LINE-INFO = s_dept-low.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Department to :'.
 LS_LINE-INFO = s_dept-high.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
if not s_dept-low is initial .
 if s_dept-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Department :'.
 LS_LINE-INFO = s_dept-low.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
Production Department
if not S_PDEPT-LOW is initial.
 if not S_PDEPT-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Production Department From :'.
 LS_LINE-INFO = S_PDEPT-LOW.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Production Department to :'.
 LS_LINE-INFO = S_PDEPT-high.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
if not S_PDEPT-LOW is initial.
 if S_PDEPT-high is initial.
 CLEAR LS_LINE.
 LS_LINE-TYP = 'S'.
 LS_LINE-KEY = 'Production Department :'.
 LS_LINE-INFO = S_PDEPT-LOW.
 APPEND LS_LINE TO LT_TOP_OF_PAGE.
 endif.
endif.
ENDFORM. " COMMENT_BUILD
 FORM TOP_OF_PAGE *
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = GT_LIST_TOP_OF_PAGE
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.
 FORM USER_COMMAND *
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield. "#EC CALLED
CASE R_UCOMM.
 WHEN '&IC1'.
 read table i_output index rs_selfield-tabindex.
 SET PARAMETER ID 'MAT' FIELD i_output-matnr.
 SET PARAMETER ID 'WRK' FIELD p_plant.
 if not i_output-matnr is initial.
 call transaction 'MD04' and skip first screen.
 endif.
ENDCASE.
ENDFORM.
the above code i mentioned 1,2 ,3 values ,1 will have green color,2 will have yellow color,3 will have red color.
Thanks
Seshu

Display Currency symbol with value in ALV Report

Hi Experts,
I need to display currency symbol with value in ALV Report like if currency type is dollar then $200.
Here I am using field catalog type slis_t_fieldcat_alv and suing field merge catalog FM: 'REUSE_ALV_FIELDCATALOG_MERGE'
I tried like this
 IF <fs_fieldcat>-fieldname = 'STPRS'.
 <fs_fieldcat>-seltext_s = 'Std Cost '.
 <fs_fieldcat>-seltext_m = 'Std Cost'.
 <fs_fieldcat>-seltext_l = 'Std Cost '
 <fs_fieldcat>-tabname = 'MBEW'.
 <fs_fieldcat>-ctabname = 'T001'.
 <fs_fieldcat>-cfieldname ='WAERS'.
 <fs_fieldcat>-datatype = 'CURR'.
 ENDIF.
Please any one can suggest the solution for this.
Advance Thanks.
Regards,
Bala Achari

Hİ,
Check this link.
http://wiki.sdn.sap.com/wiki/pages/viewpage.action?pageId=24379571
Take care.
Çağatay

CP7 - Show 4 (or more) decimal points for User Variable?

Is there a way to show 4 or more decimal points for user variables?
For some reason, I'm only showing two decimal points for user variables in Captivate 7.
Micky

Yeah, I was afraid of that.
Right now, I have am dividing the values of two separate text box entry fields. I have to calculate the values to determine if they are getting a promotion, lateral transfer or lower pay range.
I'll figure out a workaround or just use java.

Decimal points for Item Cost

Hi,
When i call out the query from OITM which has the average price (item cost), the result showed me in 2 decimal points. But in my item master data, it shows 3 decimal points. How can call out a query that shows 3 decimal points? Is there any condition i should use?
Thanks,
Rgds,
Harith

Hello Harith, I will test this issue on pl36 to see if it's reproducible. anyway, you are always suggested to patch up with the latest patch. I will let you know the result.
Just tested and I got the same result as my previously reply, it shows 3 decimals witch complies with both general settings> decimal places for price and item cost in Item master data.
please try to recall the Avgprice from OITW table to see what you get there.
Thank you.
Wilma Wang
SAP Business One Forums Team

How to increase Decimal Points for the BOM Component Quantity

Hi All,
While creating BOM:
Can anyone help me to know how i can increase the Decimal points for the BOM components quantity.
I can able to give only upto 3 decimal points, but the requirement is more than that.
I have increased the Decimal point value to 5 in transaction Code CUNI. but still it is allowing me to enter only upto three decimal places.
Thanks and Regards
Khadeer

Khadeer,
You would be better off changing the base quantity of the parent part. Instead of "1 EA parent contains .00003MG of component" you could say "100 EA parents contain .003MG of component".
Alternately, you could use different units of measure for your parent or component parts, which would be more suitable for the 3 place decimal limitation.
I agree with Anil in that if you elect to change the decimals from standard, you could end up with huge changes that will propagate through every module in the ERP. In my view, there is no need of this kind of headache.
Best Regards,
DB49

Is there any transaction code for uploding logo in ALV reports.

is there any transaction code for uploding logo in ALV reports.

hi,
call function 'REUSE_ALV_COMMENTARY_WRITE'
       exporting
            it_list_commentary = t_header.
            i_logo             = 'Z_LOGO'.
endform.
Upload Logo for REUSE_ALV_COMMENTARY_WRITE
For those who wish to upload and use a picture in your ALV abap reports.
Steps for uploading Logo :-:
1. Goto the transaction OAER
2. Enter the class name as 'PICTURES'
3. Enter the class type as 'OT'
4. Enter the object key as the name of the logo you wish to give
5. Execute
6. Then in the new screen select Standard doc. types in bottom window
Click on the Screen icon
Now, it will ask for the file path where you have to upload the logo
7. Now you can use this logo in REUSE_ALV_COMMENTARY_WRITE
or
Import Logo and Background Picture for Reporting
In this step, you can import a customer-specific logo and a background picture into the R/3 System. These will be displayed in the header area of reports in HR Funds and Position Management.
From the SPRO:
HR Funds and Position Management --> Dialog Control --> Customize Reporting Interface --> Import Logo and Background Picture for Reporting.
Activities
1. Enter the Name of your logo/background picture as an object key in the initial screen.
2. Make sure that the class name is PICTURES, and the class type is OT.
3. Choose Execute.
4. Double-click the document type Picture on the Create tab page. A dialog box will appear in which you can enter the path in which the logo/background picture can be found.
5. Enter the path and choose Open. The logo will be uploaded into the current R/3 System. If the logo/background picture is to be transported into other systems as well, choose Transport.
6. Return to the initial screen and repeat the procedure after having entered the Name of your background picture as an object key.
Please note that the logo/background picture can only be displayed in ALV-based reports with an HTML header. Manually programmed reports such as business distribution plans are not based on the ALV.
If you have selected several initial objects, ALV-based reports in HR Funds and Position Management will automatically use a hiearchical-sequential display. A logo is not displayed here either. Note also that the logo cannot be printed (see print preview in program).
Make sure that the logo does not exceed a height of 100 pixels because it would mean that the header of the report will be scrollable.

Upto 4 decimal point for unit of measure

hi,
We have requirement to maintain upto 4 decimal point in PO and sales order quantity for unit of measure M3. Example PO quanity 0.3902 m3, sales order quantity 2.3212 m3, SAP allow upto 3 decimal point, how to handle this 4 decimal point for unit of measure and any impact to do so ?
best rgds,

Dear Eric,
To change decimal places of Materials follow this:
IMG - SAP NetWeaver - General Settings - Check Units of Measurement
select Units of Measurement & select required Unit of Measure & set decimal places.
Hope this helps...
Give points if useful...
Thanks,
Jignesh Mehta

Hi please send code for displaying index in alv report

hi
thanx in advance.
code please for displaying index in alv report.
thanx
rocky

add one more field to ur internal table
index type i .
before u display ALV
loop at itab.
itab-index = sy-tabix.
modify itab index sy-tabix.
endloop.
Message was edited by:
chandrasekhar jagarlamudi

Decimal comma instead of point for diagramm values

hello there,
would like to have decimal commas displayed instead of the decimal point. am using a diagramm with values displayed. the acsis' values are displayed correctly (with a decimal comma) but the additional values for the bars are not.
am using illustrator cs4 and mac os 10 x 10.6
thanks, schiffa11

hello,
settings are german, the values of the x- and y-axis is displayed properly with a comma. it's the additional values which are not displayed correctly.
(y-axis)
value 2,40      /////////////////////////////// value 4.21
value 1,40      /////////////////////////////////////////////////// value 6.21
value 0,40      /////////////////// value 2.21
                     value 0,00   value 1,00   value 2,00    (x-axis)
but thanks!
schiffa11

Report Painter : Local currency is having decimal points for chile

Hi Friends,
I have a report painter in which the amount for the the countries which are not having the decimal places
like chile and Japan are displying with the decimal places, when i changed the base key figure as the transaction currency instead of the local currency then no data is coming.
If someone have some good ideas which can resolve this issue please suggest me.
Thanks & Regards
Digvijay

Hi Yogesh,
Thank you for ur reply.
in the report, i have 10 keyfigures. 4 are being picked up from the report and they have currency translation variable. The rest 6 are formulas. On these formulae, i restricted the decimal display to "nothing defined". it works fine for all the 6 formulae. for WON it does NOT show decimals and for the rest of the currencies, it shows decimals.
but how this can be achieved on the 4 direct keyfigures??
Rgds.,
ASha

Value in ALV report

Hi experts,
I have an ALV report.
In the ALV report one of the field is Currency conversion rate to USD.
For this i am fetching value from TCURR-UKURS.
The value is taken into an internal table.
I have seen in the internal table the value is coming correctly. like: suppose the value is 1,114.10000- in that perticulat field. then the same value is coming in my final internal table.
But in the report display it is coming as /1,114.10000
Please help me out
regards,
charles

Check the field-reference what is your ALV-field pointing at. Maybe this reference is pointing at a field, which enables only positive numbers.
And if you just modified it, don't forget about the ALV-cache, which stores a lot of setting about ALV grids while you are logged in.
To clear ALV cache you can use a transaction (but I forgot it ), or you can log off and relogin to SAP.
Happy developing
Tamá

To make different colours for the columns of ALV report in Grid display.

Hai Friends,
 I have created an ALV report in grid display method by using the call function reuse_alv_grid_display.
I have obtained the report.In that report i want to change the colour of each column.Plz provide the answer with a sample program.
 Thank u.

hi i had a program for the rows with diff colors....do the same thing for the columns..
REPORT zdemo_alvgrid .
TABLES: ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) type c, "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
 wa_ekko TYPE t_ekko.
*ALV data declarations
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,
 gd_repid like sy-repid.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
*& Form BUILD_FIELDCATALOG
 Build Fieldcatalog for ALV Report
form build_fieldcatalog.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
fieldcatalog-datatype = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
fieldcatalog-col_pos = 8.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
 Build layout for ALV grid report
form build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
Set layout field for row attributes(i.e. color)
gd_layout-info_fieldname = 'LINE_COLOR'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
 Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = gd_repid
 is_layout = gd_layout
 it_fieldcat = fieldcatalog[]
 i_save = 'X'
 tables
 t_outtab = it_ekko
 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. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
 Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
data: ld_color(1) type c.
select ebeln ebelp statu aedat matnr menge meins netpr peinh
up to 10 rows
from ekpo
into table it_ekko.
*Populate field with color attributes
loop at it_ekko into wa_ekko.
ld_color = ld_color + 1.
Only 7 colours so need to reset color value
if ld_color = 8.
 ld_color = 1.
endif.
concatenate 'C' ld_color '10' into wa_ekko-line_color.
wa_ekko-line_color = 'C410'.
modify it_ekko from wa_ekko.
endloop.
endform. " DATA_RETRIEVAL
regards,
venkat

Decimal point for Price value in ALV Report

Similar Messages

Maybe you are looking for