嗨，三聚

我想知道您是否可以提供/编写调用此FORM的程序...

请告诉我您何时或在哪个过程上调用此函数

在此处写下我的代码，该代码已在" vl02n"部分的" POST GOOD ISSUES"上激活

我的应用程序的全部重点是创建一个收货并在收货创建（vl02n）中发布好问题后分配处理单位。

即时通讯遇到各种错误：

• 未分配文件编号

• 先前文档的数据未传输

我非常确定这是由功能????

引起的

这是我的代码：

方法f_ex_le_shp_delivery_proc〜save_document_prepare。

类型：开始于t_hu_numbers，

exidv类型exidv，

毒液类型的毒液，

vepos类型vepos，

matnr类型matnr，

字符类型CHARG_D，

t_hu_numbers的结尾。

数据：类似ct_xlikp的wa_xlikp线，

wa_xvbuk喜欢it_xvbuk的线，

lv_status类型vttk-stlad。

• 由Eyal Cohen添加07.01.08

类型：开始于t_hu_numbers，

exidv类型exidv，

毒液类型的毒液，

vepos类型vepos，

matnr类型matnr，

字符类型CHARG_D，

t_hu_numbers的结尾。

数据：out_del_lines嘴唇的类型表，

wa_out_del_lines像LINE OF out_del_lines，

wa_hu_numbers类型为t_hu_numbers，

hu_numbers类型表t_hu_numbers。

• 用于创建入站传递功能的数据

数据：wa_XVBPA类似于LINE OF CT_XVBPA，

xkomdlgn komdlgn的类型表，

wa_xkomdlgn像LINE OF xkomdlgn，

wa_vbsk_i TYPE vbsk，

• wa_vbsk_i就像LINE OF vbsk_i，

vbfs的xvbfs类型表，

vbls的xvbls类型表，

hu_tab类型hum_rehang_hu_t，

l_sammg类型SAMMG，

电视电视的电视类型表，

wa_tvsa像tvsa行一样，

L_NRNR类型nrnr，

l_number类型整数，

wa_hu_tab类型hum_rehang_hu。

数据：hu_name（15）TYPE C VALUE'V51VE-EXIDV（'，

line_no（2）类型n值'00'，

lifnr类型lifnr，

in_del_num类型为vbeln，

l_out_del类型为vbeln，

l_lifnr类型lifnr，

rfpos类型posnr。

读取表ct_xlikp INTO wa_xlikp索引1。

如果不是is_v50agl-warenausgang是INITIAL，并且wa_xlikp-lfart ='ZNL'。

l_out_del = wa_xlikp-vbeln。

将表CT_XVBPA读入wa_xvbpa索引1。

l_lifnr = wa_XVBPA-lifnr。

• 获取vbsk数据

选择单个*

来自TVSA

放入wa_tvsa

SMART ='L'。

L_NRNR = wa_TVSA-NUMKI。

通话功能" NUMBER_GET_NEXT"

导出

NR_RANGE_NR = L_NRNR

OBJECT ='RV_SAMMG'

导入

NUMBER = wa_vbsk_i-SAMMG

例外

OTHERS = 1。

• wa_vbsk_i-mandt = sy-mandt。

• wa_vbsk_i-

• wa_vbsk_i-ERNAM = sy-uname。

• wa_vbsk_i-BRGEW = 1111。

• 将wa_vbsk_i附加到vbsk_i。

• 从外向交货中获取数据

选择*

进入表out_del_lines

从嘴唇上来

vbeln EQ l_out_del。

通过posnr排序out_del_lines。

• 获取HU数据

选择exidv vekp〜venum vepos matnr charg

插入表hu_numbers

从vepo INNER JOIN vekp

在vepo上 _{venum = vekp} venum

vepo〜vbeln = l_out_del。

rfpos = 10。

• 获取下一个用于内向交货的免费电话号码

通话功能'NUMBER_GET_NEXT'

导出

nr_range_nr ='41'

object ='RV_BELEG'

导入

数字= in_del_num

例外情况

interval_not_found = 1

number_range_not_intern = 2

object_not_found = 3

quantity_is_0 = 4

quantity_is_not_1 = 5

interval_overflow = 6

buffer_overflow = 7

其他= 8。

IF sy-subrc <> 0。

带有文本013的消息e036（ysd）。

ENDIF。

• 为内向交货初始化数据

环回out_del_lines INTO wa_out_del_lines。

wa_xkomdlgn-mandt = sy-mandt。

wa_xkomdlgn-lfart ='EL'。

wa_xkomdlgn-auart ='DL'。

wa_xkomdlgn-vbeln = in_del_num。

wa_xkomdlgn-matnr = wa_out_del_lines-matnr。

wa_xkomdlgn-werks = wa_out_del_lines-werks。

• 获取交货日期

清除wa_xkomdlgn-lfdat。

选择单个eindt

INTO wa_xkomdlgn-lfdat

来自eket

ebeln EQ wa_out_del_lines-vgbel和

ebelp均衡器wa_out_del_lines-vgpos。

wa_xkomdlgn-lfimg = wa_out_del_lines-lfimg。

wa_xkomdlgn-umvkz ='1'。

wa_xkomdlgn-umvkn ='1'。

wa_xkomdlgn-vrkme = wa_out_del_lines-vrkme。

wa_xkomdlgn-meins = wa_out_del_lines-meins。

wa_xkomdlgn-vgbel = wa_out_del_lines-vgbel。

wa_xkomdlgn-vgpos = wa_out_del_lines-vgpos。

wa_xkomdlgn-vgtyp ='V'。

wa_xkomdlgn-kzazu ='X'。

wa_xkomdlgn-lgort ='2000'。

wa_xkomdlgn-charg = wa_out_del_lines-charg。

wa_xkomdlgn-ntgew = wa_out_del_lines-ntgew。

wa_xkomdlgn-brgew = wa_out_del_lines-brgew。

wa_xkomdlgn-gewei = wa_out_del_lines-gewei。

wa_xkomdlgn-lifnr = l_lifnr。

wa_xkomdlgn-bukrs_best ='2000'。

• wa_xkomdlgn-matkl = wa_out_del_lines-matkl。

wa_xkomdlgn-ematn = wa_out_del_lines-matnr。

• wa_xkomdlgn-vkorg = ekpv_tab-vkorg。

• wa_xkomdlgn-vtweg = ekpv_tab-vtweg。

• wa_xkomdlgn-spart = ekpv_tab-spart。

将wa_xkomdlgn附加到xkomdlgn。

• 初始化收货的处理单元

将hu_numbers循环到wa_hu_numbers中，其中主EQ为wa_out_del_lines-matnr。

Shift wa_hu_numbers-exidv左删除领先'0'。

wa_hu_tab-top_hu_internal = wa_hu_numbers-exidv。

wa_hu_tab-venum = wa_hu_numbers-venum。

wa_hu_tab-vepos = wa_hu_numbers-vepos。

wa_hu_tab-rfbel = in_del_num。

wa_hu_tab-rfpos = rfpos。

APPEND wa_hu_tab到hu_tab。

ENDLOOP。

向rfpos添加10。

ENDLOOP。

• 创建收货

通话功能'GN_DELIVERY_CREATE'

导出

vbsk_i = wa_vbsk_i

it_handling_units = hu_tab

表格

xkomdlgn = xkomdlgn

xvbfs = xvbfs

xvbls = xvbls。

提交工作并等待。

ENDIF。