SMARTFORM打印程序模板

*&---------------------------------------------------------------------*

*& Report ZMM009

*&---------------------------------------------------------------------*

*& 抬头 : 内向交货单打印 *

*& 模块 : MM *

*& 作者 : ZHANGS *

*& 创建日期 : 2019/02/19 *

*& 修改记录 : *

*& 日期修改人修改内容 *

*& YYYY/MM/DD 修改人员名说明 *

*&---------------------------------------------------------------------*

REPORT zmm009.

TABLES:t001w,lfa1,ekko,likp,makt,t024,ekpo,lips,kona.

TYPES: BEGIN OF ty_itab,

werks TYPE lips-werks, "工厂

lifnr TYPE likp-lifnr, "供应商

name1 TYPE lfa1-name1, "供应商描述

matnr TYPE lips-matnr, "物料编码

maktx TYPE makt-maktx, "物料描述

vbeln TYPE lips-vbeln, "内向交货单 "重名

posnr TYPE lips-posnr, "行项目

lfimg TYPE lips-lfimg, "数量

meins TYPE lips-meins, "计量单位

lgort TYPE lips-lgort, "库位

lgobe TYPE t001l-lgobe, "库位描述

lfdat TYPE likp-lfdat, "交货日期

bldat TYPE likp-bldat, "凭证日期

lichn TYPE lips-lichn, "供应商批次

wbsta TYPE lips-wbsta, "是否已入库

ormng TYPE ekes-ormng, "已收货数量

vgbel TYPE lips-vgbel, "采购订单

vgpos TYPE lips-vgpos, "行项目

gvbeln TYPE ekkn-vbeln, "销售订单 "重名

vbelp TYPE ekkn-vbelp, "销售订单行项目

adrnr TYPE char50, "送货地址

ysum TYPE char50, "摘要

loekz TYPE ekpo-loekz,

elikz TYPE ekpo-elikz,

bednr TYPE ekpo-bednr, "需求跟踪号

submi TYPE ekko-submi, "bednr为空时需求跟踪号取submi

END OF ty_itab.

DATA:gt_itab TYPE TABLE OF ty_itab,

gs_itab TYPE ty_itab.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS:s_werks FOR t001w-werks OBLIGATORY, "选择条件工厂

s_lifnr FOR lfa1-lifnr, "选择条件供应商

s_ebeln FOR ekko-ebeln, "选择条件采购订单

s_vbeln FOR likp-vbeln, "选择条件内向交货单

s_matnr FOR makt-matnr, "选择条件物料编码

s_eknam FOR kona-ekgrp, "选择条件采购组

s_bednr FOR ekpo-bednr. "需求跟踪号

SELECTION-SCREEN END OF BLOCK b1.

DATA:gt_fcat TYPE lvc_t_fcat,

ga_fcat TYPE lvc_s_fcat,

gs_layout TYPE lvc_s_layo,

gc_grid TYPE REF TO cl_gui_alv_grid.

DEFINE alv_field.

CLEAR ga_fcat.

ga_fcat-fieldname = &1. "内表的字段名

ga_fcat-ref_table = &2. "输出数据的内表名

ga_fcat-ref_field = &3. "为key

ga_fcat-scrtext_l = &4. "字段描述

ga_fcat-colddictxt = 'L'.

ga_fcat-checkbox = &5. "字段描述

ga_fcat-edit = &6. "字段描述

APPEND ga_fcat TO gt_fcat.

END-OF-DEFINITION.

"初始化

INITIALIZATION.

START-OF-SELECTION.

PERFORM frm_get_data. "USING CHANGING TABLES

PERFORM frm_display_alv.

FORM frm_get_data.

CLEAR gt_itab[].

SELECT lips~werks lips~matnr lips~vbeln lips~posnr lips~lfimg lips~meins lips~lgort lips~lichn lips~wbsta

lips~vgbel lips~vgpos lips~ormng lips~arktx AS maktx

likp~lifnr likp~lfdat likp~bldat

* MAKT~MAKTX

* ekes~dabmg

* T001L~LGOBE

* EKKN~VBELN AS GVBELN EKKN~VBELP

ekko~submi

FROM lips

INNER JOIN likp ON lips~vbeln EQ likp~vbeln "唯一确认

* INNER JOIN MAKT ON ( LIPS~MATNR EQ MAKT~MATNR AND SPRAS = SY-LANGU ) "唯一确认

* INNER JOIN ekes ON ( lips~vbeln EQ ekes~vbeln_st AND lips~posnr EQ ekes~vbelp_st )

* INNER JOIN T001L ON ( LIPS~WERKS EQ T001L~WERKS AND LIPS~LGORT EQ T001L~LGORT ) "唯一确认

* INNER JOIN EKKN ON ( EKKN~EBELN EQ LIPS~VGBEL AND EKKN~EBELP EQ LIPS~VGPOS )

INNER JOIN ekko ON ( lips~vgbel EQ ekko~ebeln ) "唯一确认

* INNER JOIN EKPO ON ( LIPS~VGBEL EQ EKPO~EBELN AND LIPS~VGPOS EQ EKPO~EBELP ) "唯一确认

INTO CORRESPONDING FIELDS OF TABLE gt_itab

WHERE lips~werks IN s_werks "工厂

AND likp~lifnr IN s_lifnr "供应商

* AND ekko~ebeln IN s_ebeln "采购订单

AND lips~vgbel IN s_ebeln "采购订单

AND lips~vbeln IN s_vbeln "内向交货单

AND lips~matnr IN s_matnr "物料编码

AND ekko~ekgrp IN s_eknam."采购组

* AND EKPO~LOEKZ EQ P_LOEKZ "采购凭证删除标识

* AND EKPO~ELIKZ EQ P_ELIKZ."交货已完成标识

CHECK gt_itab IS NOT INITIAL.

DATA:lt_itab TYPE TABLE OF ty_itab.

*---从EKPO取数

* INNER JOIN EKPO ON ( LIPS~VGBEL EQ EKPO~EBELN AND LIPS~VGPOS EQ EKPO~EBELP ) "唯一确认

TYPES: BEGIN OF lty_itab06,

ebelp TYPE ekpo-ebelp,

ebeln TYPE ekpo-ebeln,

loekz TYPE ekpo-loekz,

elikz TYPE ekpo-elikz,

bednr TYPE ekpo-bednr,

END OF lty_itab06.

DATA:lt_ekpoitab TYPE TABLE OF lty_itab06,

ls_ekpoitab TYPE lty_itab06.

SELECT ebeln ebelp loekz elikz bednr

FROM ekpo

INTO CORRESPONDING FIELDS OF TABLE lt_ekpoitab

FOR ALL ENTRIES IN gt_itab

WHERE ebeln EQ gt_itab-vgbel.

* AND bednr IN ( s_bednr.

SORT lt_ekpoitab BY ebeln ebelp.

CHECK gt_itab IS NOT INITIAL.

*---从LFA1取NAME1

TYPES: BEGIN OF lty_itab04,

lifnr TYPE lfa1-lifnr,

name1 TYPE lfa1-name1,

END OF lty_itab04.

DATA:lt_lfa1itab TYPE TABLE OF lty_itab04,

ls_lfa1itab TYPE lty_itab04.

SELECT name1

lifnr

FROM lfa1

INTO CORRESPONDING FIELDS OF TABLE lt_lfa1itab

FOR ALL ENTRIES IN gt_itab

WHERE lifnr EQ gt_itab-lifnr.

SORT lt_lfa1itab BY lifnr.

*--从TWLAD取送货地址

TYPES: BEGIN OF lty_itab03,

werks TYPE twlad-werks,

lgort TYPE twlad-lgort,

adrnr TYPE twlad-adrnr,

END OF lty_itab03.

DATA:lt_twladitab TYPE TABLE OF lty_itab03,

ls_twladitab TYPE lty_itab03.

SELECT werks lgort adrnr

FROM twlad

INTO CORRESPONDING FIELDS OF TABLE lt_twladitab

FOR ALL ENTRIES IN gt_itab

WHERE werks = gt_itab-werks

AND lgort = gt_itab-lgort

AND lfdnr = '000'.

SORT lt_twladitab BY werks lgort.

IF lt_twladitab[] IS NOT INITIAL.

TYPES: BEGIN OF lty_adrc,

addrnumber TYPE adrc-addrnumber,

city1 TYPE adrc-city1,

street TYPE adrc-street,

house_num1 TYPE adrc-house_num1,

END OF lty_adrc.

DATA:lt_adrc TYPE TABLE OF lty_adrc,

ls_adrc TYPE lty_adrc.

SELECT addrnumber city1 street house_num1

FROM adrc

INTO CORRESPONDING FIELDS OF TABLE lt_adrc

FOR ALL ENTRIES IN lt_twladitab

WHERE addrnumber = lt_twladitab-adrnr.

SORT lt_adrc BY addrnumber.

ENDIF.

*---从MAKT取数

* MAKT~MAKTX

* INNER JOIN MAKT ON ( LIPS~MATNR EQ MAKT~MATNR AND SPRAS = SY-LANGU ) "唯一确认

* TYPES: BEGIN OF lty_itab02,

* matnr TYPE makt-matnr,

* maktx TYPE makt-maktx,

* END OF lty_itab02.

* DATA:lt_maktitab TYPE TABLE OF lty_itab02,

* ls_maktitab TYPE lty_itab02.

* SELECT maktx

* matnr

* FROM makt

* INTO CORRESPONDING FIELDS OF TABLE lt_maktitab

* FOR ALL ENTRIES IN gt_itab

* WHERE matnr EQ gt_itab-matnr

* AND spras = sy-langu.

* SORT lt_maktitab BY matnr.

*---从T001L取数

* T001L~LGOBE

* INNER JOIN T001L ON ( LIPS~WERKS EQ T001L~WERKS AND LIPS~LGORT EQ T001L~LGORT ) "唯一确认

TYPES: BEGIN OF lty_itab05,

werks TYPE t001l-werks,

lgort TYPE t001l-lgort,

lgobe TYPE t001l-lgobe,

END OF lty_itab05.

DATA:lt_t001litab TYPE TABLE OF lty_itab05,

ls_t001litab TYPE lty_itab05.

SELECT lgobe

werks

lgort

FROM t001l

INTO CORRESPONDING FIELDS OF TABLE lt_t001litab

FOR ALL ENTRIES IN gt_itab

WHERE werks EQ gt_itab-werks

AND lgort EQ gt_itab-lgort.

SORT lt_t001litab BY werks lgort.

*---从ekkn取数

* EKKN~VBELN AS GVBELN EKKN~VBELP

* INNER JOIN EKKN ON ( EKKN~EBELN EQ LIPS~VGBEL AND EKKN~EBELP EQ LIPS~VGPOS )

TYPES: BEGIN OF lty_itab01,

ebeln TYPE ekkn-ebeln,

ebelp TYPE lips-vgpos,

vbeln TYPE ekkn-vbeln,

vbelp TYPE ekkn-vbelp,

END OF lty_itab01.

DATA:lt_ekknitab TYPE TABLE OF lty_itab01,

ls_ekknitab TYPE lty_itab01.

SELECT ebeln

ebelp

vbeln

vbelp

FROM ekkn

INTO CORRESPONDING FIELDS OF TABLE lt_ekknitab

FOR ALL ENTRIES IN gt_itab

WHERE ebeln EQ gt_itab-vgbel

* AND ebelp = gt_itab-vgpos "因长度不同，不作为条件

AND zekkn = '01'.

SORT lt_ekknitab BY ebeln ebelp.

LOOP AT gt_itab INTO gs_itab.

READ TABLE lt_ekpoitab INTO ls_ekpoitab WITH KEY ebeln = gs_itab-vgbel ebelp = gs_itab-vgpos BINARY SEARCH.

IF sy-subrc IS INITIAL.

gs_itab-loekz = ls_ekpoitab-loekz.

gs_itab-elikz = ls_ekpoitab-elikz.

gs_itab-bednr = ls_ekpoitab-bednr.

IF ls_ekpoitab-bednr IS INITIAL.

gs_itab-bednr = gs_itab-submi.

ENDIF.

IF s_bednr IS NOT INITIAL.

IF gs_itab-bednr NOT IN s_bednr.

DELETE gt_itab WHERE vgbel = gs_itab-vgbel AND vgpos = gs_itab-vgpos.

CONTINUE.

ENDIF.

* MODIFY gt_itab FROM gs_itab TRANSPORTING loekz elikz bednr.

ELSE.

DELETE gt_itab WHERE vgbel = gs_itab-vgbel AND vgpos = gs_itab-vgpos.

CONTINUE.

ENDIF.

READ TABLE lt_lfa1itab INTO ls_lfa1itab WITH KEY lifnr = gs_itab-lifnr BINARY SEARCH.

IF sy-subrc IS INITIAL.

gs_itab-name1 = ls_lfa1itab-name1.

* MODIFY gt_itab FROM gs_itab TRANSPORTING name1.

ENDIF.

* READ TABLE lt_maktitab INTO ls_maktitab WITH KEY matnr = gs_itab-matnr BINARY SEARCH.

* IF sy-subrc IS INITIAL.

* gs_itab-maktx = ls_maktitab-maktx.

* MODIFY gt_itab FROM gs_itab TRANSPORTING maktx.

* ENDIF.

READ TABLE lt_t001litab INTO ls_t001litab WITH KEY werks = gs_itab-werks lgort = gs_itab-lgort BINARY SEARCH.

IF sy-subrc IS INITIAL.

gs_itab-lgobe = ls_t001litab-lgobe.

* MODIFY gt_itab FROM gs_itab TRANSPORTING lgobe.

ENDIF.

READ TABLE lt_twladitab INTO ls_twladitab WITH KEY werks = gs_itab-werks lgort = gs_itab-lgort BINARY SEARCH.

IF sy-subrc IS INITIAL.

READ TABLE lt_adrc INTO ls_adrc WITH KEY addrnumber = ls_twladitab-adrnr BINARY SEARCH.

IF sy-subrc IS INITIAL.

CONCATENATE ls_adrc-city1 ls_adrc-street ls_adrc-house_num1 INTO gs_itab-adrnr.

ENDIF.

* MODIFY gt_itab FROM gs_itab TRANSPORTING adrnr.

ENDIF.

READ TABLE lt_ekknitab INTO ls_ekknitab WITH KEY ebeln = gs_itab-vgbel ebelp = gs_itab-vgpos BINARY SEARCH.

IF sy-subrc IS INITIAL.

gs_itab-gvbeln = ls_ekknitab-vbeln.

gs_itab-vbelp = ls_ekknitab-vbelp.

ENDIF.

"摘要长文本

PERFORM frm_read_text USING gs_itab-vgbel ls_ekpoitab-ebelp 'F01' 'EKPO' CHANGING gs_itab-ysum.

MODIFY gt_itab FROM gs_itab TRANSPORTING loekz elikz bednr name1 lgobe adrnr gvbeln vbelp ysum.

CLEAR:gs_itab,ls_lfa1itab,ls_t001litab,ls_ekpoitab,ls_ekknitab,ls_twladitab,ls_adrc.

ENDLOOP.

SORT gt_itab BY werks lifnr.

*---从EKES取DABMG

* ekes~dabmg

* INNER JOIN ekes ON ( lips~vbeln EQ ekes~vbeln_st AND lips~posnr EQ ekes~vbelp_st )

* TYPES: BEGIN OF lty_itab,

* vbeln_st TYPE ekes-vbeln_st,

* vbelp_st TYPE ekes-vbelp_st,

* dabmg TYPE ekes-dabmg,

* END OF lty_itab.

* DATA:lt_ekesitab TYPE TABLE OF lty_itab,

* ls_ekesitab TYPE lty_itab.

* SELECT dabmg

* vbelp_st

* vbeln_st

* FROM ekes

* INTO CORRESPONDING FIELDS OF TABLE lt_ekesitab

* FOR ALL ENTRIES IN gt_itab

* WHERE vbelp_st EQ gt_itab-posnr

* AND vbeln_st EQ gt_itab-vbeln.

ENDFORM.

FORM frm_display_alv.

CLEAR: gs_layout.

gs_layout-zebra = 'X'.

gs_layout-sel_mode = 'A'.

gs_layout-cwidth_opt = 'X'.

* GS_LAYOUT-BOX_FNAME = 'SEL'.

PERFORM frm_get_fieldcat.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

EXPORTING

i_callback_program = sy-repid

* i_grid_title = lv_grid_title

* I_BUFFER_ACTIVE = 'X'

i_default = 'X'

i_save = 'X'

i_callback_user_command = 'USER_COMMAND'

i_callback_pf_status_set = 'SET_PF_STATUS'

it_fieldcat_lvc = gt_fcat[]

is_layout_lvc = gs_layout

* it_events = lt_event

TABLES

t_outtab = gt_itab

EXCEPTIONS

program_error = 1

OTHERS = 2.

ENDFORM.

FORM frm_get_fieldcat .

REFRESH gt_fcat.

alv_field: 'WERKS' 'LIPS' 'MATNR' '工厂' ' ' ''.

alv_field: 'LIFNR' 'LIKP' 'LIFNR' '供应商' ' ' ''.

alv_field: 'NAME1' 'LFA1' 'NAME1' '供应商描述' ' ' ''.

alv_field: 'MATNR' 'LIPS' 'MATNR' '物料编码' ' ' ''.

alv_field: 'MAKTX' 'MAKT' 'MAKTX' '物料描述' ' ' ''.

alv_field: 'VBELN' 'LIPS' 'VBELN' '内向交货单' ' ' ''.

alv_field: 'POSNR' 'LIPS' 'POSNR' '行项目' ' ' ''.

alv_field: 'LFIMG' 'LIPS' 'LFIMG' '数量' ' ' ''.

alv_field: 'MEINS' 'LIPS' 'MEINS' '基本计量单位' ' ' ''.

alv_field: 'LGORT' 'LIPS' 'LGORT' '库位' ' ' ''.

alv_field: 'LGOBE' 'T001L' 'LGOBE' '库位描述' ' ' ''.

alv_field: 'LFDAT' 'LIKP' 'LFDAT' '交货日期' ' ' ''.

alv_field: 'BLDAT' 'LIKP' 'BLDAT' '凭证日期' ' ' ''.

alv_field: 'LICHN' 'LIPS' 'LICHN' '供应商批次' ' ' ''.

alv_field: 'WBSTA' 'LIPS' 'WBSTA' '是否已入库' ' ' ''.

alv_field: 'ORMNG' 'LIPS' 'ORMNG' '已收货数量' ' ' ''.

alv_field: 'VGBEL' 'LIPS' 'VGBEL' '采购订单' ' ' ''.

alv_field: 'VGPOS' 'LIPS' 'VGPOS' '行项目' ' ' ''.

alv_field: 'GVBELN' 'EKKN' 'VBELN' '销售订单' ' ' ''.

alv_field: 'VBELP' 'EKKN' 'VBELP' '行项目' ' ' ''.

alv_field: 'YSUM' '' '' '摘要' ' ' ''.

alv_field: 'BEDNR' 'EKPO' 'BEDNR' '需求跟踪号' ' ' ''.

alv_field: 'LOEKZ' 'EKPO' 'LOEKZ' '采购凭证删除标识' ' ' ''.

alv_field: 'ELIKZ' 'EKPO' 'ELIKZ' '交货已完成标识' ' ' ''.

ENDFORM.

FORM set_pf_status USING rt_extab TYPE slis_t_extab."调用SAP标准功能的工具栏图标，例排序、筛选、小计等功能

SET PF-STATUS 'ZMM009'. "双击单引号里面的，新建一个同名的状态，也可以去在别的reportcopy一个标准的

" 　　　　　　　　　　　　　　"再加上自己定义的按钮。比如program name : RM07MLBS

ENDFORM.

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

IMPORTING

e_grid = gc_grid.

CALL METHOD gc_grid->check_changed_data.

rs_selfield-refresh = 'X'.

CASE r_ucomm.

WHEN 'PRINT'.

PERFORM frm_print.

ENDCASE.

ENDFORM.

FORM frm_print .

DATA: lt_row_index TYPE lvc_t_row,

lt_row_no TYPE lvc_t_roid,

ls_row_no TYPE lvc_s_roid,

lt_itab TYPE TABLE OF ty_itab,

ls_itab TYPE ty_itab,

lv_lines TYPE i.

DATA: lt_item TYPE TABLE OF zmms008,

ls_item TYPE zmms008,

ls_header TYPE zmms007.

DATA: lv_form TYPE tdsfname.

* smartform调用定义

DATA: lw_output_options TYPE ssfcompop,

lw_control_parameters TYPE ssfctrlop,

lv_fmname TYPE rs38l_fnam,

lw_output_options1 TYPE ssfcompop,

lw_control_parameters1 TYPE ssfctrlop,

lv_fmname1 TYPE rs38l_fnam,

lt_errortab TYPE tsferror,

outopt TYPE ssfcresop.

* 打印内表定义

TYPES: BEGIN OF typ_dn,

bldat TYPE likp-bldat, "制单日期

vbeln TYPE lips-vbeln, "单号

lifnr TYPE char100, "供应商：LFA1-LIFNR LFA1-NAME1

adrnr TYPE char50, "送货地址

END OF typ_dn.

DATA: lt_dn TYPE TABLE OF typ_dn,

ls_dn TYPE typ_dn.

DATA:l_lifnr TYPE char50. "供应商 LFA1-LIFNR + LFA1-NAME1

CALL METHOD gc_grid->get_selected_rows

IMPORTING

* ET_INDEX_ROWS = LT_ROW_INDEX

et_row_no = lt_row_no.

DESCRIBE TABLE lt_row_no LINES lv_lines.

IF lv_lines EQ 0.

MESSAGE '请选择要打印的条目' TYPE 'E'.

EXIT.

ENDIF.

REFRESH lt_itab.

lt_itab[] = gt_itab[].

SORT lt_itab BY vbeln lifnr adrnr.

CLEAR ls_row_no.

LOOP AT lt_row_no INTO ls_row_no. "记录行号

CLEAR:gs_itab,l_lifnr,ls_dn.

READ TABLE lt_itab INTO gs_itab INDEX ls_row_no-row_id.

ls_dn-bldat = gs_itab-bldat.

ls_dn-vbeln = gs_itab-vbeln.

CONCATENATE gs_itab-lifnr '/' gs_itab-name1 INTO l_lifnr.

ls_dn-lifnr = l_lifnr.

ls_dn-adrnr = gs_itab-adrnr.

READ TABLE lt_dn INTO ls_dn WITH KEY vbeln = gs_itab-vbeln

adrnr = gs_itab-adrnr.

IF sy-subrc NE 0.

APPEND ls_dn TO lt_dn.

ENDIF.

ENDLOOP.

lv_form = 'ZMMF009'.

PERFORM start_sf USING lv_form CHANGING lw_output_options

lw_control_parameters

lv_fmname.

CLEAR ls_dn.

LOOP AT lt_dn INTO ls_dn.

CLEAR:ls_item,gs_itab,lt_item[].

SORT gt_itab BY vbeln adrnr.

LOOP AT lt_itab INTO gs_itab WHERE vbeln = ls_dn-vbeln

AND adrnr = ls_dn-adrnr.

CLEAR:ls_itab,ls_header.

ls_header-bldat = ls_dn-bldat.

ls_header-vbeln = ls_dn-vbeln.

ls_header-lifnr = ls_dn-lifnr.

ls_header-adrnr = ls_dn-adrnr.

MOVE-CORRESPONDING gs_itab TO ls_item.

IF gs_itab-vgpos NE ''.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'

EXPORTING

input = gs_itab-vgpos

IMPORTING

output = gs_itab-vgpos.

ENDIF.

CONCATENATE gs_itab-vgbel '/' gs_itab-vgpos INTO ls_item-vgbel. "采购订单/行项目

ls_item-gvbeln = gs_itab-gvbeln. "销售订单

APPEND ls_item TO lt_item.

ENDLOOP.

SORT lt_item BY posnr matnr.

* 调用SF

CALL FUNCTION lv_fmname

EXPORTING

control_parameters = lw_control_parameters

output_options = lw_output_options

job_output_options = outopt "输出参数

is_head = ls_header "自定义输出抬头

TABLES

it_item = lt_item "自定义输出表体

EXCEPTIONS

formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

OTHERS = 5.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CLEAR ls_dn.

ENDLOOP.

PERFORM end_sf TABLES lt_errortab USING 'X'.

ENDFORM.

FORM start_sf USING p_gc_sfname TYPE tdsfname

CHANGING p_lw_output_options TYPE ssfcompop

p_lw_control_parameters TYPE ssfctrlop

p_lv_fmname TYPE rs38l_fnam.

CLEAR:p_lw_output_options,p_lw_control_parameters,p_lv_fmname.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

EXPORTING

formname = p_gc_sfname

IMPORTING

fm_name = p_lv_fmname.

p_lw_control_parameters-no_open = 'X'.

p_lw_control_parameters-no_close = 'X'.

* p_lw_control_parameters-no_dialog = 'X'.

* p_lw_control_parameters-getotf = 'X'.

* P_LW_OUTPUT_OPTIONS-TDDEST = 'LP01'.

* p_lw_output-tdprinter = 'Microsoft Office Document Image Writer'.

p_lw_output_options-rqposname = ''.

p_lw_output_options-tddataset = ''.

p_lw_output_options-tdsuffix1 = ''.

p_lw_output_options-tdsuffix2 = ''.

p_lw_output_options-tdimmed = 'X'.

p_lw_output_options-tddelete = 'X'.

* p_lw_output_options-tdnoprev = 'X'.

CALL FUNCTION 'SSF_OPEN'

EXPORTING

control_parameters = p_lw_control_parameters

output_options = p_lw_output_options

EXCEPTIONS

formatting_error = 1

internal_error = 2

send_error = 3

user_canceled = 4

OTHERS = 5.

ENDFORM.

FORM end_sf TABLES p_lt_errortab TYPE tsferror

USING p_flag TYPE c.

DATA: otf TYPE tsfotf.

DATA: g_job_output_info TYPE ssfcrescl.

CALL FUNCTION 'SSF_CLOSE'

IMPORTING

job_output_info = g_job_output_info

EXCEPTIONS

formatting_error = 1

internal_error = 2

send_error = 3

OTHERS = 4.

IF g_job_output_info-outputdone = 'X'.

"只有打印和合并打印的时候需更新

IF p_flag = 'X'.

ENDIF.

CALL FUNCTION 'SSF_READ_ERRORS'

IMPORTING

errortab = p_lt_errortab[].

otf[] = g_job_output_info-otfdata[].

CALL FUNCTION 'SSFCOMP_PDF_PREVIEW'

EXPORTING

i_otf = otf

EXCEPTIONS

convert_otf_to_pdf_error = 1

cntl_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

* Implement suitable error handling here

ENDIF.

ENDFORM.

FORM frm_read_text USING p_vbeln

p_posnr

p_id

p_object

CHANGING p_beizu.

DATA: lt_tdline LIKE TABLE OF tline,

ls_tdline TYPE tline,

lv_tdname TYPE thead-tdname.

CLEAR:lt_tdline.

lv_tdname = p_vbeln && p_posnr.

CALL FUNCTION 'READ_TEXT'

EXPORTING

client = sy-mandt

id = p_id

language = sy-langu

name = lv_tdname

object = p_object

TABLES

lines = lt_tdline

EXCEPTIONS

id = 01

language = 02

name = 03

not_found = 04

object = 05

reference_check = 06

wrong_access_to_archive = 07.

IF lt_tdline IS NOT INITIAL.

LOOP AT lt_tdline INTO ls_tdline.

CONCATENATE p_beizu ls_tdline-tdline INTO p_beizu.

ENDLOOP.

ENDIF.

ENDFORM.

SMARTFORM打印程序模板相关推荐

工具系列 | 使用Lodop进行WEB打印程序开发
Lodop(标音:劳道谱,俗称:露肚皮)是专业WEB控件,用它既可裁剪输出页面内容,又可用程序代码直接实现复杂打印.控件功能强大,却简单易用,所有调用如同JavaScript扩展语句. WEB套打可 ...
SAP小技巧之实现SMARTFORM打印中的小计与总计
点击蓝字关注我们一前言公众号群里面有人在讨论SMARTFORM打印中的小计和总计的实现.好久没有做SMARTFORM了, 所以没有参与讨论. 后来网上查询了一下. 也没有找到很好的解决方案.所 ...
操作无法完成后台打印程序无法运行
同事反映原共享的打印机无法打印.我删除重新添加时系统提示操作无法完成后台打印程序无法运行.于是我打开服务找到print spooler服务进程设置自动开启后重新添加问题依旧.在网上查到的方法是病毒 ...
微信小程序模板消息（服务通知消息）原始post工具封装(不使用jar包--坑比较多)，解决47001(JSON格式)和中文乱码问题
微信小程序模板消息(服务通知消息)原始post工具封装(不使用jar包--坑比较多),解决47001(JSON格式)和中文乱码问题参考文章: (1)微信小程序模板消息(服务通知消息)原始post工具 ...
smartform 打印预览时转PDF查看
smartform 打印预览时,经常会有分页以及其他等等原因,预览的效果跟最后打印结果有些出入.为了方便查看预览时的数据,可以输入Tcode "PDF!",就会把当前预览的数据转换 ...
axure小程序模板_微信小程序模板案例收集
微信小程序发布近四年来,诞生了各行各业的高质量小程序,其中有很多都是用微信小程序模板制作的.新手在制作自己的小程序时,就可以参考这些好看的小程序模板案例. 1.电商小程序这是目前非常常见的小程序类型 ...
DCMTK：演示状态查看器-后台打印程序
DCMTK:演示状态查看器-后台打印程序演示状态查看器-后台打印程序演示状态查看器-后台打印程序 #include "dcmtk/config/osconfig.h" #inc ...
h5 bootstrap 小程序模板_青浦区社群小程序模板
青浦区社群小程序模板 ZOOMX,私域流量小程序生态服务商,是一款私域流量***.留存.转化的第三方小程序SaaS平台,专注打造企业私域流量的营销裂变.商品促销.用户留存及数据分析,打通小程序的电商生 ...
微软Windows SharePoint Services 3.0 应用程序模板（ Templates）中文版推出了
概述此下载包包括 Windows SharePoint Services 3.0 的所有 20 个服务器管理应用程序模板.应用程序模板核心解决方案以及每个模板的对应业务和技术数据表(数据表只为英文版 ...
MFC 使用控制台打印程序信息
在MFC编程中,代码的调试一直不太直观.搞一个 MessageBox 来打印信息查看程序是否执行或执行是否有误,又或者是在程序中设断点都有不太方便的地方,特别是在需要获得多个信息的情况下更是不便.此外 ...

SMARTFORM打印程序模板

SMARTFORM打印程序模板相关推荐

最新文章

热门文章