To find Function Code in BDC

Hi,
I am creating a BDC program for transaction FB09....
How can I identify the function code for a BUTTON?
And also, how can I know the function key number for the button?

Hi Vin,
go to t-code FB09>go to menu>system> status>select program-->double clcik ..
it takes you to se38 program..
copy program name -->go to se80 and enter the program name and enter..
it shows you the all includes in the right hand side..
expand the GUI status in the right hand side..
now you will get the all gui status's according to the description doudble click and see the Fucntion key's assigned to the Buttons..
Regards,
Prabhudas

Similar Messages

How to find function code for buttons on toolbar in oops alv

Hi experts,
I want to remove some buttons from toolbar in oops alv, i know the procedure like get function code and pass the value in a table and pass that table to IT_TOOLBAR_EXCLUDING of
method set_table_for_first_display but I WANT TO KNOW HOW TO FIND FUNCTION CODE FOR BUTTONS ON TOOLBAR IN OOPS ALV

Hi Prakash,
-->First you have to set the pf status in your alv program by,
{FORM pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'FIRST'.
ENDFORM.                    "PF_STATUS}
-->Pass this Subroutine name in the Function module, Reuse_alv_grid_display's parameters i.e,
      i_callback_pf_status_set          = 'PF_STATUS'}
*-->Then doble click on that pf status,
From the menu bar, select Extras->Adjust Template->List Viewer,
This will give you the existing statndard gui status of the program*
->Then catch that function codes in the User command Parameter of the Function module Reuse.. i.e,
      i_callback_user_command           = 'COMM'
And make a subroutine of the name 'COMM'i.e,
FORM comm USING ucomm LIKE sy-ucomm selfield TYPE slis_selfield.
DATA: okcode TYPE sy-ucomm.
okcode = ucomm.
CASE okcode.
    WHEN 'REF'.
    CALL FUNCTION 'POPUP_TO_INFORM'
      EXPORTING
        titel         = 'MANSI'
        txt1          = 'CREATED BY'
        txt2          = SY-UNAME
      TXT3          = ' '
      TXT4          = ' '
endcase.
Hope it helps you
Regrds
Mansi

How to find Function codes

Dear SAP friends,
Does anybody knows an easy way to find function codes ( those of type ui_func) of standard ALV grid toolbar?
Searching this forum I learned that you can do se11 and read table RSMPTEXTS for program SAPLSVLV_FULLSCREEN or just se41 for program SAPLSVLV_FULLSCREEN.
Shouldn't there be some kind of complete Reference about function codes of standard ALV grid?
Please share if you know.
Thank you
Tatyana

Thank you, Ferry.
Reading method BUILD_COMPLETE_TOOLBAR of class CL_GUI_ALV_GRID you
can see an icon code, function code and text for the buttons of standard ALV grid toolbar.
Regards,
Tatyana

How to find function code for Dynamic generated program

Hi,
I have created a dynamic program for getting different selection screens depending on inputs . I am finding a flaw that, pressing 'BACK' buttn is leading some other action which was coded by me, instead of going back.
SY-UCOMM is also not working as it is dynamic program.
Help me for getting previous screen.
Please suggest me the inputs.Thank u
Regards
Aditya

Hi Klaus,
As per ur instructions, I replaced SY-UCOMM with SSCRFIELDS.
But no change in my problem.
The following screen shot is a program which is coded dynamically using fieldsymbols.
When I press BACK here for the following code selectionscreen, I am getting someother action which was coded by me. But not going back.
Twist is, SSCRFIELDS-UCOMM or SY-UCOMM is getting captured for 'F8', but not 'BACK'.
I hope, I have explained my issue clearly. Please let me know, if any deep clarifications needed.
Regards,
Aditya

How to find function codes of the buttons in ABAP Webdynpro

I had 2 buttons in my input screen of the WebDynpro, for both buttons some piece of logic is common. So i wrote that common logic in the default method 'WDDOBEFOREACTION', which will be triggered always before the corresponding methods got triggered.
Now my problem is the method 'WDDOBEFOREACTION' triggering even when user hits ENTER in the input screen, to prevent the common logic not to execute need to write some condition based on the user action. But unfortunately was not able to find the way. Could any one suggest me on this.

For your specific requirement :
you should first determine the current action which triggered this WDDOBEFOREACTION method,
as this method triggers for every action performed on the webdynpro view.
For that below is the code
DATA lo_api_view_controller    TYPE REF TO if_wd_view_controller.
DATA lo_action                 TYPE REF TO if_wd_action.
lo_api_view_controller = wd_this->wd_get_api( ).
lo_action = lo_api_view_controller->get_current_action( ).
IF lo_action IS NOT BOUND.
          IF lo_action->name EQ 'BUTTON1'   OR   lo_action->name EQ 'BUTTON2'.
Where BUTTON1 and BUTTON2 are the actions associated with both the buttons.
Write your common logic here and now it would get executed only for both these button cliks only
           ENDIF.
ENDIF.
Edited by: Avasarala Sampath on Oct 28, 2011 7:26 AM
Edited by: Avasarala Sampath on Oct 28, 2011 7:29 AM

Re : function codes that r available in ALV o/pu2019s.

Hi
How or where to find the function codes that r available in ALV o/pu2019s. for ex: for EXIT the fcode is %EX, for Spreadsheet its &XXLu2026. these things we give in menu painter.
And what happens to the deleted sales order data, I mean in the database level ( if it s deleted its not in database table ).
How to solve this.
Thanks
Anto

Hi,
Go to se80 ->Give standard alv program->Double Click gui status -> You can find the Lists of Fcodes.
Please Find the Below Link
[Help|Re: How to find function code for buttons on toolbar in oops alv]
Hope this will be Helpful
Thanks
kalyan

How to trap the two function code in the bdc

Dear All,
I have a bdc program now i need to pick up function code based on some condition. means if some condition then goto one function code and else don't go. I tried it but not working. It is working in shdb but not in the program.
eg.
 if not zcontract_no is initial.
 perform bdc_dynpro using 'SAPMZW_CREATE_SALES_ORDER_STD'
 '9000'.
 perform bdc_field using 'BDC_CURSOR'
 'P_CONTRACT'.
 perform bdc_field using 'BDC_OKCODE'
 '=COPY'.
 endif.
perform bdc_field using 'BDC_OKCODE'
 '=SUBMIT'.
Please suggest.
Regds,
Anup

Hi ,
 In your second case u r not specifying the BDC DYNPRO screen number , your code should be
if not zcontract_no is initial.
perform bdc_field using 'BDC_OKCODE'
'=COPY'.
else..
perform bdc_field using 'BDC_OKCODE'
'=SUBMIT'.
endif.
Kunal

How to get function code of enter button in bdc manually

hi
i need to know how to get function code of enter button in bdc manually like in screen i want to capture techincal infor of enter buttion and itd fucntion cod ehow can i get it i mean what is the key in keyboard to display that
i want to capture enter button and for eg status button etc funtion code
pls suggest
arora

Hi,
Want you need to do is go to transaction SHDB and record the bdc for the transaction you want, during transaction press the buttons for which you want the bdc code. And after this go press the back button and check the list of all the things recorded in Recorder.
And for SHDB help check this link:
http://abaplovers.blogspot.com/2008/02/recording-bdc-using-transaction-shdb.html
Hope this helps.
Regards,
Qamar.

How can we know the return code of BDC Program ?

Hi All,
Please tell me : How can we know the return code of BDC Program when being exceuted in Session or in Transaction mode.
In my program, we are uploading data from Excel sheet to SAP via BDC
The records that are not updated we want to create a log file.
Now to know whether a record is updated ot not, wat syst field shloud be used?
Its urgent....
Reward Point will be there ....
Thanks,
Harish

Hi harish,
try the logic in this code ...
i had attached input file in the end.
TYPES: begin of errmess,
 msgnr type t100-msgnr,
 text type t100-text,
 end of errmess.
TABLES : t100.
DATA: BEGIN OF DD_VA01,
 AUART TYPE VBAK-AUART,
 KUNNR TYPE RV45A-KUNNR,
 BSTKD TYPE VBKD-BSTKD,
 MABNR TYPE RV45A-MABNR,
 KWMENG(2) type C,
 KBETR(2) type C,
 END OF DD_VA01.
DATA:IT_VA01 Like TABLE OF DD_VA01,
 WA_VA01 Like LINE OF IT_VA01,
 WA_VA01_F Like LINE OF IT_VA01,
 IT_BDCDATA TYPE TABLE OF BDCDATA,
 WA_BDCDATA Like Line OF IT_BDCDATA,
 W_FNAME TYPE STRING,
 messtab like bdcmsgcoll occurs 0 with header line,
 it_errmess type table of errmess,
 wa_errmess like line of it_errmess,
 err_message type string.
data: zf1 type i,
 zc1 type c value '2',
 fn(20) type c.
Main Code ************************************************************
PERFORM get_input using 'C:\Documents and Settings\ic881592\Desktop\Daran_bdc_VA01-e.txt'.
SORT IT_VA01 BY AUART KUNNR BSTKD.
LOOP AT IT_VA01 INTO WA_VA01.
if WA_VA01_F-AUART <> WA_VA01-AUART OR
 WA_VA01_F-KUNNR <> WA_VA01-KUNNR OR
 WA_VA01_F-BSTKD <> WA_VA01-BSTKD.
 PERFORM set_header_flag.
 PERFORM create_bdc_header_data.
endif.
PERFORM create_bdc_item_data.
ENDLOOP.
PERFORM call_transaction.
PERFORM errorlog.
Procedures ***********************************************************
form get_input using w_fname.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 FILENAME = W_FNAME
 HAS_FIELD_SEPARATOR = '#'
 TABLES
 DATA_TAB = IT_VA01.
endform.
form call_transaction.
 PERFORM bdc_field using 'BDC_OKCODE' '/11'.
 CALL TRANSACTION 'VA01' USING IT_BDCDATA MODE 'A' messages into messtab.
 refresh it_bdcdata.
endform.
FORM set_header_flag.
 WA_VA01_F-AUART = WA_VA01-AUART.
 WA_VA01_F-KUNNR = WA_VA01-KUNNR.
 WA_VA01_F-BSTKD = WA_VA01-BSTKD.
 if zf1 = 1.
 PERFORM call_transaction.
 endif.
 zf1 = 1.
endform. "set_header_flag.
form create_bdc_header_data.
 perform bdc_dynpro using 'SAPMV45A' '0101'.
 perform bdc_field using 'VBAK-AUART' WA_VA01-AUART.
 perform bdc_field using 'BDC_OKCODE' '/00'.
 perform bdc_dynpro using 'SAPMV45A' '4001'.
 perform bdc_field using 'KUAGV-KUNNR' WA_VA01-KUNNR.
 perform bdc_field using 'VBKD-BSTKD' WA_VA01-BSTKD.
 perform bdc_field using 'BDC_OKCODE' '/00'.
 perform bdc_dynpro using 'SAPMSSY0' '0120'.
 perform bdc_field using 'BDC_CURSOR' '04/06'.
 perform bdc_field using 'BDC_OKCODE' '=CHOO'.
 perform bdc_dynpro using 'SAPMV45A' '4001'.
 PERFORM bdc_field USING 'BDC_OKCODE' '=POAN'.
endform. "create_bdcdata
FORM create_bdc_item_data.
 CONCATENATE 'RV45A-KWMENG(' zc1 ')' INTO FN.
 perform bdc_field using 'BDC_CURSOR' FN.
 perform bdc_field using FN WA_VA01-KWMENG.
 CONCATENATE 'KOMV-KBETR(' zc1 ')' INTO FN.
 perform bdc_field using FN WA_VA01-KBETR.
 CONCATENATE 'RV45A-MABNR(' zc1 ')' INTO FN.
 perform bdc_field using FN WA_VA01-MABNR.
 perform bdc_dynpro using 'SAPMV45A' '4001'.
 PERFORM bdc_field USING 'BDC_OKCODE' '=POAN'.
ENDFORM.
form errorlog.
LOOP AT MESSTAB .
 if MESSTAB-MSGNR = '311' or MESSTAB-MSGTYP = 'E'.
 SELECT SINGLE msgnr text FROM T100
 into wa_errmess
 WHERE SPRSL = MESSTAB-MSGSPRA
 AND ARBGB = MESSTAB-MSGID
 AND MSGNR = MESSTAB-MSGNR.
 IF SY-SUBRC = 0.
 err_message = wa_errmess-TEXT.
 IF err_message CS '&1'.
 REPLACE '&1' WITH MESSTAB-MSGV1 INTO err_message.
 REPLACE '&2' WITH MESSTAB-MSGV2 INTO err_message.
 REPLACE '&3' WITH MESSTAB-MSGV3 INTO err_message.
 REPLACE '&4' WITH MESSTAB-MSGV4 INTO err_message.
 ELSE.
 REPLACE '&' WITH MESSTAB-MSGV1 INTO err_message.
 REPLACE '&' WITH MESSTAB-MSGV2 INTO err_message.
 REPLACE '&' WITH MESSTAB-MSGV3 INTO err_message.
 REPLACE '&' WITH MESSTAB-MSGV4 INTO err_message.
 ENDIF.
 CONDENSE err_message.
 WRITE: / MESSTAB-MSGTYP, err_message .
 ELSE.
 WRITE: / MESSTAB.
 ENDIF.
 endif.
ENDLOOP.
endform. "errorlog
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
WA_BDCDATA-PROGRAM = PROGRAM.
WA_BDCDATA-DYNPRO = DYNPRO.
WA_BDCDATA-DYNBEGIN = 'X'.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
ENDFORM.
FORM BDC_FIELD USING FNAM FVAL.
WA_BDCDATA-FNAM = FNAM.
WA_BDCDATA-FVAL = FVAL.
APPEND WA_BDCDATA TO IT_BDCDATA.
CLEAR WA_BDCDATA.
ENDFORM.
input file :
OR 2148 0001235 R-1162 8 17
OR 2148 0001235 R-1161 2 30
OR 2148 0001235 100-400 6 25
OR 2148 0001235 R-1162 4 12
OR 2148 0001236 R-1162 3 12
OR 2148 0001236 R-1161 2 30
OR 2148 0001236 100-400 1 25
OR 2148 0001236 R-1162 7 12
OR 2148 0001236 R-1161 8 30
OR 2148 0001236 100-400 10 25
OR 2148 0001235 R-1161 5 30
OR 2148 0001235 100-400 2 25
OR 2148 0001235 R-11621 3 12
OR 2148 0001235 R-1161 2 30
OR 2148 0001235 100-400 1 25
OR 2148 0001235 R-1162 7 12
OR 2148 0001235 R-1161 8 30
OR 2148 0001235 100-400 10 25
OR 2148 0001236 R-1162 8 17
OR 2148 0001236 R-1161 2 30
OR 2148 0001236 100-400 6 25
OR 2148 0001236 R-1162 4 12
OR 2148 0001236 R-1161 5 30
OR 2148 0001236 100-400 2 25

Error in Module pool:Function code

Hi All,
I am using IW52 transacion for which I have activated the Screen exit and inserted table control on it.
The table control entries has to be deleted for which I have added a Delete button with function Code 'DELE'.
When trying to delete the entry the system throws an error message saying that 'The function code DELE is not available here'.However after pressing enter the entries are deleted.
I have debugged for the error and could find that the table T185F is being checked in the function module screen sequence.
Could someone please let me know how to customize the table with the function code I have added.
Thanks.
Arvind

Hi Neha,
The link says that we cannot enter Custom User command in the SAP Screen exit.But I think there is a way to maintian T185* table in VFBS transaction.
I tried the same and now not getting the error message that "Function code XXX is not available here".
The problem is now that the system is always keeping the OLD sy-ucomm value.That is when I press delete records I get a confirm prompt message ( custom ) and record gets deleted.After this I again press enter the pop up comes again.
I checked in de bugging and found that the sy-ucomm was not cleared.I tried to clear sy-ucomm values but the main program of the transaction again resets the Sy-ucomm.
Please let me know if you or anyone has any solution to deal with this.
Thanks.
Arvind
Edited by: Arvind Soni on Jan 19, 2009 11:34 AM
Edited by: Arvind Soni on Jan 19, 2009 11:34 AM

Adding 'FIND' functionality in toolbar of ALV Web Dynpro ABAP

Hi Friends,
I need to know whether we can add FIND functionality in toolbar of ALV display. If yes than which class will help in that, or do i need to code it.
Pls help on this.
Regards,
Saud

Hi Saud,
If you mean that you need to highlight the Field-Value then, you can use Set Focus On A Table Cell .
You can use the method REQUEST_FOCUS_ON_VIEW_ELEM of if_wd_view.
For this, you can see this post --
How to set focus on a specific UI field at the start of an application?
Further, you have to design 'find input-screen', submitting which will set focus on the cell that contains requested value.
This way, you can add ( or somehow, simulate ) the Functionality of FIND, although not per se.
Thanks.
Kumar Saurav.

How to maintain the function code added to a custom screen in IW31

Hello gurus,
Does anyone know how can I maintain the function code of the push button I have in my enhancement screen in IW31 (Service Order). 'Coz it says "Requested function 'my fcode' is not available". I tried it in VFBS but don't know the screen sequence or what's the right data to put. Please help me with this. Thanks.
Regards,
AyemSheera

Hi, you need add Your Function Code into the Tables T185x (x like T, F...). Call Transaction SM30 (SM31), put the Table name T185 into Table name and select the Button 'Maintain' or Customizing. The Transaction will navigate you to right position in Customizing. Next, you need to find in the Table's T185x Line with the Program Name SAPLCOIH. Then add your code into the Table's. At next, You have to maintain Your function Code in the PAI module of your Custom screen in the TA IW31.
Sincerely Yours,
Lubomir.

How to get the function codes

Hi ,
For displaying ALV on a modal dialog screen, I am using "CL_GUI_ALV_GRID" and the method is SET_TABLE_FOR_FIRST_DISPLAY.
I want to exclude the complete tool bar that is appearing on the screen. For that I have an exporting parameter of the above mentioned method, i.e., "IT_TOOLBAR_EXCLUDING"
But I dont know the function codes of the tool bar elements, to fill the internal table with. Couls any one please help me how to find them out.

In the ALV Layout mark NO_TOOLBAR = 'X'
data: e_layout TYPE LVC_S_LAYO.
MOVE 'X' TO e_layout-no_toolbar.
Pass e_layout to IS_LAYOUT of SET_TABLE_FOR_FIRST_DISPLAY
Edited by: Swastik Bharati on Apr 22, 2009 3:24 PM

RFC function Short dump - Function code SPBT_INITIALIZE

Hi ALL,
    We are trying to change the Sales orders using the RFC function with Paraller processing. When the function is doing the paraller processing we are getting the runtime error when it tries to initialize using the function module SPBT_INITIALIZE. How can we fix this error.
Here is the description of the error:
Short text of error message:
Init. group IBM_IDOC_CHG not possible as another group IBM_IDOC_ADD is a
lready init.
Technical information about the message:
Diagnosis
     The system tried to initialize the environment for processing
     parallel RFCs using the function code SPBT_INITIALIZE. Here it was
     established that the environment was already initialized for other
     PBT groups.
     This is a programming error in an application program that uses
     parallel RFCs. You can find the name of the program in the ABAP
     call stack.
Appreciate your help in this,
Thanks,
Satya

Hi,
you need a wrapper RFC to do achive result.
Go tru the thread below you problem should be resolved,
RFC to FILE
You need to map the multi structured file to new RFC structure.
Hope this helps.
Prasad Babu.
Message was edited by:
        PrasadBabu Koribilli

Transaction codes in BDC

Hi Experts,
CAn someone please explain how to use a transaction code in BDC???

Hi Manpreet,
I think you are asking how to call transaction using BDC.
If I am not wrong , hope this code will be helpful for u.
Thanks.
REPORT ZBDC_EXAMPLE NO STANDARD PAGE HEADING
                      LINE-SIZE 132.
Data declaration
TABLES: ekko, ekpo.
TYPES: BEGIN OF t_ekko,
    ebeln TYPE ekko-ebeln,
    waers TYPE ekko-waers,
    netpr TYPE ekpo-netpr,
    err_msg(73) TYPE c,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko,
      it_error TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_error TYPE t_ekko,
      it_success TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_success TYPE t_ekko.
DATA: w_textout            LIKE t100-text.
DATA: gd_update TYPE i,
      gd_lines TYPE i.
*Used to store BDC data
DATA: BEGIN OF bdc_tab OCCURS 0.
        INCLUDE STRUCTURE bdcdata.
DATA: END OF bdc_tab.
*Used to stores error information from CALL TRANSACTION Function Module
DATA: BEGIN OF messtab OCCURS 0.
        INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF messtab.
*Screen declaration
SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME
                                    TITLE text-001. "Purchase order Num
SELECT-OPTIONS: so_ebeln FOR ekko-ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME
                                    TITLE text-002. "New NETPR value
PARAMETERS: p_newpr(14)   TYPE c obligatory. "LIKE ekpo-netpr.
SELECTION-SCREEN END OF BLOCK block2.
*START-OF-SELECTION
START-OF-SELECTION.
Retrieve data from Purchase order table(EKKO)
SELECT ekkoebeln ekkowaers ekpo~netpr
    INTO TABLE it_ekko
    FROM ekko AS ekko INNER JOIN ekpo AS ekpo
      ON ekpoebeln EQ ekkoebeln
   WHERE ekko~ebeln IN so_ebeln AND
         ekpo~ebelp EQ '10'.
*END-OF-SELECTION
END-OF-SELECTION.
Check data has been retrieved ready for processing
DESCRIBE TABLE it_ekko LINES gd_lines.
IF gd_lines LE 0.
Display message if no data has been retrieved
    MESSAGE i003(zp) WITH 'No Records Found'(001).
    LEAVE TO SCREEN 0.
ELSE.
Update Customer master data (instalment text)
    LOOP AT it_ekko INTO wa_ekko.
      PERFORM bdc_update.
    ENDLOOP.
Display message confirming number of records updated
    IF gd_update GT 1.
      MESSAGE i003(zp) WITH gd_update 'Records updated'(002).
    ELSE.
      MESSAGE i003(zp) WITH gd_update 'Record updated'(003).
    ENDIF.
Display Success Report
Check Success table
    DESCRIBE TABLE it_success LINES gd_lines.
    IF gd_lines GT 0.
    Display result report column headings
      PERFORM display_column_headings.
    Display result report
      PERFORM display_report.
    ENDIF.
Display Error Report
Check errors table
    DESCRIBE TABLE it_error LINES gd_lines.
If errors exist then display errors report
    IF gd_lines GT 0.
    Display errors report
      PERFORM display_error_headings.
      PERFORM display_error_report.
    ENDIF.
ENDIF.
*&      Form DISPLAY_COLUMN_HEADINGS
      Display column headings
FORM display_column_headings.
WRITE:2 ' Success Report '(014) COLOR COL_POSITIVE.
SKIP.
WRITE:2 'The following records updated successfully:'(013).
WRITE:/ sy-uline(42).
FORMAT COLOR COL_HEADING.
WRITE:/      sy-vline,
          (10) 'Purchase Order'(004), sy-vline,
          (11) 'Old Netpr'(005), sy-vline,
          (11) 'New Netpr'(006), sy-vline.
WRITE:/ sy-uline(42).
ENDFORM.                    " DISPLAY_COLUMN_HEADINGS
*&      Form BDC_UPDATE
      Populate BDC table and call transaction ME22
FORM bdc_update.
PERFORM dynpro USING:
      'X'   'SAPMM06E'        '0105',
      ' '   'BDC_CURSOR'      'RM06E-BSTNR',
      ' '   'RM06E-BSTNR'     wa_ekko-ebeln,
      ' '   'BDC_OKCODE'      '/00',                      "OK code
      'X'   'SAPMM06E'        '0120',
      ' '   'BDC_CURSOR'      'EKPO-NETPR(01)',
      ' '   'EKPO-NETPR(01)' p_newpr,
      ' '   'BDC_OKCODE'      '=BU'.                      "OK code
Call transaction to update customer instalment text
CALL TRANSACTION 'ME22' USING bdc_tab MODE 'N' UPDATE 'S'
         MESSAGES INTO messtab.
Check if update was succesful
IF sy-subrc EQ 0.
    ADD 1 TO gd_update.
    APPEND wa_ekko TO it_success.
ELSE.
Retrieve error messages displayed during BDC update
    LOOP AT messtab WHERE msgtyp = 'E'.
    Builds actual message based on info returned from Call transaction
      CALL FUNCTION 'MESSAGE_TEXT_BUILD'
           EXPORTING
                msgid               = messtab-msgid
                msgnr               = messtab-msgnr
                msgv1               = messtab-msgv1
                msgv2               = messtab-msgv2
                msgv3               = messtab-msgv3
                msgv4               = messtab-msgv4
           IMPORTING
                message_text_output = w_textout.
    ENDLOOP.
Build error table ready for output
    wa_error = wa_ekko.
    wa_error-err_msg = w_textout.
    APPEND wa_error TO it_error.
    CLEAR: wa_error.
ENDIF.
Clear bdc date table
CLEAR: bdc_tab.
REFRESH: bdc_tab.
ENDFORM.                    " BDC_UPDATE
      FORM DYNPRO                                                   *
      stores values to bdc table                                    *
--> DYNBEGIN                                                      *
--> NAME                                                          *
--> VALUE                                                         *
FORM dynpro USING    dynbegin name value.
IF dynbegin = 'X'.
    CLEAR bdc_tab.
    MOVE: name TO bdc_tab-program,
           value TO bdc_tab-dynpro,
           'X' TO bdc_tab-dynbegin.
    APPEND bdc_tab.
ELSE.
    CLEAR bdc_tab.
    MOVE: name TO bdc_tab-fnam,
           value TO bdc_tab-fval.
    APPEND bdc_tab.
ENDIF.
ENDFORM.                               " DYNPRO
*&      Form DISPLAY_REPORT
      Display Report
FORM display_report.
FORMAT COLOR COL_NORMAL.
Loop at data table
LOOP AT it_success INTO wa_success.
    WRITE:/      sy-vline,
            (10) wa_success-ebeln, sy-vline,
            (11) wa_success-netpr CURRENCY wa_success-waers, sy-vline,
            (11) p_newpr, sy-vline.
    CLEAR: wa_success.
ENDLOOP.
WRITE:/ sy-uline(42).
REFRESH: it_success.
FORMAT COLOR COL_BACKGROUND.
ENDFORM.                    " DISPLAY_REPORT
*&      Form DISPLAY_ERROR_REPORT
      Display error report data
FORM display_error_report.
LOOP AT it_error INTO wa_error.
    WRITE:/      sy-vline,
            (10) wa_error-ebeln, sy-vline,
            (11) wa_error-netpr CURRENCY wa_error-waers, sy-vline,
            (73) wa_error-err_msg, sy-vline.
ENDLOOP.
WRITE:/ sy-uline(104).
REFRESH: it_error.
ENDFORM.                    " DISPLAY_ERROR_REPORT
*&      Form DISPLAY_ERROR_HEADINGS
      Display error report headings
FORM display_error_headings.
SKIP.
WRITE:2 ' Error Report '(007) COLOR COL_NEGATIVE.
SKIP.
WRITE:2 'The following records failed during update:'(008).
WRITE:/ sy-uline(104).
FORMAT COLOR COL_HEADING.
WRITE:/      sy-vline,
          (10) 'Purchase Order'(009), sy-vline,
          (11) 'Netpr'(010), sy-vline,
          (73) 'Error Message'(012), sy-vline.
WRITE:/ sy-uline(104).
FORMAT COLOR COL_NORMAL.
ENDFORM.                    " DISPLAY_ERROR_HEADINGS
Edited by: Navdeep Malik on Dec 24, 2008 6:33 AM
Edited by: Navdeep Malik on Dec 24, 2008 7:02 AM

To find Function Code in BDC

Similar Messages

Maybe you are looking for