topic fk02 Transaction . in Application Development and Automation Discussions

fk02 Transaction .

Former Member — Fri, 22 May 2009 11:22:24 GMT

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.

Re: fk02 Transaction .

Former Member — Fri, 22 May 2009 12:14:33 GMT

Try FI_WT_CHANGES_LFBW_MASTER

Re: fk02 Transaction .

Former Member — Sat, 23 May 2009 06:03:31 GMT

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.

Re: fk02 Transaction .

Former Member — Sat, 23 May 2009 07:06:35 GMT

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.

TEMP_BUKRS = ITAB-BUKRS.

TEMP_LIFNR = ITAB-LIFNR.

ENDIF.

I think, it will help you.

Re: fk02 Transaction .

Former Member — Sat, 23 May 2009 07:37:55 GMT

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.

Re: fk02 Transaction .

Former Member — Sat, 23 May 2009 08:33:32 GMT

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.

TEMP_BUKRS = ITAB-BUKRS.

TEMP_LIFNR = ITAB-LIFNR.

ENDIF.

Hope, it will help you.

Thanks,

Poonam.

Re: fk02 Transaction .

Former Member — Sat, 23 May 2009 08:41:57 GMT

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.

Re: fk02 Transaction .

Former Member — Mon, 25 May 2009 05:46:10 GMT

hi Poonam,

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

Re: fk02 Transaction .

Former Member — Fri, 03 Jul 2009 18:48:44 GMT

answered