Popups

[Former Member]

Hi all,

Can I create a Popup in an user-exit? Can anyone give me a sample code for the same

Thanks in advance.

Johann

[Former Member]

message i001.

if that message doesnt exists, just double click it and create it.

[Former Member]

YES I HAVE USED POPUP_GET_VALUES FM IN A FM EXIT BUT RIGHT NOW I DONT HAVE THE SAMPLE CODE WITH ME

REGARDS

SHIBA DUTTA

[Former Member]

Hi,

Please use this :-

data: begin of i_lfbk_popup occurs 0,

bvtyp like lfbk-bvtyp,

blank1(2) type c,

banks like lfbk-banks,

blank2(1) type c,

bankl(10) type c,

bankn like lfbk-bankn,

bkref(15) type c,

koinh like lfbk-koinh,

end of i_lfbk_popup.

call function 'POPUP_WITH_TABLE_DISPLAY'

exporting

endpos_col = 115

endpos_row = 10

startpos_col = 25

startpos_row = 01

titletext = 'Select Bank Type from the list'

importing

choise = l_user_choice

tables

valuetab = i_lfbk_popup

exceptions

break_off = 01.

Using :-

• Prepare structure for popup

move 'Cty' to i_lfbk_popup-banks.

move 'Bank key' to i_lfbk_popup-bankl.

move 'Bank account' to i_lfbk_popup-bankn.

move 'BnkT' to i_lfbk_popup-bvtyp.

move 'Contract' to i_lfbk_popup-bkref.

move 'Acct holder' to i_lfbk_popup-koinh.

append i_lfbk_popup.

change the values and the internal table accordingly...

thanks

Rahul

[Former Member]

JUST CHECK THIS CODE FOR USER EXIT EXIT_SAPLBARM_002 IN MFBF TCODE

IF SY-UNAME = 'PPIS'.

DATA:   BDCDATA LIKE BDCDATA    OCCURS 0 WITH HEADER LINE.
DATA:   MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.
DATA:   E_GROUP_OPENED.

****************************************************
TABLES: PLFH, CRVE_A, EQUI, IMPTT.

DATA: BEGIN OF ITAB OCCURS 0,
     PLNNR LIKE MKAL-PLNNR,
     ALNAL LIKE MKAL-PLNNR,
     END OF ITAB.

DATA: BEGIN OF M_IMPTT OCCURS 0,
      POINT LIKE IMPTT-POINT,
      SPC(5) TYPE C,
      PTTXT LIKE IMPTT-PTTXT,
      END OF M_IMPTT.

DATA: ANS(5) TYPE C.

DATA: HD LIKE IMPTT-POINT.
DATA: MP LIKE IMRG-POINT.

CLEAR GF_INIT.

DATA: STIM LIKE SY-UZEIT.
DATA: SDAT LIKE SY-DATUM.
DATA: SQAN(22) TYPE C.

STIM = SY-UZEIT.
SDAT = SY-DATUM.
SQAN = I_RM61B-ERFMG.
M_IMPTT-SPC = '  '.


CALL FUNCTION 'POPUP_TO_DECIDE'
  EXPORTING
*   DEFAULTOPTION           = '1'
    TEXTLINE1               = 'Create Measuring Document'
*   TEXTLINE2               = ' '
*    TEXTLINE3               = ' '
    TEXT_OPTION1            = 'Yes'
    TEXT_OPTION2            = 'No'
   ICON_TEXT_OPTION1       = 'Update Tool Life'
*   ICON_TEXT_OPTION2       = ' '
    TITEL                   = 'Update Tool Life'
   START_COLUMN            = '52'
   START_ROW               = '18'
   CANCEL_DISPLAY          = ' '
 IMPORTING
   ANSWER                  = ANS.


IF ANS = '1'.


  SELECT SINGLE PLNNR ALNAL FROM MKAL INTO (ITAB-PLNNR, ITAB-ALNAL)
                                      WHERE MATNR = I_RM61B-MATNR AND
                                            WERKS = I_RM61B-WERKS AND
                                            VERID = I_RM61B-VERID.

  SELECT SINGLE OBJID FROM PLFH INTO PLFH-OBJID WHERE PLNNR = ITAB-PLNNR AND PLNAL = ITAB-ALNAL.

  SELECT SINGLE EQUNR FROM CRVE_A INTO CRVE_A-EQUNR WHERE OBJID = PLFH-OBJID.

  SELECT SINGLE OBJNR FROM EQUI INTO EQUI-OBJNR WHERE EQUNR = CRVE_A-EQUNR.

  SELECT * FROM IMPTT INTO CORRESPONDING FIELDS OF TABLE M_IMPTT WHERE MPOBJ = EQUI-OBJNR AND
                                                                                INACT EQ SPACE.

    IF SY-SUBRC = 0.


  CALL FUNCTION 'POPUP_WITH_TABLE'
    EXPORTING
      ENDPOS_COL         = '109'
      ENDPOS_ROW         = '18'
      STARTPOS_COL       = '70'
      STARTPOS_ROW       = '13'
      TITLETEXT          = 'CHOOSE'
   IMPORTING
     CHOICE              = HD
    TABLES
      VALUETAB           = M_IMPTT
 EXCEPTIONS
   BREAK_OFF          = 1
   OTHERS             = 2
            .
  IF SY-SUBRC <> 0.
  ENDIF.
  .

  MP = HD.

  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = 'SAPLIMR0'.
  BDCDATA-DYNPRO   = '1210'.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'BDC_CURSOR'.
  BDCDATA-FVAL =  'IMRG-POINT'.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'BDC_OKCODE'.
  BDCDATA-FVAL =   '/00'.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'IMRG-POINT'.
  BDCDATA-FVAL = MP.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-PROGRAM  = 'SAPLIMR0'.
  BDCDATA-DYNPRO   = '5210'.
  BDCDATA-DYNBEGIN = 'X'.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'BDC_OKCODE'.
  BDCDATA-FVAL =   '=BU'.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'BDC_CURSOR'.
  BDCDATA-FVAL =  'RIMR0-CDIFC'.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  BDCDATA-FNAM = 'RIMR0-CDIFC'.
  BDCDATA-FVAL = SQAN.
  APPEND BDCDATA.

  CLEAR BDCDATA.
  CALL TRANSACTION 'IK11' USING BDCDATA
                      MODE   'N'
                      UPDATE 'A'
                      MESSAGES INTO MESSTAB.


ELSE.

MESSAGE 'No Measuring Document Found' TYPE 'I'.

ENDIF.
ENDIF.

ENDIF.
.

REGARDS

SHIBA DUTTA