user exits

[Former Member]

Hi,

In the transaction code MB01 for a company code PZ01... Its not picking the exchange rate...(wkurs from ekko) So I need to use a user exit which could give the exchange rate like this... (If you select any date, other than the last date of the month the exchange rate should be the Exchange rate of first date of that month... Ex if you have selected today’s date it should select the exchange Rate of March 1st... And if it is the last date of the month then it should be the Exchange rate of the same month… ex if the date if 31st march then it should be exchange rate of 31st march) so could you please tell me which userexit i could use.. i ve used all these

MBCF0002

MBCF0005

MBCF0006

MBCF0007

MBCF0009

MBCF0010

MBCF0011

MB_CF001

which is not showing any difference

could you please what to do now?

[abapdeveloper20]

Hi,

Use this program to find out list of USEREXIT for any Tcodes,

REPORT ZUSEREXIT NO STANDARD PAGE HEADING.
.
*report zuserexit no standard page heading.
TABLES : TSTC, TADIR, MODSAPT, MODACT, TRDIR, TFDIR, ENLFDIR.
         TABLES : 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 OBLIGATORY.

SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.
IF SY-SUBRC EQ 0.
   SELECT SINGLE * FROM TADIR WHERE PGMID = 'R3TR'
                    AND OBJECT = 'PROG'
                    AND OBJ_NAME = TSTC-PGMNA.
   MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
      IF SY-SUBRC NE 0.
         SELECT SINGLE * FROM TRDIR WHERE NAME = TSTC-PGMNA.
         IF TRDIR-SUBC EQ 'F'.
            SELECT SINGLE * FROM TFDIR WHERE PNAME = TSTC-PGMNA.
            SELECT SINGLE * FROM ENLFDIR WHERE FUNCNAME =
            TFDIR-FUNCNAME.
            SELECT SINGLE * FROM TADIR WHERE PGMID = 'R3TR'
                               AND OBJECT = 'FUGR'
                               AND OBJ_NAME EQ ENLFDIR-AREA.

            MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
          ENDIF.
       ENDIF.
       SELECT * FROM TADIR INTO TABLE JTAB
                     WHERE PGMID = 'R3TR'
                       AND OBJECT = 'SMOD'
                       AND DEVCLASS = V_DEVCLASS.
        SELECT SINGLE * FROM TSTCT WHERE SPRSL EQ SY-LANGU AND
                                         TCODE EQ P_TCODE.
        FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
        WRITE:/(19) 'Transaction Code - ',
             20(20) P_TCODE,
             45(50) TSTCT-TTEXT.
                    SKIP.
        IF NOT JTAB[] IS INITIAL.
           WRITE:/(95) SY-ULINE.
           FORMAT COLOR COL_HEADING INTENSIFIED ON.
           WRITE:/1 SY-VLINE,
                  2 'Exit Name',
                 21 SY-VLINE ,
                 22 'Description',
                 95 SY-VLINE.
           WRITE:/(95) SY-ULINE.
           LOOP AT JTAB.
              SELECT SINGLE * FROM MODSAPT
                     WHERE SPRSL = SY-LANGU AND
                            NAME = JTAB-OBJ_NAME.
                   FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
                   WRITE:/1 SY-VLINE,
                          2 JTAB-OBJ_NAME HOTSPOT ON,
                         21 SY-VLINE ,
                         22 MODSAPT-MODTEXT,
                         95 SY-VLINE.
           ENDLOOP.
           WRITE:/(95) SY-ULINE.
           DESCRIBE TABLE JTAB.
           SKIP.
           FORMAT COLOR COL_TOTAL INTENSIFIED ON.
           WRITE:/ 'No of Exits:' , SY-TFILL.
        ELSE.
           FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
           WRITE:/(95) 'No User Exit exists'.
        ENDIF.
      ELSE.
          FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
          WRITE:/(95) 'Transaction Code Does Not Exist'.
      ENDIF.

AT LINE-SELECTION.
   GET CURSOR FIELD FIELD1.
   CHECK FIELD1(4) EQ 'JTAB'.
   SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).
   CALL TRANSACTION 'SMOD' AND SKIP FIRST   SCREEN.

*---End of Program

Reward if useful

~_Lakshmiraj~

[Former Member]

Thnx for the answers