修改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 .