Quantity field in at user-command

Hi,
I have declared the quantity field V_QTY TYPE AFKO-GAMNG.
I am passing the quantity field values from the internal table which is having data for the quantity field to V_QTY. but the field V_QTY is not filling with the quantity.
Instead of the quantity, it is taking the   * value into the field.
I am not using any control break commands in my coding. I am attaching the code also. can anyone guide me .
Report ztest.
TABLES: AFKO,                         " Order Header
         AFPO,                         " Order Item
         AUFK,                         " Order Master
         RESB,
         AFVC,                         " Order Operation w/i an Order
         AFVV,                        " Qty/Dates/values in an Operation
         CRHD,                         " Work Center
         MARA,                         " Material Master
         MAKT,                         " Material Description
         AUSP,                         " Characteristic Values
         CABN,                         " Characteristic
         PLPO,                         " Task list-operation/activity
         PLFL,                         " Task list - sequences
         TJ02T,                        " System status texts
         JEST.                         " Individual Object Status
TYPE-POOLS:SLIS.
TYPE-POOLS:ICON.
DATA:CHECK(1),
     TOTAL(7) VALUE 'TOTAL :',
     W_AMOUNT TYPE GAMNG VALUE 0.
TYPES:BEGIN OF T_AFKO,
      CHECK,
      AUFNR TYPE AFKO-AUFNR,
      GLTRP TYPE AFKO-GLTRP,
      GSTRP TYPE AFKO-GSTRP,
      GAMNG TYPE AFKO-GAMNG,
      PLNBEZ TYPE AFKO-PLNBEZ,
      END OF T_AFKO.
DATA:I_AFKO TYPE STANDARD TABLE OF T_AFKO,
     W_AFKO LIKE LINE OF I_AFKO.
DATA:I_AFKO1 TYPE STANDARD TABLE OF T_AFKO,
     W_AFKO1 LIKE LINE OF I_AFKO1.
DATA:PONUM TYPE AFKO-AUFNR,
     STDATE TYPE AFKO-GLTRP,
     FIDATE TYPE AFKO-GSTRP,
     QUANTY TYPE AFKO-GAMNG,
     MATER TYPE AFKO-PLNBEZ,
     DESCR TYPE MAKT-MAKTX,
     INDEX TYPE SY-INDEX,
     COUNT(3) VALUE '0'.
TYPES:BEGIN OF T_FINAL,
      CHECK,
      LIGHT TYPE ICON-ID,
      MATNR TYPE RESB-MATNR,
      AUFNR TYPE AFKO-AUFNR,
      GLTRP TYPE AFKO-GLTRP,
      GSTRP TYPE AFKO-GSTRP,
      GAMNG TYPE AFKO-GAMNG,
      PLNBEZ TYPE AFKO-PLNBEZ,
      MAKTX TYPE MAKT-MAKTX,
      END OF T_FINAL.
DATA:I_FINAL TYPE STANDARD TABLE OF T_FINAL,
     W_FINAL LIKE LINE OF I_FINAL,
     I_FINAL1 TYPE STANDARD TABLE OF T_FINAL,
     W_FINAL1 LIKE LINE OF I_FINAL1.
TYPES:BEGIN OF T_CRHD,
      OBJID TYPE CRHD-OBJID,
      ARBPL TYPE CRHD-ARBPL,
      END OF T_CRHD.
DATA:I_CRHD TYPE STANDARD TABLE OF T_CRHD,
     W_CRHD LIKE LINE OF I_CRHD.
TYPES:BEGIN OF T_AFVC,
      AUFPL TYPE AFVC-AUFPL,
      ARBID TYPE AFVC-ARBID,
      END OF T_AFVC.
DATA:I_AFVC TYPE STANDARD TABLE OF T_AFVC,
     W_AFVC LIKE LINE OF I_AFVC.
TYPES:BEGIN OF T_ITEM,
      MATNR TYPE RESB-MATNR,       " Component Matl Number
      MAKTX TYPE MAKT-MAKTX,       " Matl Desc for Component
      BDMNG TYPE RESB-BDMNG,       " Component Req'd Qty
      END OF T_ITEM.
DATA:I_ITEM TYPE STANDARD TABLE OF T_ITEM,
     W_ITEM LIKE LINE OF I_ITEM.
TYPES:BEGIN OF T_RESB,
      MATNR TYPE RESB-MATNR,
      AUFNR TYPE RESB-AUFNR,
      BDMNG TYPE RESB-BDMNG,
      END OF T_RESB.
DATA:I_RESB TYPE STANDARD TABLE OF T_RESB,
     W_RESB LIKE LINE OF I_RESB.
DATA:I_MAKT TYPE STANDARD TABLE OF MAKT,
     W_MAKT LIKE LINE OF I_MAKT,
     I_MAKT1 TYPE STANDARD TABLE OF MAKT,
     W_MAKT1 LIKE LINE OF I_MAKT1.
TYPES:BEGIN OF T_AUFK,
      AUFNR TYPE AUFK-AUFNR,
      AUART TYPE AUFK-AUART,
      WERKS TYPE AUFK-WERKS,
      OBJNR TYPE AUFK-OBJNR,
      END OF T_AUFK.
DATA:I_JEST TYPE STANDARD TABLE OF JEST,
     W_JEST LIKE LINE OF I_JEST.
DATA:I_AUFK TYPE STANDARD TABLE OF T_AUFK,
     W_AUFK LIKE LINE OF I_AUFK.
DATA:V_QTY TYPE AFKO-GAMNG,
     LINES TYPE I,
     V_AUFNR TYPE AFKO-AUFNR.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
P_WERKS TYPE AUFK-WERKS OBLIGATORY MEMORY ID WRK, " PLANT
P_AUART TYPE AUFK-AUART OBLIGATORY.                "ORDER TYPE
SELECT-OPTIONS: S_PLNBEZ FOR AFKO-PLNBEZ.          "material
PARAMETERS: P_ARBPL TYPE CRHD-ARBPL OBLIGATORY.    "Work center
SELECT-OPTIONS:
S_GSTRP FOR AFKO-GSTRP OBLIGATORY.   "ORDER BASIC START DATE
*s_gltrp FOR afko-gltrp OBLIGATORY, "ORDER BASIC FINISH DATE
*s_gstrs FOR afko-gstrs,             "ORDER SCHEDULE START DATE
*s_gltrs FOR afko-gltrs.             "ORDER SCHEDULE FINISH DATE
PARAMETERS:P_MATNR TYPE RESB-MATNR.
SELECTION-SCREEN END OF BLOCK B1.
*ALV data declarations
DATA: I_FIELDCATALOG    TYPE SLIS_T_FIELDCAT_ALV,
      W_FIELDCATALOG    LIKE LINE OF I_FIELDCATALOG,
      S_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 VALUE SY-REPID,
      T_HEADING       TYPE SLIS_T_LISTHEADER,
      IT_LISTHEADER   TYPE SLIS_T_LISTHEADER,
      W_KEYINFO       TYPE SLIS_KEYINFO_ALV,
      WA_SORT         TYPE SLIS_SORTINFO_ALV,
      IT_SORT         TYPE SLIS_T_SORTINFO_ALV,
      IT_TITLE_BASIC TYPE
            LVC_TITLE VALUE 'SELECTION OF PRODUCTION ORDERS',
      IT_TITLE_ITEM TYPE LVC_TITLE VALUE 'MIXING REPORT'.
DATA: PO TYPE AUFNR,
      P_SELFIELD TYPE SLIS_SELFIELD.
DATA: I_EVENTS TYPE SLIS_T_EVENT,
      W_EVENTS LIKE LINE OF I_EVENTS.
CLEAR:   W_EVENTS.
REFRESH: I_EVENTS.
DATA:I_HEADER TYPE SLIS_T_LISTHEADER,
     W_HEADER LIKE LINE OF I_HEADER.
BEGIN OF CODE FOR ALV_HIERSEQ_LIST*************
TYPES:BEGIN OF T_HHEADER,
     EXPAND,
      MATNR TYPE RESB-MATNR,
      MAKTX TYPE MAKT-MAKTX,
      V_QTY,
      END OF T_HHEADER.
DATA:I_HHEADER TYPE STANDARD TABLE OF T_HHEADER,
     W_HHEADER LIKE LINE OF I_HHEADER.
TYPES:BEGIN OF T_HITEM,
      CHECK,
      MATNR TYPE RESB-MATNR,
      AUFNR TYPE AFKO-AUFNR,
      GAMNG TYPE AFKO-GAMNG,
      PLNBEZ TYPE AFKO-PLNBEZ,
      MAKTX TYPE MAKT-MAKTX,
      GLTRP TYPE AFKO-GLTRP,
      GSTRP TYPE AFKO-GSTRP,
      END OF T_HITEM.
DATA:I_HITEM TYPE STANDARD TABLE OF T_HITEM,
     W_HITEM LIKE LINE OF I_HITEM.
END OF CODE FOR ALV_HIERSEQ_LIST ****************************
INITIALIZATION.
PERFORM BUILD_FIELDCATALOG.
PERFORM BUILD_LAYOUT.
*Start-of-selection.
START-OF-SELECTION.
PERFORM GET_EVENTS.
PERFORM GET_DATA.
END-OF-SELECTION.
PERFORM DISPLAY_ALV_REPORT.
*&      Form BUILD_FIELDCATALOG
      text
FORM BUILD_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '1'.
W_FIELDCATALOG-FIELDNAME    = 'MATNR'.
W_FIELDCATALOG-TABNAME      = 'I_HHEADER'.
W_FIELDCATALOG-SELTEXT_M    = 'Phantom Material'.
W_FIELDCATALOG-ROLLNAME     = 'MATNR'.
W_FIELDCATALOG-OUTPUTLEN    = '20'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '2'.
W_FIELDCATALOG-FIELDNAME    = 'MAKTX'.
W_FIELDCATALOG-TABNAME      = 'I_HHEADER'.
W_FIELDCATALOG-SELTEXT_M    = 'Phantom Material Description'.
W_FIELDCATALOG-ROLLNAME     = 'MAKTX'.
W_FIELDCATALOG-OUTPUTLEN    = '40'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '3'.
W_FIELDCATALOG-FIELDNAME    = 'BDMNG'.
W_FIELDCATALOG-TABNAME      = 'I_HHEADER'.
W_FIELDCATALOG-OUTPUTLEN    = '20'.
W_FIELDCATALOG-SELTEXT_M    = 'Total Batch qty:'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '1'.
W_FIELDCATALOG-SELTEXT_M    = 'Selection'.
W_FIELDCATALOG-FIELDNAME    = 'CHECK'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
W_FIELDCATALOG-EDIT        = 'X'.
W_FIELDCATALOG-CHECKBOX    = 'X'.
W_FIELDCATALOG-INPUT       = 'X'.
W_FIELDCATALOG-HOTSPOT     = 'X'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '2'.
W_FIELDCATALOG-FIELDNAME    = 'MATNR'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
W_FIELDCATALOG-ROLLNAME     = 'MATNR'.
W_FIELDCATALOG-OUTPUTLEN    = '12'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '2'.
W_FIELDCATALOG-FIELDNAME    = 'AUFNR'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
W_FIELDCATALOG-ROLLNAME     = 'AUFNR'.
W_FIELDCATALOG-OUTPUTLEN    = '12'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG.
W_FIELDCATALOG-COL_POS      = '3'.
W_FIELDCATALOG-SELTEXT_M    = 'PO Qty'.
W_FIELDCATALOG-FIELDNAME    = 'GAMNG'.
W_FIELDCATALOG-ROLLNAME     = 'GAMNG'.
W_FIELDCATALOG-OUTPUTLEN    = '20'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG.
W_FIELDCATALOG-COL_POS      = '4'.
W_FIELDCATALOG-SELTEXT_M    = 'Header Material'.
W_FIELDCATALOG-FIELDNAME    = 'PLNBEZ'.
W_FIELDCATALOG-ROLLNAME     = 'MATNR'.
W_FIELDCATALOG-OUTPUTLEN    = '20'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG.
W_FIELDCATALOG-COL_POS      = '5'.
W_FIELDCATALOG-SELTEXT_M    = 'Material Description'.
W_FIELDCATALOG-FIELDNAME    =   'MAKTX'.
W_FIELDCATALOG-ROLLNAME     =   'MAKTX'.
W_FIELDCATALOG-OUTPUTLEN    = '40'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '6'.
W_FIELDCATALOG-FIELDNAME    = 'GSTRP'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
W_FIELDCATALOG-ROLLNAME     = 'CO_GSTRP'.
W_FIELDCATALOG-OUTPUTLEN    = '10'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
CLEAR W_FIELDCATALOG .
W_FIELDCATALOG-COL_POS      = '7'.
W_FIELDCATALOG-FIELDNAME    = 'GLTRP'.
W_FIELDCATALOG-TABNAME      = 'I_HITEM'.
W_FIELDCATALOG-ROLLNAME     = 'CO_GLTRP'.
W_FIELDCATALOG-OUTPUTLEN    = '10'.
W_FIELDCATALOG-SELTEXT_M    = 'Basic End Date'.
APPEND W_FIELDCATALOG TO I_FIELDCATALOG.
ENDFORM.                    "BUILD_FIELDCATALOG
*&      Form get_events
      text
FORM GET_EVENTS.
CLEAR : W_EVENTS, I_EVENTS[].
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE = 0
    IMPORTING
      ET_EVENTS   = I_EVENTS.
READ TABLE I_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                         INTO W_EVENTS.
IF SY-SUBRC EQ 0.
    MOVE 'TOP_OF_PAGE' TO W_EVENTS-FORM.
    MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
ENDIF.
READ TABLE I_EVENTS WITH KEY NAME = SLIS_EV_USER_COMMAND
                         INTO W_EVENTS.
IF SY-SUBRC EQ 0.
    MOVE 'SUB_USER_COMMAND' TO W_EVENTS-FORM.
    MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
ENDIF.
READ TABLE I_EVENTS WITH KEY NAME = SLIS_EV_PF_STATUS_SET
            INTO W_EVENTS.
IF SY-SUBRC EQ 0.
    MOVE 'PF_STATUS_SET' TO W_EVENTS-FORM.
    MODIFY I_EVENTS FROM W_EVENTS INDEX SY-TABIX.
ENDIF.
ENDFORM.                    "get_events
*&      Form build_layout
      text
FORM BUILD_LAYOUT.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
GD_LAYOUT-ZEBRA             = 'X'.
W_KEYINFO-HEADER01          = 'MATNR'.
W_KEYINFO-ITEM01            = 'MATNR'.
GD_LAYOUT-TOTALS_TEXT       = 'Totals'(201).
GD_LAYOUT-EXPAND_FIELDNAME = 'EXPAND'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form data_retrieval
      text
FORM GET_DATA.
IF p_matnr IS NOT INITIAL.
SELECT MATNR
         AUFNR
         BDMNG
         FROM RESB INTO TABLE I_RESB
         WHERE DUMPS = 'X'.
            AND matnr = p_matnr.
SORT I_RESB BY MATNR AUFNR.
ENDIF.
SELECT * FROM JEST INTO CORRESPONDING FIELDS OF TABLE I_JEST
               WHERE STAT = 'I0002'
                AND INACT = ' '.
SELECT OBJID
          ARBPL
          FROM CRHD INTO TABLE I_CRHD WHERE ARBPL = P_ARBPL.
IF NOT I_CRHD[] IS INITIAL.
    SELECT AUFPL
           ARBID
           FROM AFVC INTO TABLE I_AFVC
           FOR ALL ENTRIES IN I_CRHD
           WHERE ARBID = I_CRHD-OBJID.
ENDIF.
IF NOT I_AFVC[] IS INITIAL.
    SELECT AUFNR
           GLTRP
           GSTRP
           GAMNG
           PLNBEZ
           FROM AFKO INTO CORRESPONDING FIELDS OF TABLE I_AFKO
           FOR ALL ENTRIES IN I_AFVC
           WHERE AUFPL = I_AFVC-AUFPL
             AND GSTRP IN S_GSTRP.
    SORT I_AFKO BY AUFNR.
ENDIF.
IF NOT I_AFKO[] IS INITIAL.
    SELECT AUFNR
           AUART
           WERKS
           OBJNR
           FROM AUFK INTO TABLE I_AUFK
           FOR ALL ENTRIES IN I_AFKO
               WHERE AUFNR = I_AFKO-AUFNR
                 AND AUART = P_AUART
                 AND WERKS = P_WERKS.
    SORT I_AUFK BY AUFNR OBJNR.
    SELECT * FROM MAKT INTO TABLE I_MAKT1
             FOR ALL ENTRIES IN I_AFKO
             WHERE MATNR = I_AFKO-PLNBEZ
               AND SPRAS = SY-LANGU.
    SORT I_MAKT1 BY MATNR.
ENDIF.
IF NOT I_RESB[] IS INITIAL.
    SELECT * FROM MAKT INTO TABLE I_MAKT
             FOR ALL ENTRIES IN I_RESB
             WHERE MATNR = I_RESB-MATNR
               AND SPRAS = SY-LANGU.
    SORT I_MAKT BY MATNR.
ENDIF.
CLEAR W_HHEADER-BDMNG.
***BEGIN OF PHANTOM MATERIAL HEADER INTERNAL TABLE***
CLEAR W_AUFK.
CLEAR W_RESB.
LOOP AT I_RESB INTO W_RESB.
    W_HHEADER-MATNR = W_RESB-MATNR.
    READ TABLE I_MAKT INTO W_MAKT
              WITH KEY MATNR = W_RESB-MATNR BINARY SEARCH.
    W_HHEADER-MAKTX = W_MAKT-MAKTX.
    APPEND W_HHEADER TO I_HHEADER.
    MODIFY I_HHEADER FROM W_HHEADER INDEX SY-TABIX.
    CLEAR W_HHEADER.
    CLEAR W_RESB.
    SORT I_HHEADER BY MATNR.
    DELETE ADJACENT DUPLICATES FROM I_HHEADER.
ENDLOOP.
****END OF PHANTOM MATERIAL HEADER INTERNAL TABLE***
**BEGIN OF PHANTOM MATERIAL ITEM DETAILS***************
IF NOT I_HHEADER[] IS INITIAL.
    LOOP AT I_HHEADER INTO W_HHEADER.
      LOOP AT I_RESB INTO W_RESB WHERE MATNR = W_HHEADER-MATNR.
        IF SY-SUBRC = 0.
          READ TABLE I_AUFK INTO W_AUFK
                     WITH KEY AUFNR = W_RESB-AUFNR.
          READ TABLE I_JEST INTO W_JEST
                     WITH KEY OBJNR = W_AUFK-OBJNR.
          IF SY-SUBRC = 0.
            W_HITEM-CHECK = CHECK.
            W_HITEM-MATNR = W_HHEADER-MATNR.
            READ TABLE I_AFKO INTO W_AFKO
                    WITH KEY AUFNR = W_AUFK-AUFNR BINARY SEARCH.
            W_HITEM-AUFNR = W_AFKO-AUFNR.
            W_HITEM-PLNBEZ = W_AFKO-PLNBEZ.
            READ TABLE I_MAKT1 INTO W_MAKT1
                    WITH KEY MATNR = W_AFKO-PLNBEZ.
            W_HITEM-MAKTX = W_MAKT1-MAKTX.
            W_HITEM-GLTRP = W_AFKO-GLTRP.
            W_HITEM-GSTRP = W_AFKO-GSTRP.
            W_HITEM-GAMNG = W_AFKO-GAMNG.
            APPEND W_HITEM TO I_HITEM.
            MODIFY I_HITEM FROM W_HITEM INDEX SY-TABIX.
            SORT I_HITEM BY AUFNR.
            CLEAR W_HITEM.
          ENDIF.
        ENDIF.
      ENDLOOP.
    ENDLOOP.
ENDIF.
***********END OF PHANTOM MATERIAL ITEM DETAILS.*********************
ENDFORM.                    "get_item_DETAILS
*&      Form top_of_page
      text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = I_HEADER
I_LOGO =
I_END_OF_LIST_GRID =
ENDFORM.                    " alv_top_of_page
*&      Form user_command
      text
     -->P_UCOMM    text
     -->P_SELFIELD text
FORM DISPLAY_ALV_REPORT.
SORT I_HHEADER BY MATNR.
SORT I_HITEM   BY MATNR AUFNR.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
I_INTERFACE_CHECK              = ' '
     I_CALLBACK_PROGRAM             = GD_REPID
     I_CALLBACK_PF_STATUS_SET       = 'PF_STATUS_SET'
     I_CALLBACK_USER_COMMAND        = 'SUB_USER_COMMAND'
     IS_LAYOUT                      = GD_LAYOUT
     IT_FIELDCAT                    = I_FIELDCATALOG
IT_EXCLUDING                   =
IT_SPECIAL_GROUPS              =
IT_SORT                        =
IT_FILTER                      =
IS_SEL_HIDE                    =
I_SCREEN_START_COLUMN          = 0
I_SCREEN_START_LINE            = 0
I_SCREEN_END_COLUMN            = 0
I_SCREEN_END_LINE              = 0
I_DEFAULT                      = 'X'
I_SAVE                         = ' '
IS_VARIANT                     =
     IT_EVENTS                      = I_EVENTS[]
IT_EVENT_EXIT                  =
      I_TABNAME_HEADER               = 'I_HHEADER'
      I_TABNAME_ITEM                 = 'I_HITEM'
i_structure_name_header        =
i_structure_name_item          =
      IS_KEYINFO                     = W_KEYINFO
IS_PRINT                       =
IS_REPREP_ID                   =
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                =
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB_HEADER                = I_HHEADER
      T_OUTTAB_ITEM                  = I_HITEM
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
*****BEGIN OF CUMMILATIVE QUANTITY***********************
FORM PF_STATUS_SET USING EXTAB TYPE SLIS_T_EXTAB.
BREAK POINT.
SET PF-STATUS 'STANDARD' EXCLUDING EXTAB.
ENDFORM.                    "PF_STATUS_SET
*&      Form SUB_USEMR_COMMAND
      text
     -->P_UCOMM    text
     -->P_SELFIELD text
FORM SUB_USER_COMMAND USING P_UCOMM LIKE SY-UCOMM
                       P_SELFIELD TYPE SLIS_SELFIELD.
CASE SY-UCOMM.
    WHEN 'SUMM'.
      CLEAR W_HITEM.
      CLEAR W_HHEADER-V_QTY.
      P_SELFIELD-REFRESH = 'X'.
      DATA:LV_TABIX TYPE SY-TABIX.
      LOOP AT I_HITEM INTO W_HITEM.
        READ TABLE I_HHEADER INTO W_HHEADER
                    WITH KEY MATNR = W_HITEM-MATNR BINARY SEARCH.
        IF SY-SUBRC = 0.
          LV_TABIX = SY-TABIX.
          IF W_HITEM-CHECK = 'X'.
            W_HHEADER-V_QTY = W_HHEADER-V_QTY + W_HITEM-GAMNG.
            MODIFY I_HHEADER FROM W_HHEADER
                  INDEX LV_TABIX." TRANSPORTING V_QTY.
          ENDIF.
        ENDIF.
      ENDLOOP.
ENDCASE.
ENDFORM.                    "USER_COMMAND
*********END OF CUMMILATIVE QUANTITY
Thanks in advance.
Ramesh.

Hello Ramesh,
Check your declerations,
In internal table I_HHEADER , the quantity field is of character type. And in internal table I_HITEM, the field GAMNG is of type quantity. There will be type mismatch.Correct it and see if it works.
Regards

Similar Messages

ALV Block list. Field name at user command not getting populated

Hi All,
I'm trying to use ALN block list. Field catalog is built using the REUSEALVMERGE FM.
I've put hot spot on some fields. When I'm trying to capture the data when user clicks on the hotspot field the structure that comes in the user_command subroutine is not getting populated with the fieldname. But it is getting populated with the tabname and value is also coming properly.
FORM user_command
          USING
          ucomm    TYPE sy-ucomm
                selfield TYPE kkblo_selfield.
What could be the possible reason?
I appreciate your inputs.

Hi Surya,
         Did you find the solution for this?
Best Regards.

Quantity field for user input in interactive alv

hi,
i have created an interactive alv report that allows user to key in quantity fields using fm "REUSE_ALV_LIST_DISPLAY'. then quantity field is referred to MARD-LABST for instance, with 3 decimals point. When i tried to key in quantity as '9', it then will be converted into 0.009 by using cl_gui_alv_grid->check_changed_data( ). May i know what the root causes are and also how to resolve it using same fm??? Thanks.

Hi,
In the field catalog, for the field set the attribute DECIMALS to 3.
This should resolve your issue.
Regards,
Sagar

Make quantity field of Free goods as non-editable.

Hie!
I have free goods scheme of 9 + 1 .If quantity of main material is 10 then it will split into 9 + 1 where 1 is free of cost.
While making the sales order the free goods quantity field is editable. So the users are able to change the free goods quantity. I want to make this field as non-editable.
Please suggest how to do this.
Thankyou.

Hi Pallavi
If you change the manual qty which is automatically determined by the system then there will be a message thrown by the system
Suppse in your case if 9+1 you change the qty manually to 2 from 1 there is a message V1 no 737 thrown by the system
You need to change the message class thro ABAP development only not possible thro customization
Not only this in delivery also it is possible to change the free qty and this also has to be controlled by the ABAPer only
Regards
Raja

User command is not getting triggered in interactive ALV with LIST display

Hi experts,
I have developed an interactive ALV report with LIST display. Here, the issue is, when i double click a record in the primary ALV list, the control must go to the USER COMMAND event which i have written in my report. But the user command event is not getting triggered at all when i double click any record.
It gives the following information instead.
"Choose a valid function".
(My user command name and its respective form name are same.)
Here is my code..
START-OF-SELECTION.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_structure_name         = p_table
      i_callback_user_command = 'TST1'
      i_callback_pf_status_set = 'SET_PF_STATUS'
    TABLES
      t_outtab                 = <dyn_table>
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
IF sy-subrc <> 0.
ENDIF.
FORM tst1 USING r_ucomm LIKE sy-ucomm
                rs_selfield TYPE slis_selfield.
* Local data declaration
DATA: li_tab TYPE REF TO data,
        l_line TYPE REF TO data.
* Local field-symbols
FIELD-SYMBOLS:<l_tab> TYPE table,
                <l_wa> TYPE ANY.
* Create table
CREATE DATA li_tab TYPE STANDARD TABLE OF (p_table).
ASSIGN li_tab->* TO <l_tab>.
* Create workarea
CREATE DATA l_line LIKE LINE OF <l_tab>.
ASSIGN l_line->* TO <l_wa>. CASE r_ucomm.
*   When a record is selected
    WHEN '&IC1'.
*     Read the selected record
      READ TABLE <dyn_table> ASSIGNING <dyn_wa> INDEX
      rs_selfield-tabindex.      IF sy-subrc = 0.
*       Store the record in an internal table
        APPEND <dyn_wa> TO <l_tab>.
*       Fetch the field catalog info
        CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
          EXPORTING
            i_program_name         = 'Z_DEMO_PDF_JG'
            i_structure_name       = p_table
          CHANGING
            ct_fieldcat            = i_fieldcat
          EXCEPTIONS
            inconsistent_interface = 1
            program_error          = 2
            OTHERS                 = 3.
Please advice what is the msitake i have done here..

Read the following code:
pass the i_callback_user_command = g_user_command to the ALV function module and write the FORM user_command USING ucomm    LIKE sy-ucomm
                        selfield TYPE slis_selfield.
as shown below.
thanx
Data for ALV display
DATA : gt_fieldcat TYPE slis_t_fieldcat_alv,
        gt_events           TYPE slis_t_event,
        g_variant LIKE disvariant,
        g_user_command      TYPE slis_formname VALUE 'USER_COMMAND',
        g_status            TYPE slis_formname VALUE 'SET_PF_STATUS',
        gt_list_top_of_page TYPE slis_t_listheader,
        g_repid LIKE sy-repid,
        gf_pos TYPE i
Data for ALV display
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
           EXPORTING
          i_callback_program      = g_repid
             i_callback_program      = sy-repid
             it_fieldcat             = gt_fieldcat[]
       it_events               = gt_events[]
          i_callback_user_command = g_user_command
             i_save                  = 'A'
             is_variant              = g_variant
           TABLES
             t_outtab                = it_print.
FORM user_command USING ucomm    LIKE sy-ucomm
                        selfield TYPE slis_selfield.
CASE ucomm.
    WHEN '&IC1'.
      CASE selfield-sel_tab_field.
        WHEN '1-KUNNR'.
          READ TABLE it_print INTO wa_print INDEX selfield-tabindex.
          IF sy-subrc = 0.
            SET PARAMETER ID 'BPA' FIELD wa_print-kunnr.
            CALL TRANSACTION 'BP'.
          ENDIF.
        WHEN '1-MATNR'.
          READ TABLE it_print INTO wa_print INDEX selfield-tabindex.
          IF sy-subrc = 0.
            SET PARAMETER ID 'JP_ISS' FIELD wa_print-matnr.
            CALL TRANSACTION 'JP29' AND SKIP FIRST SCREEN..
           GET PARAMETER ID 'WRK' FIELD wa_zprint-werks.
           SET PARAMETER ID 'VKO' FIELD wa_zprint-vkorg.
           SET PARAMETER ID 'VTW' FIELD wa_zprint-vtweg.
           CALL TRANSACTION 'JP29' AND SKIP FIRST SCREEN.
          ENDIF.
Endcase.
Endform.

ALV QUANTITY field Geting converted into decimals ?

Hi All ,
I have developed an alv report .In that the quantity field is made editable after editing the quantity when i save it .It gets converted into decimals.Suppose if i give 77 its getting reflected as .077 all the field name ,table name ,reference field name, reference table name, quantity field data type has been passed but the problem persists.If there is any one whos has come across this kind of scenario please share your thoughts on this.
Best Regards,
Sreeram

Hi Sreeram,
I am not gettin this issue. See below code :
If you are gettiing the same issue with the below code then it has something to do with your user settings.
Go to Menu Item System -> User Profile -> Own Data -> Defaults ->Decimal Notation.
Set it to 1,234,567.89 and save. Now try the program again.
REPORT z_test.
TYPE-POOLS: slis.
TYPES : BEGIN OF ty_ekpo,
          ebeln TYPE ebeln,
          ebelp TYPE ebelp,
          ktmng TYPE ktmng,
          menge TYPE bstmg,
        END OF ty_ekpo.
DATA: it_ekpo TYPE TABLE OF ty_ekpo,
      it_fieldcat TYPE slis_t_fieldcat_alv.
SELECT ebeln ebelp ktmng menge
FROM ekpo
INTO TABLE it_ekpo
UP TO 20 ROWS.
PERFORM add_fieldcat USING 'EBELN'.
PERFORM add_fieldcat USING 'EBELP'.
PERFORM add_fieldcat USING 'KTMNG'.
PERFORM add_fieldcat USING 'MENGE'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   i_callback_program                = sy-repid
   it_fieldcat                       = it_fieldcat
TABLES
    t_outtab                          = it_ekpo
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.
FORM add_fieldcat USING p_fieldname TYPE slis_fieldcat_alv-fieldname.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-tabname = 'IT_EKPO'.
wa_fieldcat-ref_fieldname = p_fieldname.
wa_fieldcat-ref_tabname = 'EKPO'.
IF p_fieldname EQ 'KTMNG'.
    wa_fieldcat-edit = 'X'.
ENDIF.
APPEND wa_fieldcat TO it_fieldcat.
ENDFORM.                    " ADD_FIELDCAT
Regards,
Jovito

Problem with User Command in alv report

Hi
I have developed a ALV grid report with drill down capability to transaction code for user command. I am having a trouble with this.
CASE ucomm.
    WHEN '&IC1'.
      CLEAR: wa_import.
      IF selfield-fieldname EQ 'ANLN1'.
        READ TABLE t_import INTO wa_import INDEX selfield-tabindex.
        SET PARAMETER ID 'BUK' FIELD wa_import-bukrs.
        SET PARAMETER ID 'ANl' FIELD wa_import-anln1.
        CALL TRANSACTION 'AW01N'.
      ENDIF.
here my parameter ids are showing the values but when i call the transaction i am not getting the actual asset numbers.
Can someone help me out this
Thanks

Hi,
add the AND SKIP FIRST SCREEN...addition..
CALL TRANSACTION 'AW01N' AND SKIP FIRST SCREEN.
Thanks
Naren

Quantity field in ALV

Hello All,
I am using OO - ALV in which I am displaying a quantity field.This field is an editable field and if user tries to change the value and SAVE , it is taking some wrong values.
Say suppose I am having 1.000 as the initial value and if user changes it to 2.000 and saves it is converted to .002.
I tried with qfieldname , ref_fieldname of fieldcat but of no use. Anything apart from this will be highly appreciated.
Regards,
Dhwani

User might be changing the value to only 2 and you might have declared the fieldcat with 2-3 decimal places. If you enter value with decimals say 2.001 it will take.
Otherwise you need to replace it with char value as Nanda has suggested.
Hope it helps.
Thanks,
Jayant

Check on quantity field of co11n

hi all,
    I want to display error messages when the quantity field at goods movement level of transaction co11n is 0 or space.
Find me the user exit or badi , but field exit is becoming complex as the screen is a table control.
help me.

hi madhav,
CONFPP01                                PP order conf.: Determine customer specific default values
CONFPP02                                PP order conf.: Customer specific input checks 1
CONFPP03                                PP order conf.: Cust. specific check after op. selection
CONFPP04                                PP order conf.: Customer specific input checks 2
CONFPP05                                PP order conf.: Customer specific enhancements when saving
CONFPP06                                PP Order Confirmations: Actual Data Transfer
CONFPP07                                Single Screen Entry: Inclusion of User-Defined Subscreens
CONFPS01                                PS confirmation: Determine customer specific default values
CONFPS02                                PS confirmation: Customer specific input checks 1
CONFPS03                                PS confirmation: Customer specific check after op. selection
CONFPS04                                PS confirmation: Customer specific input checks 2
CONFPS05                                PS confirmation: Customer specific enhancements when saving
CONF0001                                Enhancements in order confirmation
CONFPI01                                Process order conf.: Calculate cust.specific default values
CONFPI02                                Process order confirmation: Customer spec. input checks 1
CONFPI03                                Process order conf.: Cust. spec. check after op. selection
CONFPI04                                Process order conf.: Customer specific input checks 2
CONFPI05                                Process order conf.: Cust. spec. enhancements when saving
CONFPI06                                Process order confirmation: Actual data transfer
CONFPM01                                PM/SM order conf.: Determine cust. specific default values
CONFPM02                                PM/SM order confirmation: Customer specific input checks 1
CONFPM03                                PM/SM order conf.: Cust. spec. check after op. selection
CONFPM04                                PM/SM order conf.: Customer specific input check 2
CONFPM05                                PM/SM order conf.: Cust. specific enhancements when saving
these are the list of userexits for the transaction co11n try keeping the break point in each user exit and check which suits your requirement.
the second method is you can do it by reading the documentation of the each exit.
Hope its clear to you,
Reward points fi usefull,
Thanks,
kalyan.

How to make quantity field in puplic templates editable?

Hi SDN,
we are implementing SRM 5.0.
We have a change request to make the quantity field in public templates (or when you chose approved (old) shopping carts for a new order) ready for input.
What I tried so far is to go to the corresponding template, which is
SAPLBBP_PDH_SEARCH 4001 and exchange
`SUBLIST-QUANTITY[n].value`
by
<input type="text" name="SUBLIST-QUANTITY[n]" value="`SUBLIST-QUANTITY[n].value`">
Debugging the corresponding dynpro 4001 of function group BBP_PDH_SEARCH
PAI: MODULE mark_read_from_web.
there:
LOOP AT <sublist> INTO <lfs_sub_wa>.
shows, that the new quantity I might set on the webfrontend does not get transferred to <sublist>-quantity in the dynpro.
Even though in the debugger I manually changed the incoming quantity, it does not show up on the next webscreen with the shopping cart...
any ideas welcome,
regards, matthias

Hi Atul,
the need for the requirement is very obvious, also we had this modification in the old release - and I am merely trying to rebuild it.
But for the business case: Just imagine you have 100 or more articles in a public template and maybe you have to chose new articles from different public templates. Then it is really painful if you have to recheck the shopping cart after you have filled it, just to change the quantities. This modification saves a lot of time and work for the users. Also I am wondering why it is not already standard behaviour.
regards, matthias

I have a problem with ALV Grid User Command?

Hi Experts,
I have a problem with ALV GRID User Command.
I am calling TCODE IW33 (Order Display) from the ALV output at first time by selecting an order. But, User command is calling IW33 Initial screen with blank value of order. Even I checked in debugging the value what I selected is passing properly, but once that screen (IW33 Initial) displays, value doesn't appear. Then, Manually, I created another session and gone to TCODE IW33 and displayed an order. After that I came out from that order. Then again run my ALV program and selected another order, now order is displaying, but not what I selected current order instead of displaying previous order what I just displayed manually. If I selected any other order, system will display the same order what I dislayed manually.
Here is my code.
FORM user_command_alv USING u_ucomm TYPE sy-ucomm
                       us_self_field TYPE slis_selfield.
CASE u_ucomm.
WHEN '&IC1'.
READ TABLE it_final INDEX us_self_field-tabindex INTO wa_final.
        WHEN 'ORDER'.
          IF NOT wa_final-order IS INITIAL.
            SET PARAMETER ID 'COK' FIELD wa_final-order.
            CALL TRANSACTION 'IW33' AND SKIP FIRST SCREEN.
          ENDIF.
endform.
PARAMETER ID 'COK' also the standard one.
Could you please help me out, Where I did wrong?
If I select any order, that order only should display.
Thanks in advance.
Regards,
Sarayu.
Code Formatted by: Alvaro Tejada Galindo on Jan 8, 2009 2:33 PM

hi,
Please check it once the Paramater ID is 'ANR' for IW33 order number.
Hope this may help.
Regards,
Sravanthi

Problem with the quantity field in bdc?

Hi,
i have to populate a quantity field in bdc .
for ex 123.00. but the bdc accepting only in the form of 123,00.
How can I do this .
I tried by changing the user profile, but went in vain.
Suggest me how to convert ?
Thanks.

Hi,
Create a variable of TYPE CHAR.Write your quantity field value into this variable and pass this variable to the BDC. This is the way of passing quantity fields to BDC.
DATA: V_AMOUNT(22) TYPE C.
WRITE ITAB-DMBTR INTO V_AMOUNT.
Pass this V_AMOUNT to BDC flow.
Hope this helps.
ashish

Best practice for "Quantity" field in Asset Master

Hi
I want to know what is the best practice for "Quantity field" in asset master. It should be made displayed only or required field in Asset Master creation.
Initially I made this field as required entry. So user entered 1 quantity. At the time of posting F-90, he again entered quantity. So my quantity in asset master got increased. Hence i decided to make that field display only in asset master creation.
Now i made that field as display only in asset master creation. At the time of posting F-90, that quantity field is not coming only. I check my field status group for posting key as well as GL account. Its optional field. Inspite of that user is able to make entry in F-90. Now quantity field is '0' only in asset master even though there is some value in asset.
Please help what is the best practice wrt quantity field. Should be open in asset master or it should be display only.

Hi:
SAP Standard does not recommend you to update quantity field in asset master data. Just leave the Qty Field Blank , just mention the Unit of Measure as EA. While you post acquisition through F-90 or MIGO this field will get updated in Asset master data automatically. Hope this will help you.
Regards

AT USER COMMAND is not getting triggerd

Hi Techie's
I have two fields on the selection screen
1) Name:   ___________
2) Id:         ___________
I have some buttons say on the Application toolbar say::
Save            Delete            Modify           Exit
I have created these buttons in the INITIALIZATION event.
I am using AT Selection Screen OUTPUT for some logic purpose.
Later I am writing AT USER COMMAND and pressing SAVE The function code for SAVE is "SAV".
But the drama is that AT USER COMMAND is not getting triggered at all.
It goes first to Initialization--->At selection Screen OUTPUT>Then screen appears> I give the values and press the SAVE button--
again it goes to the At Selection screen OUTPUT.
Not even getting the hang of it. Please help if anybody know the story of it.
ITS SO URGENT.

At user command is for list processing, you need something like this:
Pushbuttons in the Application Toolbar
In the application toolbar of the standard GUI status of the selection screen, five pushbuttons are predefined with the function codes FC01 to FC05, but are inactive by default. You can activate them during the definition of the selection screen as follows:
SELECTION-SCREEN FUNCTION KEY i.
The numbering i must be between 1 and 5. The individual function texts must be assigned to the functxt_0i components of structure sscrfields before the selection screen is called. You must declare this structure as an interface work area using the TABLES statement.
If the user chooses one of these buttons, the runtime environment triggers the AT SELECTION-SCREEN event and the function code FC0i is placed into the component ucomm of the structure sscrfields.
After the AT SELECTION-SCREEN event has been processed, the system displays the selection screen again. The only way to exit the selection screen and carry on processing the program is to choose Execute (F8). Consequently, the pushbuttons on the application toolbar are more suitable for controlling dynamic modifications of the selection screen than for controlling the program flow.
REPORT demo_sel_screen_function_key.
TABLES sscrfields.
PARAMETERS: p_carrid TYPE s_carr_id,
            p_cityfr TYPE s_from_cit.
SELECTION-SCREEN: FUNCTION KEY 1,
                  FUNCTION KEY 2.
INITIALIZATION.
sscrfields-functxt_01 = 'LH'.
sscrfields-functxt_02 = 'UA'.
AT SELECTION-SCREEN.
CASE sscrfields-ucomm.
      WHEN'FC01'.
      p_carrid = 'LH'.
      p_cityfr = 'Frankfurt'.
    WHEN 'FC02'.
      p_carrid = 'UA'.
      p_cityfr = 'Chicago'.
ENDCASE.
START-OF-SELECTION.
WRITE / 'START-OF-SELECTION'.
This defines a standard selection screen with two parameters. In the application toolbar, two pushbuttons are assigned the texts LH and UA and activated.
When the user clicks one of the buttons, the AT SELECTION-SCREEN event is triggered and there the input fields are preassigned correspondingly.

Quantity field to be shown on 1ST line only for purchase order items in ALV

Dear All,
I am fetching data from purchase order history table (EKBE) where PO line items contains multiple times. User does not want to view fields that are repeating multiple times in all lines, but in the top line. By sorting the same in ALV , I can do the same with character type fields, but how to do the same with quantity fields. One way out is converting the same into character fields. Is there any other way. Please give me some solution. Also while sorting , the number which gets repeated (i.e Items in PO for different PO's ) does not gets displayed. I want my program to display them.
Thanks,
Debopriyo Mallick

Try this
loop at ist_mseg into wa_mseg.
ON CHANGE OF wa_mseg-con.
    move '111' to wa_mseg-con1.
    modify ist_mseg from wa_mseg.
ENDON.
endloop.
loop at ist_mseg into wa_mseg.
if wa_mseg-con1 ne '111'.
    move 0 to wa_mseg-menge.
    move 0 to wa_mseg-netpr.
endif.
modify ist_mseg from wa_mseg.
endloop.
mseg-con is the concatenation of ebeln and ebelp values.
pk

Quantity field in at user-command

Similar Messages

Maybe you are looking for