SPAN {font-family：" Courier New"; 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 {font-style：italic; 颜色：#808080; } .L0S52 {color：#0000FF; } *＆----------------------------------------------- ---------------------- *
*＆包括ZSD_DELIVERY_STATEMENT
*＆--------------- -------------------------------------------------- ---- *
带有标题标题文本001的B1块的选择屏幕开始。

选择选项：VBAK-VBELN的P_VBELN。
选择选项：VBAP-WERKS的P_WERKS 。
选择选项：VBAK-KUNNR的P_KUNNR。

B1块的选择屏幕结尾。

SPAN {font-family：" Courier New"; 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 {font-style：italic; 颜色：#808080; } .L0S52 {color：#0000FF; } *＆----------------------------------------------- ---------------------- *
*＆包括ZSD_DELIVERY_DATA_NEW
*＆--------------- -------------------------------------------------- ---- *
表格GET_DATA。

选择VBELN"销售订单
KUNNR"从VBAK出售给派对
到表IT_VBAK
中，P_VBELN中的VBELN AND < br> KUNNR IN P_KUNNR。


从VBAP中选择VBELN"销售订单
WERKS"工厂

到表IT_VBAP
中，在P_WERKS中工作。

>选择KUNNR"客户编号
NAME1" PARTY NAME
从KNA1到表IT_KNA1中。

ENDFORM。


FINAL_DATA形式。
* LOOP。
如果IT_VBAK 不是初始的。

将IT_VBAK插入WA_VBAK。

用键VBELN = WA_VBAP-VBELN将表IT_VBAK读入WA_VBAK。
使用键KUNNR = WA_VB将表IT_KNA1读入WA_KNA1 。
用键VBELN = WA_VBAK-VBELN将表IT_VBAP读入WA_VBAP。
WA_FINAL-VBELN = WA_VBAK-VBELN。
WA_FINAL-KUNNR = WA_VBAK-KUNNR。
WA_FINAL-CMG ST = WA_VBUK-CMGST。
WA_FINAL-WERKS = WA_VBAP-WERKS。
WA_FINAL-NAME1 = WA_KNA1-NAME1。
将WA_FINAL附加到IT_FINAL。
清除：WA_FINAL，WA_VBAK，WA_KNA1，WA_VBAP。 br>
*要从VBAK将数据插入ZVBAK *

将IT_FINAL循环到WA_FINAL。
将WA_FINAL-VBELN移至WA_ZVBAK-VBELN。
将WA_FINAL-KUNNR移至WA_ZVBAK-KUNNR。
将WA_FINAL-CMGST移至WA_ZVBAK-CMGST。
将WA_FINAL-WERKS移至WA_ZVBAK-WERKS。
将WA_FINAL-NAME1移至WA_ZVBAK-NAME1。
从WA_FINAL插入ZVBAK。

ENDLOOP。

ENDLOOP。
ENDIF。
ENDFORM。

SPAN {font-family：" Courier New"; 字体大小：10pt； 颜色：#000000; 背景：#FFFFFF; } .L0S31 {font-style：italic; 颜色：#808080; } .L0S33 {color：#4DA619; } .L0S52 {color：#0000FF; }选择开始。



执行GET_DATA。
执行FINAL_DATA。
执行保存数据。




END-OF- 选择。

执行FIELD_CAT。
*＆---------------------------------- ----------------------------------- *
*＆表格FIELD_CAT
*＆- -------------------------------------------------- ----------------- *
*文字
* ----------------------- ----------------------------------------------- *
*-> p1文本
* <-p2文本
* ------------------------------ ---------------------------------------- *
FORM FIELD_CAT。

WA_FCAT-FIELDNAME ='VBELN'。
WA_FCAT-REF_TABNAME ='IT_FINAL'。
WA_FCAT-SELTEXT_L ='销售订单'。
将WA_FCAT附加到IT_FCAT。

WA_FCAT- FIELDNAME ='WERKS'。
WA_FCAT-REF_TABNAME ='IT_FINAL'。
WA_FCAT-SELTEXT_L ='PLANT'。
将WA_FCAT附加到IT_FCAT。

WA_FCAT-FIELDNAME ='KUNNR'。
WA_FCAT-REF_TABNAME ='IT_FINAL'。
WA_FCAT-SELTEXT_L ='已出售给聚会'。
将WA_FCAT附加到IT_FCA T.

WA_FCAT-FIELDNAME ='NAME1'。
WA_FCAT-REF_TABNAME ='IT_FINAL'。
WA_FCAT-SELTEXT_L ='PARTY NAME'。
将WA_FCAT附加到IT_FCAT。


调用函数'REUSE_ALV_GRID_DISPLAY'
导出
i_callback_program = sy-repid
it_fieldcat = it_fcat"通向ALV的目录目录
I_CALLBACK_PF_STATUS_SET ='PF_STATUS_SET'（003）
AND_USER ='USER_COMMAND'（002）

表
t_outtab = it_final。


ENDFORM。 " FIELD_CAT

表单保存数据。

设置PF-状态'SAVE'。
案例SY-UCOMM。
当'SAVE'（004）时。
从中插入ZVBAK 表IT_FINAL。
ENDCASE。

ENDFORM。