[问题解决]ALV可输入状态下输入金额/数量字段小数位数提前的问题详解编程语言

REPORT ztest_alv_lvc_edit. 
TYPES:BEGIN OF gty_ekko, 
ebeln TYPE ekko-ebeln, 
menge TYPE ekpo-menge, 
netwr TYPE ekpo-netwr, 
END OF gty_ekko. 
DATA:git_ekko TYPE STANDARD TABLE OF gty_ekko, 
gwa_ekko TYPE gty_ekko. 
DATA:git_fcat   TYPE lvc_t_fcat, 
gwa_fcat   LIKE LINE OF git_fcat, 
gwa_layout TYPE lvc_s_layo, 
gwa_glay   TYPE lvc_s_glay. 
START-OF-SELECTION. 
SELECT ebeln 
menge 
netwr 
INTO CORRESPONDING FIELDS OF TABLE git_ekko 
FROM ekpo 
UP TO 10 ROWS. 
PERFORM frm_set_catalog. 
gwa_layout-zebra = 'X'. 
gwa_layout-sel_mode = 'A'. 
gwa_layout-cwidth_opt = 'X'. 
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' 
EXPORTING 
i_callback_program = sy-repid 
is_layout_lvc      = gwa_layout 
it_fieldcat_lvc    = git_fcat 
TABLES 
t_outtab           = git_ekko[] 
EXCEPTIONS 
program_error      = 1 
OTHERS             = 2. 
IF sy-subrc = 0. 
ENDIF. 
*&---------------------------------------------------------------------* 
*&      Form  FRM_SET_CATALOG 
*&---------------------------------------------------------------------* 
*       text 
*----------------------------------------------------------------------* 
*  -->  p1        text 
*  <--  p2        text 
*----------------------------------------------------------------------* 
FORM frm_set_catalog . 
DATA:l_pos TYPE i VALUE 1. 
CLEAR: l_pos. 
l_pos = l_pos + 1. 
gwa_fcat-coltext   = 'PO'. 
gwa_fcat-scrtext_l = 'PO'. 
gwa_fcat-scrtext_m = 'PO'. 
gwa_fcat-scrtext_s = 'PO'. 
gwa_fcat-fieldname = 'EBELN'. 
gwa_fcat-col_pos = l_pos. 
*  gwa_fcat-edit    = 'X'. 
gwa_fcat-outputlen = '10'. 
APPEND gwa_fcat TO git_fcat. 
l_pos = l_pos + 1. 
gwa_fcat-coltext   = 'Qty'. 
gwa_fcat-scrtext_l = 'Qty'. 
gwa_fcat-scrtext_m = 'Qty'. 
gwa_fcat-scrtext_s = 'Qty'. 
gwa_fcat-fieldname = 'MENGE'. 
gwa_fcat-datatype  = 'QUAN' .  "指定该字段为数量 
gwa_fcat-inttype   = 'C' .     "指定该字段类型为C 
gwa_fcat-edit    = 'X'. 
gwa_fcat-col_pos = l_pos. 
gwa_fcat-outputlen = '10'. 
APPEND gwa_fcat TO git_fcat. 
l_pos = l_pos + 1. 
gwa_fcat-coltext   = ''. 
gwa_fcat-scrtext_l = 'Price'. 
gwa_fcat-scrtext_m = 'Price'. 
gwa_fcat-scrtext_s = 'Price'. 
gwa_fcat-fieldname = 'NETWR'. 
gwa_fcat-datatype  = 'CURR' .  "指定该字段为金额 
gwa_fcat-edit    = 'X'. 
gwa_fcat-col_pos = l_pos. 
gwa_fcat-outputlen = '10'. 
APPEND gwa_fcat TO git_fcat. 
ENDFORM.