没有合适的资源？快使用搜索试试~ 我知道了~

文库首页课程资源专业指导SAP相关报表的制作代码

SAP相关报表的制作代码

需积分: 18 8 下载量 17 浏览量 2009-10-10 08:58:33 上传评论 1 收藏 148KB DOC 举报

温馨提示

试读

31页

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.

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页未读，继续阅读

评论收藏

内容反馈

资源评论

资源反馈

评论星级较低，若资源使用遇到问题可联系上传者，3个工作日内问题未解决可申请退款~

nhwinshan

粉丝: 0
资源: 2

上传资源快速赚钱

我的内容管理展开

我的资源快来上传第一个资源

我的收益

登录查看自己的收益

我的积分登录查看自己的积分

我的C币登录后查看C币余额

我的收藏

我的下载

下载帮助

前往需求广场，查看用户热搜

SAP相关报表的制作代码

SAP BO报表制作

SAP外挂报表系统 - ABAP Report - C# Winform源代码

SAP自开发报表月操作次数统计报表源码

SAP财务报表查询清单V0 5

SAP- Query报表事务代码分配及配置操作手册

SAPQuery报表设计

SAP中报表连续打印方法

SAP 报表绘制器GRR3操作手册

sap abap 报表格式设置方法

SAP ALV报表开发指南.docx

SAP-MM-代码大全

SAP 标准报表增加字段的方法介绍

SAP ALV报表开发指南.pdf

sap报表开发基础和知识讲解

SAP ALV报表开发介绍.pdf

SAP数据库报表开发教程

SAP-MRP计划库存发运报表DEMO

sap erp财务报表处理

SAP财务三大报表源码.zip_FICO_SAP_财务三大报表

python大作业 含爬虫、数据可视化、地图、报告、及源码（整和为一个文件）（2014-2020全国各地区原油加工量）.rar

仿真电路以及操作方法

【纯干货啊】华为IPD流程管理(完整版).pptx

可编程语言标准IEC61131-3中文版.pdf

OFDM完整仿真过程与教程.zip

信号与系统——保研复习资料.pdf

Landsat_WRS2.zip

最全的Visio形状/图形库

AxureRP9项目原型50套、案例20个、元件库1套.zip

最新资源

python大作业含爬虫、数据可视化、地图、报告、及源码（整和为一个文件）（2014-2020全国各地区原油加工量）.rar