all useexit (RV60AFZZ)

*$*$-Start: (4)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1  ZBILLININVOICE.    "active version
    break rohinik.
    TYPES: BEGIN OF ty_likp,
      vbeln TYPE vbeln_vl,
      lfdat TYPE lfdat_v,
    END OF ty_likp.
    DATA:  gs_likp TYPE ty_likp.
    SELECT SINGLE vbeln lfdat
    FROM likp
    INTO gs_likp
    WHERE vbeln = vbrp-vgbel.
    IF vbrk-fkdat < gs_likp-lfdat.
        MESSAGE 'Billing date Less Than Delivary Date.' TYPE 'E'.
      ENDIF.
ENDENHANCEMENT.
ENHANCEMENT 1  ZBILL_DATE_VALIDATION.    "active version
*
*  BREAK payald.
*  IF sy-uname = 'PAYALD'.
*    TYPES : BEGIN OF ty_final,
*            VBELN TYPE VBELN_VL,
*            LFDAT TYPE LFDAT_V,
*            END OF ty_final.
*    DATA : it_final TYPE STANDARD TABLE OF ty_final,
*           wa_final TYPE ty_final.
*
*    SELECT SINGLE vbeln lfdat
*      FROM likp
*      INTO wa_final
*      WHERE vbeln = vbrp-vgbel.
*
*      IF vbrk-fkdat < wa_final-lfdat.
*        PERFORM FOLGE_GLEICHSETZEN(SAPLV00F).
*        FCODE = 'ENT1'.
*        MESSAGE 'Billing Date should Not Be Less Than Delivary Date.' TYPE 'E'.
*        SET SCREEN SYST-DYNNR.
*        LEAVE SCREEN.
*      ENDIF.
*  ENDIF.
ENDENHANCEMENT.
ENHANCEMENT 1  ZCS_DATEVALIDATION3.    "active version
*break chetans.
*TYPES: BEGIN OF TY_LIKP,
*         VBELN TYPE VBELN_VL,
*         LFDAT TYPE LFDAT_V,
*
*       END OF TY_LIKP.
*DATA:  WA_LIKP TYPE TY_LIKP.
*
*       SELECT SINGLE vbeln LFDAT
*        FROM likp
*        INTO WA_likp
*        WHERE vbeln = vbrp-vgbel.
*
*      IF VBRK-FKDAT < wa_likp-lfdat.
*        MESSAGE 'Billing Date should not be less than delivery Date' TYPE 'S' DISPLAY LIKE 'E'.
*        fcode = 'ENT1'.
*        SET SCREEN syst-dynnr.
*        LEAVE SCREEN.
*      ENDIF.

ENDENHANCEMENT.
ENHANCEMENT 1  ZFM_DATEVAL1.    "active version
*BREAK-POINT.
*TYPES : BEGIN OF ty_final,
*            VBELN TYPE VBELN_VA,
*            AUDAT TYPE AUDAT,
*            END OF ty_final.
*    DATA : it_final TYPE STANDARD TABLE OF ty_final,
*           wa_final TYPE ty_final.
*
*    SELECT SINGLE vbeln audat
*      FROM vbak
*      INTO wa_final
*      WHERE vbeln = vbrp-aubel.
*
*      IF vbrk-fkdat < wa_final-audat.
*        MESSAGE 'Billing Date should not be before Sales Doc. Date.' TYPE 'E'.
*      ENDIF.