发布时间 : 星期日 文章SAP-SMARTFORMS-凭证连续打印设置操作之三更新完毕开始阅读fc5b213358eef8c75fbfc77da26925c52cc59136
www.kelote.com -北京科莱特信息技术有限公司
DATA: g_layout TYPE lvc_s_layo,
fieldcat TYPE LINE OF lvc_t_fcat, gt_fieldcat TYPE lvc_t_fcat.
*&---------------------------------------------------------------------* *& 显示ALV
*&---------------------------------------------------------------------* * text
*----------------------------------------------------------------------* * -->P_LT_TAB text
*----------------------------------------------------------------------* FORM show_alv TABLES table. *ALV表格显示样式
PERFORM alv_list_layout. *ALV报表的字段设置
PERFORM pf_alv_list_fcat USING it_fieldcat.
*ALV报表显示
PERFORM pf_alv_list_disply TABLES table.
ENDFORM. \
*&---------------------------------------------------------------------* *& Form ALV_LIST_LAYOUT
*&---------------------------------------------------------------------* * text
*----------------------------------------------------------------------*
www.kelote.com -北京科莱特信息技术有限公司
* --> p1 text * <-- p2 text
*----------------------------------------------------------------------* FORM alv_list_layout.
wa_layout-colwidth_optimize = 'X'. wa_layout-detail_initial_lines = 'X'.
wa_layout-box_fieldname = 'SELE'. \定义边框选中栏 ENDFORM. \
*&---------------------------------------------------------------------* *& Form PF_ALV_LIST_FCAT
*&---------------------------------------------------------------------* * text
*----------------------------------------------------------------------* * -->P_IT_FIELDCAT text
*----------------------------------------------------------------------* FORM pf_alv_list_fcat USING p_it_fieldcat. DATA: lw_afieldcat TYPE slis_fieldcat_alv, lw_pos TYPE i. DEFINE d_field. clear lw_afieldcat. lw_pos = lw_pos + 1.
lw_afieldcat-col_pos = lw_pos. lw_afieldcat-fieldname = &1. \ lw_afieldcat-seltext_l = &2. lw_afieldcat-ref_fieldname = &4.
www.kelote.com -北京科莱特信息技术有限公司
lw_afieldcat-ref_tabname = &3. lw_afieldcat-no_zero = &5. lw_afieldcat-hotspot = &6. lw_afieldcat-outputlen = &7. lw_afieldcat-edit = &8. lw_afieldcat-key = &9. append lw_afieldcat to it_fieldcat.
END-OF-DEFINITION.
d_field:
'VBELN' '
销
售
' space space 'X' space '10' space space,\销售凭证 'VKORG' '
销
售
' space space space space '5' space space,\销售凭证类 'vtweg' '
分
销
' space space space space '5' space space,\销售凭证类 * 'SPART' '
产' space space space space '5' space space,\销售凭证类 'VKBUR' '
销
售
办
' space space space space '5' space space,\销售凭证类 'VKGRP' '
销
售
' space space space space '5' space space,\销售凭证类 'KUNNR' '
客
户
' space space space space '10' space space, 'VBELN' '
销
售
' space space 'X' space '10' space space, 'AUDAT' '
订
单
创
' space space space space '10' space space.
单
组
渠
品事
组
代
单
建
日
号
织
道
组处
织
码
号
期
www.kelote.com -北京科莱特信息技术有限公司
ENDFORM. \
*&---------------------------------------------------------------------* *& Form sub_set_pf_status
*&---------------------------------------------------------------------* * text
*----------------------------------------------------------------------* * -->RT_EXTAB text
*----------------------------------------------------------------------* FORM sub_set_pf_status USING rt_extab TYPE slis_t_extab. SET PF-STATUS 'STANDARD'.\ SET TITLEBAR '选择手动打印条目'. ENDFORM. \
*&---------------------------------------------------------------------* *& Form PF_ALV_LIST_DISPLY
*&---------------------------------------------------------------------* * 显示ALV数据
*----------------------------------------------------------------------* FORM pf_alv_list_disply TABLES table. *ALV数据显示函数
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING
i_callback_program = sy-repid