Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

xk02 - alternate data.

Former Member

‎2009 Feb 17 9:08 AM

0 Likes
732

Hi

I have recorded bdc for xk02 for adding the alternate data. It is working when i test in the shdb but thru report it is not working.

Can any one help me?

DATA : wvl_tcode(4) TYPE c VALUE 'XK02'.

DATA : wvl_tabix TYPE sy-tabix,

wvl_cnt TYPE n.

DATA : wvl_fnam(20) TYPE c,

wvl_idx TYPE c.

CLEAR wsg_wa_pf.

LOOP AT wtg_pf INTO wsg_wa_pf.

MOVE-CORRESPONDING wsg_wa_pf TO wsg_wa_err_pf.

APPEND wsg_wa_err_pf TO wtg_err_pf.

wvl_tabix = sy-tabix.

SELECT COUNT(*) INTO wvl_cnt FROM wyt3

WHERE lifnr = wsg_wa_pf-lifnr

AND ekorg = wsg_wa_pf-ekorg.

PERFORM bdc_dynpro USING 'SAPMF02K' '0101'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-D0320'.

PERFORM bdc_field USING 'BDC_OKCODE' '/00'.

PERFORM bdc_field USING 'RF02K-LIFNR' wsg_wa_pf-lifnr.

PERFORM bdc_field USING 'RF02K-EKORG' wsg_wa_pf-ekorg.

PERFORM bdc_field USING 'WRF02K-D0320' 'X'.

IF wsg_wa_pf-werks IS INITIAL.

wvl_idx = wvl_cnt + 1.

CLEAR wvl_fnam.

CONCATENATE 'WYT3-PARVW(' wvl_idx ')' INTO wvl_fnam.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-GPARN(05)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.

CONCATENATE 'WYT3-PARVW(' wvl_idx ')' INTO wvl_fnam.

PERFORM bdc_field USING wvl_fnam wsg_wa_pf-parvw.

CONCATENATE 'WRF02K-GPARN(' wvl_idx ')' INTO wvl_fnam.

PERFORM bdc_field USING wvl_fnam wsg_wa_pf-lifn2.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF02K-LIFNR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=UPDA'.

ENDIF.

IF wsg_wa_pf-werks IS NOT INITIAL.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF02K-LIFNR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DEUE'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0340'.

PERFORM bdc_field USING 'BDC_CURSOR' 'ORGTAB-LTSBZ(01)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DHIN'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0352'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-HINZP'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.

PERFORM bdc_field USING 'WRF02K-WERKS(01)' wsg_wa_pf-werks.

PERFORM bdc_field USING 'WRF02K-HINZP' 'X'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-GPARN(01)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DBAC'.

PERFORM bdc_field USING 'WYT3-PARVW(01)' wsg_wa_pf-parvw.

PERFORM bdc_field USING 'WRF02K-GPARN(01)' wsg_wa_pf-lifn2.

PERFORM bdc_dynpro USING 'SAPMF02K' '0340'.

PERFORM bdc_field USING 'BDC_CURSOR' 'ORGTAB-LTSBZ(01)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DABB'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF02K-LIFNR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=PF03'.

ENDIF.

  • PERFORM bdc_dynpro USING 'SAPLSPO1' '0100'.

  • PERFORM bdc_field USING 'BDC_OKCODE' '=YES'.

PERFORM call_transaction USING wvl_tcode.

ENDLOOP.

Thanks

Hi

I have recorded bdc for xk02 for adding the alternate data. It is working when i test in the shdb but thru report it is not working.

Can any one help me?

DATA : wvl_tcode(4) TYPE c VALUE 'XK02'.

DATA : wvl_tabix TYPE sy-tabix,

wvl_cnt TYPE n.

DATA : wvl_fnam(20) TYPE c,

wvl_idx TYPE c.

CLEAR wsg_wa_pf.

LOOP AT wtg_pf INTO wsg_wa_pf.

MOVE-CORRESPONDING wsg_wa_pf TO wsg_wa_err_pf.

APPEND wsg_wa_err_pf TO wtg_err_pf.

wvl_tabix = sy-tabix.

SELECT COUNT(*) INTO wvl_cnt FROM wyt3

WHERE lifnr = wsg_wa_pf-lifnr

AND ekorg = wsg_wa_pf-ekorg.

PERFORM bdc_dynpro USING 'SAPMF02K' '0101'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-D0320'.

PERFORM bdc_field USING 'BDC_OKCODE' '/00'.

PERFORM bdc_field USING 'RF02K-LIFNR' wsg_wa_pf-lifnr.

PERFORM bdc_field USING 'RF02K-EKORG' wsg_wa_pf-ekorg.

PERFORM bdc_field USING 'WRF02K-D0320' 'X'.

IF wsg_wa_pf-werks IS INITIAL.

wvl_idx = wvl_cnt + 1.

CLEAR wvl_fnam.

CONCATENATE 'WYT3-PARVW(' wvl_idx ')' INTO wvl_fnam.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-GPARN(05)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.

CONCATENATE 'WYT3-PARVW(' wvl_idx ')' INTO wvl_fnam.

PERFORM bdc_field USING wvl_fnam wsg_wa_pf-parvw.

CONCATENATE 'WRF02K-GPARN(' wvl_idx ')' INTO wvl_fnam.

PERFORM bdc_field USING wvl_fnam wsg_wa_pf-lifn2.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF02K-LIFNR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=UPDA'.

ENDIF.

IF wsg_wa_pf-werks IS NOT INITIAL.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF02K-LIFNR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DEUE'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0340'.

PERFORM bdc_field USING 'BDC_CURSOR' 'ORGTAB-LTSBZ(01)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DHIN'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0352'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-HINZP'.

PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.

PERFORM bdc_field USING 'WRF02K-WERKS(01)' wsg_wa_pf-werks.

PERFORM bdc_field USING 'WRF02K-HINZP' 'X'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'WRF02K-GPARN(01)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DBAC'.

PERFORM bdc_field USING 'WYT3-PARVW(01)' wsg_wa_pf-parvw.

PERFORM bdc_field USING 'WRF02K-GPARN(01)' wsg_wa_pf-lifn2.

PERFORM bdc_dynpro USING 'SAPMF02K' '0340'.

PERFORM bdc_field USING 'BDC_CURSOR' 'ORGTAB-LTSBZ(01)'.

PERFORM bdc_field USING 'BDC_OKCODE' '=DABB'.

PERFORM bdc_dynpro USING 'SAPMF02K' '0320'.

PERFORM bdc_field USING 'BDC_CURSOR' 'RF02K-LIFNR'.

PERFORM bdc_field USING 'BDC_OKCODE' '=PF03'.

ENDIF.

  • PERFORM bdc_dynpro USING 'SAPLSPO1' '0100'.

  • PERFORM bdc_field USING 'BDC_OKCODE' '=YES'.

PERFORM call_transaction USING wvl_tcode.

ENDLOOP.

Thanks

Reply
3 REPLIES 3
Read only

Former Member

‎2009 Feb 17 9:51 AM

0 Likes
620

hi,

Most often BDC with Vendor master data does not execute propely.

try using other options like BAPI / Direct batch i/p using LSMW.

Read only

Former Member

‎2009 Apr 20 5:02 AM

0 Likes
620

Dear Venkat,

In xk02 transaction i need to upload VAT and CST Reg.no for already existing vendor master records.can u send me the coding which u developed for xk02 changes.it will very helpful to me now.

Thanks and Regards

MurugeshRajeev

Read only

Former Member

‎2009 Apr 20 5:31 AM

0 Likes
620

hi,

debugg watchfully u r problem will be solved...