SAP ABAP WS_DELIVERY_UPDATE 更新拣配数量并发货过账
2024-05-16 04:31:12
FUNCTION ZSD_MC_DELIVERY_POST.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" REFERENCE(IS_TECNO) TYPE ZCAS_REQUEST OPTIONAL
*" REFERENCE(IT_HEAD) TYPE ZMMS_DELIVERY_POST_HEAD_LT_MC OPTIONAL
*" EXPORTING
*" VALUE(ET_OUTPUT) TYPE ZMMS_DELIVERY_POST_RESULT_LT_C
*" TABLES
*" IT_ITEM STRUCTURE ZMMS_DELIVERY_POST_ITEM_MC OPTIONAL
*" IT_SEQN STRUCTURE ZMMS_DELIVERY_POST_SEQN_MC OPTIONAL
*"----------------------------------------------------------------------DATA:LS_HEADER_DATA LIKE BAPIOBDLVHDRCON,LS_HEADER_CONTROL LIKE BAPIOBDLVHDRCTRLCON,LV_DELIVERY_NUMB LIKE BAPIOBDLVHDRCON-DELIV_NUMB.DATA:LT_RETURN_TAB TYPE TABLE OF BAPIRET2,LW_RETURN_TAB TYPE BAPIRET2.DATA:LS_HEAD TYPE ZMMS_DELIVERY_POST_HEAD_MC .DATA:LS_OUTPUT TYPE ZMMS_DELIVERY_POST_RESULT_MC .DATA:LS_SEQN TYPE ZMMS_DELIVERY_POST_SEQN_MC.DATA:L_VBKOK LIKE VBKOK,LT_PROTT LIKE PROTT OCCURS 0 WITH HEADER LINE,LV_WBSTK TYPE VBUK-WBSTK,LV_BOLNR TYPE VBKOK-BOLNR.DATA:LT_ITEM_DATA LIKE TABLE OF BAPIOBDLVITEMCON,LW_ITEM_DATA LIKE BAPIOBDLVITEMCON,LT_ITEM_SERIAL_NO LIKE TABLE OF BAPIDLVITMSERNO,LW_ITEM_SERIAL_NO LIKE BAPIDLVITMSERNO,LT_ITEM_CONTROL LIKE TABLE OF BAPIOBDLVITEMCTRLCON,LW_ITEM_CONTROL LIKE BAPIOBDLVITEMCTRLCON.DATA:LV_CHARGE_POSNR TYPE LIPS-POSNR.DATA:LV_FLAG TYPE CHAR01.DATA:LV_MENGE TYPE LFIMG.DATA:LV_TOTAL_MENGE TYPE LFIMG.DATA:LT_LIPS_TAB TYPE TABLE OF LIPS,LS_LIPS_TAB TYPE LIPS.DATA:LV_MESSAGE TYPE STRING,LV_ALL_MESSAGE TYPE STRING.DATA:LS_ITEM TYPE ZMMS_DELIVERY_POST_ITEM_MC .DATA:LV_VBELN TYPE LIKP-VBELN .DATA:LT_VBPOK TYPE TABLE OF VBPOK,LS_VBPOK TYPE VBPOK.DATA:LT_NEW_LIPS TYPE TABLE OF LIPS,LS_NEW_LIPS TYPE LIPS.DATA:LT_SEQNO TYPE TABLE OF ZSDT_SEQNO,LS_SEQNO TYPE ZSDT_SEQNO.DATA:LV_POST TYPE CHAR01 .LV_POST = 'X' ."发货过账EXPORT P1 = LV_POST TO MEMORY ID 'DNPOS' .
*做批次拆分，发货过账。LOOP AT IT_HEAD INTO LS_HEAD .CLEAR:LV_MESSAGE ,LV_ALL_MESSAGE ,LV_FLAG .CLEAR:LT_RETURN_TAB[] ,LS_HEADER_DATA,LS_HEADER_CONTROL,LT_ITEM_DATA,LT_ITEM_CONTROL,LT_ITEM_SERIAL_NO ,LT_PROTT .CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'EXPORTINGINPUT = LS_HEAD-VBELNIMPORTINGOUTPUT = LS_HEAD-VBELN.
*发货过账。L_VBKOK-VBELN_VL = LS_HEAD-VBELN. "<-- fill this field with your delivery numberL_VBKOK-WABUC = 'X'.CLEAR LT_NEW_LIPS .SELECT*INTO CORRESPONDING FIELDS OF TABLE LT_NEW_LIPSFROM LIPSWHERE VBELN EQ LS_HEAD-VBELN .LOOP AT LT_NEW_LIPS INTO LS_NEW_LIPS .LS_VBPOK-VBELN_VL = LS_NEW_LIPS-VBELN.LS_VBPOK-POSNR_VL = LS_NEW_LIPS-POSNR.LS_VBPOK-VBELN = LS_NEW_LIPS-VGBEL.LS_VBPOK-POSNN = LS_NEW_LIPS-VGPOS.LS_VBPOK-PIKMG = LS_NEW_LIPS-LFIMG.APPEND LS_VBPOK TO LT_VBPOK.ENDLOOP .
* L_VBKOK-BOLNR = LV_BOLNR .
* L_VBKOK-LIFEX = LV_BOLNR .CALL FUNCTION 'WS_DELIVERY_UPDATE'EXPORTINGVBKOK_WA = L_VBKOKSYNCHRON = 'X'NO_MESSAGES_UPDATE = ' 'UPDATE_PICKING = 'X'COMMIT = 'X'DELIVERY = LS_HEAD-VBELNNICHT_SPERREN = 'X'TABLESVBPOK_TAB = LT_VBPOKPROT = LT_PROTTEXCEPTIONSEF_ERROR_ANY_0 = 1EF_ERROR_IN_ITEM_DELETION_0 = 2EF_ERROR_IN_POD_UPDATE_0 = 3EF_ERROR_IN_INTERFACE_0 = 4EF_ERROR_IN_GOODS_ISSUE_0 = 5EF_ERROR_IN_FINAL_CHECK_0 = 6EF_ERROR_PARTNER_UPDATE = 7EF_ERROR_SERNR_UPDATE = 8ERROR_MESSAGE = 9OTHERS = 10.IF SY-SUBRC = 0 .LOOP AT LT_PROTT WHERE MSGTY CA 'EAX'..CALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGMSGID = LT_PROTT-MSGIDMSGNR = LT_PROTT-MSGNOMSGV1 = LT_PROTT-MSGV1MSGV2 = LT_PROTT-MSGV2MSGV3 = LT_PROTT-MSGV3MSGV4 = LT_PROTT-MSGV4IMPORTINGMESSAGE_TEXT_OUTPUT = LV_MESSAGE.CONCATENATE LV_ALL_MESSAGE LV_MESSAGE INTO LV_ALL_MESSAGE .LV_FLAG = 'X' .CLEAR LT_PROTT.ENDLOOP.ELSE.CALL FUNCTION 'MESSAGE_TEXT_BUILD'EXPORTINGMSGID = SY-MSGIDMSGNR = SY-MSGNOMSGV1 = SY-MSGV1MSGV2 = SY-MSGV2MSGV3 = SY-MSGV3MSGV4 = SY-MSGV4IMPORTINGMESSAGE_TEXT_OUTPUT = LV_ALL_MESSAGE.LV_FLAG = 'X' .ENDIF .IF LV_FLAG IS INITIAL .
*1459993 - Error message VL633 occurs in transaction VL09UPDATE LIKPSET VLSTK = ''ZZLOGIS = LS_HEAD-ZZLOGISZZLOGNO = LS_HEAD-ZZLOGNOZZLINK = LS_HEAD-ZZLINKZZNUMB = LS_HEAD-ZZNUMBZZVOLU = LS_HEAD-ZZVOLUZZWEIG = LS_HEAD-ZZWEIGZZKEEPER = LS_HEAD-ZZKEEPERZZMETHOD = LS_HEAD-ZZMETHODWHERE VBELN = LS_HEAD-VBELN .IF SY-SUBRC = 0 .COMMIT WORK AND WAIT .ENDIF .LS_OUTPUT-MCNO = LS_HEAD-MCNO .LS_OUTPUT-MESSAGE = '发货过账成功' .LS_OUTPUT-STATUS = 'S' .LS_OUTPUT-ZUNIQUE = LS_HEAD-ZUNIQUE .APPEND LS_OUTPUT TO ET_OUTPUT .ELSE .LS_OUTPUT-MCNO = LS_HEAD-MCNO .LS_OUTPUT-MESSAGE = LV_ALL_MESSAGE .LS_OUTPUT-STATUS = 'E' .LS_OUTPUT-ZUNIQUE = LS_HEAD-ZUNIQUE .APPEND LS_OUTPUT TO ET_OUTPUT .ENDIF .ENDLOOP .FREE MEMORY ID 'DNPOS' .
ENDFUNCTION.SAP ABAP WS_DELIVERY_UPDATE 更新拣配数量并发货过账相关推荐
- 交货单批次拆分（BAPI_OUTB_DELIVERY_CHANGE ）并更改拣配数量，发货过账（WS_DELIVERY_UPDATE）
*&---------------------------------------------------------------------* *& Report ZVL02N_C ...
- SAP SD VL02N 交货单拣配数量 WS_DELIVERY_UPDATE 交货单过账 BAPI_OUTB_DELIVERY_CONFIRM_DEC
本人诚心接ABAP远程开发任务,价格公道,有需要的联系我,欢迎个人,甲方爸爸,乙方私信联系. SD VL02N时如果要交货过账,之前需要先拣配数量.操作就是前台输入一个拣配数量,然后保存 代码如下 D ...
- SAP RETAIL 寄售模式的公司间STO发货过账后的物料凭证的特殊点
SAP RETAIL 寄售模式的公司间STO发货过账后的物料凭证的特殊点 本文通过对比的方式,阐述寄售模式下的公司间STO发货过账后物料凭证的特殊之处. 1,如下是一个寄售模式的公司间STO.它已经创 ...
- 【ABAP】更新交货单交货数量和拣配数量
需求: Demo: *&---------------------------------------------------------------------* *& Report ...
- 在lips追加拣配数量
最近比较忙,此方案出后测试了很多种情况都存在问题,只能留待以后处理了...... 1.进入SE11键入LIPS表,点击APPEND STRUCTURE创建结构ZPIKMG,在结构中添加字段ZZPIKM ...
- ABAP如何修改SAP交货单的各个日期：计划、拣货、运输、过账
今天遇到一个这样的问题,在根据销售订单创建交货单的时候,需求要求讲各个日期都统一写成指定日期,这个日期一般都是过去的日期,而非当天. 目标效果如下图: 虽然凭证日期是9.1日,但拣配.运输.过账日期都 ...
- SAP ABAP SD 常用BAPI
1.创建标准销售订单的bapi:BAPI_SALESORDER_CREATEFROMDAT2 2.创建退货销售订单的bapi:BAPI_CUSTOMERRETURN_CREATE 3.更改销售订单 b ...
- 【整理】SD交货拣配（Picking）处理
SD交货拣配(Picking)处理 根据销售订单创建完外向交货单之后,如果还涉及库存物料的出库,则可能需要一系列的步骤,如拣配.包装.运输等.其中"拣配"是向客户交货而准备货物的过 ...
- SAP ABAP 使用BAPI对交货单拣配，发货过账WS_DELIVERY_UPDATE，BAPI_OUTB_DELIVERY_CONFIRM_DEC
拣配 :WS_DELIVERY_UPDATE 发货过账:BAPI_OUTB_DELIVERY_CONFIRM_DEC,过账后无法使用VL09冲销,冲销时报错,分散系统无法冲销.解决方法是BAPI过账后 ...
最新文章
- 技术图文：C#语言中的泛型 I
- exsi5.5安装过程中遇到的一个问题
- java 内部类 加载_java内部类及类加载顺序
- 关于FillSchema与Fill
- pcl_openmap_OpenMap教程–第1部分
- 前端学习（1731）：前端系列javascript之发布窗口布局下
- 复化辛普森公式求二重积分matlab源码及例题
- 博格和他的先锋集团创业史(2)：我觉得自己在天堂
- 2010年c语言上机题库,2010年计算机c语言上机题库.doc
- SAP、ERP、OA名词解释，SAP与ERP区别； ERP与OA区别
- 可以观看CCTV-5高清直播的网站-天天直播
- 字节跳动面试锦集(二)：项目HR高频面试总结
- python综合应用名片管理系统_综合应用——名片管理系统
- MySQL系列——MySQL实现序列（Sequence）效果
- scratch编程神笔马良
- JAVA计算机毕业设计漫画网站系统（附源码、数据库）
- sqli-labs简单安装
- Error contacting service. It is probably not running.
- 肖申克的救赎主题简介
- Ljava/lang/Class o.s.c.support.DefaultLifecycleProcessor : Failed to stop bean ‘quartzScheduler‘