Skip to Content
0
Apr 28, 2014 at 09:24 AM

BDC for F-28

982 Views

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