delivery not accept past date include programs(MV50AFZ1)

*BREAK anju_d.
*DATA : wa_vbak TYPE vbak,
*       wa_lips TYPE lips,
*       lv_vbeln TYPE vbeln_va.
**LOOP AT SCREEN.
*  IF likp-vbeln IS INITIAL.
*    SELECT SINGLE * FROM vbak INTO wa_vbak WHERE vbeln = lv50c-vbeln.
*  ELSE.
*    SELECT SINGLE * FROM lips INTO wa_lips WHERE vbeln = likp-vbeln.
*    lv_vbeln = wa_lips-vgbel.
*    SELECT SINGLE * FROM vbak INTO wa_vbak WHERE vbeln = lv_vbeln.
*  ENDIF.
**ENDLOOP.
*
*IF likp-bldat < wa_vbak-erdat.
*  PERFORM FOLGE_GLEICHSETZEN(SAPLV00F).
*  FCODE = 'ENT1'.
*  MESSAGE 'Delivery Document Date Should not be in past of Sales Order Date' TYPE 'E'.
*  SET SCREEN SYST-DYNNR.
*  LEAVE SCREEN.
*ENDIF.

Comments

Popular posts from this blog

all user exit mv45afzz (implicit user exit )

MB_MIGO_BADI THIS BADI USED TO POSTING DATA IN MIGO

Long Text in input and output field in module pool