Problem in updating delivery date in va02

Question

hi abapers,
my requirement is to update the delivery date in va02 at header level. i have this code in sapmv45a, include is mv45afzz,
written code in move_fields_to_vbak.
when ever iam running the va02 tcode i am getting my updated delivery date , when iam saving again this exit triggering so that again delivery date is updatting.
here x is the updated date getting from z function module. iam pasing this value to below statement
vbak-vdatu = x.
so that how to stop triggering the code  while saving.

Answer 1

hi abapers i posted the code, here the problem iam facing is that, when ever iam opening the va02  tcode updated delivery date  is coming but when ia msaving again this is triggering so that first updated date is again updating .
here x is the day no comes from function module  in below code , iwll compare x with following zroutern  function module .
suppose .
updated date is 17.12.2010 so that i will push to vbak-vdatu = 17.12.2010. but here again date_compute_day is again calcultaing day from 17.12.2010 so that again that day  which is stored is x again compared to zroutern function module .
here i aim is when ever i get updated date then  it shuold come out of this application .
plese suggest .
READ TABLE XVBAP INDEX 1.
READ TABLE XVBPA WITH KEY  VBELN = XVBAP-VBELN
                           "POSNR = XVBAP-POSNR
                           PARVW = 'WE'.
IF SY-SUBRC = 0.
  L_KUNNR = XVBPA-KUNNR.
  ENDIF.
  IF SY-UZEIT+0(2) >= 15.
    E_RDD = SY-DATUM + 2.
    ELSE.
      E_RDD = SY-DATUM + 1.
      ENDIF.
      IF E_RDD > VBAK-VDATU.
        OP_RDD = E_RDD.
        ELSE.
          OP_RDD = VBAK-VDATU.
     endif.
          CALL FUNCTION 'DATE_COMPUTE_DAY'
            EXPORTING
              DATE          = OP_RDD
           IMPORTING
            DAY           = X.
  CALL FUNCTION 'ZROUTESCHEDULE'
    EXPORTING
     KUNNR         = L_KUNNR
    VSBED         =
      VSTEL         = VBAP-VSTEL
      ROUTE         = VBAP-ROUTE
   IMPORTING
     ZRETURN       = IT_RETURN.
READ TABLE IT_RETURN INTO WA_RETURN INDEX 1 .
        IF       WA_RETURN-MONDAY    = 'X'.
                 wa_days-num = '1'.
         append  wa_days to it_days.
        ENDIF.
       IF        WA_RETURN-TUESDAY   = 'X'.
                 wa_days-num = '2'.
        append   wa_days to it_days.
       ENDIF.
       IF        WA_RETURN-WEDNESDAY = 'X'.
                 wa_days-num = '3'.
        append   wa_days to it_days.
     ENDIF.
       IF        WA_RETURN-THURSDAY  = 'X'.
                 wa_days-num = '4'.
       append    wa_days to it_days.
         ENDIF.
        IF       WA_RETURN-FRIDAY    = 'X'.
                 wa_days-num = '5'.
        append  wa_days to it_days.
         ENDIF.
       IF     WA_RETURN-SATURDAY  = 'X'.
              wa_days-num = '6'.
     append  wa_days to it_days.
     ENDIF.
       IF    WA_RETURN-SUNDAY    = 'X'.
             wa_days-num = '7'.
     append  wa_days to it_days.
        ENDIF.
SORT IT_DAYS BY NUM.
CLEAR WA_DAYS.
IF NOT IT_DAYS[] IS INITIAL.    "#1 CHECKING
READ TABLE IT_DAYS INTO WA_DAYS WITH KEY NUM = X.
IF SY-SUBRC <> 0.
IF NOT IT_DAYS[] IS INITIAL.
LOOP AT IT_DAYS INTO WA_DAYS.
IF WA_DAYS-NUM GT X.
  Z  = ( WA_DAYS-NUM ) - X.
  UP_DATE  = OP_RDD + Z.
  EXIT.
ENDIF.
ENDLOOP.
ENDIF.
SORT IT_DAYS BY NUM DESCENDING.
IF UP_DATE IS INITIAL.
  IF NOT IT_DAYS IS INITIAL.
  READ TABLE IT_DAYS INTO WA_DAYS INDEX 1.
  Y = X - WA_DAYS-NUM.
  UP_DATE = OP_RDD + 7 - Y.
ENDIF.
    ENDIF.
   VBAK-VDATU  = UP_DATE.
ENDIF.
CLEAR: X,UP_DATE,Y.
ENDIF.   "#1 CHECKING
ENDIF.    "1 YVBAK
ENDIF.