|
|
*&---------------------------------------------------------------------*
*& Form GI_BUILD_FCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->L_COL_POS 列号
* -->L_ROW_POS 行号
* -->L_FIEDLNAME 字段名
* -->L_TABNAME 内表名
* -->L_SELTEXT_M 列名
* -->L_SYMBOL 符号
* -->L_OUTPUTLEN 输出长度
* -->L_QFIELDNAME 数量参考字段
* -->L_JUST 对齐方式
* -->L_DO_SUM 汇总
* -->L_ICON 图标
* -->L_NO_OUT 隐藏
* -->L_INTTYPE 输出类型
* -->L_EMPHASIZE 强调色
* -->L_REF_TABNAME 参考表
* -->L_REF_FIELDNAME 参考字段
* -->L_HOTSPOT 热点
* -->L_KEY 关键列
* -->L_FIX_COLUMN 固定列
* -->L_KEY_SEL 可选
* -->L_LZERO 前导零
* -->L_CHECKBOX checkbox
* -->L_EDIT 可编辑
* -->L_FIELDCAT fieldcat
*----------------------------------------------------------------------*
FORM gi_build_fcat USING l_col_pos
l_row_pos
l_fiedlname
l_tabname
l_seltext_m
l_symbol
l_outputlen
l_qfieldname
l_just
l_do_sum
l_icon
l_no_out
l_inttype
l_emphasize
l_ref_tabname
l_ref_fieldname
l_hotspot l_key
l_fix_column
l_key_sel
l_lzero
l_checkbox
l_edit
CHANGING l_fieldcat TYPE slis_t_fieldcat_alv.
DATA: lw_fieldcat TYPE slis_fieldcat_alv.
CLEAR lw_fieldcat.
lw_fieldcat-col_pos = l_col_pos.
lw_fieldcat-row_pos = l_row_pos.
lw_fieldcat-fieldname = l_fiedlname.
lw_fieldcat-tabname = l_tabname.
lw_fieldcat-seltext_m = l_seltext_m.
lw_fieldcat-symbol = l_symbol.
lw_fieldcat-outputlen = l_outputlen.
lw_fieldcat-qfieldname = l_qfieldname.
lw_fieldcat-just = l_just.
lw_fieldcat-do_sum = l_do_sum.
lw_fieldcat-icon = l_icon.
lw_fieldcat-no_out = l_no_out.
lw_fieldcat-inttype = l_inttype.
lw_fieldcat-emphasize = l_emphasize.
lw_fieldcat-ref_tabname = l_ref_tabname.
lw_fieldcat-ref_fieldname = l_ref_fieldname.
lw_fieldcat-hotspot = l_hotspot.
lw_fieldcat-key = l_key.
lw_fieldcat-fix_column = l_fix_column.
lw_fieldcat-key_sel = l_key_sel.
lw_fieldcat-lzero = l_lzero.
lw_fieldcat-checkbox = l_checkbox.
lw_fieldcat-edit = l_edit.
APPEND lw_fieldcat TO l_fieldcat.
ENDFORM. "GI_BUILD_FCAT
|
|
楼主: zhenglizi9
IP卡
狗仔卡
发表于 2012-9-12 14:16
显身卡