Automatically Plant Has to come in VF01 and VF02 and VF03

Include  MV60AF0X_XVBRP_TCTRL_SCROLLEN


FORM xvbrp_ctrl_init.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form XVBRP_CTRL_INIT, Start                                                                                                                       A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZVBAP_KUNNR_UPDATE_VF01.    "active version
IF SY-TCODE = 'VF01' OR SY-TCODE = 'VF02' OR SY-TCODE = 'VF03' .
  IF SY-DYNNR = 0104 .

DATA : LV_WERKS TYPE EKPO-WERKS,
       LV_ITEM TYPE VBAP-POSNR.

LOOP AT XVBRP.
CLEAR: LV_WERKS.
SELECT SINGLE WERKS FROM VBAP INTO LV_WERKS
              WHERE VBELN = XVBRP-aubel.
*              AND POSNR = XVBRP-VGPOS.
XVBRP-WERKS = LV_WERKS.
MODIFY XVBRP INDEX SY-TABIX TRANSPORTING WERKS.
ENDLOOP.
FET_XVBPA_ACTUAL[] = FET_XVBPA[].
 FET_YVBPA[] = FET_XVBPA[].
 FET_YVBPA_ACTUAL[] = FET_YVBPA[].
ENDIF.
ENDIF.
ENDENHANCEMENT.