*&---------------------------------------------------------------------*
*& Report
*&
*&---------------------------------------------------------------------*
*&程序名称：
*&事物代码：
*&导入模板：无
*&作者：
*&时间：2016/5/18
*&--------------------------------------------------------------------
REPORT zsdr045.
INCLUDE zsdr045_inc.
*INCLUDE zsdr007_inc.
TYPE-POOLS: slis.
TABLES:likp, kna1, lips ,mkpf ,mseg ,vttp,vbak.
TYPES: BEGIN OF ty_all,
vbelv LIKE vbfa-vbelv , "销售订单号
tknum LIKE vttp-tknum, "装运单号
auart LIKE vbak-auart, "销售订单类型
auart_txt LIKE tvakt-bezei, "销售订单类型描述
vkorg LIKE vbak-vkorg, "销售组织
vtweg LIKE vbak-vtweg, "分销渠道
lfart LIKE likp-lfart, "交货类型
lfart_txt LIKE tvlkt-vtext, "交货类型描述
vbeln_im LIKE lips-vbeln , "交货单号
mblnr LIKE mseg-mblnr, "物料凭证
shkzg LIKE mseg-shkzg, "借贷标识
zeile LIKE mseg-zeile, "凭证项目
smbln LIKE mseg-smbln, "参考物料凭证
smblp LIKE mseg-smblp, "参考物料项目
bwart LIKE mseg-bwart, "移动类型
kunag LIKE likp-kunag , "客户
kunag_txt LIKE kna1-name1, "客户名称
kunnr LIKE likp-kunnr , "送达方
kunnr_txt LIKE kna1-name1, "送达方名称
stras LIKE kna1-stras , "客户地址
budat_mkpf LIKE mseg-budat_mkpf , "出库日期
cputm_mkpf LIKE mseg-cputm_mkpf , "输入时间
telf1 LIKE kna1-telf1 , "电话
usnam_mkpf LIKE mseg-usnam_mkpf , "经办人
name_last LIKE adrp-name_last, "创建者姓
name_first LIKE adrp-name_first, "创建者名
matnr LIKE lips-matnr , "物料编码
arktx LIKE lips-arktx , "物料描述
werks LIKE mseg-werks, "工厂
lgort LIKE mseg-lgort , "库存地点
menge LIKE mseg-menge , "数量
vrkme LIKE lips-vrkme , "单位
charg LIKE mseg-charg , "批次
vbelp_im LIKE mseg-vbelp_im , "物料项目
pstyv LIKE lips-pstyv, "行项目类别
uecha LIKE lips-uecha, "上层项目号
bolnr LIKE likp-bolnr , "物流单号
brgew LIKE lips-brgew, "单项目毛重
gewei LIKE lips-gewei, "单项目毛重单位
"printed TYPE c,"是否已打印
count_prt TYPE i, "记录此交货单打印次数
beizhu(20) TYPE c , "备注
END OF ty_all.
TYPES:BEGIN OF ty_header,
vbelv LIKE vbfa-vbelv , "销售订单号
"tknum LIKE vttp-tknum, "装运单号
auart LIKE vbak-auart, "销售订单类型
auart_txt LIKE tvakt-bezei, "销售订单类型描述
vkorg LIKE vbak-vkorg, "销售组织
vtweg LIKE vbak-vtweg, "分销渠道
lfart LIKE likp-lfart, "交货类型
lfart_txt LIKE tvlkt-vtext, "交货类型描述
vbeln_im LIKE mseg-vbeln_im , "交货单号
mblnr LIKE mseg-mblnr, "物料凭证
shkzg LIKE mseg-shkzg, "借贷标识
budat_mkpf LIKE mseg-budat_mkpf , "出库日期
cputm_mkpf LIKE mseg-cputm_mkpf , "输入时间
kunag LIKE likp-kunag , "客户
kunag_txt LIKE kna1-name1, "客户名称
kunnr LIKE likp-kunnr , "送达方
kunnr_txt LIKE kna1-name1, "送达方名称
lgort LIKE mseg-lgort , "库存地点
werks LIKE mseg-werks, "工厂
stras LIKE kna1-stras , "客户地址
telf1 LIKE kna1-telf1 , "电话
usnam_mkpf LIKE mseg-usnam_mkpf , "经办人
name_last LIKE adrp-name_last, "创建者姓
name_first LIKE adrp-name_first, "创建者名
total_brgew LIKE lips-brgew, "项目总毛重
bolnr LIKE likp-bolnr, "物流单号
count_prt TYPE i, "记录此交货单打印次数
beizhu(60) TYPE c , "备注
END OF ty_header.
TYPES:BEGIN OF ty_items,
vbelv LIKE vbfa-vbelv , "销售订单号
vbeln_im LIKE mseg-vbeln_im , "交货单号
lfart LIKE likp-lfart, "交货类型
shkzg LIKE mseg-shkzg, "借贷标识
budat_mkpf LIKE mseg-budat_mkpf , "出库日期
cputm_mkpf LIKE mseg-cputm_mkpf , "输入时间
mblnr LIKE mseg-mblnr, "物料凭证
matnr LIKE mseg-matnr , "物料编码
arktx LIKE lips-arktx , "物料描述
lgort LIKE mseg-lgort , "库存地点
menge LIKE mseg-menge , "数量
vrkme LIKE lips-vrkme , "单位
charg LIKE mseg-charg , "批次
vbelp_im LIKE mseg-vbelp_im , "项目
pstyv LIKE lips-pstyv, "行项目类别
uecha LIKE lips-uecha, "上层项目号
pstyv_txt LIKE tvapt-vtext, "类别描述
brgew LIKE lips-brgew, "单项目毛重
gewei LIKE lips-gewei, "单项目毛重单位
bolnr LIKE likp-bolnr , "物流单号
beizhu(45) TYPE c , "备注
END OF ty_items.
TYPES:BEGIN OF ty_items_n,
vbelv LIKE vbfa-vbelv , "销售订单号
vbeln_im LIKE mseg-vbeln_im , "交货单号
matnr LIKE mseg-matnr , "物料编码
arktx LIKE lips-arktx , "物料描述
menge1 LIKE mseg-menge , "本品数量
menge2 LIKE mseg-menge , "赠品数量
menge3 LIKE mseg-menge , "总计数量
vrkme LIKE lips-vrkme , "单位
"vbelp_im LIKE mseg-vbelp_im , "项目
"pstyv LIKE lips-pstyv, "行项目类别
"uecha LIKE lips-uecha, "上层项目号
"pstyv_txt LIKE tvapt-vtext, "类别描述
"brgew LIKE lips-brgew, "单项目毛重
"gewei LIKE lips-gewei, "单项目毛重单位
"bolnr LIKE likp-bolnr , "物流单号
beizhu(45) TYPE c , "备注
END OF ty_items_n.
*DATA:hs_items_n TYPE HASHED TABLE OF ty_items_n
* WITH UNIQUE KEY vbelv vbeln_im matnr arktx vrkme beizhu
* WITH HEADER LINE.
DATA:hs_items_n TYPE TABLE OF ty_items_n WITH HEADER LINE.
DATA:gt_items_n TYPE ty_items_n OCCURS 0.
DATA:gt_items_n_show TYPE ty_items_n OCCURS 0.
DATA:gt_items_n_temp TYPE ty_items_n OCCURS 0.
DATA:wa_items_n TYPE ty_items_n.
DATA:wa_all TYPE ty_all,
gt_all TYPE ty_all OCCURS 0.
DATA:wa_header TYPE ty_header,
gt_header
TYPE ty_header OCCURS 0.
DATA:wa_items TYPE ty_items,
gt_items
TYPE ty_items OCCURS 0.
DATA:gt_dc TYPE STANDARD TABLE OF ztbjdyzt.
DATA:wa_dc TYPE ztbjdyzt.
DATA:forms TYPE i."在FORM print里循环
*定义传入到smartforms的变量开始
DATA:fm_name TYPE rs38l_fnam.
DATA:itemsname(32) TYPE c.
DATA:headername(32) TYPE c.
*定义传入到smartforms的变量结束
DATA job_output_info TYPE ssfcrescl.
DATA job_output_options TYPE ssfcresop.
DATA BEGIN OF pdf OCCURS 10.
INCLUDE STRUCTURE tline.
DATA END OF pdf.
DATA len TYPE i. "PDF文件大小
*定义存储ALV向smartforms传入数据的内表开始
DATA:gt_header_temp TYPE ty_header OCCURS 0.
DATA:gt_items_temp TYPE ty_items OCCURS 0.
DATA:gt_all_temp TYPE ty_all OCCURS 0.
*定义存储ALV向smartforms传入数据的内表结束
*ALV显示头数据开始
DATA:gt_header_show TYPE ty_header OCCURS 0.
DATA:gt_items_show TYPE ty_items OCCURS 0.
*ALV显示头数据结束
"控制smartforms参数声明开始
DATA :control_parameters TYPE ssfctrlop,
lw_output_opt
TYPE ssfcompop. "Smart Forms: 智能写作器 (传输) 选项
DATA: lw_ssfcrescl TYPE ssfcrescl.
"控制smartforms参数声明结束
DATA: gs_fcat TYPE lvc_s_fcat,
gt_fcat
TYPE lvc_t_fcat,
gs_layo
TYPE lvc_s_layo,
gs_grid
TYPE lvc_s_glay.
DATA: gt_event TYPE slis_t_event WITH HEADER LINE,
gt_event_exit
TYPE slis_t_event_exit WITH HEADER LINE.
DATA: ref_grid TYPE REF TO cl_gui_alv_grid .
*PARAMETERS filename TYPE rlgrap-filename.
*
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
* PERFORM f4_file_save CHANGING filename.
START-OF-SELECTION.
SELECT-OPTIONS:
p_vbeln
FOR likp-vbeln , "交货单号
p_werks
FOR lips-werks , "工厂 ,
p_lgort
FOR lips-lgort ,"库存地点
p_budat
FOR mkpf-budat ,"过账日期
p_usnam
FOR vttp-ernam,"创建者
p_vkorg
FOR vbak-vkorg ,"销售组织
p_lfart
FOR likp-lfart,
p_tknum
FOR vttp-tknum NO INTERVALS NO-EXTENSION ."装运单号.
"P_TPLST FOR VTTK-TPLST ,
"P_ERNAM FOR VTTK-ERNAM ,
"P_ROUTE FOR VTTK-ROUTE .
PERFORM frm_get_data.
PERFORM display_data .
END-OF-SELECTION.
"当屏幕失去焦点时，自动刷新声明类开始
CLASS lcl_event_receiver DEFINITION.
PUBLIC SECTION.
METHODS handle_modify
FOR EVENT data_changed_finished OF cl_gui_alv_grid
IMPORTING e_modified et_good_cells.
ENDCLASS.
CLASS lcl_event_receiver IMPLEMENTATION.
METHOD handle_modify.
* PERFORM refresh.
DATA stbl TYPE lvc_s_stbl.
stbl
-row = 'X'." 基于行的稳定刷新
stbl
-col = 'X'." 基于列稳定刷新
CALL METHOD ref_grid->refresh_table_display
EXPORTING
is_stable
= stbl.
ENDMETHOD. "HANDLE_MODIFY
ENDCLASS. "LCL_EVENT_RECEIVER IMPLEMENTATION
DATA gt_event_receiver TYPE REF TO lcl_event_receiver .
"当屏幕失去焦点时，自动刷新声明类结束
FORM frm_get_data ."lp~kunag lp~kunnr
SELECT
vbfa
~vbelv ,lips~vbeln AS vbeln_im , likp~kunag ,likp~kunnr ,likp~lfart, kna1~stras, mseg~budat_mkpf, mseg~zeile, mseg~shkzg,
kna1
~telf1 , mseg~usnam_mkpf, lips~matnr , lips~arktx ,lips~lgort , lips~lfimg AS menge,lips~werks,lips~uecha,
lips
~vrkme , mseg~charg ,lips~posnr AS vbelp_im , likp~bolnr, lips~brgew ,lips~gewei, lips~pstyv , mseg~mblnr, mseg~bwart, mseg~cputm_mkpf ,adrp~name_last,
adrp
~name_first ,mseg~smbln, mseg~smblp, vbak~auart,vbak~vkorg, vbak~vtweg,
vttp
~tknum
INTO CORRESPONDING FIELDS OF TABLE @gt_all
* FROM mseg AS m
*
* INNER JOIN mkpf AS mf
* ON m~mblnr = mf~mblnr AND mf~mjahr = m~mjahr wAND mf~vgart = 'WL'
* INNER JOIN lips AS ls
* ON m~vbeln_im = ls~vbeln AND m~vbelp_im = ls~posnr
FROM likp
INNER
JOIN lips
ON likp~vbeln = lips~vbeln
INNER
JOIN mseg
ON mseg~vbeln_im = lips~vbeln AND mseg~vbelp_im = lips~posnr
LEFT JOIN mkpf
ON mseg~mblnr = mkpf~mblnr AND mkpf~mjahr = mseg~mjahr AND mkpf~vgart = 'WL'
INNER
JOIN kna1
ON kna1~kunnr = likp~kunnr
LEFT JOIN vbfa
ON vbfa~vbeln = lips~vbeln AND vbfa~posnn = lips~posnr
LEFT JOIN vbak
ON vbak~vbeln = vbfa~vbelv
INNER
JOIN usr21
ON usr21~bname = mkpf~usnam
LEFT JOIN adrp
ON adrp~persnumber = usr21~persnumber
LEFT JOIN vttp
ON vttp~vbeln = likp~vbeln
WHERE lips~vbeln IN @p_vbeln AND
lips
~werks IN @p_werks AND
lips
~lgort IN @p_lgort AND
mkpf
~budat IN @p_budat AND
mkpf
~usnam IN @p_usnam AND
vbak
~vkorg IN @p_vkorg AND
likp
~lfart IN @p_lfart AND " AND
vttp
~tknum IN @p_tknum .
SORT gt_all ASCENDING BY vbelv vbeln_im mblnr budat_mkpf cputm_mkpf vbelp_im."BUDAT_MKPF CPUTM_MKPF.
DELETE ADJACENT DUPLICATES FROM gt_all.
CLEAR wa_all.
LOOP AT gt_all INTO wa_all.
* AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
* ID 'VKORG' FIELD wa_all-vkorg
* ID 'VTWEG' DUMMY "wa_all-vtweg
* ID 'SPART' DUMMY "gwa_vbap-spart2 "行项目
* ID 'ACTVT' FIELD '03'.
* IF sy-subrc <> 0.
* DELETE TABLE gt_all FROM wa_all.
* CONTINUE.
* ENDIF.
SELECT SINGLE vtext INTO wa_all-lfart_txt
FROM tvlkt
WHERE lfart EQ wa_all-lfart.
SELECT SINGLE bezei INTO wa_all-auart_txt
FROM tvakt
WHERE auart EQ wa_all-auart.
SELECT SINGLE name1 INTO wa_all-kunnr_txt
FROM kna1 WHERE kunnr EQ wa_all-kunnr.
SELECT SINGLE name1 INTO wa_all-kunag_txt
FROM kna1 WHERE kunnr EQ wa_all-kunag.
CONCATENATE wa_all-name_last wa_all-name_first INTO wa_all-name_last.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_dc
FROM ztbjdyzt WHERE key1 EQ wa_all-vbeln_im AND type EQ '005'.
DESCRIBE TABLE gt_dc LINES wa_all-count_prt.
MODIFY gt_all FROM wa_all.
ENDLOOP.
LOOP AT gt_all INTO wa_all WHERE smbln IS NOT INITIAL AND smblp IS NOT INITIAL .
DELETE gt_all WHERE mblnr = wa_all-smbln AND zeile = wa_all-smblp.
DELETE TABLE gt_all FROM wa_all.
ENDLOOP.
LOOP AT gt_all INTO wa_all WHERE shkzg = 'S'.
IF wa_all-pstyv EQ 'REN' OR wa_all-pstyv EQ 'REN1' OR
wa_all
-pstyv EQ 'REN2' OR wa_all-pstyv EQ 'REN3' OR
wa_all
-pstyv EQ 'REQ' OR wa_all-pstyv EQ 'REHP'.
CONTINUE.
ELSE.
DELETE TABLE gt_all FROM wa_all.
ENDIF.
ENDLOOP.
MOVE-CORRESPONDING gt_all TO gt_header_show.
MOVE-CORRESPONDING gt_all TO gt_items_show.
DATA: luecha LIKE lips-uecha. "上层项目批
DATA: lpstyv LIKE lips-pstyv. "上层行项目类型
* DATA: lwa_items TYPE ty_items.
* DATA: l_items TYPE ty_items.
LOOP AT gt_items_show INTO wa_items WHERE lfart NE 'ZLF9' AND ( pstyv EQ 'TBN' OR pstyv EQ 'ZTNN'
OR pstyv EQ'ZMN' OR pstyv EQ 'TBN1' ).
IF wa_items-pstyv EQ 'ZMN' .
* SELECT SINGLE uecha INTO luecha
* FROM lips
* WHERE vbeln EQ wa_items-vbeln_im AND posnr EQ wa_items-vbelp_im.
SELECT SINGLE pstyv INTO lpstyv
FROM lips
WHERE vbeln EQ wa_items-vbeln_im AND posnr EQ wa_items-uecha.
IF lpstyv EQ 'TBN' .
wa_items
-pstyv_txt = '赠'.
ENDIF.
PERFORM frm_read_txt_po USING wa_items-vbeln_im luecha
CHANGING wa_items-beizhu.
ELSE.
wa_items
-pstyv_txt = '赠'.
PERFORM frm_read_txt_po USING wa_items-vbeln_im wa_items-vbelp_im
CHANGING wa_items-beizhu.
ENDIF.
* PERFORM frm_read_txt_po USING wa_items-vbeln_im wa_items-vbelp_im
* CHANGING wa_items-beizhu.
MODIFY gt_items_show FROM wa_items.
ENDLOOP.
DATA:lt_items_tmp TYPE ty_items OCCURS 0 .
DATA:wa_items_tmp TYPE ty_items .
DATA:ls_items TYPE ty_items.
LOOP AT gt_items_show INTO wa_items WHERE uecha IS NOT INITIAL.
ls_items
= wa_items.
ls_items
-vbelp_im = wa_items-uecha.
SELECT SINGLE pstyv INTO ls_items-pstyv
FROM lips
WHERE vbeln EQ ls_items-vbeln_im AND posnr EQ ls_items-vbelp_im.
CLEAR ls_items-uecha.
* LOOP AT lt_items_tmp INTO wa_items_tmp WHERE vbelv = ls_items-vbelv
* AND vbeln_im = ls_items-vbeln_im
* AND vbelp_im = ls_items-vbelp_im .
*
* ENDLOOP.
READ TABLE lt_items_tmp INTO wa_items_tmp WITH KEY vbelv = ls_items-vbelv
vbeln_im
= ls_items-vbeln_im
vbelp_im
= ls_items-vbelp_im.
IF sy-subrc EQ 0.
wa_items_tmp
-menge = wa_items_tmp-menge + ls_items-menge.
wa_items_tmp
-brgew = wa_items_tmp-brgew + ls_items-brgew.
MODIFY lt_items_tmp FROM wa_items_tmp INDEX sy-tabix.
ELSE.
APPEND ls_items TO lt_items_tmp.
ENDIF.
DELETE gt_items_show WHERE vbelv = wa_items-vbelv AND vbeln_im = wa_items-vbeln_im
AND vbelp_im = wa_items-vbelp_im .
ENDLOOP.
APPEND LINES OF lt_items_tmp TO gt_items_show.
CLEAR: lt_items_tmp,wa_items_tmp,ls_items.
SORT gt_items_show BY vbelv vbeln_im vbelp_im.
DELETE ADJACENT DUPLICATES FROM gt_header_show.
DATA count LIKE lips-brgew VALUE 0.
LOOP AT gt_header_show INTO wa_header.
LOOP AT gt_items_show INTO wa_items
WHERE vbeln_im EQ wa_header-vbeln_im
AND mblnr EQ wa_header-mblnr
AND vbelv EQ wa_header-vbelv
AND shkzg EQ wa_header-shkzg
AND budat_mkpf EQ wa_header-budat_mkpf
AND lgort EQ wa_header-lgort .
IF wa_items-gewei NE 'KG'.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
input = wa_items-brgew
round_sign
= 'X'
unit_in
= wa_items-gewei
unit_out
= 'KG'
IMPORTING
output = wa_items-brgew
EXCEPTIONS
conversion_not_found
= 01
division_by_zero
= 02
input_invalid
= 03.
ENDIF.
count = wa_items-brgew + count."放入到要往smartforms传入的内表行项目
" ENDIF.
ENDLOOP.
CALL FUNCTION 'UNIT_CONVERSION_SIMPLE'
EXPORTING
input = count
round_sign
= 'X'
unit_in
= 'KG'
unit_out
= 'TO'
IMPORTING
output = count
EXCEPTIONS
conversion_not_found
= 01
division_by_zero
= 02
input_invalid
= 03.
wa_header
-total_brgew = count.
MODIFY TABLE gt_header_show FROM wa_header.
CLEAR wa_items.
CLEAR wa_header.
CLEAR count.
ENDLOOP.
SORT gt_items_show BY vbelv vbeln_im vbelp_im.
DATA:l_tabix TYPE sy-tabix.
DATA:lwa_items TYPE ty_items.
LOOP AT gt_items_show INTO wa_items.
l_tabix
= sy-tabix + 1.
MOVE-CORRESPONDING wa_items TO hs_items_n.
IF wa_items-pstyv EQ 'TBN'.
hs_items_n
-menge1 = 0.
hs_items_n
-menge2 = wa_items-menge.
hs_items_n
-menge3 = hs_items_n-menge1 + hs_items_n-menge2.
ELSE.
READ TABLE gt_items_show INTO lwa_items INDEX l_tabix.
IF lwa_items-pstyv EQ 'TBN' AND lwa_items-matnr EQ wa_items-matnr.
hs_items_n
-menge1 = wa_items-menge.
hs_items_n
-menge2 = lwa_items-menge.
hs_items_n
-menge3 = hs_items_n-menge1 + hs_items_n-menge2.
DELETE TABLE gt_items_show FROM lwa_items.
ELSEIF lwa_items-pstyv EQ 'TBN' AND lwa_items-matnr NE wa_items-matnr.
hs_items_n
-menge1 = wa_items-menge.
hs_items_n
-menge2 = 0.
hs_items_n
-menge3 = hs_items_n-menge1 + hs_items_n-menge2.
ELSE.
hs_items_n
-menge1 = wa_items-menge.
hs_items_n
-menge2 = 0.
hs_items_n
-menge3 = hs_items_n-menge1 + hs_items_n-menge2.
ENDIF.
ENDIF.
* IF wa_items-pstyv EQ 'TBN'."当行项目为标准类型赋值menge1
* hs_items_n-menge2 = wa_items-menge.
* hs_items_n-menge1 = 0.
* ELSE. "当行项目为赠品类型赋值menge2
* hs_items_n-menge1 = wa_items-menge.
* hs_items_n-menge2 = 0.
* ENDIF.
* hs_items_n-menge3 = wa_items-menge.
* COLLECT hs_items_n.
APPEND hs_items_n.
ENDLOOP.
gt_items_n_show[]
= hs_items_n[].
ENDFORM.
FORM display_data .
IF gt_header_show[] IS INITIAL.
MESSAGE '没有数据显示！' TYPE 'I'.
RETURN.
ENDIF.
PERFORM set_fcat.
PERFORM set_layout.
PERFORM show_alv TABLES gt_fcat gt_header_show[]
USING gs_layo.
ENDFORM. " DISPLAY_DATA
*&---------------------------------------------------------------------*
FORM set_fcat .
PERFORM csalv_set_fcat USING:
" 'Field' 'Text' 'Edit' 'Zero' 'Type' 'Qfieldname' 'Key' 'Hostspot' 'Emphasize' 'Checkbox'
"'TKNUM' '装运编号' '' 'X' '' '' '' '' '' '' '' '' '',
'VBELV' '销售订单号' '' 'X' '' '' '' '' '' '' '' '' '',
'AUART' '销售订单类型' '' 'X' '' '' '' '' '' '' '' '' '',
'AUART_TXT' '销售订单类型描述' '' 'X' '' '' '' '' '' '' '' '' '',
'VKORG' '销售组织' '' 'X' '' '' '' '' '' '' '' '' '',
'VBELN_IM' '交货单号' '' 'X' '' '' '' '' '' '' '' '' '',
'LFART' '交货类型' '' 'X' '' '' '' '' '' '' '' '' '',
'LFART_TXT' '交货类型描述' '' 'X' '' '' '' '' '' '' '' '' '',
'MBLNR' '物料凭证' '' '' '' '' '' '' '' '' '' '' '',
"'SHKZG' '借\贷标识' '' '' '' '' '' '' '' '' '' '' '',
'BUDAT_MKPF' '凭证日期' '' '' '' '' '' '' '' '' '' '' '',
'CPUTM_MKPF' '凭证时间' '' '' '' '' '' '' '' '' '' '' '',
"'ZEILE' '凭证项目' '' '' '' '' '' '' '' '' '' '' '',
"'BWART' '移动类型' '' '' '' '' '' '' '' '' '' '' '',
'KUNAG_TXT' '客户' '' '' '' '' '' '' '' '' '' '' '',
'KUNNR_TXT' '送达方' '' '' '' '' '' '' '' '' '' '' '',
"'MATNR' '产品编码' '' '' '' '' '' '' '' '' '' '' '' ,
"'ARKTX' '产品' '' '' '' '' '' '' '' '' '' '' '',
"'MENGE' '数量' '' '' '' '' '' '' '' '' '' '0' '',
"'VRKME' '单位' '' '' '' '' '' '' '' '' '' '' '',
"'BRGEW' '毛重' '' '' '' '' '' '' '' '' '' '0' '',
'WERKS' '工厂' '' '' '' '' '' '' '' '' '' '' '',
'LGORT' '库存地点' '' '' '' '' '' '' '' '' '' '' '',
'NAME_LAST' '经办人' '' '' '' '' '' '' '' '' '' '' '',
"'NAME_FIRST' '名' '' '' '' '' '' '' '' '' '' '' '',
'COUNT_PRT' '已打印次数' '' '' '' '' '' '' '' '' '' '' '',
'BEIZHU' '备注' 'X' '' '' '' '' '' '' '' '' '' 'X'.
"'zsel' '是否打印 ' '' '' '' '' '' '' '' 'X' ''.
ENDFORM. " SET_FCAT
*&---------------------------------------------------------------------*
FORM set_layout .
gs_layo
-zebra = 'X'.
* gs_layout-stylefname = 'FIELD_STYLE'.
gs_layo
-cwidth_opt = 'X'.
ENDFORM. " SET_LAYOUT
*&---------------------------------------------------------------------*
FORM csalv_set_fcat USING
p_name
p_text
p_edit
p_zero
p_type
p_qfieldname
p_key
p_hotspot
p_emphasize
p_checkbox
p_do_sum
p_decimals_out
p_no_out
.
gs_fcat
-fieldname = p_name.
* gs_fcat-reptext_l =
* gs_fcat-selddictxt =
gs_fcat
-reptext = p_text.
gs_fcat
-edit = p_edit.
gs_fcat
-no_zero = p_zero.
gs_fcat
-datatype = p_type.
gs_fcat
-qfieldname = p_qfieldname.
gs_fcat
-key = p_key.
gs_fcat
-hotspot = p_hotspot.
gs_fcat
-emphasize = p_emphasize.
gs_fcat
-checkbox = p_checkbox.
gs_fcat
-do_sum = p_do_sum.
gs_fcat
-decimals_o = p_decimals_out.
gs_fcat
-no_out = p_no_out.
APPEND gs_fcat TO gt_fcat.
ENDFORM. "csalv_set_fcat
*&---------------------------------------------------------------------*
FORM show_alv TABLES pt_fcat
pt_tab
USING ps_layout.
gs_grid
-edt_cll_cb = 'X'."当屏幕失去焦点时，自动刷新
gt_event
-name = 'CALLER_EXIT'. "slis_ev_caller_exit_at_start事件
gt_event
-form = 'FM_BUTTON'.
APPEND gt_event .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
EXPORTING
i_callback_program
= sy-repid
i_callback_user_command
= 'USER_COMMAND'
i_grid_settings
= gs_grid
i_callback_pf_status_set
= 'SET_PF_STATUS'
is_layout_lvc
= gs_layo
it_fieldcat_lvc
= pt_fcat[]
it_events
= gt_event[]
i_save
= 'X'
* it_event_exit = gt_event_exit[]
TABLES
t_outtab
= pt_tab
EXCEPTIONS
program_error
= 1
OTHERS = 2.
ENDFORM. "csalv_set_fcat
FORM print.
DATA:ptr_count(10) TYPE c.
DATA: lines TYPE i."获取往smartforms传入的要打印的行数目
DATA: insertrows TYPE i."需要再插入多少空行
DATA: rows TYPE i VALUE 15."一页要打印的行数
CLEAR gt_all_temp.
CLEAR gt_header.
CLEAR gt_items_n.
CLEAR gt_header_temp.
CLEAR gt_items_n_temp.
DATA count LIKE lips-brgew VALUE 0.
DATA:ls_row TYPE lvc_s_row,
lt_rows
TYPE lvc_t_row.
"CLEAR GT_HEADER.
"CLEAR GT_ITEMS.
CALL METHOD ref_grid->get_selected_rows
IMPORTING
et_index_rows
= lt_rows
* et_row_no =
.
LOOP AT lt_rows INTO ls_row.
READ TABLE gt_header_show INTO wa_header INDEX ls_row-index.
APPEND wa_header TO gt_header.
LOOP AT gt_items_n_show INTO wa_items_n
WHERE vbeln_im EQ wa_header-vbeln_im
AND vbelv EQ wa_header-vbelv .
APPEND wa_items_n TO gt_items_n.
ENDLOOP.
ENDLOOP.
CLEAR: control_parameters.
control_parameters
-preview = 'X'.
control_parameters
-no_open = 'X'.
control_parameters
-no_close = 'X'.
* control_parameters-getotf = 'X'.
* control_parameters-no_dialog = 'X'.
lw_output_opt
-tdiexit = 'X'.
CALL FUNCTION 'SSF_OPEN'
EXPORTING
control_parameters
= control_parameters
output_options
= lw_output_opt
* IMPORTING
* job_output_info = job_output_info
EXCEPTIONS
formatting_error
= 1
internal_error
= 2
send_error
= 3
user_canceled
= 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
EXIT.
ENDIF.
LOOP AT gt_header INTO wa_header.
SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_dc
FROM ztbjdyzt WHERE key1 EQ wa_header-vbeln_im AND type EQ '005'.
DESCRIBE TABLE gt_dc LINES wa_header-count_prt.
wa_header
-count_prt = wa_header-count_prt + 1.
PERFORM frm_read_txt USING wa_header-vbeln_im CHANGING wa_header-beizhu.
APPEND wa_header TO gt_header_temp."放入到要往smartforms传入的表头内表
LOOP AT gt_items_n INTO wa_items_n
WHERE vbeln_im EQ wa_header-vbeln_im
AND vbelv EQ wa_header-vbelv.
APPEND wa_items_n TO gt_items_n_temp.
ENDLOOP.
CLEAR wa_items_n.
CLEAR wa_header.
IF gt_items_n_temp IS INITIAL.
MESSAGE i000(0k) WITH '请选中要打印的内容！'.
EXIT .
ENDIF.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname
= 'ZSDSF007_2'
IMPORTING
fm_name
= fm_name
EXCEPTIONS
no_form
= 1
no_function_module
= 2
OTHERS = 3.
"SET HANDLER gt_event_receiver->handle_modify FOR ref_grid.
DESCRIBE TABLE gt_items_n_temp LINES lines.
insertrows
= lines MOD rows .
IF insertrows NE 0.
insertrows
= rows - insertrows.
ELSE.
insertrows
= 0.
ENDIF.
DO insertrows TIMES.
APPEND wa_items_n TO gt_items_n_temp."放入到要往smartforms传入的行项目内表
ENDDO.
PERFORM frm_print_data."每一个表头数据向smartforms传入数据
ENDLOOP.
CALL FUNCTION 'SSF_CLOSE'
IMPORTING
job_output_info
= job_output_info
EXCEPTIONS
formatting_error
= 1
internal_error
= 2
send_error
= 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
IF job_output_info-outputdone = 'X'.
CLEAR wa_dc.
LOOP AT gt_header INTO wa_header.
wa_dc
-mandt = sy-mandt.
wa_dc
-to_date = sy-datum.
wa_dc
-to_time = sy-uzeit.
wa_dc
-type = '005'.
wa_dc
-tab_no = sy-tabix.
wa_dc
-name = sy-uname.
wa_dc
-key1 = wa_header-vbeln_im.
wa_dc
-to_go = 'X'.
APPEND wa_dc TO gt_dc.
wa_header
-count_prt = wa_header-count_prt + 1.
MODIFY TABLE gt_header_show FROM wa_header.
ENDLOOP.
MODIFY ztbjdyzt FROM TABLE gt_dc.
COMMIT WORK.
DATA stbl TYPE lvc_s_stbl.
stbl
-row = 'X'." 基于行的稳定刷新
stbl
-col = 'X'." 基于列稳定刷新
CALL METHOD ref_grid->refresh_table_display
EXPORTING
is_stable
= stbl.
ENDIF.
CLEAR gt_dc[].
CLEAR job_output_info.
ENDFORM.
FORM frm_print_data.
forms
= forms + 1.
DATA: ls_compop TYPE ssfcompop.
DATA: ls_job_output_info TYPE ssfcrescl.
DATA :lt_itcoo TYPE itcoo OCCURS 0. "Smart Forms: OTF 结构
itemsname
= sy-uname && forms && '1' && sy-datum && sy-uzeit.
headername
= sy-uname && forms && '2' && sy-datum && sy-uzeit.
savebuffer gt_items_n_temp itemsname
.
savebuffer gt_header_temp headername
.
* PTR_COUNT = GV_COUNT .
*调用 smartForms
ls_compop
-tddest = 'DEFAULT'.
ls_compop
-tdnoprev = 'X'.
ls_compop
-tdiexit = 'X'.
CALL FUNCTION fm_name
EXPORTING
control_parameters
= control_parameters
output_options
= ls_compop
user_settings
= 'X'
ptr_items
= itemsname
ptr_header
= headername
* IMPORTING
* job_output_info = job_output_info
* PTR_TOTAL = GV_COUNT
EXCEPTIONS
formatting_error
= 1
internal_error
= 2
send_error
= 3
user_canceled
= 4.
"MOVE: job_output_info-otfdata[] TO lt_itcoo. "智能表: OTF表
"将OTF表转换成PDF格式
"PERFORM covert_pdf TABLES lt_itcoo.
clearbuffer itemsname
.
clearbuffer headername
.
CLEAR gt_header_temp.
CLEAR gt_items_n_temp.
"PERFORM frm_smartforms_to_pdf.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form user_command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_UCOMM text
* -->PS_SELFIELD text
*----------------------------------------------------------------------*
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield
TYPE slis_selfield.
" rs_selfield-refresh = 'X'.
CASE r_ucomm.
WHEN '&DATA_SAVE'.
WHEN '&PRINT' OR '&PRT'.
PERFORM print.
WHEN '&BACK'.
LEAVE TO SCREEN 0.
ENDCASE.
ENDFORM. "user_command
*&---------------------------------------------------------------------*
*& Form SET_PF_STATUS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->RT_EXTAB text
*----------------------------------------------------------------------*
FORM set_pf_status USING rt_extab TYPE slis_t_extab..
SET PF-STATUS 'STANDARD'.
ENDFORM. "SET_PF_STATUS
*&---------------------------------------------------------------------*
*& Form fm_button
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->E_GRID text
*----------------------------------------------------------------------*
FORM fm_button USING e_grid TYPE slis_data_caller_exit.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
* EXPORTING
* IR_SALV_FULLSCREEN_ADAPTER =
IMPORTING
* ET_EXCLUDING =
* E_REPID =
* E_CALLBACK_PROGRAM =
* E_CALLBACK_ROUTINE =
e_grid
= ref_grid
* ET_FIELDCAT_LVC =
* ER_TRACE =
* E_FLG_NO_HTML =
* ES_LAYOUT_KKBLO =
* ES_SEL_HIDE =
* ET_EVENT_EXIT =
* ER_FORM_TOL =
* ER_FORM_EOL =
.
* CALL METHOD ref_grid->check_changed_data.
* 设置enter事件
CALL METHOD ref_grid->register_edit_event
EXPORTING
i_event_id
= cl_gui_alv_grid=>mc_evt_enter
EXCEPTIONS
error
= 1
OTHERS = 2.
CREATE OBJECT gt_event_receiver.
SET HANDLER gt_event_receiver->handle_modify FOR ref_grid.
ENDFORM. "FM_BUTTON
FORM covert_pdf TABLES otf_data STRUCTURE itcoo.
DATA: lt_lines TYPE STANDARD TABLE OF tline, "SAPscript: 文字行
lt_docs
TYPE STANDARD TABLE OF docs, "存储文档
l_bin_size
TYPE i. "
"将OTF转换PDF格式
CALL FUNCTION 'CONVERT_OTF_2_PDF'
IMPORTING
bin_filesize
= l_bin_size
TABLES
otf
= otf_data "otf 表
doctab_archive
= lt_docs
lines = lt_lines "文本行
EXCEPTIONS
err_conv_not_possible
= 1
err_otf_mc_noendmarker
= 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
* PERFORM send_mail TABLES gt_lines.
"保存到计算机本地PDF文件
PERFORM download_pdf TABLES lt_lines.
ENDFORM. "covert_pdf
*&---------------------------------------------------------------------*
*& Form download_pdf
*&---------------------------------------------------------------------*
* 保存到本地PDF文件
*----------------------------------------------------------------------*
* -->FU_TAB 文件内容
*----------------------------------------------------------------------*
FORM download_pdf TABLES fu_tab.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
filename
= 'C:\test.pdf' "文件路径
filetype
= 'BIN' "文件类型
codepage
= '8400' "代码页
TABLES
data_tab
= fu_tab "文件内容表
EXCEPTIONS
file_write_error
= 1
no_batch
= 2
gui_refuse_filetransfer
= 3
invalid_type
= 4
no_authority
= 5
unknown_error
= 6
header_not_allowed
= 7
separator_not_allowed
= 8
filesize_not_allowed
= 9
header_too_long
= 10
dp_error_create
= 11
dp_error_send
= 12
dp_error_write
= 13
unknown_dp_error
= 14
access_denied
= 15
dp_out_of_memory
= 16
disk_full
= 17
dp_timeout
= 18
file_not_found
= 19
dataprovider_exception
= 20
control_flush_error
= 21
OTHERS = 22.
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. "DOWNLOAD_PDF
FORM frm_read_txt USING vbeln LIKE likp-vbeln
CHANGING txt .
DATA :lc_name TYPE thead-tdname,
lit_lines
TYPE TABLE OF tline,
lwa_lines
TYPE tline.
CLEAR: lit_lines ,
lc_name
,
lwa_lines
.
lc_name
= vbeln .
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
id = '0001'
language = sy-langu
name
= lc_name
object
= 'VBBK'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
lines = lit_lines
EXCEPTIONS
id = 1
language = 2
name
= 3
not_found
= 4
object
= 5
reference_check
= 6
wrong_access_to_archive
= 7
OTHERS = 8.
IF sy-subrc = 4.
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
id = '0001'
language = sy-langu
name
= lc_name
object
= 'VBBK'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
lines = lit_lines
EXCEPTIONS
id = 1
language = 2
name
= 3
not_found
= 4
object
= 5
reference_check
= 6
wrong_access_to_archive
= 7
OTHERS = 8.
ENDIF.
LOOP AT lit_lines INTO lwa_lines.
* GWA_OUTPUT-RISE_TEXT = LWA_LINES-TDLINE .
CONCATENATE txt lwa_lines-tdline INTO txt.
ENDLOOP.
ENDFORM.
FORM frm_read_txt_po USING vbeln LIKE likp-vbeln posnr LIKE lips-posnr
CHANGING txt .
DATA :lc_name TYPE thead-tdname,
lit_lines
TYPE TABLE OF tline,
lwa_lines
TYPE tline.
CLEAR: lit_lines ,
lc_name
,
lwa_lines
.
lc_name
= vbeln && posnr.
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
id = '0001'
language = sy-langu
name
= lc_name
object
= 'VBBP'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
lines = lit_lines
EXCEPTIONS
id = 1
language = 2
name
= 3
not_found
= 4
object
= 5
reference_check
= 6
wrong_access_to_archive
= 7
OTHERS = 8.
IF sy-subrc = 4.
CALL FUNCTION 'READ_TEXT'
EXPORTING
* CLIENT = SY-MANDT
id = '0001'
language = sy-langu
name
= lc_name
object
= 'VBBP'
* ARCHIVE_HANDLE = 0
* LOCAL_CAT = ' '
* IMPORTING
* HEADER =
TABLES
lines = lit_lines
EXCEPTIONS
id = 1
language = 2
name
= 3
not_found
= 4
object
= 5
reference_check
= 6
wrong_access_to_archive
= 7
OTHERS = 8.
ENDIF.
LOOP AT lit_lines INTO lwa_lines.
* GWA_OUTPUT-RISE_TEXT = LWA_LINES-TDLINE .
CONCATENATE txt lwa_lines-tdline INTO txt.
ENDLOOP.
ENDFORM.