分享
 
 
 

粘贴过来个表学习下

王朝other·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

***************************************

* 定义一个报表,非标准报表,

* 定义长度为70行,宽度为200.

***************************************

REPORT ZMMSPT NO STANDARD PAGE HEADING LINE-COUNT 70 LINE-SIZE 200.

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

*& 海烟物流运营部备件及价格明细表

*& Created by Hand

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

TABLES: MKPF,

MSEG,

MAKT,

MBEW,

MARD.

******************************

* 数据定义

******************************

DATA: BEGIN OF ITAB_SPT OCCURS 0,

MATNR LIKE MSEG-MATNR,"物料号

MAKTX LIKE MAKT-MAKTX, "物料描述

LABST LIKE MARD-LABST, "库存数量

SUM_PUR LIKE MSEG-ERFMG,"累计购货数量

SUM_RET LIKE MSEG-ERFMG,"累计退货数量

SUM_GR LIKE MSEG-ERFMG,"累计收货数量

SUM_GI LIKE MSEG-ERFMG,"累计发货数量

VERPR LIKE MBEW-VERPR, "单价

VERPRTTL LIKE MBEW-VERPR, "总价

END OF ITAB_SPT.

***************************************

* 定义一个内部表的副本.包含ITAB_SPT的机构.

*

***************************************

DATA BEGIN OF ITAB_SPT_TMP OCCURS 0.

INCLUDE STRUCTURE ITAB_SPT.

DATA END OF ITAB_SPT_TMP.

***************************************

* 定义一个SQL字符内表.

*

***************************************

DATA: BEGIN OF ITAB_SQL OCCURS 0,

SQL_TXT(72),

END OF ITAB_SQL.

***************************************

* 定义一个总类的统计内表,用来存放

* 计算后的数据的结果.

***************************************

DATA: BEGIN OF ITAB_SUM_NUM OCCURS 0,

MATNR LIKE MSEG-MATNR,

MBLNR LIKE MSEG-MBLNR,

BWART LIKE MSEG-BWART,

SMBLN LIKE MSEG-SMBLN,

ERFMG LIKE MSEG-ERFMG,

END OF ITAB_SUM_NUM.

***************************************

* 定义一些长量.

*

***************************************

CONSTANTS: CNS_PLANT LIKE MARD-WERKS VALUE '1000', "工厂

CNS_STG_LOC LIKE MARD-LGORT VALUE '0071',"存储地点

CNS_PAGE_LINES TYPE I VALUE 30, "每页显示行数+1

CNS_MATERIAL_TYPE LIKE MARA-MTART VALUE 'FERT'."物料类型

***************************************

* LAYOUT.定义画面查询输入条件.

*

***************************************

SELECTION-SCREEN BEGIN OF BLOCK RAD1 WITH FRAME

TITLE TEXT-000.

"记帐日期

SELECT-OPTIONS: BUDAT FOR MKPF-BUDAT OBLIGATORY,

MATNR FOR MSEG-MATNR."物料号

PARAMETERS MAKTX LIKE MAKT-MAKTX. "物料描述

SELECT-OPTIONS: LABST1 FOR MARD-LABST, "库存数量

GRNUM FOR MSEG-ERFMG, "累计收货数量

GINUM FOR MSEG-ERFMG, "累计发货数量

VERPR1 FOR MBEW-VERPR, "物料单价

VERPRTTL FOR MBEW-VERPR."物料总价

SELECTION-SCREEN END OF BLOCK RAD1.

******************************

* AT SELECTION-SCREEN检查输入.

*

******************************

AT SELECTION-SCREEN.

"取明细数据

CLEAR ITAB_SPT.

CLEAR ITAB_SPT[].

PERFORM FRM_GET_DATA TABLES ITAB_SPT.

******************************

*START-OF-SELECTION.

******************************

START-OF-SELECTION.

SET PF-STATUS 'TEST'.

* 数据输出

PERFORM FRM_DATA_OUTPUT.

******************************

* AT LINE-SELECTION.

* 设置一些事件.让用户选择物料号码,就显示详细信息.

******************************

*AT LINE-SELECTION.

* 弹出窗口方式

* WINDOW STARTING AT 40 10 ENDING AT 70 20.

* WRITE : / ITAB_SPT-MATNR.

* 新开REPORT方式

* WRITE: /XXXXXX.

******************************

* AT USER-COMMAND.

* 用户自己定义了PF-STATUS 'TEST'里面

* 定义了F2的FUNCTION CODE为USER_F2

* 所以在这里处理F2的事件.

******************************

AT USER-COMMAND.

CASE SY-UCOMM.

WHEN 'USER_F2'.

WRITE:/ ITAB_SPT-MATNR.

* 以下类型不匹配,所以注释.用户单点一个数据.

* CALL 下一个事物码,把必要参数传入,然后跳入下一屏幕

* RUN MBO3 ,F1,浪头,然后看参数ID.里面是需要的接口.

* SET PARAMETER ID 'MBN' FIELD ITAB_SPT-MATNR.

* call transACtion 'MB03' AND SKIP FIRST SCREEN.

WHEN 'SAVE'.

WRITE:/ 'YOU CLICK SAVE'.

ENDCASE.

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

*& Form FRM_GET_DATA

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

* 取明细数据

*----------------------------------------------------------------------*

* -->P_ITAB_SPT text

*----------------------------------------------------------------------*

FORM FRM_GET_DATA TABLES P_ITAB_SPT STRUCTURE ITAB_SPT.

* 取物料号

PERFORM FRM_GET_MATNR TABLES ITAB_SPT.

* 检查取出到ITAB_SPT的物料数据.是否为空.

* 如果为空就输出错误信息.

PERFORM FRM_CHK_COUNT TABLES ITAB_SPT.

* 删除物料类型不符的数据

PERFORM FRM_CHK_MTYPE TABLES ITAB_SPT.

* 检查取出到ITAB_SPT的物料数据.是否为空.

* 如果为空就输出错误信息.

PERFORM FRM_CHK_COUNT TABLES ITAB_SPT.

* 取物料描述和库存数量

PERFORM FRM_GET_MTX_LST TABLES ITAB_SPT.

* 检查取出到ITAB_SPT的物料数据.是否为空.

* 如果为空就输出错误信息.

PERFORM FRM_CHK_COUNT TABLES ITAB_SPT.

* 取物料单价和总价

* PERFORM FRM_GET_VERPR TABLES ITAB_SPT.

* PERFORM FRM_CHK_COUNT TABLES ITAB_SPT.

* 累计数量

CLEAR ITAB_SUM_NUM.

CLEAR ITAB_SUM_NUM[].

PERFORM FRM_SUM_NUM TABLES ITAB_SUM_NUM ITAB_SPT.

PERFORM FRM_CHK_COUNT TABLES ITAB_SPT.

ENDFORM. " FRM_GET_DATA

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

*& Form FRM_GET_MATNR

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

* 取物料号

*----------------------------------------------------------------------*

* -->P_ITAB_SPT text

*----------------------------------------------------------------------*

FORM FRM_GET_MATNR TABLES P_ITAB_SPT STRUCTURE ITAB_SPT.

SELECT DISTINCT G~MATNR

INTO CORRESPONDING FIELDS OF TABLE P_ITAB_SPT

FROM MKPF AS F INNER JOIN MSEG AS G

ON F~MBLNR = G~MBLNR "物料凭证编号

AND F~MJAHR = G~MJAHR "物料凭证的年份

WHERE F~BUDAT IN BUDAT

AND G~MATNR IN MATNR.

ENDFORM. " FRM_GET_MATNR

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

*& Form FRM_GET_MTX_LST

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

* 取物料描述和库存数量

*----------------------------------------------------------------------*

* -->P_ITAB_SPT text

*----------------------------------------------------------------------*

FORM FRM_GET_MTX_LST TABLES P_ITAB_SPT STRUCTURE ITAB_SPT.

* 动态SQL生成

CLEAR ITAB_SQL.

CLEAR ITAB_SQL[].

"物料描述

* 把用户输入的物料描述,组织成查询语言.

* 在下面调用.因为传入的只是内表字段

* 所以在字段内容改变后,要添加到内表中.

PERFORM FRM_DY_SQL_MAKTX CHANGING ITAB_SQL-SQL_TXT.

APPEND ITAB_SQL.

SELECT T~MATNR T~MAKTX D~LABST

INTO CORRESPONDING FIELDS OF TABLE ITAB_SPT_TMP

FROM MAKT AS T INNER JOIN MARD AS D

ON T~MATNR = D~MATNR

FOR ALL ENTRIES IN P_ITAB_SPT

WHERE T~MATNR = P_ITAB_SPT-MATNR

AND T~SPRAS = SY-LANGU

AND D~WERKS = CNS_PLANT

AND D~LGORT = CNS_STG_LOC

AND D~LABST IN LABST1

* ()来引用上面的内表做查询条件.

AND (ITAB_SQL).

* 把查询出来的结构放入临时表,

* 然后再放入P_ITAB_SPT(他改变会改变ITAB_SPT)

MOVE ITAB_SPT_TMP[] TO P_ITAB_SPT[].

ENDFORM. " FRM_GET_MTX_LST

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

*& Form FRM_DY_SQL_MAKTX

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

* 物料描述

*----------------------------------------------------------------------*

* <--P_SQL_TXT text

*----------------------------------------------------------------------*

FORM FRM_DY_SQL_MAKTX CHANGING P_SQL_TXT.

* 定义一个临时的变量.用来存放中转.

DATA L_MAKTX LIKE MAKT-MAKTX.

L_MAKTX = MAKTX.

CONDENSE L_MAKTX.

CONCATENATE 'T~MAKTX LIKE ''%' L_MAKTX '%''' INTO P_SQL_TXT.

* MAKTX(物料描述),去数据库中查询,只要物料描述中包含用户输入的.

* 取出输入框中的自符. 匹配成

* T~MAKTX LIKE '%L_MAKTX%' INTO P_SQL_TXT.

ENDFORM. " FRM_DY_SQL_MAKTX

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

*& Form FRM_GET_VERPR

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

* 取物料单价和总价

*----------------------------------------------------------------------*

* -->P_ITAB_SPT text

*----------------------------------------------------------------------*

FORM FRM_GET_VERPR TABLES P_ITAB_SPT STRUCTURE ITAB_SPT.

SELECT MATNR VERPR

INTO CORRESPONDING FIELDS OF TABLE ITAB_SPT_TMP

FROM MBEW

FOR ALL ENTRIES IN P_ITAB_SPT

WHERE MATNR = P_ITAB_SPT-MATNR

AND VERPR IN VERPR1.

LOOP AT ITAB_SPT_TMP.

READ TABLE P_ITAB_SPT WITH KEY MATNR = ITAB_SPT_TMP-MATNR.

ITAB_SPT_TMP-MAKTX = P_ITAB_SPT-MAKTX.

ITAB_SPT_TMP-LABST = P_ITAB_SPT-LABST.

ITAB_SPT_TMP-VERPRTTL = ITAB_SPT_TMP-VERPR * ITAB_SPT_TMP-LABST.

MODIFY ITAB_SPT_TMP.

ENDLOOP.

MOVE ITAB_SPT_TMP[] TO P_ITAB_SPT[].

"剔除不符合用户输入的总价

DELETE P_ITAB_SPT WHERE NOT VERPRTTL IN VERPRTTL.

ENDFORM. " FRM_GET_VERPR

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

*& Form FRM_CHK_COUNT

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

* 检查数据条数

*----------------------------------------------------------------------*

* -->P_ITAB_SPT text

*----------------------------------------------------------------------*

FORM FRM_CHK_COUNT TABLES P_ITAB_SPT STRUCTURE ITAB_SPT.

DATA L_COUNT TYPE I.

* 取出传入的内表的总数据跳数.如果为0

* 则报一个错误.

DESCRIBE TABLE P_ITAB_SPT LINES L_COUNT.

IF L_COUNT = 0.

MESSAGE E429(MO).

ENDIF.

ENDFORM. " FRM_CHK_COUNT

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

*& Form FRM_SUM_NUM

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

* 累计数量

*----------------------------------------------------------------------*

* -->P_ITAB_SUM_NUM text

*----------------------------------------------------------------------*

FORM FRM_SUM_NUM TABLES P_ITAB_SUM_NUM STRUCTURE ITAB_SUM_NUM

P_ITAB_SPT STRUCTURE ITAB_SPT.

DATA L_ITAB_TMP LIKE ITAB_SUM_NUM OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF L_ITAB_COLLECT OCCURS 0,

MATNR LIKE MSEG-MATNR,

TTL_GI TYPE I,

TTL_PUR TYPE I,

TTL_RET TYPE I,

END OF L_ITAB_COLLECT.

* 取出符合移动类型的数据

SELECT G~MBLNR G~BWART G~SMBLN G~ERFMG G~MATNR

INTO CORRESPONDING FIELDS OF TABLE P_ITAB_SUM_NUM

FROM MKPF AS F INNER JOIN MSEG AS G

ON F~MBLNR = G~MBLNR "物料凭证编号

AND F~MJAHR = G~MJAHR "物料凭证的年份

WHERE G~BWART IN ('201','X01','261','101','262','X02','202','102')

AND F~BUDAT IN BUDAT

AND G~MATNR IN MATNR

AND G~INSMK = ''.

MOVE P_ITAB_SUM_NUM[] TO L_ITAB_TMP[].

* 删除冲销记录

LOOP AT L_ITAB_TMP WHERE BWART <> '101' AND SMBLN <> ''.

DELETE P_ITAB_SUM_NUM WHERE MBLNR = L_ITAB_TMP-SMBLN.

DELETE P_ITAB_SUM_NUM WHERE MBLNR = L_ITAB_TMP-MBLNR.

ENDLOOP.

DELETE P_ITAB_SUM_NUM WHERE BWART = '102'.

* 汇总不同类型的累计数据

CLEAR L_ITAB_COLLECT[].

LOOP AT P_ITAB_SUM_NUM.

CLEAR L_ITAB_COLLECT.

L_ITAB_COLLECT-MATNR = P_ITAB_SUM_NUM-MATNR.

"累计发货数量

IF P_ITAB_SUM_NUM-BWART = '201' OR P_ITAB_SUM_NUM-BWART = 'X01'

OR P_ITAB_SUM_NUM-BWART = '261'.

L_ITAB_COLLECT-TTL_GI = P_ITAB_SUM_NUM-ERFMG.

ENDIF.

"累计购货数量

IF P_ITAB_SUM_NUM-BWART = '101'.

L_ITAB_COLLECT-TTL_PUR = P_ITAB_SUM_NUM-ERFMG.

ENDIF.

"累计退货数量

IF P_ITAB_SUM_NUM-BWART = '202' OR P_ITAB_SUM_NUM-BWART = 'X02'

OR P_ITAB_SUM_NUM-BWART = '262'.

L_ITAB_COLLECT-TTL_RET = P_ITAB_SUM_NUM-ERFMG.

ENDIF.

COLLECT L_ITAB_COLLECT.

ENDLOOP.

* 更新主表数据

LOOP AT P_ITAB_SPT.

READ TABLE L_ITAB_COLLECT WITH KEY MATNR = P_ITAB_SPT-MATNR.

IF SY-SUBRC = 0.

P_ITAB_SPT-SUM_PUR = L_ITAB_COLLECT-TTL_PUR.

P_ITAB_SPT-SUM_RET = L_ITAB_COLLECT-TTL_RET.

P_ITAB_SPT-SUM_GR = L_ITAB_COLLECT-TTL_RET +

L_ITAB_COLLECT-TTL_PUR.

P_ITAB_SPT-SUM_GI = L_ITAB_COLLECT-TTL_GI.

MODIFY P_ITAB_SPT.

ELSE.

DELETE P_ITAB_SPT.

ENDIF.

ENDLOOP.

* 剔除不符合用户输入的累计收货数量

DELETE P_ITAB_SPT WHERE NOT SUM_GR IN GRNUM.

* 剔除不符合用户输入的累计发货数量

DELETE P_ITAB_SPT WHERE NOT SUM_GI IN GINUM.

ENDFORM. " FRM_SUM_NUM

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

*& Form FRM_WRT_HEAD

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

* 表头

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM FRM_WRT_HEAD.

DATA L_BUDAT_HIGH LIKE MKPF-BUDAT.

L_BUDAT_HIGH = BUDAT-HIGH.

CONDENSE L_BUDAT_HIGH.

WRITE 60 '海烟物流运营部备件及价格明细表'.

WRITE:/ '时间范围: ' NO-GAP, BUDAT-LOW NO-GAP.

IF L_BUDAT_HIGH <> '00000000'.

WRITE: '至' NO-GAP, L_BUDAT_HIGH.

ENDIF.

ENDFORM. " FRM_WRT_HEAD

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

*& Form FRM_WRT_TIT

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

* 数据标题

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM FRM_WRT_TIT.

* FORMAT COLOR COL_HEADING.

WRITE /(165) SY-ULINE.

WRITE:/(1) SY-VLINE, (4) '序号',

(1) SY-VLINE, (10) '物料号',

(1) SY-VLINE, (40) '物料描述',

(1) SY-VLINE, (10) '库存数量' CENTERED,

(1) SY-VLINE, (10) '累计购货' CENTERED,

(1) SY-VLINE, (10) '累计退货' CENTERED,

(1) SY-VLINE, (10) '累计收货' CENTERED,

(1) SY-VLINE, (10) '累计发货' CENTERED,

(1) SY-VLINE, (15) '单价(RMB)' CENTERED,

(1) SY-VLINE, (15) '总金额(RMB)' CENTERED,

(1) SY-VLINE.

WRITE:/(1) SY-VLINE,

(6) SY-VLINE RIGHT-JUSTIFIED,

(12) SY-VLINE RIGHT-JUSTIFIED,

(42) SY-VLINE RIGHT-JUSTIFIED,

(12) SY-VLINE RIGHT-JUSTIFIED,

(10) '数量' CENTERED, (1) SY-VLINE,

(10) '数量' CENTERED, (1) SY-VLINE,

(10) '数量' CENTERED, (1) SY-VLINE,

(10) '数量' CENTERED, (1) SY-VLINE,

(15) ' ' CENTERED, (1) SY-VLINE,

(15) ' ' CENTERED, (1) SY-VLINE.

WRITE /(165) SY-ULINE.

ENDFORM. " FRM_WRT_TIT

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

*& Form FRM_WRT_FOOT

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

* 数据尾

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM FRM_WRT_FOOT.

DATA: L_LINE TYPE I,

L_COUNT TYPE I,

L_MOD TYPE I.

DESCRIBE TABLE ITAB_SPT LINES L_LINE.

L_COUNT = L_LINE DIV ( CNS_PAGE_LINES - 1 ).

L_MOD = L_LINE MOD ( CNS_PAGE_LINES - 1 ).

IF L_MOD > 0.

L_COUNT = L_COUNT + 1.

ENDIF.

FORMAT COLOR COL_BACKGROUND.

WRITE:/ '备件及价格明细表', 75 '报表生成日期:', SY-DATUM,

140 '页码:', SY-PAGNO LEFT-JUSTIFIED NO-GAP,

'/' NO-GAP, L_COUNT LEFT-JUSTIFIED NO-GAP.

ENDFORM. " FRM_WRT_FOOT

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

*& Form FRM_WRT_DATA

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

* 主数据

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM FRM_WRT_DATA.

DATA: L_LABST(15),

L_SUM_PUR(15),

L_SUM_RET(15),

L_SUM_GR(15),

L_SUM_GI(15).

L_LABST = ITAB_SPT-LABST.

L_LABST = L_LABST+0(10).

L_SUM_PUR = ITAB_SPT-SUM_PUR.

L_SUM_PUR = L_SUM_PUR+0(10).

L_SUM_RET = ITAB_SPT-SUM_RET.

L_SUM_RET = L_SUM_RET+0(10).

L_SUM_GR = ITAB_SPT-SUM_GR.

L_SUM_GR = L_SUM_GR+0(10).

L_SUM_GI = ITAB_SPT-SUM_GI.

L_SUM_GI = L_SUM_GI+0(10).

WRITE:/(1) SY-VLINE, (4) SY-TABIX LEFT-JUSTIFIED,

(1) SY-VLINE, (10) ITAB_SPT-MATNR,

(1) SY-VLINE, (40) ITAB_SPT-MAKTX,

(1) SY-VLINE, (10) L_LABST,

(1) SY-VLINE, (10) L_SUM_PUR,

(1) SY-VLINE, (10) L_SUM_RET,

(1) SY-VLINE, (10) L_SUM_GR,

(1) SY-VLINE, (10) L_SUM_GI,

(1) SY-VLINE, ITAB_SPT-VERPR,

(1) SY-VLINE, ITAB_SPT-VERPRTTL,

(1) SY-VLINE.

hide ITAB_SPT-MATNR.

WRITE /(165) SY-ULINE.

ENDFORM. " FRM_WRT_DATA

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

*& Form FRM_DATA_OUTPUT

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

* 数据输出

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM FRM_DATA_OUTPUT.

DATA L_COUNT LIKE SY-TABIX.

DATA: L_COUNT2 TYPE I.

* L_COUNT3 TYPE I.

* 表头

PERFORM FRM_WRT_HEAD.

* 数据标题

PERFORM FRM_WRT_TIT.

L_COUNT = 0.

* L_COUNT2 = 1.

* L_COUNT3 = 1.

SORT ITAB_SPT BY MATNR.

LOOP AT ITAB_SPT.

L_COUNT = L_COUNT + 1.

IF L_COUNT = CNS_PAGE_LINES.

NEW-PAGE.

L_COUNT = 1.

"数据标题

PERFORM FRM_WRT_TIT.

ENDIF.

* "确定文本颜色

* IF L_COUNT2 = L_COUNT3.

* FORMAT COLOR COL_NORMAL.

* L_COUNT2 = L_COUNT2 + 1.

* ELSE.

* FORMAT COLOR COL_KEY.

* L_COUNT3 = L_COUNT2.

* ENDIF.

"主数据

PERFORM FRM_WRT_DATA.

L_COUNT = L_COUNT + 1.

IF L_COUNT = CNS_PAGE_LINES.

"数据尾

PERFORM FRM_WRT_FOOT.

ENDIF.

L_COUNT = L_COUNT - 1.

AT LAST.

"空数据

L_COUNT2 = CNS_PAGE_LINES - L_COUNT - 1.

DO L_COUNT2 TIMES.

PERFORM FRM_WRT_NULL.

ENDDO.

ENDAT.

ENDLOOP.

"数据尾

L_COUNT = L_COUNT + 1.

IF L_COUNT <> CNS_PAGE_LINES.

PERFORM FRM_WRT_FOOT.

ENDIF.

ENDFORM. " FRM_DATA_OUTPUT

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

*& Form FRM_CHK_MTYPE

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

* 删除物料类型不符的数据

*----------------------------------------------------------------------*

* -->P_ITAB_SPT text

*----------------------------------------------------------------------*

FORM FRM_CHK_MTYPE TABLES P_ITAB_SPT STRUCTURE ITAB_SPT.

* 去掉重复的数据条目.然后把数据插入一个前面定义的

* 临时的ITAB_SPT_TMP(和ITAB_SPT的结构类型一样的.)

SELECT DISTINCT MATNR

INTO CORRESPONDING FIELDS OF TABLE ITAB_SPT_TMP

FROM MARA

FOR ALL ENTRIES IN P_ITAB_SPT

WHERE MATNR = P_ITAB_SPT-MATNR

AND MTART = CNS_MATERIAL_TYPE.

* 然后把数据从临时表插入到P_ITAB_SPT

MOVE ITAB_SPT_TMP[] TO P_ITAB_SPT[].

* 系统返回的时候,会自己把P_ITAB_SPT的数据放入

* ITAB_SPT.

* 属于引用参数.会改变ITAB-SPT的直.

ENDFORM. " FRM_CHK_MTYPE

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

*& Form FRM_WRT_NULL

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

* 空数据

*----------------------------------------------------------------------*

* --> p1 text

* <-- p2 text

*----------------------------------------------------------------------*

FORM FRM_WRT_NULL.

WRITE:/(1) SY-VLINE, (4) ' ',

(1) SY-VLINE, (10) ' ',

(1) SY-VLINE, (40) ' ',

(1) SY-VLINE, (10) ' ',

(1) SY-VLINE, (10) ' ',

(1) SY-VLINE, (10) ' ',

(1) SY-VLINE, (10) ' ',

(1) SY-VLINE, (10) ' ',

(1) SY-VLINE, (15) ' ',

(1) SY-VLINE, (15) ' ',

(1) SY-VLINE.

WRITE /(165) SY-ULINE.

ENDFORM. " FRM_WRT_NULL

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有