Skip to Content
0
Former Member
Sep 06, 2012 at 02:46 PM

XK01 CIN Details Not getting Uploaded using BDC in Background

106 Views

Dear All,

I am using BDC Call transaction to Upload the data to Xk01 Transaction create a Vendor. I am facing the particular issue When Iam running the BDC in All Screen mode data is being populated into the CIN Screen of Xk01, but in case of Background the details are not being Successfully uploaded. Please find the recording for the Transaction and give u r valuable suggestions.

perform bdc_nodata using NODATA.

perform open_group using GROUP USER KEEP HOLDDATE CTU.

perform bdc_dynpro using 'SAPMF02K' '0100'.
perform bdc_field using 'BDC_CURSOR'
'USE_ZAV'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RF02K-BUKRS'
BUKRS_001.
perform bdc_field using 'RF02K-EKORG'
EKORG_002.
perform bdc_field using 'RF02K-KTOKK'
KTOKK_003.
perform bdc_field using 'USE_ZAV'
USE_ZAV_004.
perform bdc_dynpro using 'SAPMF02K' '0111'.
perform bdc_field using 'BDC_OKCODE'
'/00'.

Perform bdc_field using 'SZA1_D0100-TITLE_MEDI'
TITLE_MEDI_005.
perform bdc_field using 'ADDR1_DATA-NAME1'
NAME1_006.
perform bdc_field using 'ADDR1_DATA-NAME2'
NAME2_007.
perform bdc_field using 'ADDR1_DATA-NAME3'
NAME3_008.
perform bdc_field using 'ADDR1_DATA-NAME4'
NAME4_009.
perform bdc_field using 'ADDR1_DATA-SORT1'
SORT1_010.
perform bdc_field using 'ADDR1_DATA-SORT2'
SORT2_011.
perform bdc_field using 'ADDR1_DATA-STR_SUPPL1'
STR_SUPPL1_012.
perform bdc_field using 'ADDR1_DATA-STR_SUPPL2'
STR_SUPPL2_013.
perform bdc_field using 'ADDR1_DATA-STREET'
STREET_014.
perform bdc_field using 'ADDR1_DATA-STR_SUPPL3'
STR_SUPPL3_015.
perform bdc_field using 'ADDR1_DATA-LOCATION'
LOCATION_016.
perform bdc_field using 'ADDR1_DATA-POST_CODE1'
POST_CODE1_017.
perform bdc_field using 'ADDR1_DATA-CITY1'
CITY1_018.
perform bdc_field using 'ADDR1_DATA-COUNTRY'
COUNTRY_019.
perform bdc_field using 'ADDR1_DATA-REGION'
REGION_020.
if KTOKK_003 <> 'FOR'.
perform bdc_field using 'ADDR1_DATA-LANGU'
LANGU_021.
ENDIF.
perform bdc_field using 'SZA1_D0100-TEL_NUMBER'
TEL_NUMBER_022.
perform bdc_field using 'SZA1_D0100-MOB_NUMBER'
MOB_NUMBER_023.
perform bdc_field using 'SZA1_D0100-FAX_NUMBER'
FAX_NUMBER_024.
perform bdc_field using 'SZA1_D0100-SMTP_ADDR'
SMTP_ADDR_025.

perform bdc_dynpro using 'SAPLJ1I_MASTER' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=CIN_VENDOR_FC2'.
perform bdc_field using 'BDC_CURSOR'
'J_1IMOVEND-J_1IEXCD'.
perform bdc_field using 'J_1IMOVEND-J_1IEXCD'
'1111111111111111'.
perform bdc_dynpro using 'SAPLJ1I_MASTER' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=CIN_VENDOR_FC3'.
perform bdc_field using 'BDC_CURSOR'
'J_1IMOVEND-J_1ILSTNO'.
perform bdc_field using 'J_1IMOVEND-J_1ICSTNO'
CSTNO_043.
perform bdc_field using 'J_1IMOVEND-J_1ILSTNO'
LSTNO_042.
perform bdc_dynpro using 'SAPLJ1I_MASTER' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=BACK'.
perform bdc_field using 'BDC_CURSOR'
'J_1IMOVEND-J_1IPANNO'.
perform bdc_field using 'J_1IMOVEND-J_1IPANNO'
PANNO_040.
perform bdc_dynpro using 'SAPMF02K' '0110'.
perform bdc_field using 'BDC_CURSOR'
'LFA1-ANRED'.
perform bdc_field using 'BDC_OKCODE'
'/00'.

perform bdc_dynpro using 'SAPMF02K' '0120'.
perform bdc_field using 'BDC_CURSOR'
'LFA1-J_1KFTIND'.
perform bdc_field using 'BDC_OKCODE'
'/00'.

if STCEG_026 IS NOT INITIAL.

perform bdc_field using 'LFA1-STCEG'
STCEG_026.
ENDIF.
perform bdc_field using 'LFA1-J_1KFTBUS'
J_1KFTBUS_027.
perform bdc_field using 'LFA1-J_1KFTIND'
J_1KFTIND_028.
perform bdc_dynpro using 'SAPMF02K' '0130'.
perform bdc_field using 'BDC_CURSOR'
'LFBK-BANKS(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_dynpro using 'SAPMF02K' '0380'.
perform bdc_field using 'BDC_CURSOR'
'KNVK-NAMEV(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_dynpro using 'SAPMF02K' '0210'.
perform bdc_field using 'BDC_CURSOR'
'LFB1-AKONT'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFB1-AKONT'
AKONT_029.
perform bdc_dynpro using 'SAPMF02K' '0215'.
perform bdc_field using 'BDC_CURSOR'
'LFB1-REPRF'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFB1-ZTERM'
ZTERM_030.
perform bdc_field using 'LFB1-REPRF'
REPRF_031.
perform bdc_dynpro using 'SAPMF02K' '0220'.
perform bdc_field using 'BDC_CURSOR'
'LFB5-MAHNA'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFB5-MAHNA'
MAHNA_032.
perform bdc_dynpro using 'SAPMF02K' '0610'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_CURSOR'
'LFB1-QLAND'.
perform bdc_dynpro using 'SAPMF02K' '0310'.
perform bdc_field using 'BDC_CURSOR'
'LFM1-LEBRE'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'LFM1-WAERS'
WAERS_033.
perform bdc_field using 'LFM1-ZTERM'
ZTERM_034.
perform bdc_field using 'LFM1-INCO1'
INCO1_035.
perform bdc_field using 'LFM1-INCO2'
INCO2_036.
perform bdc_field using 'LFM1-KALSK'
KALSK_037.
if KTOKK_003 <> 'FOR'.
perform bdc_field using 'LFM1-WEBRE'
WEBRE_038.
ENDIF.
perform bdc_field using 'LFM1-LEBRE'
LEBRE_039.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR'
'WYT3-PARVW(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_transaction tables messtab
using 'XK01'
CTU
MODE
UPDATE.


if sy-subrc <> 0.
subrc = sy-subrc.
exit.
endif.

perform close_group using CTU.

Thanks

Naresh