topic Re: Doubt on Quantity Field in Application Development and Automation Discussions

Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 06:35:16 GMT

Hi gurus,

I have one quantity field NSOLA in LTAP table for that fields there is reference field ALTME.

Now i am generating one ALV report.In that field catalog i mentioned as

wa_fieldcat-fieldname = 'NSOLA'.

wa_fieldcat-tabname = 'T_OUTPUT'.

wa_fieldcat-seltext_l = 'Quantity'.

wa_fieldcat-qtabname = 'LTAP'.

wa_fieldcat-qfieldname = 'ALTME'.

wa_fieldcat-col_pos = 5.

APPEND wa_fieldcat TO it_fieldcat.

CLEAR wa_fieldcat.

like this, even thogh in o/p i get as 1.000 like that but i want the quantity as 1.

Please suggest me how to do this.

Thanks in Advance

Thanks and Regards,

Siri.....

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 06:48:54 GMT

Hi,

Generally qty fields should be displayed with 3 dec. I think there is no affect with reference field.

If u want to remove decimal part, check for any conversion exit or remove decimal part manually like

split field1 at '.' into......

Regards,

Subbu

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 06:52:09 GMT

Please check it

TABLES : mara.

DATA : BEGIN OF itab OCCURS 0,

matnr LIKE mara-matnr,

brgew TYPE p DECIMALS 0, " this qty file for mara table

sell(1),

END OF itab.

INCLUDE icons.

TYPE-POOLS : slis.

DATA : t_fieldalv TYPE slis_t_fieldcat_alv,

t_sort TYPE slis_t_sortinfo_alv WITH HEADER LINE,

import_variant LIKE disvariant,

xrepid LIKE sy-repid,

layout TYPE slis_layout_alv,

table TYPE c,

dbcnt TYPE i,

dbcntr(10) TYPE c.

DATA : events TYPE slis_t_event WITH HEADER LINE.

START-OF-SELECTION.

CLEAR : itab,itab[].

SELECT * FROM mara INTO CORRESPONDING FIELDS OF TABLE itab WHERE

matnr = 'A036119719501003'.

IF sy-subrc = 0.

PERFORM initial_alv_fieldcat CHANGING t_fieldalv[].

PERFORM layout_alv CHANGING layout.

PERFORM alv_display

TABLES itab

t_fieldalv

t_sort

USING 'Weld Process'

dbcntr

'Weld Process'

' ' "'status'

layout "'layout'

' '." usercommand

ENDIF.

&----

*& Form initial_alv_fieldcat

&----

text

----

<--P_T_FIELDALV[] text

----

FORM initial_alv_fieldcat CHANGING rt_fieldcat TYPE

slis_t_fieldcat_alv.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

DATA: i_color TYPE slis_t_specialcol_alv WITH HEADER LINE.

DATA:cntr TYPE i VALUE 1.

CLEAR : rt_fieldcat,rt_fieldcat[].

DEFINE fieldcat.

ls_fieldcat-fieldname = &1.

ls_fieldcat-seltext_m = &2.

append ls_fieldcat to rt_fieldcat.

END-OF-DEFINITION.

fieldcat 'MATNR' 'MATNR'.

fieldcat 'BRGEW' 'BRGEW'.

ENDFORM. " initial_alv_fieldcat

&----

*& Form layout_alv

&----

text

----

<--P_LAYOUT text

----

FORM layout_alv CHANGING p_layout TYPE slis_layout_alv.

p_layout-box_fieldname = 'SELL'.

p_layout-colwidth_optimize = 'X'.

p_layout-zebra = 'X'.

ENDFORM. " layout_alv

&----

*& Form alv_display

&----

text

----

-->P_ITAB text
-->P_T_FIELDALV text
-->P_T_SORT text
-->P_0111 text
-->P_DBCNTR text
-->P_0113 text
-->P_0114 text
-->P_LAYOUT text
-->P_0116 text

----

FORM alv_display

TABLES p_i_weldnew

p_t_fieldalv

p_t_sort

USING p_grid_title

p_count

p_title

p_status

p_layout

p_usercommand.

CONCATENATE p_title ' -

' p_count INTO sy-title.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

i_callback_pf_status_set = p_status

i_callback_user_command = p_usercommand

I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '

i_grid_title = p_grid_title

I_GRID_SETTINGS =

is_layout = p_layout

it_fieldcat = p_t_fieldalv[]

IT_EXCLUDING =
IT_SPECIAL_GROUPS =

it_sort = p_t_sort[]

IT_FILTER =
IS_SEL_HIDE =
i_default = 'X'

i_save = 'A'

IS_VARIANT =

it_events = 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_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = p_i_weldnew.

ENDFORM. " alv_display

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 06:52:35 GMT

the field is defined as 13,3 right. So try to display the integer, i mean you can either convert the decimal to an integer using a different variable.

Thanks,

Anil

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 06:57:48 GMT

Also add this

wa_fieldcat-datatype = 'QUAN'

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 08:26:12 GMT

hi,

I that case u can change the type of NSOLA field to integer in the internal table which u r displaying

try out this sample code and see the change in output

tables LTAP.

data : temp like LTAP-NSOLA value '1'.

data: var type i.

var = temp.

write : / 'INTEGER TYPE : ' ,var.

write : / "LTAP-NSOLA :' ,temp.

reward points if useful

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 08:35:17 GMT

Hi,

Either use SPLIT command to separate the fraction and decimal or declare the quantity field as TYPE i.

Reward if helpful.

Regards,

ramya

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 09:25:05 GMT

Hi gurus,

Thanks for all for giving valuable suggestions and good support.This question is solved by my self only.It is solved by using the reference quantity field only..

Thanks and Regards

Srihari..

Re: Doubt on Quantity Field

Former Member — Mon, 17 Mar 2008 09:27:35 GMT

hi,

then why dont u give that solution..... here so that even we can knw that.....

thanks

Re: Doubt on Quantity Field

Former Member — Mon, 17 Nov 2008 14:08:44 GMT

Hi Abhinav,

I am also facing the same problem . Can u please explain how you solved this issue.

Thanks in Advance

Shrikanth