bdc

Former Member — Wed, 23 May 2007 05:57:08 GMT

Hi All,

bdc program to chnage customer master sales area details?

regards,

phani.

Re: bdc

Former Member — Wed, 23 May 2007 06:01:38 GMT

See the sample code and modify accordingly

report ZSDBDCP_CUSTOMER_VD01

no standard page heading

line-size 255.

----

*Includes

----

include zbdcrecx1.

----

*Internal Tables

----

*-- Internal Table to hold customer data

Data : begin of it_customer occurs 0,

f1(4), " Sales Org.

f2(2), " Distribution Channel

f3(2), " Division

f4(4), " Acct Group

f5(30), " Tittle

f6(40), " Name1

f7(40), " Name2

f8(20), " Search Term 1

f9(20), " Search Term 2

f10(10), " Postal Code

f11(40), " City

f12(3), " Country

f13(2), " Language

f14(2), " Shipping Condition

end of it_customer.

----

*Start of selection

----

start-of-selection.

Clear it_customer.

Refresh it_customer.

*To Upload Flat file

CALL FUNCTION 'UPLOAD'
EXPORTING
filename = 'C:\WINDOWS\Desktop\cst_vd01.txt'
filetype = 'DAT'
TABLES
data_tab = it_customer
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
OTHERS = 7.

WRITE : / 'Upload of Customer Ext. from ', P_FNAME, ' on ', SY-DATUM.

perform open_group.

OPEN DATASET P_FNAME FOR INPUT IN TEXT MODE.

if sy-subrc ne 0.

write : / 'File could not be uploaded.. Check file name.'.

stop.

endif.

CLEAR : IT_CUSTOMER[], IT_CUSTOMER.

DO.

READ DATASET P_FNAME INTO V_STR.

IF SY-SUBRC NE 0.

EXIT.

ENDIF.

write v_str.
translate v_str using '#/'.

SPLIT V_STR AT ',' INTO IT_CUSTOMER-F1 IT_CUSTOMER-F2 IT_CUSTOMER-F3

IT_CUSTOMER-F4 IT_CUSTOMER-F5 IT_CUSTOMER-F6

IT_CUSTOMER-F7 IT_CUSTOMER-F8 IT_CUSTOMER-F9

IT_CUSTOMER-F10

IT_CUSTOMER-F11 IT_CUSTOMER-F12

IT_CUSTOMER-F13 IT_CUSTOMER-F14.

APPEND IT_CUSTOMER.

CLEAR IT_CUSTOMER.

ENDDO.

IF IT_CUSTOMER[] IS INITIAL.

WRITE : / 'No data found to upload'.

STOP.

ENDIF.

loop at it_customer.

perform bdc_dynpro using 'SAPMF02D' '0107'.

perform bdc_field using 'BDC_CURSOR'

'USE_ZAV'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'RF02D-VKORG'

it_customer-f1.

perform bdc_field using 'RF02D-VTWEG'

it_customer-f2.

perform bdc_field using 'RF02D-SPART'

it_customer-f3.

perform bdc_field using 'RF02D-KTOKD'

it_customer-f4.

perform bdc_field using 'RF02D-REF_KUNNR'

''.

perform bdc_field using 'RF02D-REF_VKORG'

''.

perform bdc_field using 'RF02D-REF_VTWEG'

''.

perform bdc_field using 'RF02D-REF_SPART'

''.

perform bdc_field using 'USE_ZAV'

'X'.

perform bdc_dynpro using 'SAPMF02D' '0111'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_field using 'BDC_CURSOR'

'ADDR1_DATA-POST_CODE1'.

perform bdc_field using 'SZA1_D0100-TITLE_MEDI'

it_customer-f5.

perform bdc_field using 'ADDR1_DATA-NAME1'

it_customer-f6.

perform bdc_field using 'ADDR1_DATA-NAME2'

it_customer-f7.

perform bdc_field using 'ADDR1_DATA-SORT1'

it_customer-f8.

perform bdc_field using 'ADDR1_DATA-SORT2'

it_customer-f9.

perform bdc_field using 'ADDR1_DATA-POST_CODE1'

it_customer-f10.

perform bdc_field using 'ADDR1_DATA-CITY1'

it_customer-f11.

perform bdc_field using 'ADDR1_DATA-COUNTRY'

it_customer-f12.

perform bdc_field using 'ADDR1_DATA-LANGU'

it_customer-f13.

perform bdc_dynpro using 'SAPMF02D' '0120'.

perform bdc_field using 'BDC_CURSOR'

'KNA1-LIFNR'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_dynpro using 'SAPMF02D' '0125'.

perform bdc_field using 'BDC_CURSOR'

'KNA1-NIELS'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_dynpro using 'SAPMF02D' '0340'.

perform bdc_field using 'BDC_CURSOR'

'KNVA-ABLAD(01)'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_dynpro using 'SAPMF02D' '0370'.

perform bdc_field using 'BDC_CURSOR'

'KNEX-LNDEX(01)'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_field using 'KNA1-CIVVE'

'X'.

perform bdc_dynpro using 'SAPMF02D' '0360'.

perform bdc_field using 'BDC_CURSOR'

'KNVK-NAMEV(01)'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_dynpro using 'SAPMF02D' '0310'.

perform bdc_field using 'BDC_CURSOR'

'KNVV-BEGRU'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_dynpro using 'SAPMF02D' '0315'.

perform bdc_field using 'BDC_CURSOR'

'KNVV-ANTLF'.

perform bdc_field using 'BDC_OKCODE'

'=VW'.

perform bdc_field using 'KNVV-KZAZU'

'X'.

perform bdc_field using 'KNVV-VSBED'

it_customer-f14.

perform bdc_field using 'KNVV-ANTLF'

''.

perform bdc_dynpro using 'SAPMF02D' '0324'.

perform bdc_field using 'BDC_CURSOR'

'KNVP-PARVW(01)'.

perform bdc_field using 'BDC_OKCODE'

'=UPDA'.

*--To call Transaction

perform bdc_transaction using 'VD01'.

endloop.

perform close_group.

Reward points if useful

Regards

Anji

topic Re: bdc in Application Development and Automation Discussions

bdc

Re: bdc