2020-08-15 20:35发布
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
专家您好,
我正在参考采购订单创建收货,这是我的问题
我是否在表xkomdlgn中有一条记录,并且我想创建单个入库交货
对于上述表格中的所有可用数据,但它正在创建内向交货
每个
解决自己
您如何解决它,因为我也面临着同样的问题。 我的IBD正在拆分。
嗨,三聚
我想知道您是否可以提供/编写调用此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
数据: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。
创建收货
通话功能'GN_DELIVERY_CREATE'
vbsk_i = wa_vbsk_i
it_handling_units = hu_tab
表格
xkomdlgn = xkomdlgn
xvbfs = xvbfs
xvbls = xvbls。
提交工作并等待。
嗨,艾尔,
您曾经获得过这段代码吗?
我们还尝试创建收货并同时打包收货。 我们已经有了它来创建交货,但是它正在创建空的处理单元,并且没有包装交货上的物品。
预先感谢
Finbarr
最多设置5个标签!
解决自己
您如何解决它,因为我也面临着同样的问题。 我的IBD正在拆分。
嗨,三聚
我想知道您是否可以提供/编写调用此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。
嗨,艾尔,
您曾经获得过这段代码吗?
我们还尝试创建收货并同时打包收货。 我们已经有了它来创建交货,但是它正在创建空的处理单元,并且没有包装交货上的物品。
预先感谢
Finbarr
一周热门 更多>