没有合适的资源?快使用搜索试试~ 我知道了~
首页SAP相关报表的制作代码
SAP相关报表的制作代码
需积分: 18 8 下载量 114 浏览量
更新于2023-03-16
评论 1
收藏 148KB DOC 举报
SAP相关报表的制作代码SAP相关报表的制作代码SAP相关报表的制作代码
资源详情
资源评论
资源推荐
***********************************************************************
* Request ID : DEVK952079 *
* Programmer : JLIN *
* Date : AUS-19 2009 *
* Description : copy from 008zj and added data of 111q *
* Requestor : william chen /chan ao *
***********************************************************************
REPORT zsdrp008cn LINE-SIZE 80 LINE-COUNT 60 NO STANDARD PAGE HEADING
MESSAGE-ID z1.
INCLUDE: zlibrary, zbcie003, zbcie002.
TABLES: vbfa, "Sales Document Flow
likp,
vbpa,
knmt,
kna1,
vbkd, "Sales Document: Business Data
vbuk,
vbep, "Sales Document: Schedule Line Da
lips, "sd document: delivery: item data
mara,
mcha,lfa1,wyt3.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
*PARAMETERS: p_comp LIKE tvko-vkorg DEFAULT 'ZJ01' NO-DISPLAY.
SELECT-OPTIONS: s_plant FOR lips-werks,
s_dist FOR lips-vtweg,
s_deli FOR likp-vbeln OBLIGATORY.
*PARAMETERS: p_tax AS CHECKBOX.
PARAMETERS: p_show AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b1.
DATA: temp_kunag LIKE likp-kunag,
temp_kunnr LIKE likp-kunnr,
temp_vbeln LIKE likp-vbeln,
temp_posnr LIKE lips-posnr,
temp_cmgst LIKE vbuk-cmgst,
found_rec(1),
temp_inv(10),
temp_remarks(60),
temp_date LIKE likp-wadat,
tqty LIKE lips-lfimg,
pack_lang_key LIKE kna1-spras,
temp_name1 LIKE kna1-name1,
temp_name2 LIKE kna1-name2,
temp_str1 LIKE adrc-str_suppl1,
temp_str2 LIKE adrc-str_suppl2,
temp_name3 LIKE adrc-name1,
temp_name4 LIKE adrc-name2,
temp_sort LIKE adrc-sort2,
temp_lkey LIKE kna1-spras,
_cnt TYPE i,
temp_co LIKE adrc-name_co,
temp_txt LIKE thead-tdname,
temp_pstyv LIKE lips-pstyv,
temp_matnr LIKE lips-matnr,
temp_plant LIKE lips-werks,
temp_qty LIKE lips-lgmng,
temp_mqty LIKE lips-brgew,
temp_unit LIKE lips-vrkme,
disp_unit(4),
disp_qty(30),
temp_charg LIKE lips-charg,
cargo_no(20),
cur_line TYPE i,
rec_found(1),
found_desc(1),
found2_desc(1),
cur_line1 TYPE i,
cur_line2 TYPE i,
cur_line3 TYPE i,
wa_vbpa LIKE vbpa,
temp_vbelv LIKE vbfa-vbelv,
temp_posnv LIKE vbfa-posnv,
_flag(2),
disp_mqty(30).
DATA: BEGIN OF it_line OCCURS 0.
INCLUDE STRUCTURE tline.
DATA: END OF it_line.
DATA: BEGIN OF it_all OCCURS 20,
vbeln LIKE likp-vbeln,
soldp1 LIKE temp_name1,
soldp2 LIKE temp_name2,
name1 LIKE adrc-name1,
name2 LIKE adrc-name2,
suppl1 LIKE adrc-str_suppl1,
suppl2 LIKE adrc-str_suppl2,
contact_desc(60),
return(1),
vtweg LIKE lips-vtweg,
conno LIKE vbfa-vbeln,
oldcon LIKE vbfa-vbeln,
sono LIKE vbfa-vbeln,
dodate LIKE likp-wadat,
cargo_no(20),
inv(10),
werks LIKE lips-werks,
remarks(60),
END OF it_all.
DATA: BEGIN OF it_del OCCURS 100,
vbeln LIKE likp-vbeln,
line TYPE i,
matnr LIKE mara-matnr,
desc1(21),
desc2(21),
desc3(21),
desc4(21),
pack(21),
qty(21),
mqty(21),
bale(21),
weight(21),
bag1(21),
bag2(21),
charg LIKE lips-charg,
tangle(21),
tcolor(21),
ttype(21),
alltype(21),
tbelt(21),
qrmk(21),
rmk1(21),
rmk2(21),
rmk3(21),
rmk4(21),
oth1(22),
oth2(22),
END OF it_del.
DATA: col1 TYPE i VALUE 1,
col2 TYPE i VALUE 14,
col31 TYPE i VALUE 36,
col3 TYPE i VALUE 37,
col41 TYPE i VALUE 57,
col4 TYPE i VALUE 58,
col5 TYPE i VALUE 80,
col6 TYPE i VALUE 1,
col7 TYPE i VALUE 1.
START-OF-SELECTION.
SELECT vbeln kunnr kunag WADAT_IST
INTO (temp_vbeln, temp_kunnr, temp_kunag, temp_date)
FROM likp WHERE vbeln IN s_deli.
cur_line = 1.
CLEAR it_all.
it_all-vbeln = temp_vbeln.
CLEAR temp_cmgst.
SELECT SINGLE cmgst INTO temp_cmgst
FROM vbuk WHERE vbeln = temp_vbeln.
CHECK temp_cmgst NE 'B'.
CHECK temp_cmgst NE 'C'.
CLEAR pack_lang_key.
SELECT * INTO wa_vbpa FROM vbpa WHERE vbeln = temp_vbeln.
* CLEAR: kna1, adrc, ltext1, ltext2, ltext3, ltext4, ltext5,
* ltext6, ltext7, ltext8.
CLEAR: temp_name1, temp_name2, temp_lkey.
SELECT SINGLE name1 name2 spras INTO (temp_name1, temp_name2,
temp_lkey) FROM kna1 WHERE kunnr = wa_vbpa-kunnr.
CLEAR: temp_name3, temp_name4, temp_sort.
SELECT name1 name2 sort2 str_suppl2 str_suppl1 name_co
INTO (temp_name3, temp_name4, temp_sort, temp_str2, temp_str1,
temp_co) FROM adrc WHERE addrnumber = wa_vbpa-adrnr.
CASE wa_vbpa-parvw.
WHEN 'AG'.
MOVE temp_lkey TO pack_lang_key.
CASE wa_vbpa-adrda.
WHEN 'D'.
MOVE temp_name1 TO it_all-soldp1.
MOVE temp_name2 TO it_all-soldp2.
WHEN 'E'.
MOVE temp_name3 TO it_all-soldp1.
MOVE temp_name4 TO it_all-soldp2.
ENDCASE.
WHEN 'WE'.
CASE wa_vbpa-adrda.
WHEN 'D'.
MOVE temp_name1 TO it_all-name1.
MOVE temp_name2 TO it_all-name2.
MOVE temp_str1 TO it_all-suppl1.
MOVE temp_str2 TO it_all-suppl2.
WHEN 'E'.
MOVE temp_name3 TO it_all-name1.
MOVE temp_name4 TO it_all-name2.
MOVE temp_str1 TO it_all-suppl1.
MOVE temp_str2 TO it_all-suppl2.
ENDCASE.
PERFORM read_contact_desc.
ENDCASE.
EXIT.
ENDSELECT.
ENDSELECT.
SELECT vbelv INTO it_all-conno
FROM vbfa WHERE vbeln = temp_vbeln
AND vbtyp_v IN ('G', 'E').
EXIT.
ENDSELECT.
SELECT bstkd INTO it_all-oldcon
FROM vbkd WHERE vbeln = it_all-conno.
EXIT.
ENDSELECT.
SELECT vbelv INTO it_all-sono
FROM vbfa WHERE vbeln = temp_vbeln
AND vbtyp_v IN ('C', 'E').
EXIT.
ENDSELECT.
it_all-dodate = temp_date.
found_rec = 'F'.
CLEAR: temp_matnr, temp_plant, temp_charg, temp_unit, temp_qty.
SELECT posnr pstyv matnr werks charg vrkme lgmng lfimg kdmat brgew gewei
INTO (temp_posnr, temp_pstyv, temp_matnr, temp_plant, temp_charg,
temp_unit, temp_qty, tqty, lips-kdmat,lips-brgew,lips-gewei)
FROM lips WHERE vbeln = temp_vbeln AND vtweg IN s_dist
AND werks IN s_plant.
CLEAR it_del.
IF temp_pstyv = 'REN'.
it_all-return = 'X'.
ENDIF.
PERFORM get_ref.
it_all-inv = temp_inv.
it_all-werks = temp_plant.
PERFORM get_description.
IF temp_plant = 'CFG1'.
*****get really batch & plant
CLEAR mcha.
SELECT SINGLE * FROM mcha WHERE matnr = temp_matnr
AND werks = temp_plant
AND charg = temp_charg.
temp_charg = mcha-licha.
剩余30页未读,继续阅读
nhwinshan
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 收起
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
会员权益专享
最新资源
- 2022年中国足球球迷营销价值报告.pdf
- 房地产培训 -营销总每天在干嘛.pptx
- 黄色简约实用介绍_汇报PPT模板.pptx
- 嵌入式系统原理及应用:第三章 ARM编程简介_3.pdf
- 多媒体应用系统.pptx
- 黄灰配色简约设计精美大气商务汇报PPT模板.pptx
- 用matlab绘制差分方程Z变换-反变换-zplane-residuez-tf2zp-zp2tf-tf2sos-sos2tf-幅相频谱等等.docx
- 网络营销策略-网络营销团队的建立.docx
- 电子商务示范企业申请报告.doc
- 淡雅灰低面风背景完整框架创业商业计划书PPT模板.pptx
- 计算模型与算法技术:10-Iterative Improvement.ppt
- 计算模型与算法技术:9-Greedy Technique.ppt
- 计算模型与算法技术:6-Transform-and-Conquer.ppt
- 云服务安全风险分析研究.pdf
- 软件工程笔记(完整版).doc
- 电子商务网项目实例规划书.doc
资源上传下载、课程学习等过程中有任何疑问或建议,欢迎提出宝贵意见哦~我们会及时处理!
点击此处反馈
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0