Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 2801

Re: Allow not to show a G/L ACCOUNT in FBL3N

$
0
0

Hi Pedro,

 

This is only possible with Enhacement Point in RFITEMGL

 

https://scn.sap.com/thread/3175713

 

I did the something similar for FBL1N (RFITEMAP) where only users with authorization object ZFIN001 could access all vendors. Here is the code. Hope this helps.

 

Context Block

>>>>>>>>>>

perform item_check_append.
* check max number:
   describe table it_pos lines n_lines.
   if pa_nmax > 0 and n_lines ge pa_nmax.
     p_stop = 'X'.
     stop.
   endif.

>>>>>>>>>>

 

Add

>>>>>>>>>>

"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Forma POS_TABLE_FILL, Final                                                                                                                       A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT ZEFIN_VALID_COMP_X_EMP.    "active version

TYPES: BEGIN OF lty_lifnr,
          lifnr TYPE lfb1-lifnr,
        END OF lty_lifnr.

DATA: lt_user  TYPE STANDARD TABLE OF pernr_us,
       lw_user  TYPE pernr_us,
       lt_otro  TYPE STANDARD TABLE OF ztfin144,
       lw_otro  TYPE ztfin144,
       lt_lifnr TYPE STANDARD TABLE OF lty_lifnr,
       lw_lifnr TYPE lty_lifnr.

DATA: lr_pernr TYPE RANGE OF lfb1-pernr,
       lw_pernr LIKE LINE OF lr_pernr,
       lr_lifnr TYPE RANGE OF lfb1-lifnr,
       lw_range LIKE LINE OF lr_lifnr.

AUTHORITY-CHECK OBJECT 'ZFIN001'
   ID 'S_PCO_USER' FIELD sy-uname
   ID 'ACTVT'      FIELD '03'.

   IF sy-subrc NE 0. " Check Security Object


          Put the action to take


   endif

>>>>>>>>>>


Viewing all articles
Browse latest Browse all 2801


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>