Doubt on Quantity Field

Question

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.....

Answer 1

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