修改Vendor FM VENDOR_UPDATE

最新推荐文章于 2024-04-26 06:15:00 发布

原创最新推荐文章于 2024-04-26 06:15:00 发布 · 2.6k 阅读

0 ·

CC 4.0 BY-SA版权

日志专栏收录该内容

70 篇文章

订阅专栏

本文介绍了一段ABAP代码，该代码用于从指定供应商编号(LIFNR)获取并更新相关供应商数据。涉及的数据表包括LFA1、LFB1、LFM1、LFAS等，通过选择单一记录和表格记录的方式读取数据，并使用'VENDOR_UPDATE'函数模块在后台任务中进行更新。

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

X is new and Y is old

DATA: LT_XLFAS TYPE TABLE OF FLFAS ,

            LT_XLFB5 TYPE TABLE OF FLFB5     ,
            LT_XLFBK TYPE TABLE OF FLFBK     ,
            LT_XLFZA TYPE TABLE OF FLFZA     .

      DATA: L_LFB1 TYPE LFB1,
            L_YLFB1 TYPE  LFB1,
            L_LFA1 TYPE LFA1,
            L_YLFA1 TYPE LFA1,
            L_LFM1 TYPE LFM1.

      CLEAR :LT_XLFAS,LT_XLFB5,LT_XLFBK, LT_XLFZA,L_LFB1,L_YLFB1,L_LFA1,L_YLFA1,L_LFM1.

      SELECT SINGLE * FROM LFA1 INTO L_LFA1 WHERE LIFNR = GS_OUTPUT-LIFNR.
      L_YLFA1 = L_LFA1.
      SELECT SINGLE * FROM LFB1 INTO L_LFB1 WHERE LIFNR = GS_OUTPUT-LIFNR.
      L_YLFB1 = L_LFB1.
      SELECT SINGLE * FROM LFM1 INTO L_LFM1 WHERE LIFNR = GS_OUTPUT-LIFNR.

      CLEAR: L_LFA1-CONFS,L_LFB1-ZAHLS.

      SELECT * FROM LFAS INTO TABLE LT_XLFAS WHERE LIFNR = GS_OUTPUT-LIFNR.

      SELECT * FROM LFB5 INTO TABLE LT_XLFB5 WHERE LIFNR = GS_OUTPUT-LIFNR.

      SELECT * FROM LFBK INTO TABLE LT_XLFBK WHERE LIFNR = GS_OUTPUT-LIFNR.

      SELECT * FROM LFZA INTO TABLE LT_XLFZA WHERE LIFNR = GS_OUTPUT-LIFNR.

      CALL FUNCTION 'VENDOR_UPDATE' IN UPDATE TASK
        EXPORTING
          I_LFA1  = L_LFA1
          I_LFB1  = L_LFB1
          I_LFM1  = L_LFM1
          I_YLFA1 = L_YLFA1
          I_YLFB1 = L_YLFB1
          I_YLFM1 = L_LFM1
        TABLES
          T_XLFAS = LT_XLFAS
          T_XLFB5 = LT_XLFB5
          T_XLFBK = LT_XLFBK
          T_XLFZA = LT_XLFZA
          T_YLFAS = LT_XLFAS
          T_YLFB5 = LT_XLFB5
          T_YLFBK = LT_XLFBK
          T_YLFZA = LT_XLFZA.