ABAP ALV可编辑字段长度受限详解编程语言

问题描述：自开发ALV报表中某个字段设定为可编辑状态，但是实际操作中发现被设为可编辑状态的字段输入长度受限制了。

解决办法：通过上网查找和研究摸索，原来是要给该字段一个参考字段，要编辑的字段长度和参考字段的长度会保持一致。

FORM FRM_SET_FIELD1  USING  I_FIELDNAME 
                            I_SELTEXT 
                            I_REF_FIELD 
                            I_REF_TABLE 
                            I_SEL. 
 
  DATA:LS_FIELDCAT1 TYPE LVC_S_FCAT. 
 
  CLEAR:LS_FIELDCAT1. 
  LS_FIELDCAT1-FIELDNAME   = I_FIELDNAME. 
  LS_FIELDCAT1-SCRTEXT_L   = I_SELTEXT. 
  LS_FIELDCAT1-SCRTEXT_S   = I_SELTEXT. 
  LS_FIELDCAT1-SCRTEXT_M   = I_SELTEXT. 
  LS_FIELDCAT1-EDIT = 'X'. 
  LS_FIELDCAT1-REF_FIELD   = I_REF_FIELD. 
  LS_FIELDCAT1-REF_TABLE   = I_REF_TABLE. 
  LS_FIELDCAT1-CHECKBOX    = I_SEL. 
 
  APPEND LS_FIELDCAT1 TO GT_FIELDCAT1 . 
ENDFORM.

FORM FRM_EDIT_ALV. 
 
  DATA:LS_LAYOUT   TYPE LVC_S_LAYO. 
 
  LS_LAYOUT-ZEBRA = 'X'. 
  LS_LAYOUT-CWIDTH_OPT = 'X'. 
  LS_LAYOUT-SEL_MODE = 'X'. 
 
  CLEAR GT_FIELDCAT1[]. 
  PERFORM FRM_SET_FIELD1 USING 'SEL' '选择' '' '' 'X'. 
  PERFORM FRM_SET_FIELD1 USING 'GJAHR' '会计年度' 'GJAHR' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'POPER' '期间' 'POPER' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'RASSC' '贸易伙伴' 'RASSC' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'RKCUR' '货币' 'RKCUR' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZVBELN' '销售订单' 'ZVBELN' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZPOSNR' 'SO行项目' 'ZPOSNR' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'EBELN'  '采购订单' 'EBELN' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'EBELP'  'PO行项目' 'EBELP' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZKSL1'  '收入金额' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZKSL2'  '实际成本' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZKSL3'  '计划成本' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'KALNR'  '成本估算号' 'KALNR' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'DOCREF'  '凭证参考' 'DOCREF' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'TOT'  '实际制造费用' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZTOT'  '计划制造费用' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'VKORG'  '销售组织' 'VKORG' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'KUNNR'  '客户' 'KUNNR' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'WERKS'  '工厂' 'WERKS' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'MSL'  '数量' 'MSL' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'MATNR'  '物料' 'MATNR' 'MARA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'GSBER'  '业务范围' 'GSBER' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'VKBUR'  '销售办事处' 'VKBUR' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'VKGRP'  '销售组' 'VKGRP' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'PRCTR'  '事业部' 'PRCTR' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZPRCTR1'  '接收方利润中心' 'ZPRCTR1' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'RBUKRS'  '公司代码' 'RBUKRS' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZDDSX'  '订单属性' 'ZDDSX' 'ZTFICO043' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZMLIN'  '产品线' 'ZMLIN' 'MARA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZMFAN'  '产品族' 'ZMFAN' 'MARA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZCBXFY'  '成本性费用' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZBZDQB'  '标准地区部费用' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZBZSHYB'  '标准事业部费用' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZBZPT'  '标准平台费用' 'KSL' 'ACDOCA' ''. 
  PERFORM FRM_SET_FIELD1 USING 'ZJYLR'  '订单经营利润' 'KSL' 'ACDOCA' ''. 
 
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC' 
    EXPORTING 
      I_CALLBACK_PROGRAM       = SY-REPID 
      IS_LAYOUT_LVC            = LS_LAYOUT 
      IT_FIELDCAT_LVC          = GT_FIELDCAT1[] 
      I_SAVE                   = 'U' 
      I_CALLBACK_PF_STATUS_SET = 'FRM_STATE_EDIT' 
      I_CALLBACK_USER_COMMAND  = 'FRM_USER_COMMAND' 
    TABLES 
      T_OUTTAB                 = GT_EDIT 
    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.