BPAI: Z_BAPI_GET_PK_INSTRUCTIONS.

最新推荐文章于 2024-12-13 20:27:56 发布

weixin_33753003

最新推荐文章于 2024-12-13 20:27:56 发布

阅读量60

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/sesexxoo/archive/2007/06/20/6190333.html

本文介绍了一个ABAP函数模块FUNCTIONZ_BAPI_GET_PK_INSTRUCTIONS，该模块通过输入批次号来获取销售订单项级别的包装指令内容。主要逻辑包括：1) 获取客户批次号对应的销售订单及其项号；2) 调用READ_TEXT函数读取包装指令。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

FUNCTION Z_BAPI_GET_PK_INSTRUCTIONS.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*"     VALUE(I_LOTNO) LIKE VBAP-KDMAT OPTIONAL
*" EXPORTING
*"     VALUE(E_RETURN) TYPE TLINE-TDLINE
*"----------------------------------------------------------------------
* Author:       Wei_Zhu
* Date:         2007-06-20
* Description: IBL input LotNo Get Saler Order Item Level Text
*                Packing Instructions Content.
*
* Logic: 1) -> KDMAT    "Customer_Number(Lot No)
*                 <- VBLEN " Sales Order
*                 <- POSNR " Item Number
*               + AUART Not In 'RWRK'     " Sales Order Type NE Rework
*
*          2) -> Call Function 'READ_TEXT'
*              <- Get Saler Order Item Level -Text -Packing Instructions
*
*   Task# 1283
*   Request#    DEVK922925
*               DEVK922929
*-----------------------------------------------------------------------
DATA: LotNo LIKE     VBAP-KDMAT,     "Lot No
      Pk_Instr TYPE Tline-TDLINE,   "Packing Instructions
      VBLEN LIKE     VBAP-VBELN,     "Sales document
      POSNR LIKE     VBAP-POSNR,     "Sales Document Item
      Il_Tline LIKE tline OCCURS 0 WITH HEADER LINE,
      Vl_Tdname LIKE thead-tdname.

LotNo = I_LotNO.

*-----------------------------------------------------------------------
* Get Sales Order and Item Number By Customer Material(LotNo)
*-----------------------------------------------------------------------
Select single VBAP~VBELN VBAP~POSNR
       Into (VBLEN,POSNR)
       From VBAP
       INNER JOIN VBAK
         ON VBAP~VBELN = VBAK~VBELN
         WHERE VBAK~AUART NOT IN ('RWRK')
         AND VBAP~KDMAT = LotNO .

CONCATENATE VBLEN POSNR INTO Vl_Tdname.

*-----------------------------------------------------------------------
* Call Function Read_Text Get Packing Instructions
*-----------------------------------------------------------------------
Call Function 'READ_TEXT'
Exporting
    Client    = Sy-Mandt
    ID        = 'Z009'
    Language = 'E'
    Name      = Vl_Tdname
    Object    = 'VBBP'
*    Archive_Handle = 0
*    Local_Cat       = ''
* Importing
*    Header    =
Tables
    Lines     = Il_Tline
Exceptions
    ID        = 1
    Language = 2
    Name      = 3
    Not_Found = 4
    Object    = 5
    Reference_Check = 6
    Wrong_Access_To_Archive = 7
    Others = 8.

If Sy-Subrc <> 0.
*   Message ID Sy-MsgID Type Sy-MsgTy Number Sy-MsGno
*     With Sy-Msgv1 Sy-MsgV2 Sy-MsgV3 Sy-MsgV4.
Else.
      LOOP AT Il_Tline.
      IF Il_Tline-TDLINE NE ''.
         Pk_Instr = Il_Tline-TDLINE.
      ENDIF.
    ENDLOOP.
EndIf.

IF Pk_Instr NE ''.
E_RETURN = Pk_Instr.
ELSE.
E_RETURN = ''.
ENDIF.

ENDFUNCTION.

转载于:https://www.cnblogs.com/sesexxoo/archive/2007/06/20/6190333.html