GN_DELIVERY_CREATE

2020-08-15 20:35发布

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家您好,

我正在参考采购订单创建收货,这是我的问题

我是否在表xkomdlgn中有一条记录,并且我想创建单个入库交货

对于上述表格中的所有可用数据,但它正在创建内向交货

每个

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


专家您好,

我正在参考采购订单创建收货,这是我的问题

我是否在表xkomdlgn中有一条记录,并且我想创建单个入库交货

对于上述表格中的所有可用数据,但它正在创建内向交货

每个

付费偷看设置
发送
4条回答
95年老男孩
1楼-- · 2020-08-15 21:17

解决自己

悻福寶寶
2楼-- · 2020-08-15 21:21

您如何解决它,因为我也面临着同样的问题。 我的IBD正在拆分。

大道至简
3楼-- · 2020-08-15 21:09

嗨,三聚

我想知道您是否可以提供/编写调用此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。

bbpeas
4楼-- · 2020-08-15 20:59

嗨,艾尔,

您曾经获得过这段代码吗?

我们还尝试创建收货并同时打包收货。 我们已经有了它来创建交货,但是它正在创建空的处理单元,并且没有包装交货上的物品。

预先感谢

Finbarr

一周热门 更多>