Quantity fields mismatch

hi everybody,
    quantity field for a material in enquiry is stored as 2,000
in the table .
but when i print it in script it is printing as
2.000 leading to difference in calculation of net value.
field is KWMENG
can any body help ?
thanks

Hi,
  In Menu,Goto System->User Profile->Own Data,In Defaults tab ,change the decimal notation.
Regards,
Aravind JM.

Similar Messages

  • 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

  • Quantity fields not getting displayed in the second total row

    Hi,
    As per the requirement I have to display 2 total rows for an ALV report using CL_GUI_ALV_GRID. I am able to get the first total row properly using method get_subtotal(). However for the next total row only the character fields are getting displayed and the quantity fields are coming blank.
    The second total row will have different values based on a formula.
    Please help me out in resolving the issue.
    Thanks,
    Abhishek

    You can provide first row as the SUBTOTAL and next row as the TOTAL.
    Get one extra column on which you can do the SUBTOTAL.
    Regards,
    Naimesh Patel

  • How can we remove the following zeros from quantity field ?

    Hi All.
    how can we remove the following zeros from quantity field while populating ALV by using FM REUSE_ALV_GRID_DISPLAY ?
    eg:getting output zqty = 2.000
    but i need           zqty = 2.
    help me to reslove this issue.
    Regards.
    jay

    Hi,
      While populating the field catlog do the following thing to   avoid zeros.
      wa_fieldcat-tabname = 'I_OUTPUT'.    " Curr
      wa_fieldcat-fieldname = 'FWAER'.
      wa_fieldcat-seltext_l = text-023.
      wa_fieldcat-no_zero = 'X'.
      APPEND wa_fieldcat TO i_fieldcat.
      CLEAR  wa_fieldcat.
    Thanks,
    Khushbu.

  • 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

  • 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

  • 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

  • Quantity field in ALV Grid

    I am using KWMENG data element in my ALV grid which is a quantity field. In normal dialog programming this field does not allows entering characters in editable cells. But in ALV grid I am not able to restrict it from entering characters.
    Eg: In VA01 if we try to enter any character "ABC...Z" then it wouldn't be typed in the screen. But when using the same data element in ALV grid iot allows to enter alphanumeric values. Since it's a quantity field so character value gives a short dump. I know I can restrict the dump by using "NA" in comparing string but I want to knw is there a way by which I restrict character field entry in alv grid, the same way this field works in VA01. I checked with a simple dialog prog and in that also it doesn not allows character typing in editable fields.

    simple solution
    mention the ref_fieldname and ref_tablename in the fieldcatalog for that column.
    ex:
    fieldcat-ref_fieldname = 'KWMENG'.
    fieldcat-ref_tablename = 'VBAP'.

  • Quantity field in alv display

    Hi all.
    we are phasing a  problem.
    I am using alv to display in output.
    I am using a Quantiti field (BDMNG),.
    in this field if nodata is there then it is showing 0.000(that is the default value).
    I don't want those zeros.I want only space(blank only).
    Can any body help me to solve this issue.
    Thanks in advance
    Eswar.

    Hai,
         While building field catalog For quantity field Set the NO-ZERO attribute to 'X'.
         Or you can change the quantity filed to character in the alv display.
    Mark points if helpful.
    Regards,
    Umasankar

  • Is is possible to display quantity field in FBU3?

    Hi,
    Is it possible to display the quantity field in FBU3? We have activated the quantity field for FBL3N but not able to find the configuration to do it for FBU3.
    Please guide.

    Good Morning Everybody,
    The above question still continues...
    {Please Answer}

  • Error with quantity field:Datasource Creation Using Function Module method

    Problem with DATASOURCE Creation using Function Module method :
    I have created a datasource ZSTANDARD_COST_PRICE using Function Module method . The datasource creation is successfull when I remove the quantity field from the Z table . If I dont remove the quantity field from my Z table it gives an error as "Units Field WAERS for field STPRS of datasource ZSTANDARD_COST_PRICE is hidden". I am not able to remove this error . Please someone guide.
    Let me know if my explanation is not clear enough.
    Thanks in advance,
    Neha.
    Z table definition is as below :
    MATNR MATNR CHAR 18 0 Material Number
    BWKEY BWKEY CHAR 4 0 Valuation area
    LFGJA LFGJA NUMC 4 0 Fiscal Year of Current Period
    STPRS STPRS CURR 11 2 Standard Price   " Here the currency field is WAERS and table T001
    PEINH PEINH DEC 5 0 Price Unit
    VJSTP VJSTP CURR 11 2 Standard price in previous year
    VJPEI VJPEI DEC 5 0 Price unit of previous year.
    Edited by: Neha Rathi on Jan 30, 2009 3:03 PM

    Hi,
    You should add it as one of the main fields as you have added other fields and not as the currency fields...that is..it should be part of the data source and you should be able to see it in RSO2...
    Also if added as i said then it will come as new field in the data source...you can either let it be there...or hide it..
    also if you want to populate it then you will have to write the code for this fields as well.
    Thanks
    Ajeet

  • Runtime error in Dynamic internal table with AMOUNT and Quantity Fields..

    Dear friends,
    I am attempting write a dymanic Select Statement (with joins).
    And the sleect query looks like this..
      SELECT (LT_SEL_LIST)
      INTO CORRESPONDING FIELDS OF
      TABLE <DYN_TABLE>
      FROM (LT_FROM_LIST)
      WHERE (LT_WHERE3).
    Here the into table is a dynamically created internal table..
    which is created by ...this
    CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
        EXPORTING
          IT_FIELDCATALOG = IT_OUTPUT2[]
        IMPORTING
          EP_TABLE        = DY_TABLE.
    the it_output2 contains the the fieldcatlog information of dynamically given fields :-
    like:-
           TABNAME
           FIELDNAME
           DATATYPE
           LENG
           INTTYPE
           ROLLNAME
           DECIMALS
           REFTABLE
           REFFIELD
    i mean the internal table is constructed with reference to all the bove metadata.
    Problem:- This query run fine with all the fields Except AMOUNT AND QUANTITY fields....
    When the selection list contain VBAK-NETWR or MSEG-MENGE..It throws a runtime error.
    "The data read during a SLECT access couldnt be inserted into the target field,either conversion is not supported for
    the target field's type or the target field is too short."
    after this I even tried to construct the dynamic table with CFILEDNAME and QFIELDNAME in the Fieldcatalog.
    so now my fieldcatlog looks like this:---
    LOOP AT IT_DD03L..
      IF IT_DD03L-DATATYPE = 'CURR'.
           TABLEFIELD-CFIELDNAME = IT_DD03L-FIELDNAME .
           ENDIF.
       IF IT_FIELDCAT3-DATATYPE = 'QUAN'.
           TABLEFIELD-QFIELDNAME = IT_DD03L-FIELDNAME .
      ENDIF.
           TABLEFIELD-TABNAME     = IT_DD03L-TABNAME.
           TABLEFIELD-FIELDNAME   = IT_DD03L-FIELDNAME.
           TABLEFIELD-DATATYPE    = IT_DD03L-DATATYPE.
           TABLEFIELD-INTLEN      = IT_DD03L-LENG.
           TABLEFIELD-INTTYPE     = IT_DD03L-INTTYPE .
           TABLEFIELD-ROLLNAME    = IT_DD03L-ROLLNAME.
           TABLEFIELD-DECIMALS    = IT_DD03L-DECIMALS.
           TABLEFIELD-REF_TABLE   = IT_DD03L-REFTABLE.
           TABLEFIELD-REF_FIELD   = IT_DD03L-REFFIELD.
    APPEND TABLEFIELD.
    CLEAR TABLEFIELD.
    ENDLOOP.
    Note:- this is a test code so ignore performance issues...
    Please help me with some code ...to avoid the Runtime erorr.
    Thanks,
    jeevan.

    Hi Jeevan,
    Why are moving only few fields from DD03L table to your field catalog? Why don't you use move-corresponding? The following code works for me in ECC6.0.
    data: it_dd03l type table of dd03l initial size 0,
          ls_dd03l type dd03l,
          lt_fldcat TYPE lvc_t_fcat,
          ls_fldcat TYPE lvc_s_fcat,
          ls_where(72) TYPE c,
          lt_where LIKE TABLE OF ls_where,
          lt_fld LIKE TABLE OF ls_where,
          lt_data_dy TYPE REF TO data.
    field-symbols: <ft_data> TYPE STANDARD TABLE.
    select * into table it_dd03l from dd03l
        where tabname = 'VBAK'
          and ( fieldname = 'VBELN' or fieldname = 'NETWR' ).
    check sy-subrc eq 0.
    loop at it_dd03l into ls_dd03l.
      move-corresponding ls_dd03l to ls_fldcat.
      append ls_fldcat to lt_fldcat.
      move ls_dd03l-fieldname to ls_where.
      append ls_where to lt_fld.
      if ls_dd03l-fieldname = 'VBELN'.
        clear ls_where.
        concatenate ls_dd03l-fieldname ' <> ''''' into ls_where.
        append ls_where to lt_where.
      endif.
    endloop.
    check not lt_fldcat is initial.
    CALL METHOD cl_alv_table_create=>create_dynamic_table
          EXPORTING
            it_fieldcatalog           = lt_fldcat
          IMPORTING
            ep_table                  = lt_data_dy
          EXCEPTIONS
            generate_subpool_dir_full = 1
            OTHERS                    = 2.
        IF sy-subrc <> 0.
          RAISE no_configuration_data.
        ENDIF.
        ASSIGN lt_data_dy->*  TO <ft_data>.
    check sy-subrc eq 0.
    select (lt_fld) from VBAK into corresponding fields of table
        <ft_data>
        where (lt_where).
    Thanks
    Bala

  • 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

  • Rounding quantity field in scheduling agreement not considered in JITK

    Hello ALL,
    I would like to consult to you a scenario I am facing when it comes to creating a scheduling agreement (VA31) and maintaining a Rounding Quantity (field ABLFZ) in it.
    When using the standard LZ type scheduling agremeent, the Rounding quantity is considered when creating a delivery in VL10.
    However, when using the LZJ type of scheduling agreement, the Rounding quantity is NOT considered when creating a delivery in JITK.
    Can you please tell me what causes the case in LZJ scheduling agreement?
    Thank you all in advance.

    Hi,
    This field is not available for Scheduling Agreement. It is only available for Purchase Order.
    Even you will not get this in Field selection also.

Maybe you are looking for