Customer exit MEREQ001(EQ001 Customers' Own Data in Purchase Requisi) include(ZXM02U12)

-
*&---------------------------------------------------------------------*
*&  Include           ZXM02U12
*&---------------------------------------------------------------------*
  DATA :gs_im_t_eban  TYPE  eban,
        messages TYPE bapiret2.
  READ TABLE im_t_eban INTO gs_im_t_eban INDEX 1.
  IF gs_im_t_eban-frgdt < sy-datum.
  CLEAR : messages.

  CALL FUNCTION 'BALW_BAPIRETURN_GET2'
    EXPORTING
      type   = 'E'
      cl     = 'ZRKMSG'
      number = '008'
      par1   = ' '
      par2   = ' '
      par3   = ' '
      par4   = ' '
    IMPORTING
      return = messages.
  APPEND messages TO ex_messages.
  RAISE error_messages.
  EXIT.
    MESSAGE 'PR Release Date should not be less than the System Date' TYPE 'E'.
ENDIF.
**BREAK mihirp.
*10
*break krutis.
*BREAK NAVEENC.
* DATA : gt_eban TYPE STANDARD TABLE OF eban,
*        gs_eban TYPE eban.
*
******* Added By Bijal Chauhan
* break bijalc.
*
* CLEAR gs_eban.
* IMPORT gt_eban TO gt_eban FROM MEMORY ID 'EBAN'.
*

*LOOP AT .
*
*ENDLOOP.
* MOVE-CORRESPONDING gs_eban TO im_t_eban.
******* End of Edit


*DATA: lv_frgdt TYPE sy-datum,
*      it_eban TYPE STANDARD TABLE OF eban WITH HEADER LINE,
*      ls_eban TYPE eban.
*DATA:fcode TYPE sy-ucomm.
*DATA: gt_return TYPE bapiret2.
*
*lv_frgdt = sy-datum.
*it_eban[] = im_t_eban[].
*
*READ TABLE it_eban INTO ls_eban INDEX 1.
*IF sy-subrc = 0.
*
*  IF ls_eban-frgdt < lv_frgdt .
**    FCODE = 'ENT1'.
**    SET CURSOR FIELD 'FRGDT'.
**    MESSAGE 'Date should not be less than system date' TYPE 'E'." DISPLAY LIKE 'E'.
**    MESSAGE e007(zsapmsg_k)." DISPLAY LIKE 'E'.
**    LEAVE LIST-PROCESSING AND RETURN TO SCREEN sy-dynnr.
*    CALL FUNCTION 'BALW_BAPIRETURN_GET2'
*      EXPORTING
*        type       = 'E'
*        cl         = 'ZSAPMSG_K'
*        number     = '007'
**       PAR1       = ' '
**       PAR2       = ' '
**       PAR3       = ' '
**       PAR4       = ' '
**       LOG_NO     = ' '
**       LOG_MSG_NO = ' '
**       PARAMETER  = ' '
**       ROW        = 0
**       FIELD      = ' '
*      IMPORTING
*        return     = gt_return.
*    APPEND gt_return TO ex_messages.
*    RAISE error_messages.
**    set SCREEN 0014.
**    LEAVE TO SCREEN sy-dynnr.
*  ENDIF.
*ENDIF.


*********** Logic Implemented By Bijal Chauhan - 20.12.2016
*BREAK bijalc.
*DATA : lt_eban  TYPE STANDARD TABLE OF eban WITH HEADER LINE,
*       lv_date  TYPE datum,
*       messages TYPE bapiret2.
*
*lv_date   = sy-datum.
*lt_eban[] = im_t_eban[].
*
************ Logic For Date in ME54N
*IF sy-tcode EQ 'ME54N'.
*  IF sy-ucomm EQ 'MERELEASE'.
**    READ TABLE lt_eban INDEX 1.
*    LOOP AT lt_eban.
*      IF sy-subrc EQ 0.
*        IF lt_eban-frgdt > lv_date.
*          CLEAR messages.
*          CALL FUNCTION 'BALW_BAPIRETURN_GET2'
*            EXPORTING
*              type   = 'E'
*              cl     = 'Z_BIJ_PRACTICE'
*              number = '025'
*              par1   = ' '
*              par2   = ' '
*              par3   = ' '
*              par4   = ' '
*            IMPORTING
*              return = messages.
*          APPEND messages TO ex_messages.
*          RAISE error_messages.
*          EXIT.
*        ENDIF.
*      ENDIF.
*    ENDLOOP.
*  ENDIF.
*ENDIF.
************
*
************ Logic For Date in ME51N
*IF sy-tcode EQ 'ME51N' OR sy-tcode EQ 'ME52N'.
*  IF sy-ucomm EQ 'MESAVE'     OR
*     sy-ucomm EQ 'MECHECKDOC'.
*    READ TABLE lt_eban INDEX 1.
*    IF sy-subrc EQ 0.
*      IF lt_eban-lfdat > lv_date.
*        CLEAR messages.
*        CALL FUNCTION 'BALW_BAPIRETURN_GET2'
*          EXPORTING
*            type   = 'E'
*            cl     = 'Z_BIJ_PRACTICE'
*            number = '025'
*            par1   = ' '
*            par2   = ' '
*            par3   = ' '
*            par4   = ' '
*          IMPORTING
*            return = messages.
*        APPEND messages TO ex_messages.
*        RAISE error_messages.
*        EXIT.
*      ENDIF.
*      IF lt_eban-frgdt > lv_date.
*        CLEAR messages.
*        CALL FUNCTION 'BALW_BAPIRETURN_GET2'
*          EXPORTING
*            type   = 'E'
*            cl     = 'Z_BIJ_PRACTICE'
*            number = '026'
*            par1   = ' '
*            par2   = ' '
*            par3   = ' '
*            par4   = ' '
*          IMPORTING
*            return = messages.
*        APPEND messages TO ex_messages.
*        RAISE error_messages.
*        EXIT.
*      ENDIF.
*    ENDIF.
*  ENDIF.
*ENDIF.
***********
************************* End of Logic *************************

*break anju_d.
*
*DATA : lt_eban TYPE STANDARD TABLE OF eban WITH HEADER LINE.
*DATA : lv_frgdt TYPE sy-datum.
*
*lv_frgdt = sy-datum + 2.
*lt_eban[] = im_t_eban[].
*
*READ TABLE lt_eban INDEX 1.
*IF lt_eban-frgdt > lv_frgdt.
*  PERFORM folge_gleichsetzen(saplv00f).
*  sy-ucomm = 'ENT1'.
*  MESSAGE 'PR Release Date should not be in past of system date or more three days of system date' TYPE 'E'.
*  SET SCREEN syst-dynnr.
*  LEAVE SCREEN.
*ENDIF.


************Release Date Validation Uname:PAYALD.
*BREAK payald.
**DATA : it_eban TYPE STANDARD TABLE OF eban WITH HEADER LINE.
**DATA: gt_return TYPE bapiret2.
**DATA : fcode TYPE sy-ucomm.
**it_eban[] = im_t_eban[].
**READ TABLE it_eban INDEX 1.
**IF it_eban-frgdt < sy-datum.
**  CALL FUNCTION 'BALW_BAPIRETURN_GET2'
**    EXPORTING
**      type             = 'E'
**      cl               = 'ZSAPMSG_K'
**      NUMBER           = '007'
**     PAR1             = ' '
**     PAR2             = ' '
**     PAR3             = ' '
**     PAR4             = ' '
**     LOG_NO           = ' '
**     LOG_MSG_NO       = ' '
**     PARAMETER        = ' '
**     ROW              = 0
**     FIELD            = ' '
**   IMPORTING
**     RETURN           = gt_return.
**     APPEND gt_return TO ex_messages.
**     RAISE error_messages..
**ENDIF.


***********Release Date Validation by Freddie*************
* break freddie.
** DATA : it_eban TYPE TABLE OF eban WITH HEADER LINE,
**        messages TYPE bapiret2.
** it_eban[] = im_t_eban[].
** READ TABLE it_eban INDEX 1.
**
** IF it_eban-frgdt < sy-datum.
**   CLEAR : messages.
**   CALL FUNCTION 'BALW_BAPIRETURN_GET2'
**     EXPORTING
**       type   = 'E'
**       cl     = 'ZFM_MSG'
**       number = '043'
**       par1   = ' '
**       par2   = ' '
**       par3   = ' '
**       par4   = ' '
**     IMPORTING
**       return = messages.
**   APPEND messages TO ex_messages.
**   RAISE error_messages.
**   EXIT.
**
**  MESSAGE 'Release Date cannot be before system date.' TYPE 'E'.
** ENDIF.

***********Release Date Validation by chetan sharma *************
*break chetans.
*DATA : it_eban TYPE TABLE OF eban WITH HEADER LINE,
*       messages TYPE bapiret2.
*it_eban[] = im_t_eban[].
*READ TABLE it_eban INDEX 1.
*
*IF it_eban-frgdt < sy-datum.
*  CLEAR : messages.
*
*  CALL FUNCTION 'BALW_BAPIRETURN_GET2'
*    EXPORTING
*      type   = 'E'
*      cl     = 'ZCS_MSG'
*      number = '042'
*      par1   = ' '
*      par2   = ' '
*      par3   = ' '
*      par4   = ' '
*    IMPORTING
*      return = messages.
*  APPEND messages TO ex_messages.
*  RAISE error_messages.
*  EXIT.
*
*  MESSAGE 'Release Date cannot be before system 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