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.
*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
Post a Comment