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

fk02 Transaction .

Go to solution
Former Member

‎2009 May 22 12:22 PM

0 Likes
1,533

hi ,

In FK02 Transaction . i need to change With Hold Tax Type automatically .This can be done only BDC/BAPI. please tell me the BAPI which updates the LFBW Table or If it is BDC do tell me how to position the cursor using BDC.

1 ACCEPTED SOLUTION
Read only

Go to solution
Former Member

‎2009 May 22 1:14 PM

0 Likes
1,296

Try FI_WT_CHANGES_LFBW_MASTER

hi ,

In FK02 Transaction . i need to change With Hold Tax Type automatically .This can be done only BDC/BAPI. please tell me the BAPI which updates the LFBW Table or If it is BDC do tell me how to position the cursor using BDC.

Reply
8 REPLIES 8
Read only

Go to solution
Former Member

‎2009 May 22 1:14 PM

0 Likes
1,297

Try FI_WT_CHANGES_LFBW_MASTER

Read only

Go to solution
Former Member

‎2009 May 23 7:03 AM

0 Likes
1,296

Thanks for the Functional Module. but here can u tell me how it updates the LFBW Table.

I don know where the value for YLFBW comes .

DATA: REFE1(8) TYPE P, "Packed field

REFE2(8) TYPE P. "Packed field

*------- Compare the entries of the old and new tables ? -

DESCRIBE TABLE T_XLFBW LINES REFE1.

DESCRIBE TABLE YLFBW LINES REFE2.

IF REFE1 NE REFE2.

E_CHNG = 'X'.

ELSE.

*------- Compare old and new tables ? -

LOOP AT T_XLFBW.

LOOP AT YLFBW WHERE LIFNR = T_XLFBW-LIFNR

AND BUKRS = T_XLFBW-BUKRS

AND WITHT = T_XLFBW-WITHT.

IF T_XLFBW NE YLFBW.

E_CHNG = 'X'.

EXIT.

ENDIF.

ENDLOOP.

IF SY-SUBRC NE 0.

E_CHNG = 'X'.

EXIT.

ENDIF.

ENDLOOP.

ENDIF.

Read only

Go to solution
Former Member

‎2009 May 23 8:06 AM

0 Likes
1,296

Hi,

Try this BDC code to upload With Holding Tax Code data of vendors..

ITAB is my internal table which having structure as

DATA: BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFB1-LIFNR, "Vendor

BUKRS LIKE LFB1-BUKRS, "Company Code

EKORG LIKE LFM1-EKORG,"Purchase org

QSSKZ LIKE LFB1-QSSKZ, "W.tax type

QSREC LIKE LFB1-QSREC, "Recipient type

END OF ITAB.

IF TEMP_BUKRS <> ITAB-BUKRS OR TEMP_LIFNR <> ITAB-LIFNR.

IF FLAG EQ 'X'.

PERFORM BDC_FIELD1 USING 'BDC_OKCODE'

'=UPDA'.

PERFORM BDC_TRANSACTION USING 'XK02'.

CLEAR FLAG.

CLEAR V_NO.

ENDIF.

PERFORM BDC_DYNPRO1 USING 'SAPMF02K' '0101'.

PERFORM BDC_FIELD1 USING 'BDC_CURSOR'

'RF02K-D0610'.

PERFORM BDC_FIELD1 USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD1 USING 'RF02K-LIFNR'

ITAB-LIFNR.

PERFORM BDC_FIELD1 USING 'RF02K-BUKRS'

ITAB-BUKRS.

PERFORM BDC_FIELD1 USING 'RF02K-D0610'

'X'.

PERFORM BDC_DYNPRO1 USING 'SAPMF02K' '0610'.

PERFORM BDC_FIELD1 USING 'LFBW-WITHT(01)'

ITAB-QSSKZ.

PERFORM BDC_FIELD1 USING 'LFBW-WT_WITHCD(01)'

ITAB-QSSKZ.

PERFORM BDC_FIELD1 USING 'LFBW-QSREC(01)'

ITAB-QSREC.

FLAG = 'X'.

ADD 2 TO V_NO.

ELSE.

IF V_NO NE 6.

CONCATENATE 'LFBW-WT_EXDF(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING 'BDC_CURSOR'

V_FLD.

CONCATENATE 'LFBW-WITHT(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-WT_WITHCD(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-QSREC(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSREC.

ADD 1 TO V_NO.

ELSE.

CONCATENATE 'LFBW-WT_EXDF(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING 'BDC_CURSOR'

V_FLD.

CONCATENATE 'LFBW-WITHT(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-WT_WITHCD(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-QSREC(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSREC.

perform bdc_field using 'BDC_OKCODE'

'=P+'.

perform bdc_dynpro using 'SAPMF02K' '0610'.

V_NO = 1.

ENDIF.

ENDIF.

TEMP_BUKRS = ITAB-BUKRS.

TEMP_LIFNR = ITAB-LIFNR.

ENDIF.

I think, it will help you.

Read only

Go to solution
Former Member

‎2009 May 23 8:37 AM

0 Likes
1,296

Thanks for the BDC. but again we have a table control where the field "WITH HOLD TAX TYPE "lies and this value has to be changes with the legacy field-value . how to idenitfy the which value in the table control have tobe changed.or how to position the cursor in the table control.

Read only

Go to solution
Former Member
In response to Former Member

‎2009 May 23 9:41 AM

0 Likes
1,296

Hi,

To update a perticular value in table control thro. BDC it's very complicated. So I suggest to update the value in table control use any function module or directly update the table.

Thnaks,

Poonam.

Read only

Go to solution
Former Member

‎2009 May 23 9:33 AM

0 Likes
1,296

Hi..,

Try this BDC code to upload with holding tax code of vendors. In this code, ITAB is the internal table which having structure as follows --

DATA: BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFB1-LIFNR, "Vendor

BUKRS LIKE LFB1-BUKRS, "Company Code

EKORG LIKE LFM1-EKORG,"Purchase org

QSSKZ LIKE LFB1-QSSKZ, "W.tax type

QSREC LIKE LFB1-QSREC, "Recipient type

END OF ITAB.

IF TEMP_BUKRS <> ITAB-BUKRS OR TEMP_LIFNR <> ITAB-LIFNR.

IF FLAG EQ 'X'.

PERFORM BDC_FIELD1 USING 'BDC_OKCODE'

'=UPDA'.

PERFORM BDC_TRANSACTION USING 'XK02'.

CLEAR FLAG.

CLEAR V_NO.

ENDIF.

PERFORM BDC_DYNPRO1 USING 'SAPMF02K' '0101'.

PERFORM BDC_FIELD1 USING 'BDC_CURSOR'

'RF02K-D0610'.

PERFORM BDC_FIELD1 USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD1 USING 'RF02K-LIFNR'

ITAB-LIFNR.

PERFORM BDC_FIELD1 USING 'RF02K-BUKRS'

ITAB-BUKRS.

PERFORM BDC_FIELD1 USING 'RF02K-D0610'

'X'.

PERFORM BDC_DYNPRO1 USING 'SAPMF02K' '0610'.

PERFORM BDC_FIELD1 USING 'BDC_CURSOR'

'LFBW-WT_EXDF(01)'.

PERFORM BDC_FIELD1 USING 'LFBW-WITHT(01)'

ITAB-QSSKZ.

PERFORM BDC_FIELD1 USING 'LFBW-WT_WITHCD(01)'

ITAB-QSSKZ.

PERFORM BDC_FIELD1 USING 'LFBW-QSREC(01)'

ITAB-QSREC.

FLAG = 'X'.

ADD 2 TO V_NO.

ELSE.

IF V_NO NE 6.

CONCATENATE 'LFBW-WT_EXDF(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING 'BDC_CURSOR'

V_FLD.

CONCATENATE 'LFBW-WITHT(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-WT_WITHCD(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-QSREC(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSREC.

ADD 1 TO V_NO.

ELSE.

CONCATENATE 'LFBW-WT_EXDF(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING 'BDC_CURSOR'

V_FLD.

CONCATENATE 'LFBW-WITHT(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-WT_WITHCD(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSSKZ.

CONCATENATE 'LFBW-QSREC(' V_NO ')' INTO V_FLD.

CONDENSE V_FLD.

PERFORM BDC_FIELD1 USING V_FLD

ITAB-QSREC.

perform bdc_field using 'BDC_OKCODE'

'=P+'.

perform bdc_dynpro using 'SAPMF02K' '0610'.

V_NO = 1.

ENDIF.

ENDIF.

TEMP_BUKRS = ITAB-BUKRS.

TEMP_LIFNR = ITAB-LIFNR.

ENDIF.

Hope, it will help you.

Thanks,

Poonam.

Read only

Go to solution
Former Member

‎2009 May 25 6:46 AM

0 Likes
1,296

hi Poonam,

Can you tell me the functional module for the updation of that table

Read only

Go to solution
Former Member

‎2009 Jul 03 7:48 PM

0 Likes
1,296

answered