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.

Comments

Post a Comment

Popular posts from this blog

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and  sy - uname  =  'FREDDIE' . BREAK freddie . *SELECT SINGLE KVGR1 KVGR2 *  FROM vbak *  INTO ls_vbak * WHERE vbeln = vbak-vbeln. * *IF vbak-KVGR1 <> ls_vbak-KVGR1 or vbak-KVGR2 <> ls_vbak-KVGR2. *  VBAK-FAKSK = '05'.
Read more

How to Give Dropdown in alv report in sap abap programming Language

-
   IF  p_fieldname  =  'REASONS' .     wa_fcat - f4availabl  =  'X' .    ENDIF .   PERFORM  dropdown_table  CHANGING  g_grid . FORM  dropdown_table  CHANGING  g_grid  TYPE  REF  TO  cl_gui_alv_grid .    DATA  : lt_dropdown  TYPE  lvc_t_drop  WITH  HEADER  LINE .    DATA :  gs_f4  TYPE  lvc_s_f4 ,         gt_f4  TYPE  lvc_t_f4 .    LOOP  AT  it_fcat  INTO  wa_fcat .      IF  wa_fcat - fieldname  =  'REASONS' .       wa_fcat - drdn_hndl  =  '1' .       wa_fcat - outputlen  =  20 .        MODIFY  it_fcat  FROM  wa_fcat .      ENDIF .    ENDLOOP . *CLEAR GT_F4. *  GS_F4-FIELDNAME  = 'REMARK'. *  GS_F4-REGISTER   = 'X'. *  GS_F4-GETBEFORE  = 'X'. *  GS_F4-CHNGEAFTER = 'X'. *  APPEND GS_F4 to GT_F4.    CALL  METHOD  g_grid -> register_f4_for_fields      EXPORTING       it_f4  =  gt_f4 .   lt_dropdown - handle  =  '1' .   lt_dropdown - value  =  'Loadability Issue' .    APPEND  lt
Read more

Long Text in input and output field in module pool

-
Image
display long text in input and output field then below code help you how to display long text your input and output fields in sap ************************************************************************ * Program Name      :  ZLONG_TEXT_EDITOR           Object ID:   p002    * * Description       :  Long text with function module                   * * Create Date       :  26.12.2018                                      * * FO Owner          :  Rohini kumar                                    * * Tech Owner        :  Rohini Kumar                                    * * Project Module    :  SD                                              * ************************************************************************ *                        Change Log                                    * ************************************************************************ *  REQ#         DATE         WHO            CHANGE_ID        DESCR     * *-------------------------------------------
Read more