Hi all,
I have a BDC recording for transaction F-28 and created a BAPI out of it. I have no errors, the code is active.
But when I execute the BAPI, it practically does nothing. Can somebody help me. I have attached the code
FUNCTION ZBAPI_GET_INCOMING_PAY.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X'
*" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N'
*" VALUE(UPDATE) LIKE APQI-PUTACTIVE DEFAULT 'L'
*" VALUE(GROUP) LIKE APQI-GROUPID OPTIONAL
*" VALUE(USER) LIKE APQI-USERID OPTIONAL
*" VALUE(KEEP) LIKE APQI-QERASE OPTIONAL
*" VALUE(HOLDDATE) LIKE APQI-STARTDATE OPTIONAL
*" VALUE(NODATA) LIKE APQI-PUTACTIVE DEFAULT '/'
*" VALUE(IN_CC_CODE) TYPE BUKRS
*" VALUE(IN_MONTH) TYPE STRING
*" VALUE(IN_CURRENCY) TYPE WAERS
*" VALUE(IN_BANK_ACCOUNT) TYPE KONTO
*" VALUE(IN_AMNT) TYPE BDC_FVAL
*" VALUE(IN_CUSTOMER) TYPE AGKON
*" EXPORTING
*" VALUE(SUBRC) LIKE SYST-SUBRC
*" TABLES
*" MESSTAB STRUCTURE BDCMSGCOLL OPTIONAL
*"----------------------------------------------------------------------
*data: ctu type APQI-PUTACTIVE VALUE 'X',
* mode type APQI-PUTACTIVE VALUE 'N',
* update type APQI-PUTACTIVE VALUE 'L',
* nodata type APQI-PUTACTIVE VALUE '/',
* BLDAT_001 type BDCDATA-FVAL,
* GROUP LIKE APQI-GROUPID,
*USER LIKE APQI-USERID,
*KEEP LIKE APQI-QERASE,
*HOLDDATE LIKE APQI-STARTDATE.
subrc = 0.
perform bdc_nodata using NODATA.
perform open_group using GROUP USER KEEP HOLDDATE CTU.
perform bdc_dynpro using 'SAPMF05A' '0103'.
perform bdc_field using 'BDC_CURSOR'
'RF05A-KONTO'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BKPF-BLDAT'
sy-datum.
perform bdc_field using 'BKPF-BLART'
'DZ'.
perform bdc_field using 'BKPF-BUKRS'
in_cc_code.
perform bdc_field using 'BKPF-BUDAT'
sy-datum.
perform bdc_field using 'BKPF-MONAT'
in_month.
perform bdc_field using 'BKPF-WAERS'
in_currency.
perform bdc_field using 'RF05A-KONTO'
in_bank_account.
perform bdc_field using 'BSEG-VALUT'
sy-datum.
perform bdc_field using 'RF05A-AGKOA'
'D'.
perform bdc_field using 'RF05A-XNOPS'
'X'.
perform bdc_field using 'BSEG-WRBTR'
in_amnt.
perform bdc_field using 'RF05A-AGKON'
in_customer.
perform bdc_dynpro using 'SAPDF05X' '3100'.
perform bdc_field using 'BDC_OKCODE'
'=PI'.
perform bdc_field using 'BDC_CURSOR'
'DF05B-PSBET(04)'.
perform bdc_field using 'RF05A-ABPOS'
'1'.
perform bdc_dynpro using 'SAPDF05X' '3100'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'BDC_CURSOR'
'DF05B-PSBET(04)'.
perform bdc_field using 'RF05A-ABPOS'
'1'.
perform bdc_transaction tables messtab
using 'F-28'
CTU
MODE
UPDATE.
if sy-subrc <> 0.
subrc = sy-subrc.
exit.
endif.
perform close_group using CTU.
ENDFUNCTION.
INCLUDE BDCRECXY .
Is there anything that I need to do.
Regards,
Anusha