修改Vendor FM VENDOR_UPDATE

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.