FM required

[Former Member]

Hi Friends,

I have to display a warning message in a POPup.

I tried POPUP_to_inform...but i need a FM which is maintained specifically

for Warning message dispaly.

Regards,

Rahul.

[Former Member]

Hi,

You can try with

"POPUP_WITH_WARNING". It may helpful.

Thanks,

Rakesh

[Former Member]

HI...

Try these ...

CALL FUNCTION 'FC_POPUP_ERR_WARN_MESSAGE'

EXPORTING

POPUP_TITLE = ' '

IS_ERROR = ' '

MESSAGE_TEXT = 'Error'

START_COLUMN = 25

START_ROW = 6

.

CALL FUNCTION 'POPUP_TO_DISPLAY_VALUE'

EXPORTING

COLBEG = 1

COLEND = 20

ITEMTXT = 'ITEM'

TEXTLINE1 = 'LINE1'

TEXTLINE2 = 'LINE2'

TEXTLINE3 = 'LINE3'

TEXTLINE4 = 'LINE4'

TITLE = ' '

.

CALL FUNCTION 'POPUP_WITH_WARNING'

EXPORTING

TEXTLINE1 = ' '

TEXTLINE2 = 'hello'

TITEL = 'Warnung'

.

CALL FUNCTION 'POPUP_FOR_INFORMATION'

EXPORTING

KOMPONENTE = 'hi'

STATUS = 'hello'

PLANAUFTRAG = ' '

<REMOVED BY MODERATOR>

Edited by: Alvaro Tejada Galindo on Mar 19, 2008 6:55 PM

[Former Member]

Hi,

use POPUP_DISPLAY_MESSAGE if its a message of a message class...

else use KLPOPUP_TO_DISPLAY_TEXT

CALL FUNCTION 'KLPOPUP_TO_DISPLAY_TEXT'
    EXPORTING
      titel     = 'Not Allowed '
      textline1 = 'You are not Authorised to change table contents'
      textline2 = ' DON''T TRY AGAIN '.

Cheers,

jose.

[Former Member]

Hi,

Try This FM POPUP_WITH_WARNING.

Regards

Sandipan

[Former Member]

Hi,

You can use FM POPUP_WITH_WARNING.

Thanks,

Sriram Ponna.

[Former Member]

hi rahul.. i think there is no such fm i am not sure abt that.

use this ...

PARAMETERS: P_KORSEL DEFAULT 'M'

,P_TYPE DEFAULT 'F'

,P_SORG LIKE VBAK-VKORG DEFAULT SPACE

,P_KONV DEFAULT 'N'

,P_WSFIL LIKE RLGRAP-FILENAME DEFAULT

'c:hi2.csv'

.

DATA:

V_NEW_TABIX TYPE SY-TABIX,

V_ECC6_FILENAME TYPE STRING,

V_ECC6_SUBRC TYPE SUBRC,

V_ECC6_DEF_FILENAME TYPE STRING,

V_ECC6_FULPATH TYPE STRING,

V_ECC6_PATH TYPE STRING,

V_ECC6_TXTQUES TYPE STRING,

V_ECC6_APP TYPE STRING,

V_ECC6_PARAMETER TYPE STRING.

CONSTANTS:

C_VALUE_X TYPE C VALUE 'X',

C_TYPE_DAT TYPE CHAR10 VALUE 'DAT',

C_TYPE_ASC TYPE CHAR10 VALUE 'ASC',

C_ECC6_C_YES TYPE C VALUE 'J',

C_ECC6_C_NO TYPE C VALUE 'N',

C_ECC6_TAB(1) TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB.

DATA: WS_FIL LIKE DRAW-FILEP,

W_UNIXFIL LIKE DRAW-FILEP,

W_PATH LIKE DRAW-FILEP VALUE './'.

DATA : BEGIN OF L_TAB OCCURS 0,

LINE(80).

DATA : END OF L_TAB.

DATA W_STOP.

DATA W_FIL.

START-OF-SELECTION.

IF P_WSFIL <> ''.

PERFORM WS_COPY.

CHECK W_STOP IS INITIAL.

ENDIF.

CALL FUNCTION 'Z_SUBSYSTEM'

EXPORTING

I_MESTYP = 'ZPRIS'

EXCEPTIONS

FEJL = 1

OTHERS = 2.

IF SY-SUBRC <> 0.

ENDIF.

FORM WS_COPY.

PERFORM INIT_VARS_AND_POPVALUES USING P_WSFIL

CHANGING V_ECC6_FILENAME.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = V_ECC6_FILENAME

FILETYPE = C_TYPE_ASC

HAS_FIELD_SEPARATOR = C_VALUE_X

TABLES

DATA_TAB = L_TAB

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 2

NO_BATCH = 3

GUI_REFUSE_FILETRANSFER = 4

INVALID_TYPE = 5

NO_AUTHORITY = 6

UNKNOWN_ERROR = 7

BAD_DATA_FORMAT = 8

HEADER_NOT_ALLOWED = 9

SEPARATOR_NOT_ALLOWED = 10

HEADER_TOO_LONG = 11

UNKNOWN_DP_ERROR = 12

ACCESS_DENIED = 13

DP_OUT_OF_MEMORY = 14

DISK_FULL = 15

DP_TIMEOUT = 16

OTHERS = 17

.

*-- End of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

IF SY-SUBRC <> 0.

*-- Start of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

CALL FUNCTION 'POPUP_TO_INFORM'

EXPORTING

TITEL = 'Fil fejl'(002)

TXT1 = 'Læsning af fil fejler'(001)

TXT2 = ' '

• TXT3 = ' '

• TXT4 = ' '

.

*-- End of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

W_STOP = 'X'.

ELSE.

DELETE ADJACENT DUPLICATES FROM L_TAB.

DATA: W_IDX LIKE SY-TABIX.

W_IDX = 1.

READ TABLE L_TAB INDEX W_IDX.

CONCATENATE P_KORSEL

P_TYPE

P_SORG

P_KONV INTO

L_TAB-LINE SEPARATED BY ';'.

MODIFY L_TAB INDEX W_IDX TRANSPORTING LINE.

*-- Start of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

*-- Description: Replaced WS_DOWNLOAD with GUI_UPLOAD

*-- Initialise Variables and populate File name and File Type

PERFORM INIT_VARS_AND_POPVALUES USING P_WSFIL

CHANGING V_ECC6_FILENAME.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

FILENAME = V_ECC6_FILENAME

FILETYPE = C_TYPE_ASC

WRITE_FIELD_SEPARATOR = C_VALUE_X

TABLES

DATA_TAB = L_TAB

EXCEPTIONS

FILE_WRITE_ERROR = 1

NO_BATCH = 2

GUI_REFUSE_FILETRANSFER = 3

INVALID_TYPE = 4

NO_AUTHORITY = 5

UNKNOWN_ERROR = 6

HEADER_NOT_ALLOWED = 7

SEPARATOR_NOT_ALLOWED = 8

FILESIZE_NOT_ALLOWED = 9

HEADER_TOO_LONG = 10

DP_ERROR_CREATE = 11

DP_ERROR_SEND = 12

DP_ERROR_WRITE = 13

UNKNOWN_DP_ERROR = 14

ACCESS_DENIED = 15

DP_OUT_OF_MEMORY = 16

DISK_FULL = 17

DP_TIMEOUT = 18

FILE_NOT_FOUND = 19

DATAPROVIDER_EXCEPTION = 20

CONTROL_FLUSH_ERROR = 21

OTHERS = 22.

*-- End of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

IF SY-SUBRC <> 0.

ELSE.

*-- Start of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

DATA:W_FILEPATH TYPE SAPB-SAPPFAD,

W_SPATH TYPE SAPB-SAPPFAD.

*-- End of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

CONCATENATE 'KOST_' SY-DATUM '_' SY-UZEIT INTO W_UNIXFIL.

WS_FIL = P_WSFIL.

REPLACE 'XXX' WITH SY-SYSID(3) INTO W_PATH.

CONCATENATE W_PATH W_UNIXFIL INTO W_FILEPATH.

MOVE WS_FIL TO W_SPATH.

CALL FUNCTION 'ARCHIVFILE_CLIENT_TO_SERVER'

EXPORTING

PATH = W_SPATH

TARGETPATH = W_FILEPATH

EXCEPTIONS

ERROR_FILE = 1

OTHERS = 2

.

*-- End of Add by Kishore(IGA --> X_IGN_4) on 23nd May 2006

IF SY-SUBRC <> 0.

ENDIF.

ENDIF.

ENDIF.

ENDFORM.

FORM INIT_VARS_AND_POPVALUES USING P_OLD_FNAME TYPE C

CHANGING P_NEW_FNAME TYPE STRING.

CLEAR P_NEW_FNAME.

P_NEW_FNAME = P_OLD_FNAME.

ENDFORM. " init_vars_and_popvalues

regards,

venkat.