Skip to Content
0
Former Member
Jan 04, 2008 at 03:40 AM

No changes getting updated in table LFA1

836 Views

I have recorded transaction XK02. when I run the BDC program

ZLFA1_UP_C, I don’t get any error message & it also shows

message ‘Changes have been made’ the data is updated. Its for vendor mobile nos. upload.

But when I check TELF2 field in the table LFA1 no changes are updated.

I am unable to trace the problem. Kindly guide me on the same.

The BDC program is as follows :

REPORT ZLFA1_UP_C no standard page heading line-size 255 .

DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA : BEGIN OF itab OCCURS 0,

lifnr like lfa1-lifnr,

telf2 like lfa1-telf2,

END OF itab.

start-of-selection.

CALL FUNCTION 'UPLOAD'

EXPORTING

  • CODEPAGE = ' '

FILENAME = 'c:\ '

FILETYPE = 'ASC'

TABLES

data_tab = itab

  • EXCEPTIONS

  • CONVERSION_ERROR = 1

  • INVALID_TABLE_WIDTH = 2

  • INVALID_TYPE = 3

  • NO_BATCH = 4

  • UNKNOWN_ERROR = 5

  • GUI_REFUSE_FILETRANSFER = 6

  • OTHERS = 7

.

IF sy-subrc <> 0.

  • MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

  • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

loop at itab.

REFRESH BDCDATA.

perform bdc_dynpro using 'SAPMF02K' '0101'.

perform bdc_field using 'BDC_CURSOR'

'RF02K-D0110'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02K-LIFNR'

  • '7911014'.

itab-lifnr.

perform bdc_field using 'RF02K-BUKRS'

'cg'.

perform bdc_field using 'RF02K-EKORG'

'lapo'.

perform bdc_field using 'RF02K-D0110'

'X'.

perform bdc_dynpro using 'SAPMF02K' '0110'.

perform bdc_field using 'BDC_CURSOR'

'LFA1-ANRED'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

*perform bdc_field using 'LFA1-ANRED'

  • 'Company'.

*perform bdc_field using 'LFA1-NAME1'

  • 'SKF BEARINGS INDIA LTD'.

*perform bdc_field using 'LFA1-SORTL'

  • 'SKF'.

*perform bdc_field using 'LFA1-NAME2'

  • '"CHINCHWAD,NEAR CHAPHEKAR STATUE"'.

*perform bdc_field using 'LFA1-NAME3'

  • 'ATTN MR ABHIJIT KULKARNI'.

*perform bdc_field using 'LFA1-ORT01'

  • 'PUNE'.

*perform bdc_field using 'LFA1-PSTLZ'

  • '411033'.

*perform bdc_field using 'LFA1-LAND1'

  • 'IN'.

*perform bdc_field using 'LFA1-REGIO'

  • '13'.

*perform bdc_field using 'LFA1-SPRAS'

  • 'EN'.

*perform bdc_field using 'LFA1-TELF1'

  • '020-4112428'.

perform bdc_field using 'LFA1-TELF2'

  • '9322855166'.

itab-telf2.

Call Transaction 'XK02' using BDCDATA Mode 'A' .

*Refresh BDCDATA.

Endloop.

*perform close_group.

----


  • Start new screen *

----


FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM.

----


  • Insert field *

----


FORM BDC_FIELD USING FNAM FVAL.

  • IF FVAL <> NODATA.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

  • ENDIF.

ENDFORM.

Plz help.