SAP-SMARTFORMS-凭证连续打印设置操作之三 联系客服

发布时间 : 星期日 文章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