SAP ABAP

BREAK ROHINIK . DATA  :  it_ekpo  TYPE  TABLE  OF  ekpo  WITH  HEADER  LINE . DATA  :  it_ekko  TYPE  ekko . DATA  :  lv_banfn  TYPE  banfn ,        lv_aedat  TYPE  ekko - aedat . it_ekko  =  i_ekko . it_ekpo[]  =  tekpo[] . LOOP  AT  it_ekpo .    IF  it_ekpo - banfn  IS  NOT  INITIAL .      SELECT  SINGLE  badat        FROM  eban        INTO  lv_aedat       WHERE  banfn  =  it_ekpo - banfn .      IF  it_ekko - bedat < lv_aedat .        MESSAGE  'Pur. Doc. Date should not be before Pur. Req. Date'  TYPE  'E' .      ENDIF .    ENDIF . ENDLOOP .

*&---------------------------------------------------------------------* *& Report  ZUSER_EXIT *& *&---------------------------------------------------------------------* REPORT   zuser_exit . TABLES  :  tstc ,          tadir ,          modsapt ,          modact ,          trdir ,          tfdir ,          enlfdir ,          sxs_attrt ,          tstct . DATA  :  jtab  LIKE  tadir  OCCURS  0  WITH  HEADER  LINE . DATA  :  field1 ( 30 ) . DATA  :  v_devclass  LIKE  tadir - devclass . PARAMETERS  :  p_tcode  LIKE  tstc - tcode ,              p_pgmna  LIKE  tstc - pgmna . DATA  wa_tadir  TYPE  tadir . START-OF-SELECTION .    IF  NOT  p_tcode  IS  INITIAL .      SELECT  SINGLE  *  FROM  tstc  WHERE  tcode  EQ  p_tcode .    ELSEIF  NOT  p_pgmna  IS  INITIAL .     tstc - pgmna  =  p_pgmna .    ENDIF .    IF  sy - subrc  EQ  0 .      SELECT  SINGLE  *  FROM  tadir      WHERE  pgmid     =  'R3TR'        AND  object    =  'PROG

  ABOVE CODE AND INCLUDE PROGRAM WORK T-CODE VL02N AND INCLUDE PROGRAM NAME LV70TFT3  MAKE TEXT TO EDIT OR NON EDIT MODE go to t-code vl02n and change select any delevery and press enter butoon then click on  goto and text select any text here fales and true make text edit or non edit mode      BREAK ROHINIK .      IF  SY - UNAME  =  'ROHINIK'  AND  SY - TCODE  =  'VL02N'  OR  SY - TCODE  =  'VL03N' .    CALL  METHOD  GV_TEXT_EDITOR -> SET_READONLY_MODE    EXPORTING     READONLY_MODE  =  GV_TEXT_EDITOR -> FALSE      EXCEPTIONS               ERROR_CNTL_CALL_METHOD  =  1               INVALID_PARAMETER       =  2                OTHERS                  =  3 .     ENDIF .

*&---------------------------------------------------------------------* *&  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 TYP

*&---------------------------------------------------------------------* *&  Include           ZXM02U01 *&---------------------------------------------------------------------* *break anju_d. * *TABLES ci_ebandb. * *DATA : lv_name TYPE name1_gp, *       lv_mob TYPE num10, *       l_item TYPE mereq_item, *       l_obj_item TYPE REF TO if_purchase_requisition_item, *       eban TYPE eban. * *IF im_req_item IS NOT INITIAL. *  l_item = im_req_item->get_data( ). * *  IMPORT lv_name TO l_item-zzname1 FROM MEMORY ID 'NAME'. *  IMPORT lv_mob TO l_item-zzcontact FROM MEMORY ID 'MOB'. * *    CALL METHOD im_req_item->set_data *      EXPORTING *        im_data = l_item. * *    MOVE-CORRESPONDING l_item TO ci_ebandb. *IF sy-tcode = 'ME52N' AND *   sy-tcode = 'ME53N'. * *  eban-zzname1 = l_item-zzname1. *  eban-zzcontact = l_item-zzcontact. * *ENDIF. *BREAK mihirp. *BREAK NAVEENC. *BREAK payald. *BREAK krushal .

*$*$-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