bdc

Former Member — Tue, 27 Nov 2007 09:31:05 GMT

How to define a datatype(QUAN) in internal table.And also when i use bdc to create sales order i got this error.here i am using table control bdc.

report YMK_BDCSALES1 no standard page heading line-size 255.

tables : vbak,vbkd,kuwev,rv45a.

data : begin of itab occurs 0,

auart like vbak-auart,

vkorg like vbak-vkorg,

vtweg like vbak-vtweg,

spart like vbak-spart,

bstkd like vbkd-bstkd,

kunnr like kuwev-kunnr,

mabnr(18) type C,

kwmeng(15) type c,

end of itab.

data : begin of mabnr occurs 0,

mabnr like rv45a-mabnr,

end of mabnr.

data : begin of kwmeng occurs 0,

kwmeng like rv45a-kwmeng,

end of kwmeng.

DATA : FLD(20) TYPE C,

CNT(2) TYPE N.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = 'c:/sale.txt'

FILETYPE = 'DAT'

TABLES

DATA_TAB = itab

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

include bdcrecx1.

start-of-selection.

perform open_group.

loop at itab.

refresh bdcdata.

SPLIT ITAB-mabnr AT ',' into table mabnr.

SPLIT ITAB-kwmeng AT ',' into table kwmeng.

perform bdc_dynpro using 'SAPMV45A' '0101'.

perform bdc_field using 'BDC_CURSOR'

'VBAK-AUART'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'VBAK-AUART'

itab-auart.

perform bdc_field using 'VBAK-VKORG'

itab-vkorg.

perform bdc_field using 'VBAK-VTWEG'

itab-vtweg.

perform bdc_field using 'VBAK-SPART'

itab-spart.

perform bdc_dynpro using 'SAPMV45A' '4001'.

perform bdc_field using 'BDC_OKCODE'

'=SICH'.

perform bdc_field using 'VBKD-BSTKD'

itab-bstkd.

perform bdc_field using 'KUAGV-KUNNR'

'2155'.

perform bdc_field using 'KUWEV-KUNNR'

itab-kunnr.

perform bdc_field using 'RV45A-KETDAT'

'24.05.2006'.

perform bdc_field using 'RV45A-KPRGBZ'

'D'.

perform bdc_field using 'VBKD-PRSDT'

'14.05.2006'.

perform bdc_field using 'BDC_CURSOR'

'RV45A-KWMENG(01)'.

MOVE 1 TO CNT.

LOOP AT mabnr.

CONCATENATE 'rv45a-mabnr( ' CNT ' ) ' INTO FLD.

PERFORM BDC_FIELD USING FLD mabnr-mabnr.

CNT = CNT + 1.

ENDLOOP.

MOVE 1 TO CNT.

LOOP AT kwmeng.

CONCATENATE 'rv45a-mabnr( ' CNT ' ) ' INTO FLD.

PERFORM BDC_FIELD USING FLD kwmeng-kwmeng.

CNT = CNT + 1.

ENDLOOP.

perform bdc_field using 'RV45A-MABNR(01)'

itab-mabnr.

perform bdc_field using 'RV45A-KWMENG(01)'

itab-kwmeng.

perform bdc_transaction using 'VA01'.

endloop.

Re: bdc

Former Member — Tue, 27 Nov 2007 09:36:11 GMT

what is the error you are getting

topic bdc in Application Development and Automation Discussions

bdc

Re: bdc