How to obtain the enhancement through exit name

Hi Folks,
I'm having some trouble finding the enhancement name for transaction SMOD through a given exit name. I was wondering how do you obtain the enhancement containing the exit.
In my particular case I'm looking for the enhancement for the exit: EXIT_SAPLFMFA_004.
Thanks in advance.
Regards,
Gilberto Li

Hi dyan,
You can see the enhancement of a particular exit in the table MODSAP.
In SE16 goto table MODSAP
In the selection field MEMBER give your name (ex: EXIT_SAPMQEVA_008)
The name field is your enhancement ( in this case QEVA0008 ).
Gilberto's trick wont work always. The above example shows you that.
if you want to see the project in which your enhancement has been added.
Got table MODACT and type your enhancement in the 'MEMBER' selection field.
This time the NAME is your project in which your enhancement has been implemented.
Cheers!!
~goldie.

Similar Messages

A very simple question: how to obtain the mail server name?

In our JSP application, at one point an email will be sent to notify one event. Currently, that is done by using the html tag: mailto. To have more control on the email in tems of context format (a bad layout right now) and others. I would like to have it processed at servlet by using the JavaMail API, so that it have a nice format and have the sender's email address right in case email client is not installed in the machine where the browser in. The JavaMail API is straight forward. The question is how to obtain the mail server name, and the sender's email address if there is one?
Thanks.
v.

How to obtain the mail server's name? It's your server, you should know its name. Or if it isn't your server, you should ask the administrator for its name. Point is, you need to decide in advance what server you are going to use and hard-code its name into the program or into a properties file.
And how to obtain the client's e-mail address? You have to ask the client, probably by putting a box in the HTML and asking them to type it.

How to obtain the updated column name in a trigger?

Hello everyone,
I need to know for audit propose the updated column name in a After Update Trigger on a Table.
The table have more than 20 columns, and i think that do more than 20 conditions asking for the difference between the :new value and the :old value is not the best way.
Thanks for the help!
LCJ

Hi,
Thanks to all for the replays.
I didn't know that i can pass the column name to the UPDATING. This is only possible on 10g??
Any way, i pass the column name and works fine, but i have another issue because of that.
I obtain the column name from a cursor that query user_tab_columns view, when i try to obtain the value of the :old or :new, i can't because i don't know how to obtain the value of the value.
This example show better:
DECLARE
vOldValue Varchar2(50);
Cursor cur_Column_Names Is
Select COLUMN_NAME
From User_Tab_Columns
Where TABLE_NAME = 'table_name';
BEGIN
For var_cursor In cur_Column_Names Loop
If Updating(var_cursor.COLUMN_NAME) Then
vOldValue := '?'; -- How obtain the value of the :old. + >var_cursor.COLUMN_NAME??
End If;
End Loop;
END;Thanks to all for the help.
LCJ

How to rectify the errors through call transaction metod in bdc

how to rectify the errors through call transaction metod in bdc

Hi ,
View the highlited part of the below code.
REPORT ygfrivat1 NO STANDARD PAGE HEADING
 LINE-SIZE 165
 MESSAGE-ID yif_groc.
Program YGFRIVAT1
Function Report to Upload the VAT Adjustment File.
Author ARENAPU
Date 11.05.2007
PMTS AM12810157
Transport G6DK937834
Description:
Modification log:
1. Changed by :
 Changed on :
 PMTS :
 Transport :
 Tag :
 Description :
 T A B L E S D E C L A R A T I O N S
TABLES: edidc, "Control record (IDoc)
 edids, "Status Record (IDoc)
 t001w.
Internal Tables Declaration.
Internal table to hold data from table EDIDS
DATA: BEGIN OF t_edids OCCURS 0,
 docnum LIKE edids-docnum,
 logdat LIKE edids-logdat,
 logtim LIKE edids-logtim,
 countr LIKE edids-countr,
 credat LIKE edids-credat,
 uname LIKE edids-uname,
 END OF t_edids,
Internal table to hold data from table EDIDC
 BEGIN OF t_edidc OCCURS 0,
 docnum LIKE edidc-docnum,
 rcvprt LIKE edidc-rcvprt,
 rcvprn LIKE edidc-rcvprn,
 credat LIKE edidc-credat,
 END OF t_edidc,
Internal table to hold data from upload file
 BEGIN OF t_tab OCCURS 0,
 cust(10), "site/customer number
 date(10), "transaction date
 currency(04), "currency
 extnbr(15), "external reference number
 pos-cont(05), "POS controler
 pos-id(25), "POS id
 cashier(10), "cashier name
 qualif(04), "qualifier of the article
 matnr(25), "article number
 qty(10), "quantity
 sale(16), "sale value
 pos-tr(04), "POS transfert type
 paymeth(04), "payment method
 final(35), "final price
 tarcur(04), "target currency
 assign(35), "assignment day
 error,
 END OF t_tab,
Internal table for Report display.
 BEGIN OF t_tab1 OCCURS 0,
 cust(10), "site/customer number
 date(10), "transaction date
 currency(04), "currency
 extnbr(15), "external reference number
 pos-cont(05), "POS controler
 pos-id(25), "POS id
 cashier(10), "cashier name
 qualif(04), "qualifier of the article
 matnr(25), "article number
 qty(16) TYPE p DECIMALS 2, "quantity
 sale(16) TYPE p DECIMALS 2, "sale value
 pos-tr(04), "POS transfert type
 paymeth(04), "payment method
 final(16) TYPE p DECIMALS 2, "final price
 tarcur(04), "target currency
 assign(35), "assignment day
 END OF t_tab1,
 t_tab_temp LIKE t_tab OCCURS 0 WITH HEADER LINE,
Internal table to Validate Customer no.
 BEGIN OF t_check OCCURS 0,
 werks LIKE t001w-werks,
 vkorg LIKE t001w-vkorg,
 value(40),
 END OF t_check,
 t_check_temp LIKE t_check OCCURS 0 WITH HEADER LINE.
Internal table to hold data from table ZCS_PARAM.
DATA: BEGIN OF t_zcs_param OCCURS 0.
 INCLUDE STRUCTURE zcs_param.
DATA: vkorg LIKE t001w-vkorg,
 END OF t_zcs_param.
*Internal table to hold Messages.
DATA: BEGIN OF t_message OCCURS 0,
 msgnum TYPE msgnum,
 msgtyp TYPE msgtyp,
 msgtxt TYPE msgtext,
 END OF t_message.
*Work area for table t_message
DATA : w_message LIKE LINE OF t_message.
Internal table to hold BDC data
DATA: t_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE,
Internal table to collect error messages
 messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
*Internal table to hold messages from call transaction
DATA: BEGIN OF t_text OCCURS 0,
 desc(150),
 msgtxt(100),
 END OF t_text.
 D A T A D E C L A R A T I O N S
DATA: n TYPE i,
 gv_status(11) TYPE c, "Shows status, Production or Test
 gv_exit TYPE c, "Exit Flag
 gv_qty(16) TYPE p DECIMALS 2, "Variable to sum Quantity
 gv_sale(16) TYPE p DECIMALS 2, "Variable to sum Amount
 gv_final(16) TYPE p DECIMALS 2. "Variable to sum Final Amount
DATA: w_text(100),
 gv_mode TYPE c,
 error TYPE c. "Flag to Indicate error.
CONSTANSTS DECLARATION
CONSTANTS : gc_fieldname LIKE dynpread-fieldname VALUE 'P_FNAME',
 gc_seq_no LIKE zcs_param-seq_no VALUE '00110',
 gc_object LIKE zcs_param-object VALUE 'YGFVAT',
 gc_paraname LIKE zcs_param-paraname VALUE 'VKORG',
 gc_back TYPE c VALUE 'N',
 gc_error TYPE c VALUE 'E',
 gc_all TYPE c VALUE 'A'.
 S E L E C T I O N S C R E E N
SELECTION-SCREEN BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
PARAMETERS : p_fname LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(31) text-002 FOR FIELD p_test.
PARAMETERS : p_test AS CHECKBOX.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK a1.
SELECTION-SCREEN BEGIN OF BLOCK a2 WITH FRAME TITLE text-006.
PARAMETERS : rb_back RADIOBUTTON GROUP rb1 DEFAULT 'X',
 rb_error RADIOBUTTON GROUP rb1,
 rb_all RADIOBUTTON GROUP rb1.
SELECTION-SCREEN END OF BLOCK a2.
AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
*Subroutine to provide F4 help for file name
PERFORM fr_get_filename.
 I N I T I A L I Z A T I O N
INITIALIZATION.
*Subroutine to check authorization.
PERFORM fr_authority_check.
 T O P - O F - P A G E
TOP-OF-PAGE.
*Subroutine to diplay header
PERFORM fr_display_header.
 S T A R T - O F - S E L E C T I O N
START-OF-SELECTION.
*Subroutine to upload data from presentation server.
PERFORM fr_upload_data.
*Subroutine to validate records from uploaded file.
PERFORM fr_validate_data.
*Subroutine to build report internal table.
PERFORM fr_build_rep.
 E N D - O F - S E L E C T I O N
END-OF-SELECTION.
*Subroutine to display report.
PERFORM fr_write_report.
 F O R M S U B R O U T I N E S
*& Form fr_get_filename
 text
FORM fr_get_filename.
DATA : lv_repid LIKE sy-repid, " Report id
 lv_file LIKE ibipparms-path. " File Path
lv_repid = sy-repid.
F4 help for file path.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = lv_repid
 dynpro_number = syst-dynnr
 field_name = gc_fieldname " p_fname1
 IMPORTING
 file_name = lv_file.
IF NOT lv_file EQ space.
 p_fname = lv_file.
ELSE.
 MESSAGE e999 WITH 'Invalid Path'(005).
ENDIF.
ENDFORM. " fr_get_filename
*& Form fr_upload_data
 text
FORM fr_upload_data.
DATA: lv_fname TYPE string.
CLEAR lv_fname.
lv_fname = p_fname.
Uploading file from PC or presentation server to internal table.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = lv_fname
 filetype = 'ASC'
 has_field_separator = 'X'
 TABLES
 data_tab = t_tab
 EXCEPTIONS
 file_open_error = 1.
IF sy-subrc <> 0.
 DESCRIBE TABLE t_message LINES n.
 w_message-msgnum = n + 1.
 w_message-msgtyp = 'E'.
 MOVE text-m01 TO w_message-msgtxt.
 APPEND w_message TO t_message.
Subroutine for writing log.
 PERFORM fr_write_log.
ENDIF.
ENDFORM. " fr_upload_data
*& Form fr_validate_data
 text
FORM fr_validate_data.
DATA : lv_lines1 TYPE i,
 lv_lines2 TYPE i.
*Obtain Status depending on Check box selected.
IF p_test IS INITIAL.
 gv_status = 'PRODUCTION'.
ELSE.
 gv_status = 'TEST RUN'.
ENDIF.
*Batch Mode
CLEAR gv_mode.
IF rb_back EQ 'X'. "No Display
 MOVE gc_back TO gv_mode.
ELSEIF rb_error EQ 'X'. "Error Only
 MOVE gc_error TO gv_mode.
ELSEIF rb_all EQ 'X'. "All Screens
 MOVE gc_all TO gv_mode.
ENDIF.
IF NOT t_tab[] IS INITIAL.
 SORT t_tab BY cust.
 REFRESH t_tab_temp.
 t_tab_temp[] = t_tab[].
 SORT t_tab_temp BY cust.
 DELETE ADJACENT DUPLICATES FROM t_tab_temp COMPARING cust.
 IF NOT t_tab_temp[] IS INITIAL.
 SELECT werks vkorg FROM t001w
 INTO TABLE t_check
 FOR ALL ENTRIES IN t_tab_temp
 WHERE werks = t_tab_temp-cust+0(4).
 IF sy-subrc = 0.
 SORT t_check BY werks.
 ENDIF.
 LOOP AT t_check.
 IF t_check-vkorg <> ' '.
 MOVE t_check-vkorg TO t_check-value.
 MODIFY t_check TRANSPORTING value.
 ENDIF.
 ENDLOOP.
 ENDIF.
 FREE t_tab_temp.
ENDIF.
IF NOT t_check[] IS INITIAL.
 REFRESH t_check_temp.
 t_check_temp[] = t_check[].
 SORT t_check_temp BY value.
 DELETE ADJACENT DUPLICATES FROM t_check_temp COMPARING value.
 IF NOT t_check_temp[] IS INITIAL.
 SELECT * FROM zcs_param INTO TABLE t_zcs_param
 FOR ALL ENTRIES IN t_check_temp
 WHERE seq_no EQ gc_seq_no
 AND object EQ gc_object
 AND paraname EQ gc_paraname
 AND value EQ t_check_temp-value.
 IF sy-subrc = 0.
 SORT t_zcs_param BY value.
 ENDIF.
 ENDIF.
 FREE t_check_temp.
ENDIF.
IF NOT t_tab[] IS INITIAL.
 LOOP AT t_tab.
 READ TABLE t_check WITH KEY werks = t_tab-cust BINARY SEARCH.
 IF sy-subrc <> 0.
 MOVE 'X' TO t_tab-error.
 MODIFY t_tab TRANSPORTING error.
 DESCRIBE TABLE t_message LINES n.
 w_message-msgnum = n + 1.
 w_message-msgtyp = 'E'.
 CONCATENATE t_tab-cust text-030
 INTO w_message-msgtxt SEPARATED BY space.
 APPEND w_message TO t_message.
Subroutine for writing log.
 PERFORM fr_write_log.
 EXIT.
 ELSE.
 READ TABLE t_zcs_param WITH KEY value = t_check-vkorg
 BINARY SEARCH.
 IF sy-subrc <> 0.
 MOVE 'X' TO t_tab-error.
 MODIFY t_tab TRANSPORTING error.
 DESCRIBE TABLE t_message LINES n.
 w_message-msgnum = n + 1.
 w_message-msgtyp = 'E'.
 CONCATENATE text-003 t_tab-cust text-004 t_check-vkorg
 INTO w_message-msgtxt SEPARATED BY space.
 APPEND w_message TO t_message.
Subroutine for writing log.
 PERFORM fr_write_log.
 EXIT.
 ELSE.
 PERFORM fr_format_tab.
 ENDIF.
 ENDIF.
 ENDLOOP.
ENDIF.
DESCRIBE TABLE t_tab LINES lv_lines1.
IF lv_lines1 <> 0.
 DELETE t_tab WHERE error EQ 'X'.
ENDIF.
DESCRIBE TABLE t_tab LINES lv_lines2.
IF lv_lines2 <> 0.
 IF lv_lines2 <> lv_lines1.
 EXIT.
 ELSE.
 IF p_test IS INITIAL.
 LOOP AT t_tab.
*Subroutine to build BDC table
 PERFORM fr_fill_bdctab.
*Subroutine to Post Data into SAP.
 PERFORM fr_data_posting.
 ENDLOOP.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. " fr_validate_data
*& Form fr_write_log
 text
FORM fr_write_log.
CLEAR error.
error = 'X'.
WRITE:/1 'Msg No'(027), 10 'Type'(028), 20 'Text'(029).
ULINE:/1(120).
FORMAT RESET.
LOOP AT t_message.
 IF t_message-msgtyp = 'E'.
 FORMAT COLOR 6 INTENSIFIED .
 ELSEIF t_message-msgtyp = 'W'.
 FORMAT COLOR 3 INTENSIFIED .
 ELSEIF t_message-msgtyp = 'I'.
 FORMAT COLOR 5 INTENSIFIED .
 ENDIF.
 WRITE:/1 t_message-msgnum,
 10 t_message-msgtyp,
 20 t_message-msgtxt.
 FORMAT RESET.
ENDLOOP.
ULINE:/1(120).
ENDFORM. " fr_write_log
*& Form fr_write_report
 text
FORM fr_write_report.
CLEAR gv_exit.
LOOP AT t_message.
 IF t_message-msgtyp = 'E'.
 gv_exit = 'X'.
 EXIT.
 ENDIF.
ENDLOOP.
IF NOT gv_exit IS INITIAL.
 EXIT.
ELSE.
 PERFORM fr_display_report.
 IF NOT t_text[] IS INITIAL.
Subroutine for Display Call Transaction messages.
 PERFORM fr_write_msg.
 ENDIF.
ENDIF.
ENDFORM. " fr_write_report
*& Form fr_display_report
 text
FORM fr_display_report.
IF NOT t_tab1[] IS INITIAL.
 CLEAR: gv_qty, gv_sale, gv_final.
 LOOP AT t_tab1.
 WRITE:/1(10) t_tab1-cust,
 13(10) t_tab1-date,
 25(05) t_tab1-currency,
 32(14) t_tab1-extnbr,
 48(09) t_tab1-pos-cont,
 60(18) t_tab1-matnr,
 80(16) t_tab1-qty RIGHT-JUSTIFIED ,
 98(16) t_tab1-sale RIGHT-JUSTIFIED ,
 116(07) t_tab1-paymeth,
 125(16) t_tab1-final RIGHT-JUSTIFIED,
 143(06) t_tab1-tarcur,
 152(12) t_tab1-assign.
 gv_qty = t_tab1-qty + gv_qty.
 gv_sale = t_tab1-sale + gv_sale.
 gv_final = t_tab1-final + gv_final.
 ENDLOOP.
 FORMAT COLOR 3.
 ULINE: /(164).
 WRITE:/ 'TOTALS',
 80(16) gv_qty RIGHT-JUSTIFIED,
 98(16) gv_sale RIGHT-JUSTIFIED,
 125(16) gv_final RIGHT-JUSTIFIED,
 182 ''.
 ULINE: /(164).
 FORMAT RESET.
ENDIF.
ENDFORM. " fr_display_report
*& Form FR_DISPLAY_HEADER
 text
FORM fr_display_header.
IF error IS INITIAL.
 FORMAT COLOR 1.
 WRITE:/ 'Date upload :'(007), 25 sy-datum, 38 ''.
 WRITE:/ 'Production or Test Run:'(008), 25 gv_status, 38 ''.
 WRITE:/ 'Upload User Logon :'(009), 25 sy-uname, 38 ''.
 ULINE: /(164).
 WRITE:/1(04) 'Site'(010),
 13(10) 'Date'(011),
 25(05) 'Curr.'(012),
 32(14) 'Receipt'(013),
 48(09) 'Cashier'(014),
 60(18) 'Article'(015),
 92 'Qty'(016),
 102 'Item Amount'(017),
 116(7) 'M.o.P.'(018),
 128 'Tender Amount'(019),
 143(6) 'T.Curr'(020),
 152(12) 'Assignment'(021).
 ULINE:/(164).
 FORMAT RESET.
ENDIF.
ENDFORM. " FR_DISPLAY_HEADER
*& Form fr_newdynpro
 text
FORM fr_newdynpro USING program LIKE bdcdata-program
 dynpro LIKE bdcdata-dynpro.
t_bdcdata-program = program .
t_bdcdata-dynpro = dynpro.
t_bdcdata-dynbegin = 'X'.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM. " fr_newdynpro
*& Form fr_loadfield
 text
FORM fr_loadfield USING field LIKE bdcdata-fnam
 value.
t_bdcdata-fnam = field.
t_bdcdata-fval = value.
APPEND t_bdcdata.
CLEAR t_bdcdata.
ENDFORM. " fr_loadfield
*& Form fr_fill_bdctab
 text
FORM fr_fill_bdctab.
REFRESH t_bdcdata.
PERFORM fr_newdynpro USING 'SAPMWPUK' '100'.
PERFORM fr_loadfield USING 'G_FILIALE' t_tab-cust.
PERFORM fr_loadfield USING 'G_DATUM' t_tab-date.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BON'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '500'.
PERFORM fr_loadfield USING 'WPSCB01-POSKREIS' t_tab-pos-cont.
PERFORM fr_loadfield USING 'WPSCB01-KASSID' t_tab-pos-id.
PERFORM fr_loadfield USING 'WPSCB01-BELEGWAERS' t_tab-currency.
PERFORM fr_loadfield USING 'WPSCB01-CSHNAME' t_tab-cashier.
PERFORM fr_loadfield USING 'WPSCB01-BONNUMMER' t_tab-extnbr.
PERFORM fr_loadfield USING 'E1WPB02-QUALARTNR(01)' t_tab-qualif.
PERFORM fr_loadfield USING 'E1WPB02-ARTNR(01)' t_tab-matnr.
PERFORM fr_loadfield USING 'E1WPB02-MENGE(01)' t_tab-qty.
PERFORM fr_loadfield USING 'WPSCB03-KONDVALUE(01)' t_tab-sale.
PERFORM fr_loadfield USING 'E1WPB02-VORGANGART(01)' t_tab-pos-tr.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'ZAHL'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '530'.
PERFORM fr_loadfield USING 'WPSCB06-ZAHLART' t_tab-paymeth.
PERFORM fr_loadfield USING 'WPSCB06-SUMME' t_tab-final.
PERFORM fr_loadfield USING 'WPSCB06-WAEHRUNG' t_tab-tarcur.
PERFORM fr_loadfield USING 'WPSCB06-ZUONR' t_tab-assign.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'SAVE'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '530'.
PERFORM fr_loadfield USING 'WPSCB06-ZAHLART' t_tab-paymeth.
PERFORM fr_loadfield USING 'WPSCB06-SUMME' t_tab-final.
PERFORM fr_loadfield USING 'WPSCB06-WAEHRUNG' t_tab-tarcur.
PERFORM fr_loadfield USING 'WPSCB06-ZUONR' t_tab-assign.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BACK'.
PERFORM fr_newdynpro USING 'SAPLSPO1' '0200'.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'YES'.
PERFORM fr_newdynpro USING 'SAPMWPUK' '100'.
PERFORM fr_loadfield USING 'G_FILIALE' t_tab-cust.
PERFORM fr_loadfield USING 'G_DATUM' t_tab-date.
PERFORM fr_loadfield USING 'BDC_OKCODE' 'BACK'.
ENDFORM. " fr_fill_bdctab
*& Form fr_data_posting
 text
FORM fr_data_posting.
IF NOT t_bdcdata[] IS INITIAL.
 REFRESH messtab.
 CALL TRANSACTION 'WPUK' USING t_bdcdata
 MODE gv_mode
 UPDATE 'S'
 MESSAGES INTO messtab.
 IF sy-subrc = 0 .
 CLEAR w_text.
 LOOP AT messtab.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 id = messtab-msgid
 lang = sy-langu
 no = messtab-msgnr
 v1 = messtab-msgv1
 v2 = messtab-msgv2
 v3 = messtab-msgv3
 v4 = messtab-msgv4
 IMPORTING
 msg = w_text
 EXCEPTIONS
 not_found = 1
 OTHERS = 2.
 MOVE w_text TO t_text-msgtxt.
 CONCATENATE 'Site:'(031) t_tab-cust
 'Article:'(024) t_tab-matnr
 'Posted Sucessfully'(032)
 INTO t_text-desc SEPARATED BY space.
 APPEND t_text.
 CLEAR t_text.
 ENDLOOP.
 ELSE.
 CLEAR w_text.
 LOOP AT messtab.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 id = messtab-msgid
 lang = sy-langu
 no = messtab-msgnr
 v1 = messtab-msgv1
 v2 = messtab-msgv2
 v3 = messtab-msgv3
 v4 = messtab-msgv4
 IMPORTING
 msg = w_text
 EXCEPTIONS
 not_found = 1
 OTHERS = 2.
 MOVE w_text TO t_text-msgtxt.
 IF messtab-msgnr EQ '213'.
 CONCATENATE 'Site:'(031) t_tab-cust
 'Article:'(024) t_tab-matnr
 'Posted Sucessfully'(032)
 INTO t_text-desc SEPARATED BY space.
 APPEND t_text.
 CLEAR t_text.
 EXIT. ELSE.
 CONCATENATE 'Site:'(031) t_tab-cust
 'Article:'(024) t_tab-matnr
 'Not Posted'(033)
 INTO t_text-desc SEPARATED BY space.
 APPEND t_text.
 CLEAR t_text.
 ENDIF.
 ENDLOOP.
 ENDIF.
ENDIF.
ENDFORM. " fr_data_posting
*& Form fr_authority_check
 text
FORM fr_authority_check.
AUTHORITY-CHECK OBJECT 'Y_VATADJ'
 ID 'VKORG' FIELD t001w-vkorg
 ID 'TCD' FIELD 'YGFVAT'.
IF sy-subrc NE 0.
 MESSAGE e999 WITH text-m02.
ENDIF.
ENDFORM. " fr_authority_check
*& Form fr_write_msg
 text
FORM fr_write_msg.
SKIP.
ULINE:/(164).
WRITE:/
'Messages encountered while Calling Transaction WPUK'(025),
 90 'Message Text'(026).
ULINE:/1(164).
LOOP AT t_text.
 WRITE:/1 t_text-desc,
 90 t_text-msgtxt,
 164 ''.
ENDLOOP.
ULINE:/1(164).
ENDFORM. " fr_write_msg
*& Form FR_BUILD_REP
 text
FORM fr_build_rep.
IF error IS INITIAL.
 IF NOT t_tab[] IS INITIAL.
 LOOP AT t_tab.
 MOVE:
 t_tab-cust TO t_tab1-cust, "site/customer number
 t_tab-date TO t_tab1-date, "transaction date
 t_tab-currency TO t_tab1-currency, "currency
 t_tab-extnbr TO t_tab1-extnbr, "external reference number
 t_tab-pos-cont TO t_tab1-pos-cont, "POS controler
 t_tab-pos-id TO t_tab1-pos-id, "POS id
 t_tab-cashier TO t_tab1-cashier, "cashier name
 t_tab-qualif TO t_tab1-qualif, "qualifier of the article
 t_tab-matnr TO t_tab1-matnr, "article number
 t_tab-pos-tr TO t_tab1-pos-tr, "POS transfert type
 t_tab-paymeth TO t_tab1-paymeth, "payment method
 t_tab-tarcur TO t_tab1-tarcur, "target currency
 t_tab-assign TO t_tab1-assign.
 REPLACE ',' WITH '.' INTO t_tab-qty.
 CONDENSE t_tab-qty NO-GAPS.
 MOVE t_tab-qty TO t_tab1-qty.
 REPLACE ',' WITH '.' INTO t_tab-sale.
 CONDENSE t_tab-sale NO-GAPS.
 MOVE t_tab-sale TO t_tab1-sale.
 REPLACE ',' WITH '.' INTO t_tab-final.
 CONDENSE t_tab-final NO-GAPS.
 MOVE t_tab-final TO t_tab1-final.
 APPEND t_tab1.
 CLEAR t_tab1.
 ENDLOOP.
 ENDIF.
ENDIF.
ENDFORM. " FR_BUILD_REP
*& Form fr_format_tab
 text
FORM fr_format_tab.
DATA : lv_qty TYPE string.
IF NOT t_tab-qty IS INITIAL.
 IF t_tab-qty+0(1) EQ '-'.
 CLEAR lv_qty.
 MOVE t_tab-qty TO lv_qty.
 CLEAR t_tab-qty.
 SHIFT lv_qty LEFT CIRCULAR.
 CONDENSE lv_qty NO-GAPS.
 MOVE lv_qty TO t_tab-qty.
 MODIFY t_tab TRANSPORTING qty.
 ENDIF.
ENDIF.
ENDFORM. " fr_format_tab

How to find the exact user exit for our requirement?

Dear Mr. keerthi,
can you please explain me how to find the exact user exit for our requirement?

Hi sandip
There is more than one method in which you can check for user-exits.The following method is used very often.
How to find the exact user-exit for your requirement.
1. You can check the user exists using transaction SE85.
2. Repository Information System -> Enhancements -> Customer exits
3. You can search the user-exits by package name.
4. Double click on each exit name to check the function module exits.
The procedure to find the package name.
Execute transaction SE93
Enter the tcode of the transaction for which you want to check the user exit.
Example: if you want to find the user-exit for purchase orders while changing, enter ME22n and press display.
You will get to see the package name
But you need to confirm that the user exit will get triggered at the appropriate event.
( example: you might want some validations to be done ON SAVE of a purchase order)
Checking if the user-exit is getting triggered or not.
1. Open the user exit function module (that you have got in step 4) in Tcode SE37.
2. Click on where used button. In the pop up that immediately appears choose only programs .
3. You will get a list of programs. Double click on the program name.
4. You will get the list of location where this function module user exit is used.
5. Place session break points at each of these location ( at each CALL FUNCTION statement)
6. Now go to your transaction ( say change purchase order tcode:Me22n) and check if the user exit is getting triggered on appropriate event.
regards,
Prasad

How to find the appropriate user exit for invoic02 idoc in idoc_output_invo

Hi all,
I am new to this community p
i have issue regarding the How to find the appropriate user exit for invoic02 idoc in idoc_output_invoic function module.........
thanks,

Hi ,
welcome to SDN.
You can select the appropriate Customer exit accrding to the available parameters .
The list of exits available are
EXIT_SAPLVEDF_001
EXIT_SAPLVEDF_002
EXIT_SAPLVEDF_003
EXIT_SAPLVEDF_004
For Example , if you want to modify the Idoc data(EDIDD) you have to use the EXIT_SAPLVEDF_002. accodingly you can select the user exit according to the avaialable parametres.Use Table MODSAP fto get the Enhancement name.
Hope this Helps
Rgds
Sree
Edited by: Sree on Jul 23, 2010 12:11 PM

How to find the ME29N 'USER EXIT' when our save the release PO after.

How to find the ME29N 'USER EXIT' when our save the release PO after.
which user exit will be used?
thanks.
alex.

Hi,
process :
    go to tranx code :   ME29N ,
       System---->Status , here copy the program name (SAPLMEGUI),
     go to abap editor and specify the program name SAPLMEGUI and find the package "ME".
     tranx code : CMOD , Utilites--->Sap Enanchement,
                                     specify the package name : ME
                                      and execute, displays a list of exits ,
                             and find out our suitable exit based on requirement.
check these :   EXIT_SAPMM06E_021
reg
Siva

How to obtain the row data in the component datatable?

if I want to edit a row data, and then know which row is edited in the component datatable, and how to do?
How to obtain the row data in the component datatable, and update it to database, not simplely edit a simple table
Any ideas? Thanks

Thank you very much for your help Alexander !
It's quite confusing when you leave Struts and try to adapt your projects for JSF for the first time...
I wanted to click on a row with a "onMouseClick" on the TR tag like I used to do in Struts/JSTL. But it seems to be impossible in a dataTable.
Ok then. I've added a column at the end of the row with an icon.
But eventually I didn't need to declare link parameters.
In my BackingBean I did like this :
public String selectEventForUpdate() throws IllegalAccessException, InvocationTargetException {
        PortletAgenda event = (PortletAgenda) JSFUtils.getInRequestMap("event");
        BeanUtils.copyProperties(this, event);
        return null;
   }JSFUtils.getInRequestMap(...) is a method I wrote in a util object :
public static Object getInRequestMap(String name) {
        Object res = null;
        Map requestMap=FacesContext.getCurrentInstance().getExternalContext().getRequestMap();
        if (requestMap!=null) {
            res=requestMap.get(name);
        return res;
} " event " is the name of the item in my dataTable list.
My backingBean has the same attributes as "event".
So when the page is reloaded I have a backingBean full with the selected properties to edit/update.
Thanks to your reply I realized that putting this form in the middle of the dataTable seems to be impossible.
So I put this form in a floating DIV in front of the table with a shadow.
It works :o) !
But I'm a little bit disapointed to be honest...
I used to build my web applications with Struts and JSTL and doing this kind of interface was really easy.
I've decided 3 days ago to convert into JSF because the "GUI Layer" seemed to be improved.
But now I realize that I cannot put a onMouseOver and onMouseClick on a row and I cannot display a different row in the middle of a table....
I think it's a shame because there is a facet for header and footer.
And it would be great if we could create our own personal facet that appears only if a condition is true.
For exemple " if the current item id is the same as the request parameter id then display the following facet content ....... (with a panel group and a form inside to update the row) "
It's easy to do that with JSTL thanks to c:forEach and c:if but it seems to be impossible to use JSTL tags like this during the dataTable iteration.
And JSF tags seems to have no logical tags like " if " or loops that can be nested in dataTable.
I really need to realize this interface (you click on a row then an edit form appears where you clicked).
Do I have to write a component myself that extends dataTable?
Do you know if writing such a component is hard to do for a beginner like me?
(I've juste discovered JSF 3 days ago and I've used Struts/JSTL for 2 years til now)
I'd be glad to have much advices from you about that.
Regards

How to call the Jsp through BPM Obejct

Hi,
I have gone through the some topic, how to call the Jsp through BPM Object.
I have followed step below,
1. I have create the sample jsp page
2. Import into BPM studio under webroot\custom Jsp
3. Created the screenflow and added the "Interactive Component call" object
4. Right Click the Object and selected Maintask and Implementation type as "BPM Object Interactive Call"
5. Selected the use JSP presentation object option and when i click ok its showing "BPM instance object must be selected"
But when i select the Instance Variable tab, its not showing anything.
Can any one help me how to call the Jsp in screenflow with step by step procedure, that would be very greate help for me.
Regards,
Anandh P

Hi,
You are running a jsp report through rwservlet. In this case paper layout will be displayed. You have to deploy your jsp as web report to get the web layout. Please refer to the doc below, which describes how to deploy the web report.
http://download-uk.oracle.com/docs/html/B10314_01/pbr_run.htm#1011901
To run the jsp report, URL may look like
http://www.wwt.com/reports/<jsp name>?<parameter list>
Hope this helps
Vinayak

How to obtain the default serie for a document

Hi,
Anybody know how can obtain the default serie for a document throw a query??
I can`t see the relation between the ONNM and the NNM1 tables because the 'dfltseries' field of the ONNM not corresponding with the 'Series' field of the NNM1.
For example for an A/P Invoice
Thanks!!

Hi Mariano,
According to the SDK Help file, you need to query the NNM2 table
Series Default
Table name: NNM2
ObjectCode UserSign Series DocSubType
So, the query to retrieve the A/P default series for the manager user would be:
SELECT T0.Series FROM [dbo].[nnm2] T0 WHERE T0.ObjectCode='13' AND T0.UserSign = 1
From the SDK you can replace the T0.UserSign = 1 for T0.UserSign = oCompany.UserSignature to retrieve the default series for the current user...
Regards,
Vítor Vieira

How to obtain the license for the mentioned products.

Hi All,
Please help me in below licensing issues.
1) Our functional team got the below error while accessing "Job Scheduling Workbench".
Error: The Workbench is inaccessible because Oracle Manufacturing Scheduling has not been licensed. Please work with your Account Manger to purchase the license.
2) Another error message while accessing the navigation Flow Manufacturing --> Product Sync --> Flow Routings
Error: APP-BOM 20972: You cannot access this form
Cause: You do not have a license for Oracle Flow Manufacturing.
Action: Obtain a license for Oracle Flow Manufacturing.
Please guide me how to obtain the license for the above products.
Environment: eBS R12.1.3 on Linux 5.8
Regards,
Siva

Thanks for providing the document. I follow the document and get back to you for any issues.
Regards,
Siva.

How to change the output executable file name(a.prj:(output)--- b.exe)

LabWindows / CVI： how to change the output executable file name
For example, I have an A project a.prj, I do not want to compile the output file is a.exe, but b.exe.
I will try to save as a.prj b.prj, a.cws save as b.cws
eg:a.prj ---->(output)--->b.exe
Solved!
Go to Solution.

You can go to Build >> Target Settings menu item, select Release (or Release 64) in the Configuration filed and set the name of the executable to create in Application FIle field, withouyt need to change the prj or cws filename.
See the complete description of available options here.
Proud to use LW/CVI from 3.1 on.
My contributions to the Developer Zone Community
If I have helped you, why not giving me a kudos?

How to Identify the Type of Font Names in Illustrator

How to identify the type of font names like "True Type font" (or) "open Type font" for illustrator file using Scripts or any language. Could you please advice me.
Thanks,
Prabudass

If there is an Illustrator SDKor Illustrator Scripting forum, try
that. ATM won't really help - it is obsolete and should not be
installed (breaks things).
Aandi Inston

How to get the dynamic Crosstab header name ?

Hi ,
The crosstab resaults shows as below ,How to get the dynamic Crosstab header name ?
| Countryname |
| Province1 | Province2 |
| here to get CountryName | here to get CountryName |
how to get the Countryname in data ceil?
thanks

Could you please elaborate on your requirement?
You want header to be dynamic?

How to use the default database service name on creating procedure for data

how to use the default database service name on creating procedure for datagaurd client failover ??? all oracle doc says create a new service as below and enable at DB startup. but our client is using/wanted database default service to connect from application on the datagaurd environment (rac to non rac setup).please help.
Db name is = prod.
exec DBMS_SERVICE.CREATE_SERVICE (service_name => 'prod',network_name =>'prod',failover_method => 'BASIC',failover_type => 'SELECT',failover_retries => 180,failover_delay => 1);
says already the service available.
CREATE OR REPLACE TRIGGER manage_dgservice after startup on database DECLARE role
VARCHAR(30);BEGIN SELECT DATABASE_ROLE INTO role FROM V$DATABASE;
IF role = 'NO' THEN DBMS_SERVICE.START_SERVICE('prod');
END IF;
END;
says trigger created, but during a swithover still the service is listeneing on listener.
tns entry.
prod =
(DESCRIPTION =
(ADDRESS_LIST =
(LOAD_BALANCE = YES)
(ADDRESS = (PROTOCOL = TCP)(HOST = prod1)(PORT = 1521))
(ADDRESS = (PROTOCOL = TCP)(HOST = prod2)(PORT = 1521)) ---> primary db entry
(ADDRESS_LIST =
(ADDRESS = (PROTOCOL = TCP)(HOST = proddr)(PORT = 1521)) --> DR DB entry
(CONNECT_DATA =
(SERVICE_NAME = prod)
thanks in advance.
Edited by: 854393 on Dec 29, 2012 11:52 AM

Hello;
So in the example below replace "ernie" with the alias you want the client to use.
I can show you how I do it :
First an entry need to be added to the client tnsnames.ora that uses a SERVICE_NAME instead of a SID.
ernie =
(DESCRIPTION =
    (ADDRESS_LIST =
       (ADDRESS = (PROTOCOL = TCP)(HOST = Primary.host)(PORT = 1521))
       (ADDRESS = (PROTOCOL = TCP)(HOST = Standby.host)(PORT = 1521))
       (CONNECT_DATA =
       (SERVICE_NAME = ernie)
)Next the service 'ernie' needs to be created manually on the primary database.
BEGIN
   DBMS_SERVICE.CREATE_SERVICE('ernie','ernie');
END;
/After creating the service needs to be manually started.
BEGIN
   DBMS_SERVICE.START_SERVICE('ernie');
END;
/Several of the default parameters can now be set for 'ernie'.
BEGIN
   DBMS_SERVICE.MODIFY_SERVICE
   ('ernie',
   FAILOVER_METHOD => 'BASIC',
   FAILOVER_TYPE => 'SELECT',
   FAILOVER_RETRIES => 200,
   FAILOVER_DELAY => 1);
END;
/Finally a database STARTUP trigger should be created to ensures that this service is only offered if the database is primary.
CREATE TRIGGER CHECK_ERNIE_START AFTER STARTUP ON DATABASE
DECLARE
V_ROLE VARCHAR(30);
BEGIN
SELECT DATABASE_ROLE INTO V_ROLE FROM V$DATABASE;
IF V_ROLE = 'PRIMARY' THEN
DBMS_SERVICE.START_SERVICE('ernie');
ELSE
DBMS_SERVICE.STOP_SERVICE('ernie');
END IF;
END;
/lsnrctl status - should show the new service.
When I do this the Database will still register with the listener. I don't give that to the clients. That one will still be available but nobody knows about it. Meanwhile "ernie" moves with the database role.
So in my example the default just hangs out in the background.
Best Regards
mseberg
Edited by: mseberg on Dec 29, 2012 3:51 PM

How to obtain the enhancement through exit name

Similar Messages

Maybe you are looking for