Please help me regardig BAPI

Hi experts ,
I am working on creating functional module .
I checked the program .No errors came .But, While I am activating its throwing an error
stating " REPORT/PROGRAM statement missing , or program type is I (INCLUDE) . in program SAPLZSAGBAPI..."
whats this and how i can resolve it .
pls do the needful

Hi!
You are being to modify a function group. A function group contains many includes so they can be only compiled always together.
Try the following:
Use SE80 transaction, switch to Function groups
Enter the name (without SAPL): ZSAGBAPI then press enter
Right click on the ZSAGBAPI function group and click Activate
This way it has to be activated.
Regards
Tamá

Similar Messages

Please help with this bapi

Hi Experts!
I am trying to use 'BAPI_OUTB_DELIVERY_CONFIRM_DEC' for posting goods issue but could not succeed. I am getting the message 615 (Delivery item is not or only partially packed) when I test the same in SE37. However the same delivery, if I go to VL02n and issue post goods issue, it is succeeding. I think I am doing some mistake with the parameters to be passed to bapi. Please help me find the error as I am unable to find. I am stuck with this for pretty long time. Points assured for helpful answers.
Thanks for your time.
Krishen
DATA: itab_headerdata TYPE STANDARD TABLE OF bapiobdlvhdrcon WITH HEADER LINE.
DATA: itab_headercontrol TYPE STANDARD TABLE OF bapiobdlvhdrctrlcon WITH HEADER LINE.
DATA: itab_itemdata TYPE STANDARD TABLE OF bapiobdlvitemcon WITH HEADER LINE.
DATA: itab_itemcontrol TYPE STANDARD TABLE OF bapiobdlvitemctrlcon WITH HEADER LINE .
DATA: itab_bapiret2 TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: itab1_bapiret2 TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: itab3_bapiret2 TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: deliv_numb TYPE bapiobdlvhdrcon-deliv_numb.
Vbeln and posnr are coming from itab.
SELECT SINGLE * FROM likp
 WHERE vbeln = itab-vbeln.
SELECT SINGLE * FROM lips
WHERE vbeln = itab-posnr.
itab_headerdata-deliv_numb = likp-vbeln.
itab_headercontrol-deliv_numb = likp-vbeln.
itab_headercontrol-post_gi_flg = 'X'.
CLEAR deliv_numb.
deliv_numb = likp-vbeln.
itab_itemdata-deliv_numb = likp-vbeln.
itab_itemdata-deliv_item = lips-posnr.
itab_itemdata-dlv_qty = lips-lfimg.
itab_itemdata-sales_unit = lips-meins.
itab_itemdata-fact_unit_nom = lips-umvkz.
itab_itemdata-fact_unit_denom = lips-umvkn.
itab_itemcontrol-deliv_numb = likp-vbeln.
itab_itemcontrol-deliv_item = lips-posnr.
itab_itemcontrol-chg_delqty = 'X'.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
 EXPORTING
 header_data = itab_headerdata
 header_control = itab_headercontrol
 delivery = deliv_numb
TECHN_CONTROL =
 TABLES
HEADER_PARTNER =
HEADER_PARTNER_ADDR =
HEADER_DEADLINES =
 item_data = itab_itemdata
 item_control = itab_itemcontrol
ITEM_SERIAL_NO =
SUPPLIER_CONS_DATA =
HANDLING_UNIT_HEADER =
HANDLING_UNIT_ITEM =
HANDLING_UNIT_SERNO =
EXTENSION1 =
EXTENSION2 =
 return = itab_bapiret2.
TOKENREFERENCE =
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
 EXPORTING
 wait = 'X'
 IMPORTING
 return = itab1_bapiret2.

Hi Krishen
 Have done some modifications to your code. Highlighted below are the same. Please check if the same works for you.
DATA: itab_headerdata TYPE STANDARD TABLE OF bapiobdlvhdrcon WITH HEADER LINE.
DATA: itab_headercontrol TYPE STANDARD TABLE OF bapiobdlvhdrctrlcon WITH HEADER LINE.
DATA: itab_itemdata TYPE STANDARD TABLE OF bapiobdlvitemcon WITH HEADER LINE.
DATA: itab_itemcontrol TYPE STANDARD TABLE OF bapiobdlvitemctrlcon WITH HEADER LINE .
DATA: itab_bapiret2 TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: itab1_bapiret2 TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: itab3_bapiret2 TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: deliv_numb TYPE bapiobdlvhdrcon-deliv_numb.
Vbeln and posnr are coming from itab.
SELECT SINGLE * FROM likp
WHERE vbeln = itab-vbeln.
SELECT SINGLE * FROM lips
WHERE vbeln = itab-posnr.
select single kostk from vbuk into vbuk-kostk
 where vbeln = itab-vbeln
 and kostk = 'C'.
if sy-subrc ne 0.
message "Picking is not fully done
else.
itab_headerdata-deliv_numb = likp-vbeln.
itab_headercontrol-deliv_numb = likp-vbeln.
itab_headercontrol-post_gi_flg = 'X'.
CLEAR deliv_numb.
deliv_numb = likp-vbeln.
*itab_itemdata-deliv_numb = likp-vbeln.
*itab_itemdata-deliv_item = lips-posnr.
*itab_itemdata-dlv_qty = lips-lfimg.
*itab_itemdata-sales_unit = lips-meins.
*itab_itemdata-fact_unit_nom = lips-umvkz.
*itab_itemdata-fact_unit_denom = lips-umvkn.
*itab_itemcontrol-deliv_numb = likp-vbeln.
*itab_itemcontrol-deliv_item = lips-posnr.
*itab_itemcontrol-chg_delqty = 'X'.
CALL FUNCTION 'BAPI_OUTB_DELIVERY_CONFIRM_DEC'
EXPORTING
header_data = itab_headerdata
header_control = itab_headercontrol
delivery = deliv_numb
TECHN_CONTROL =
TABLES
HEADER_PARTNER =
HEADER_PARTNER_ADDR =
HEADER_DEADLINES =
item_data = itab_itemdata
item_control = itab_itemcontrol
ITEM_SERIAL_NO =
SUPPLIER_CONS_DATA =
HANDLING_UNIT_HEADER =
HANDLING_UNIT_ITEM =
HANDLING_UNIT_SERNO =
EXTENSION1 =
EXTENSION2 =
return = itab_bapiret2.
TOKENREFERENCE =
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'
IMPORTING
return = itab1_bapiret2.
endif.
Kind Regards
Eswar

Please help with this bapi for creating billing document

I want to create a billing document using the bapi: BAPI_BILLINGDOC_CREATEMULTIPLE from a delivery number and NOT A SALES ORDER.
Please tell me what details to be passed to table BILLINGDATAIN . Please don't provide me function module documentation because it does n't help me create billing document from delivery. A sample source code or suggestion to what to pass would be really great!
Thanks,
Krishen
P.S. Points assured for helpful answers and thanks for your time.

Hi,
Try this..
DATA: s_vbap TYPE vbap.
TABLES: vbak,vbap,likp, lips.
DATA: t_billing TYPE STANDARD TABLE OF bapivbrk WITH HEADER LINE.
DATA: t_conditions TYPE STANDARD TABLE OF bapikomv WITH HEADER LINE.
DATA: t_return TYPE STANDARD TABLE OF bapireturn1 WITH HEADER LINE.
DATA: t_ccard TYPE STANDARD TABLE OF bapiccard_vf WITH HEADER LINE.
DATA: t_errors TYPE STANDARD TABLE OF bapivbrkerrors WITH HEADER LINE.
DATA: t_success TYPE STANDARD TABLE OF bapivbrksuccess WITH HEADER LINE
PARAMETERS: p_vbeln TYPE vbeln.
select single * from likp
                where vbeln = p_vbeln.
SELECT SINGLE * from lips where
                vbeln = likp-vbeln.
t_billing-salesorg   = likp-vkorg.
t_billing-ref_doc     = likp-vbeln.
t_billing-ref_item    = lips-posnr.
t_billing-doc_number     = p_vbeln.
t_billing-itm_number    = lips-posnr.
t_billing-ordbilltyp = 'ZINV'.
t_billing-price_date = sy-datum.
t_billing-ref_doc_ca = likp-vbtyp.
t_billing-material    = lips-matnr.
t_billing-plant       = lips-werks.
APPEND t_billing.
CALL FUNCTION 'BAPI_BILLINGDOC_CREATEMULTIPLE'
TABLES
    billingdatain         = t_billing
    return                = t_return
    success               = t_success
commit work.
Thanks,
Naren

I want bapi real time scenario ? please help to me

hai friends,
I want bapi real time scenario.please help in bapi.
my id :[email protected]
regards,
siva

hi siva,
for full information on BAPI's, check these links.....
http://help.sap.com/saphelp_47x200/helpdata/en/7e/5e12224a1611d1894c0000e829fbbd/frameset.htm
this link as everything like how to use bapi, code examples etc..
reward me if useful......
Harimanjesh AN

Please Help me How write the BDC program for the MIGO inbound Delivery

Please help me how to write bdc program for the MIGO Inbound Delivery in 4.7EE Version. Please help me.
Not in LSMW. Required call transaction or Session Method. Please help me.
Mohan

Run transaction BAPI . Select Logistics Execution/Shipping/InboundDelivery/SaveReplica.. You can use function module BAPI_INB_DELIVERY_SAVEREPLICA in your ABAP program.

Problem Please help me.....Let me know the area to look for it I am a DBA..

Problem Please help me.....Let me know the area to look for it I am a DBA..Thanks in advance to let me know the cause and the area to look and fix it...
Server Error in '/' Application.
Problem with SAP/BAPI. SAP.Connector.RfcCommunicationException: Connect to message server failed Connect_PM MSHOST=prddb01.lamrc.com, R3NAME=PRD, GROUP=Prod HR PRD LOCATION CPIC (TCP/IP) on local host ERROR service 'sapmsPRD' unknown TIME Wed May 04 08:59:06 2005 RELEASE 620 COMPONENT NI (network interface) VERSION 36 RC -3 MODULE ninti.c LINE 428 DETAIL NiPServToNo SYSTEM CALL getservbyname COUNTER 1 at SAP.Connector.SAPConnection.ThrowRfcException(RFC_ERROR_INFO_EX rfcerrInfo, Encoding encoding, String languangeCode) at SAP.Connector.SAPConnection.Open() at SAP.Connector.SAPClient.RfcInvoke(String method, Object[] methodParamsIn) at SAP.Connector.SAPClient.SAPInvoke(String method, Object[] methodParamsIn) at SoftwareKeySAPG.SAPProxy1.Z_Bapi_Load_Kpi_Region(ZSOFT_KPI_REGIONS_MTable& Kpi_Regions, ZSOFT_PROD_TYPETable& Prod_Type) at SoftwareKeySAPG.SAPGSK.LoadKPIRegion(DataSet dsProduct)
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Web.Services.Protocols.SoapException: Problem with SAP/BAPI. SAP.Connector.RfcCommunicationException: Connect to message server failed Connect_PM MSHOST=prddb01.lamrc.com, R3NAME=PRD, GROUP=Prod HR PRD LOCATION CPIC (TCP/IP) on local host ERROR service 'sapmsPRD' unknown TIME Wed May 04 08:59:06 2005 RELEASE 620 COMPONENT NI (network interface) VERSION 36 RC -3 MODULE ninti.c LINE 428 DETAIL NiPServToNo SYSTEM CALL getservbyname COUNTER 1 at SAP.Connector.SAPConnection.ThrowRfcException(RFC_ERROR_INFO_EX rfcerrInfo, Encoding encoding, String languangeCode) at SAP.Connector.SAPConnection.Open() at SAP.Connector.SAPClient.RfcInvoke(String method, Object[] methodParamsIn) at SAP.Connector.SAPClient.SAPInvoke(String method, Object[] methodParamsIn) at SoftwareKeySAPG.SAPProxy1.Z_Bapi_Load_Kpi_Region(ZSOFT_KPI_REGIONS_MTable& Kpi_Regions, ZSOFT_PROD_TYPETable& Prod_Type) at SoftwareKeySAPG.SAPGSK.LoadKPIRegion(DataSet dsProduct)
Source Error:
An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.
Stack Trace:
[SoapException: Problem with SAP/BAPI.
SAP.Connector.RfcCommunicationException: Connect to message server failed
Connect_PM MSHOST=prddb01.lamrc.com, R3NAME=PRD, GROUP=Prod HR PRD
LOCATION CPIC (TCP/IP) on local host
ERROR service 'sapmsPRD' unknown
TIME Wed May 04 08:59:06 2005
RELEASE 620
COMPONENT NI (network interface)
VERSION 36
RC -3
MODULE ninti.c
LINE 428
DETAIL NiPServToNo
SYSTEM CALL getservbyname
COUNTER 1
 at SAP.Connector.SAPConnection.ThrowRfcException(RFC_ERROR_INFO_EX rfcerrInfo, Encoding encoding, String languangeCode)
 at SAP.Connector.SAPConnection.Open()
 at SAP.Connector.SAPClient.RfcInvoke(String method, Object[] methodParamsIn)
 at SAP.Connector.SAPClient.SAPInvoke(String method, Object[] methodParamsIn)
 at SoftwareKeySAPG.SAPProxy1.Z_Bapi_Load_Kpi_Region(ZSOFT_KPI_REGIONS_MTable& Kpi_Regions, ZSOFT_PROD_TYPETable& Prod_Type)
 at SoftwareKeySAPG.SAPGSK.LoadKPIRegion(DataSet dsProduct)]
 System.Web.Services.Protocols.SoapHttpClientProtocol.ReadResponse(SoapClientMessage message, WebResponse response, Stream responseStream, Boolean asyncCall) +1503
 System.Web.Services.Protocols.SoapHttpClientProtocol.Invoke(String methodName, Object[] parameters) +218
 SoftwareKeyUI.InstalledBaseDataWS.InstalledBaseData.LoadKPIRegionMulti(DataSet products)
 SoftwareKeyUI.InstalledBaseDataAccess.LoadKPIRegionMulti(DataSet products)
 SoftwareKeyUI.InstalledBase.GetRegionDetails(Int32 userId, String product, String regionType)
 SoftwareKeyUI.FilteredAccess.GetRegionDetails(Int32 userId, String product, String regionType)
 SoftwareKeyUI.search.LoadRegionDetails()
 SoftwareKeyUI.search.regionType_SelectedIndexChanged(Object sender, EventArgs e)
 System.Web.UI.WebControls.ListControl.OnSelectedIndexChanged(EventArgs e) +108
 System.Web.UI.WebControls.DropDownList.System.Web.UI.IPostBackDataHandler.RaisePostDataChangedEvent() +26
 System.Web.UI.Page.RaiseChangedEvents() +115
 System.Web.UI.Page.ProcessRequestMain() +1099

The error is a very basic one - the sapmsPRD service is not known. You will have to go to <NT_ROOT>\system32\drivers\etc and add the entry sapmsPRD 3600 to this file.
This is basically telling the requester at what port to look for the message server.
C

Problem Please help me.....Let me know the area to look for it

Problem Please help me.....Let me know the area to look for it I am a DBA..Thanks in advance to let me know the cause and the area to look and fix it...
Server Error in '/' Application.
Problem with SAP/BAPI. SAP.Connector.RfcCommunicationException: Connect to message server failed Connect_PM MSHOST=prddb01.lamrc.com, R3NAME=PRD, GROUP=Prod HR PRD LOCATION CPIC (TCP/IP) on local host ERROR service 'sapmsPRD' unknown TIME Wed May 04 08:59:06 2005 RELEASE 620 COMPONENT NI (network interface) VERSION 36 RC -3 MODULE ninti.c LINE 428 DETAIL NiPServToNo SYSTEM CALL getservbyname COUNTER 1 at SAP.Connector.SAPConnection.ThrowRfcException(RFC_ERROR_INFO_EX rfcerrInfo, Encoding encoding, String languangeCode) at SAP.Connector.SAPConnection.Open() at SAP.Connector.SAPClient.RfcInvoke(String method, Object[] methodParamsIn) at SAP.Connector.SAPClient.SAPInvoke(String method, Object[] methodParamsIn) at SoftwareKeySAPG.SAPProxy1.Z_Bapi_Load_Kpi_Region(ZSOFT_KPI_REGIONS_MTable& Kpi_Regions, ZSOFT_PROD_TYPETable& Prod_Type) at SoftwareKeySAPG.SAPGSK.LoadKPIRegion(DataSet dsProduct)
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Web.Services.Protocols.SoapException: Problem with SAP/BAPI. SAP.Connector.RfcCommunicationException: Connect to message server failed Connect_PM MSHOST=prddb01.lamrc.com, R3NAME=PRD, GROUP=Prod HR PRD LOCATION CPIC (TCP/IP) on local host ERROR service 'sapmsPRD' unknown TIME Wed May 04 08:59:06 2005 RELEASE 620 COMPONENT NI (network interface) VERSION 36 RC -3 MODULE ninti.c LINE 428 DETAIL NiPServToNo SYSTEM CALL getservbyname COUNTER 1 at SAP.Connector.SAPConnection.ThrowRfcException(RFC_ERROR_INFO_EX rfcerrInfo, Encoding encoding, String languangeCode) at SAP.Connector.SAPConnection.Open() at SAP.Connector.SAPClient.RfcInvoke(String method, Object[] methodParamsIn) at SAP.Connector.SAPClient.SAPInvoke(String method, Object[] methodParamsIn) at SoftwareKeySAPG.SAPProxy1.Z_Bapi_Load_Kpi_Region(ZSOFT_KPI_REGIONS_MTable& Kpi_Regions, ZSOFT_PROD_TYPETable& Prod_Type) at SoftwareKeySAPG.SAPGSK.LoadKPIRegion(DataSet dsProduct)
Source Error:
An unhandled exception was generated during the execution of the current web request. Information regarding the origin and location of the exception can be identified using the exception stack trace below.
Stack Trace:
[SoapException: Problem with SAP/BAPI.
SAP.Connector.RfcCommunicationException: Connect to message server failed
Connect_PM MSHOST=prddb01.lamrc.com, R3NAME=PRD, GROUP=Prod HR PRD
LOCATION CPIC (TCP/IP) on local host
ERROR service 'sapmsPRD' unknown
TIME Wed May 04 08:59:06 2005
RELEASE 620
COMPONENT NI (network interface)
VERSION 36
RC -3
MODULE ninti.c
LINE 428
DETAIL NiPServToNo
SYSTEM CALL getservbyname
COUNTER 1
at SAP.Connector.SAPConnection.ThrowRfcException(RFC_ERROR_INFO_EX rfcerrInfo, Encoding encoding, String languangeCode)
at SAP.Connector.SAPConnection.Open()
at SAP.Connector.SAPClient.RfcInvoke(String method, Object[] methodParamsIn)
at SAP.Connector.SAPClient.SAPInvoke(String method, Object[] methodParamsIn)
at SoftwareKeySAPG.SAPProxy1.Z_Bapi_Load_Kpi_Region(ZSOFT_KPI_REGIONS_MTable& Kpi_Regions, ZSOFT_PROD_TYPETable& Prod_Type)
at SoftwareKeySAPG.SAPGSK.LoadKPIRegion(DataSet dsProduct)]
System.Web.Services.Protocols.SoapHttpClientProtocol.ReadResponse(SoapClientMessage message, WebResponse response, Stream responseStream, Boolean asyncCall) +1503
System.Web.Services.Protocols.SoapHttpClientProtocol.Invoke(String methodName, Object[] parameters) +218
SoftwareKeyUI.InstalledBaseDataWS.InstalledBaseData.LoadKPIRegionMulti(DataSet products)
SoftwareKeyUI.InstalledBaseDataAccess.LoadKPIRegionMulti(DataSet products)
SoftwareKeyUI.InstalledBase.GetRegionDetails(Int32 userId, String product, String regionType)
SoftwareKeyUI.FilteredAccess.GetRegionDetails(Int32 userId, String product, String regionType)
SoftwareKeyUI.search.LoadRegionDetails()
SoftwareKeyUI.search.regionType_SelectedIndexChanged(Object sender, EventArgs e)
System.Web.UI.WebControls.ListControl.OnSelectedIndexChanged(EventArgs e) +108
System.Web.UI.WebControls.DropDownList.System.Web.UI.IPostBackDataHandler.RaisePostDataChangedEvent() +26
System.Web.UI.Page.RaiseChangedEvents() +115
System.Web.UI.Page.ProcessRequestMain() +1099

Hi
You should make a mapping for the service sapmsPRD in your /etc/services file (On Windows: C:WINDOWSSYSTEM32DRIVERSETCservices). If your instance number is 00 you will have to add the following entry:
sapmsPRD 3600/tcp
Good luck!
René van Es

Stuck seriously in the blue print phase of project--- please help

I am Prabhas, sap XI associate consultant in capgemini. I am stuck in the design phase of my project.I am writing this mail to you for helping me in designing the blue print of my scenario. My scenario is like this.
XI will receive a flat file containing stock data and it processes by transforming the structure and then dump the data to R3 system. The output of XI actually invokes some function modules in the target R3 system which in turm executes some BAPIs for committing some transactions.I am clear with the flow and how to realize the process.But the problem is with the function module written to execute some transactions with the help of BAPI.Suppose for some reason one of the transaction commit is failed and the RFC adapter goes in error.Now the question is after correcting the error if we restart the msg in RFC adapter will it start executing the transaction in which it faced the error or the whole RFC will be executed again.
I hope the problem is clear to you.Please help in getting over this. Thank you.
Regards,
Prabhas

Prabhas,
A few quick questions~
1. How are you maing the RFC call? is it a single RFC call that will contain all the records from the file or are you going to make one RFC call for each record in the file?
The user of Recordsets permessage depends on this factor.
If you are going to make a single RFC call, then you cannot use Recordsets per message if there is some dependency in the records.
>You mean to ay that even some of the transactions which were committed before the error, we can undo them in RFC. If it is so i am clear with the point.
Well if all records are going to be pushed into a single RFC call, then yes, your RFC code should be such that if there is some error whileprcoessing the call, it should be able to undo the same!
If it is the other option where you are going to make one rfc call per record, the issue will not arise, if there is some error, you can correct the same and restart the mesage from XI .
Regards
Bhavesh

Please Help!! Error in document : BKPFF $ DEVCLNT

Hi All Gurus,
I am trying to use BAPI - BAPI_ACC_DOCUMENT_POST to post to FB50.
I am using the below paramaters -
DOCUMENTHEADER
TABLES
 ACCOUNTGL
 CURRENCYAMOUNT
RETURN.
But I am getting the error - Error in document : BKPFF $ DEVCLNT. Can someone please help me with this. I have been breaking my head over this. Dont know what is going wrong! .
Thanks, Nina.

Thanks for all your help, Aaron.
*T Y P E S *
TYPES: BEGIN OF t_indata,
 t_ddate(8) TYPE c,
 t_ref(17) TYPE c,
 t_dbank(8) TYPE c,
 t_disno(4) TYPE c,
 t_glacnt(10) TYPE c,
 t_descrip(50) TYPE c,
 t_damt(13) TYPE c,
 t_jobid(8) TYPE c,
 t_rexpen(8) TYPE c,
 t_tperiod(8) TYPE c,
 t_tnumb(8) TYPE c,
 t_ctrans(8) TYPE c,
 t_ccenter(10) TYPE c,
 END OF t_indata.
TYPES: BEGIN OF t_error,
 t_ddate(8) TYPE c,
 t_ref(17) TYPE c,
 t_dbank(8) TYPE c,
 t_disno(4) TYPE c,
 t_glacnt(10) TYPE c,
 t_descrip(50) TYPE c,
 t_damt(13) TYPE c,
 t_jobid(8) TYPE c,
 t_rexpen(8) TYPE c,
 t_tperiod(8) TYPE c,
 t_tnumb(8) TYPE c,
 t_ctrans(8) TYPE c,
 t_ccenter(10) TYPE c,
 message(100) type c, " Error message
 END OF t_error.
*W O R K A R E A S *
DATA: w_indata TYPE t_indata,
 w_error TYPE t_error.
*I N T E R N A L T A B L E S *
DATA: i_indata TYPE STANDARD TABLE OF t_indata WITH HEADER LINE,
 i_error TYPE STANDARD TABLE OF t_error WITH HEADER LINE.
DATA: i_acgl LIKE BAPIACGL09 OCCURS 0 WITH HEADER LINE,
 i_currency LIKE BAPIACCR09 OCCURS 0 WITH HEADER LINE,
 i_return LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
*V A R I A B L E S *
DATA: v_file TYPE string,
 v_string(1022), " To read data from file
 v_ddate(10) TYPE c,
 v_pdate(10) TYPE c,
 v_dcre type wrbtr, " Dollar Amount credit conv
 v_ddeb TYPE wrbtr, " Dollar Amount debit conv
 v_lines TYPE i, " used for format message
 v_msg(100), " used for Error message
 v_ind TYPE i,
 v_index type i.
DATA: V_DOCHEADER LIKE BAPIACHE09.
 V_OBJ_TYPE LIKE BAPIACHE09-OBJ_TYPE,
 V_OBJ_KEY LIKE BAPIACHE09-OBJ_KEY,
 V_OBJ_SYS LIKE BAPIACHE09-OBJ_SYS.
*C O N S T A N T S *
CONSTANTS: c_creacnt TYPE string VALUE '111444', " Liability account
 c_del type x value '09', " for hash delimited file
 c_fslash VALUE '\', " Used for Forward slash
 c_bslash VALUE '/'. " Used for backward slash
*S E L E C T I O N S C R E E N
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK first WITH FRAME TITLE text-001.
PARAMETERS: p_fname LIKE rlgrap-filename OBLIGATORY DEFAULT 'C:\CorpCard.txt', " File name
 rd_pserv RADIOBUTTON GROUP radi DEFAULT 'X', " Pres. Server
 rd_aserv RADIOBUTTON GROUP radi. " App. Server
Error file
parameters: p_efile type rlgrap-filename default
'/tmp/CorpCard_error'.
SELECTION-SCREEN END OF BLOCK first.
At selection-screen
Check which file is selected
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
Perform to get the current value of the selection screen
PERFORM get_current_value.
IF rd_aserv = 'X'.
 MESSAGE i398 WITH 'Can not browse unix directories'(030).
ELSE.
F4 help for presentation server file name
 PERFORM get_local_file_name USING 'P_FNAME' CHANGING p_fname.
ENDIF.
AT SELECTION-SCREEN.
perform to validate input file
PERFORM validate_filename USING p_fname.
S T A R T O F S E L E C T I O N *
START-OF-SELECTION.
Presentation File upload
if rd_pserv = 'X'.
 perform upload_pre_file.
endif.
Unix File Upload
if rd_aserv = 'X'.
 perform upload_unix_file.
endif.
Perform to populate the internal table to the bapi.
PERFORM populate_debit.
Perform to populate the internal table to the bapi.
PERFORM populate_credit.
Perform to process the input data and post to FB50
PERFORM post_data.
E N D O F S E L E C T I O N *
END-OF-SELECTION.
*if not i_error[] is initial.
perform to generate error file and send to application server
perform generate_error_report.
endif.
*& Form get_current_value
FORM get_current_value .
Local internal table for screen fields
DATA: BEGIN OF i_dynpfields OCCURS 0.
 INCLUDE STRUCTURE dynpread.
DATA: END OF i_dynpfields.
CLEAR i_dynpfields.
REFRESH i_dynpfields.
i_dynpfields-fieldname = 'RD_ASERV'.
APPEND i_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
 EXPORTING
 dyname = sy-cprog
 dynumb = sy-dynnr
 TABLES
 dynpfields = i_dynpfields
 EXCEPTIONS
 invalid_abapworkarea = 1
 invalid_dynprofield = 2
 invalid_dynproname = 3
 invalid_dynpronummer = 4
 invalid_request = 5
 no_fielddescription = 6
 invalid_parameter = 7
 undefind_error = 8
 double_conversion = 9
 OTHERS = 10.
IF sy-subrc <> 0.
 MESSAGE i398 WITH 'Unbale to read the selection screen values'(031)
ELSE.
 READ TABLE i_dynpfields INDEX 1.
 IF sy-subrc = 0.
 MOVE i_dynpfields-fieldvalue TO rd_aserv.
 ENDIF.
ENDIF.
ENDFORM. " get_current_value
*& Form get_local_file_name
FORM get_local_file_name USING p_file
 CHANGING p_cfile.
Local variable
DATA: l_fname LIKE ibipparms-path, " File name
 v_repid LIKE sy-repid.
l_fname = p_file.
v_repid = sy-repid.
CALL FUNCTION 'F4_FILENAME'
 EXPORTING
 program_name = v_repid
 dynpro_number = sy-dynnr
 field_name = p_file
 IMPORTING
 file_name = l_fname
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc = 0.
 p_cfile = l_fname.
ENDIF.
ENDFORM. " get_local_file_name
*& Form validate_filename
FORM validate_filename USING p_fname TYPE any.
IF rd_aserv = 'X'.
Local variable for file length
 DATA : l_len TYPE i.
 l_len = STRLEN( p_fname ).
 IF p_fname CA space.
 IF sy-fdpos < l_len.
 MESSAGE e398 WITH 'File name should not contain spaces'(032).
 ENDIF.
 ENDIF.
 IF p_fname CA c_fslash.
 MESSAGE e398 WITH 'File name should not contain \'(033).
 ENDIF.
 IF p_fname NA c_bslash. " No directory path given
 MESSAGE w398 WITH 'File will be created in home directory'(034).
 ENDIF.
ENDIF.
IF p_fname0(1) = c_fslash AND p_fname1 = space.
 MESSAGE e398 WITH 'File name should not contain only /'(035).
ENDIF.
ENDFORM. " validate_filename
*& Form upload_pre_file
FORM upload_pre_file.
v_file = p_fname.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = v_file
 filetype = 'ASC'
 has_field_separator = 'X'
 dat_mode = ' '
 TABLES
 data_tab = i_indata
 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.
IF sy-subrc <> 0.
 MESSAGE e398 WITH 'Unable to upload the file'(002).
ENDIF.
ENDFORM. " upload_pre_file
*& Form upload_unix_file
FORM upload_unix_file .
open dataset p_fname for input in text mode encoding default.
if sy-subrc <> 0.
 message i398 with 'File open error(012)'(012) p_fname.
 stop.
else.
 do.
 clear: v_string.
 read dataset p_fname into v_string.
 case sy-subrc.
 when 0.
 split v_string at c_del
 into i_indata-t_glacnt
 i_indata-t_descrip
 i_indata-t_damt
 i_indata-t_ccenter.
 append i_indata.
 clear i_indata.
 when 4.
 exit.
 when 8.
 message i398 with 'Unable to Read the File'(008) p_fname.
 stop.
 endcase.
 enddo.
 close dataset p_fname.
endif.
ENDFORM. " upload_unix_file
*& Form post_data
FORM post_data .
V_DOCHEADER-BUS_ACT = 'RFBU'.
*V_DOCHEADER-OBJ_TYPE = 'BKPF'.
*V_DOCHEADER-OBJ_KEY = '$'.
V_DOCHEADER-USERNAME = 'VSAWANT'.
V_DOCHEADER-COMP_CODE = 'BP01'.
V_DOCHEADER-DOC_DATE = SY-DATUM.
V_DOCHEADER-PSTNG_DATE = SY-DATUM.
*V_DOCHEADER-FIC_PERIOD = '00'.
V_DOCHEADER-HEADER_TXT = 'Amex Card Upload'.
V_DOCHEADER-DOC_TYPE = 'SA'.
 CALL FUNCTION 'BAPI_ACC_DOCUMENT_POST'
 EXPORTING
 DOCUMENTHEADER = V_DOCHEADER
 CUSTOMERCPD =
 CONTRACTHEADER =
 IMPORTING
 OBJ_TYPE = V_DOCHEADER-OBJ_TYPE
 OBJ_KEY = V_DOCHEADER-OBJ_KEY
 OBJ_SYS = V_DOCHEADER-OBJ_SYS
 TABLES
 ACCOUNTGL = i_acgl
 ACCOUNTRECEIVABLE =
 ACCOUNTPAYABLE =
 ACCOUNTTAX =
 CURRENCYAMOUNT = i_currency
 CRITERIA =
 VALUEFIELD =
 EXTENSION1 =
 RETURN = i_return.
 PAYMENTCARD =
 CONTRACTITEM =
 EXTENSION2 =
 REALESTATE = .
refresh i_acgl.
refresh i_currency.
clear i_acgl.
clear i_currency.
if V_DOCHEADER is initial.
i_error[] = i_indata[] .
 read table i_return index 1.
 i_error-message = i_return-message.
 append i_error.
 clear i_error.
else.
 CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
 wait up to 3 seconds.
endif.
ENDFORM. " post_data
*& Form populate_debit
FORM populate_debit .
DATA: l_debamt(16) type c.
clear: v_index,
 l_debamt.
loop at i_indata from 2.
v_ddeb = i_indata-t_damt.
v_dcre = v_dcre + i_indata-t_damt.
v_index = v_index + 1.
 i_acgl-ITEMNO_ACC = v_index.
 i_acgl-GL_ACCOUNT = i_indata-t_glacnt.
 i_acgl-ITEM_TEXT = i_indata-t_descrip.
 i_acgl-DOC_TYPE = 'SA'.
 i_acgl-COMP_CODE = 'BP01'.
 i_acgl-COSTCENTER = i_indata-t_ccenter.
 i_acgl-DE_CRE_IND = 'S'.
 append i_acgl.
 clear i_acgl.
 write v_ddeb to l_debamt currency 'USD'.
 i_currency-ITEMNO_ACC = v_index.
 i_currency-CURRENCY = 'USD'.
 i_currency-AMT_DOCCUR = i_indata-t_damt.
 append i_currency.
 clear i_currency.
 clear: v_ddeb.
endloop.
ENDFORM. " populate_debit
*& Form populate_credit
FORM populate_credit .
DATA: l_creamt(16) type c.
clear: l_creamt.
v_index = v_index + 1.
 i_acgl-ITEMNO_ACC = v_index.
 i_acgl-GL_ACCOUNT = c_creacnt.
 i_acgl-ITEM_TEXT = .
 i_acgl-DOC_TYPE = 'SA'.
 i_acgl-COMP_CODE = 'BP01'.
 i_acgl-DE_CRE_IND = 'H'.
 append i_acgl.
 clear: i_acgl.
 write v_dcre to l_creamt currency 'USD'.
 i_currency-ITEMNO_ACC = v_index.
 i_currency-CURRENCY = 'USD'.
 i_currency-AMT_DOCCUR = v_dcre.
 append i_currency.
 clear: i_currency.
 clear: v_index.
ENDFORM. " populate_credit
*& Form generate_error_report
FORM generate_error_report .
data: credit(16) type c.
WRITE :/1 'Title: Corporate Card Upload'(006),
 / 'Program:'(007), sy-repid,
 / 'Date:'(008), SY-DATUM.
skip 1.
uline:/(200).
format color col_heading on.
write:/(1) sy-vline,
 (8) 'Posting Date'(020),
 (1) sy-vline,
 (12) 'GL Account'(021),
 (1) sy-vline,
 (17) 'Description'(022),
 (1) sy-vline,
 (17) 'Dollar Amount'(023),
 (1) sy-vline,
 (17) 'Cost Center'(024),
 (1) sy-vline,
 (100) 'Error/Success Message'(028),
 (1) sy-vline.
uline:/(200).
format color off.
write:/(1) sy-vline,
 (8) sy-datum,
 (1) sy-vline,
 (12) '113000',
 (1) sy-vline,
 (17) 'Clearing Account',
 (1) sy-vline,
 (17) v_dcre,
 (1) sy-vline,
 (100) i_error-message,
 (1) sy-vline.
uline:/(200).
loop at i_error from 2.
 write:/(1) sy-vline,
 (8) sy-datum,
 (1) sy-vline,
 (12) i_error-t_glacnt,
 (1) sy-vline,
 (17) i_error-t_descrip,
 (1) sy-vline,
 (17) i_error-t_damt,
 (1) sy-vline,
 (17) i_error-t_ccenter,
 (1) sy-vline,
 (100) i_error-message,
 (1) sy-vline.
endloop.
uline:/(200).
clear: v_dcre.

HI YANN/VADIM...Still having problem in BADIs...please help me out

Hi Yann/Vadim,
Facing a problem in BADI can u please help me out...
I am implementing sourcing dashboard.
I am facing problem while implementing the badi BBP_ECS_PO_OUT_BADI in SRM. and BBP_PO_INBOUND_BADI in R3.
i have written following code in BBP_ECS_PO_OUT_BADI in SRM
method IF_EX_BBP_ECS_PO_OUT_BADI~BBP_B46B_PO_OUTBOUND.
data : ls_item type BBP_PDS_PO_ITEM_D.
data : w_customer_fields type BBPS_IF_CUSTOMER_FIELDS_PI.
move 'POITEM' to w_customer_fields-refobject.
move 'CATALOGID' to w_customer_fields-fieldname.
move ls_item-catalogid to w_customer_fields-container.
append w_customer_fields to ct_bapi_customer_fields.
endmethod.
i have created field zsrmcatalogid field in R3 in EKPO table.and i am now implementing the Badi in R3 for BBP_PO_INBOUND_BADI .....in extended classic scenario.
i have written following code in R3 BADI
method IF_EX_BBP_PO_INBOUND_BADI~BBP_MAP_BEFORE_BAPI.
data : wa_customer_fields type bbps_if_customer_fields,
wa_bapi_te_mepoitem type bapi_te_mepoitem,
wa_bapi_te_mepoitemx type bapi_te_mepoitemx,
wa_extensionin type bapiparex.
data : txt_960(960) type c.
read table bbp_customer_fields into wa_customer_fields with key
refobject = 'POITEM' fieldname = 'CATALOGID'.
if sy-subrc eq 0.
move wa_customer_fields-container TO
wa_bapi_te_mepoitem-zsrmcatalogid.
wa_bapi_te_mepoitemx-zsrmcatalogid = 'X'.
endif.
clear txt_960.
clear wa_extensionin.
write wa_bapi_te_mepoitem to txt_960 left-justified.
wa_extensionin-structure = 'BAPI_TE_MEPOITEM'.
wa_extensionin-valuepart1 = txt_960(240).
wa_extensionin-valuepart2 = txt_960+240(240).
wa_extensionin-valuepart3 = txt_960+480(240).
wa_extensionin-valuepart4 = txt_960+720(240).
append wa_extensionin to bapi_extensionin.
clear txt_960.
clear wa_extensionin.
write wa_bapi_te_mepoitemx to txt_960 left-justified.
wa_extensionin-structure = 'BAPI_TE_MEPOITEMX'.
wa_extensionin-valuepart1 = txt_960(240).
wa_extensionin-valuepart2 = txt_960+240(240).
wa_extensionin-valuepart3 = txt_960+480(240).
wa_extensionin-valuepart4 = txt_960+720(240).
append wa_extensionin to bapi_extensionin.
endmethod.
But its not working...
The PO details are not passed from SRM to R3.......
PLEASE CAN U GIVE ME EXACT CODE FOR CHANGES TO BE MADE IN THIS BADI ..AS IT IS NOT WORKING...
Can anybody help me regarding how to debug the BADI in R3.
Thanks in Advance...

Hi Ravi,
You can transfer the standard SRM catalog ID field to R/3 tracking number field (if not already used for another purpose) in the R/3 PO.
This will avoid to implement the R/3 inbound bapi.
Here is an extract of the code.
The ECS PO badi example was here used to transfer the unlimited delivery flag to R/3 PO for a Z combination of criteria as well as the transfer of catalog ID to tracking number field in R/3 PO :
method IF_EX_BBP_ECS_PO_OUT_BADI~BBP_B46B_PO_OUTBOUND.
update unlimited delivery flag in R3 PO for combination of vendor +
Product Category maintained in the bespoke table ZUD_PC_VNDR ..
LOOP AT ct_bapi_poitem INTO ls_bapi_poitem.
 lv_tabix = sy-tabix.
 IF ls_bapi_poitem-po_item IS NOT INITIAL.
 READ TABLE it_item INTO ls_item
 WITH KEY number_int = ls_bapi_poitem-po_item
 del_ind = ' '.
 IF sy-subrc = 0.
Set Unlimited delivery Flag
 read table li_zud_pc_vndr into ls_zud_pc_vndr
 with key partner = ls_partner-PARTNER_ID
 category_id = ls_item-category_id.
 if sy-subrc eq 0.
 ls_bapi_poitem-UNLIMITED_DLV = 'X'.
 endif.
Set the Dummy catalog.. entry..
 if ls_item-catalogid eq c_dummy.
 ls_bapi_poitem-TRACKINGNO = c_noncat.
 endif.
 ls_bapi_poitem-GR_BASEDIV = ' '.
 modify ct_bapi_poitem from ls_bapi_poitem index lv_tabix
 transporting UNLIMITED_DLV TRACKINGNO GR_BASEDIV.
 ENDIF. "READ TABLE it_item ..
 ENDIF. "IF ls_bapi_poitem-po_item ..
ENDLOOP. "LOOP AT ct_bapi_poitem ..
endmethod.
Kind regards,
Yann
PS : please do reward helpful answers ))

Unable to do IDoc to File Scenario ; Please help me....

Hi Experts!!!,
I am trying to convert an IDoc to an .Txt or .Xml file, But I am un able to do it. Whenever I m trying to configure the Idoc adapter , it's not allowing me to select as "sender" (default it will be on the recvr side). Please help me in this regard.
Do I need to use RFC adapet, or BAPI instead of IDoc or any other way..to complete IDoc to File scenario...
THANKS IN ADVANCE!!!
Sunil K Shetty.

HI,
No need to use Sender Idoc adapter , default , IDoc adapter resides on Integration Engine. No sender communication channel and sender agreement also
see the below links
/people/prateek.shah/blog/2005/06/08/introduction-to-idoc-xi-file-scenario-and-complete-walk-through-for-starters - IDoc to File
IDOc testing - /people/suraj.sr/blog/2005/12/29/generate-test-case-for-an-idoc-scenario
Idoc settings https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/73527b2c-0501-0010-5398-c4ac372c9692
Regards
Chilla

Please help give the BDC example for KZZ2, overhead rate BDC program

Hi, All
I have implemented notes 208474, and I need an add-on BDC program for KZZ2. Could anybody help me?
Thanks in advance.
<LOCKED BY MODERATOR - URGENT, PLEASE HELP OR SIMILAR ARE FORBIDDEN>
Edited by: Alvaro Tejada Galindo on Aug 15, 2008 5:17 PM

you might have got the details of what to extend for this customer n XD01. do a recording for those fields which have to be extended and call transaction XD01 and do a bdc. Other also after extending it do another recording to modify this using XD02 like the similar way taking the fields that you have to modify and do a bdc. Know from them if they need both of them in one BDC Prg or different BDC Progams. This is one way.
The other way is to search if you have any BAPI's to do this and use those BAPI's.
Award points if it helps.

Hi All, doubts in XI..please help

HI Gurus,
I have some small doubts here...iam a beginner...please help me....
1)
What 2 Data Types are automatically created when the Namespace is saved in the Integration Repository?
2) purpose of the setting to "Permit Importing of SAP IDOCs or BAPI/ RFCs". Where is this configured?
3) wat is end-to-end monitoring? How is it configured? What are the different views
4) What happens after an exception is raised in BPM?
5) What are the different monitoring statuses? Where do you find them?
Thank you very much in advance....
Best Regards,
Abhinav

Hi!
>>1) What 2 Data Types are automatically created when the Namespace is saved in the Integration Repository?
create a new namespace and you'll see
-hint: they are used for error processing
>>2) purpose of the setting to "Permit Importing of SAP IDOCs or BAPI/ RFCs". Where is this configured?
It's configured for each sw component version (IR, dbl click SWCV)- if you have non-sap system, u usually do not permit it (what for to import idocs and relate them to non-SAP component?) and vice-versa
>>3) wat is end-to-end monitoring? How is it configured? What are the different views
you can see report of message processing status from one source to target
>>4) What happens after an exception is raised in BPM?
depends, if you handle it with BLOCK exception branch the BPM continues processing.. otherwise error is reported and processing is stopped
>>5) What are the different monitoring statuses? Where do you find them?
??? There are several monitoring screens on XI.. Which one do you mean?
for example for sxmb moni - IE monitor, click the Legend button - on the right. you'll see all the statuses possible
then you have AE monitoring.. there are several statuses - delivered, not delivered, to be delivered, failed, .... I think it's clear what they mean..
Peter

Help- Problem witth BAPI Confirmation

Hi gurus,
Please , i need some help with some problems i am having with BAPIs for confirmations.
I have found this one : BAPI_PRODORDCONF_GET_TT_PROP, to get the propose data, but i i can't figured out how to fill the goodmovements table. I need to do this, because i want to know the proposal of goodmovements, just exactly that sap's does when i enter to the tx CO11N, enter the YIELD quantity and then press "goods movements" button.
Please, is there some trick or something to make this work? ( i have already put "X" in the import "PROPOSE - GOODMOVEMENTS" , but still is not working).
If get this, i could put this values in BAPI_PRODORDCONF_CREATE_TT and that's it... i suppose.
Please help me
Thanks a lot!

Hi ,
Before going into BAPI's , Auto goods movement happens in two ways.
1. check whether Auto goods receipt is checked in T.code OPKP.
2. The other way is to assign a Control Key to the operation which has a Auto GR checked.
Please check these two and then trigger confirmation using your BAPI.
Hope this helps.
Best Regards.

Help - Problem with BAPI confirmation (co11n)

Hi gurus,
Please , i need some help with some problems i am having with BAPIs for confirmations.
I have found this one : BAPI_PRODORDCONF_GET_TT_PROP, to get the propose data, but i i can't figured out how to fill the goodmovements table. I need to do this, because i want to know the proposal of goodmovements, just exactly that sap's does when i enter to the tx CO11N, enter the YIELD quantity and then press "goods movements" button.
Please, is there some trick or something to make this work? ( i have already put "X" in the import "PROPOSE - GOODMOVEMENTS" , but still is not working).
If get this, i could put this values in BAPI_PRODORDCONF_CREATE_TT and that's it... i suppose.
Please help me
Thanks a lot!

Hi ,
Before going into BAPI's , Auto goods movement happens in two ways.
1. check whether Auto goods receipt is checked in T.code OPKP.
2. The other way is to assign a Control Key to the operation which has a Auto GR checked.
Please check these two and then trigger confirmation using your BAPI.
Hope this helps.
Best Regards.

Please help me regardig BAPI

Similar Messages

Maybe you are looking for