about bdc

[Former Member]

plz provide details regarding bdc thru va01 with session method.

if possible provide a sample flat file for such .

thanks in advance

[Former Member]

providing sample file is not fesiable...

even the sample code varies from system to system.. as it depends on configurations...

if you have written the code and need some correction then we can help you...

[Former Member]

hai i am sending a sample code for BDC Session method

&----

---

*& Report ZRAM_BDCCT

*&

&----

---

*&

*&

&----

---

report zram_bdcsession.

tables : mara.

data : begin of tabmat occurs 100,

matnr like mara-matnr,

ernam like mara-ernam,

matkl like mara-matkl,

meins like mara-meins,

kunnr like mara-kunnr,

end of tabmat.

data : tabstr like bdcdata occurs 100 with header line.

call function 'GUI_UPLOAD'

exporting

filename = 'C:\STD11'

tables

data_tab = tabmat.

call function 'BDC_OPEN_GROUP'

exporting

client = sy-mandt

group = 'RAMESH'

holddate = sy-datum

keep = 'X'

user = sy-uname.

loop at tabmat.

perform put_data.

call function 'BDC_INSERT'

exporting

tcode = 'ZBDC'

tables

dynprotab = tabstr.

.

• CALL TRANSACTION 'ZBDC' USING TABSTR MODE 'A' UPDATE 'S'.

refresh tabstr.

endloop.

call function 'BDC_CLOSE_GROUP'.

form put_data.

tabstr-program = 'YMAT_UPDATE'.

tabstr-dynpro = '1000'.

tabstr-dynbegin = 'X'.

append tabstr.

clear tabstr.

tabstr-fnam = 'MARA-MATNR'.

tabstr-fval = tabmat-matnr.

append tabstr.

clear tabstr.

tabstr-fnam = 'MARA-ERNAM'.

tabstr-fval = tabmat-ernam.

append tabstr.

clear tabstr.

tabstr-fnam = 'MARA-MATKL'.

tabstr-fval = tabmat-matkl.

append tabstr.

clear tabstr.

tabstr-fnam = 'MARA-MEINS'.

tabstr-fval = tabmat-meins.

append tabstr.

clear tabstr.

tabstr-fnam = 'MARA-KUNNR'.

tabstr-fval = tabmat-kunnr.

append tabstr.

clear tabstr.

endform.

[Former Member]

I have a sample code for VA01 but it uses Call transaction... u just need to replace it with session method....

Send an email to rameshc@intelligroup.com and i will send the code... u need to check it and do ur changes accordingly.

Reward Points...

[Former Member]

hi

good

report zxyz.

data: bdctab like bdcdata occurs 0 with header line.

data: messtab like bdcmsgcoll occurs 0 with header line.

data: begin of itab occurs 0,

ord_typ(2),

sales_org(4),

dist_chan(2),

div(2),

PO_No(10),

SP(6),

SH(6),

pay_term(4),

inc_term(3),

inc_inf(10),

material(4),

item(2),

ord_quan(5),

plant(4),

amount(7),

Netweight(5),

Grossweight(5),

end of itab.

start-of-selection.

perform get_data.

perform create_bdcdata.

**&----

---

*

**& Form get_data

**&----

---

*

• text

**----

---

*

• --> p1 text

• <-- p2 text

**----

---

*

FORM get_data .

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = 'C:\Documents and Settings\Ekansh\Desktop\salesorder'

filetype = 'dat'

TABLES

DATA_TAB = ITAB

EXCEPTIONS

CONVERSION_ERROR = 1

FILE_OPEN_ERROR = 2

FILE_READ_ERROR = 3

INVALID_TABLE_WIDTH = 4

INVALID_TYPE = 5

NO_BATCH = 6

UNKNOWN_ERROR = 7

GUI_REFUSE_FILETRANSFER = 8

OTHERS = 9.

ENDFORM. " get_data

***&----

---

-

***& Form bdcdata

***&----

---

-

• text

***----

---

-

• --> p1 text

• <-- p2 text

***----

---

-

FORM create_bdcdata .

loop at itab.

perform bdc_dynpro using:

'X' 'SAPMV45A' '0101',

'' 'BDC_OKCODE' '/00',

'' 'VBAK-AUART' itab-ord_typ,

'' 'VBAK-VKORG' itab-sales_org,

'' 'VBAK-VTWEG' itab-dist_chan,

'' 'VBAK-SPART' itab-div,

'X' 'SAPMV45A' '4001',

'' 'BDC_OKCODE' '=T\02',

'' 'VBKD-BSTKD' itab-PO_No,

'' 'KUAGV-KUNNR' itab-SP,

'' 'KUWEV-KUNNR' itab-SH,

'' 'VBKD-ZTERM' itab-pay_term,

'' 'VBKD-INCO1' itab-inc_term,

'' 'VBKD-INCO2' itab-inc_inf,

'' 'RV45A-MABNR(01)' itab-material,

'' 'VBAP-POSNR(01)' itab-item,

'' 'RV45A-KWMENG(01)' itab-ord_quan,

'' 'VBAP-WERKS(01)' itab-plant,

'' 'KOMV-KBETR(01)' itab-amount,

'X' 'SAPMV45A' '4001',

'' 'BDC_OKCODE' '/00',

'' 'VBAP-NTGEW(01)' itab-Netweight,

'' 'VBAP-BRGEW(01)' itab-Grossweight,

'X' 'SAPMV45A' '4001',

'' 'BDC_OKCODE' '=SICH'.

call transaction 'va01' using bdctab

MODE 'A'

update 'S'

messages into messtab.

refresh bdctab.

endloop.

ENDFORM. " create_bdcdata

&----

---

*& Form bdc_dynpro

&----

---

• text

----

---

• -->P_0125 text

• -->P_0126 text

• -->P_0127 text

----

---

FORM bdc_dynpro USING P1

P2

P3.

IF P1 = 'X'.

CLEAR BDCTAB.

BDCTAB-DYNBEGIN = P1.

BDCTAB-PROGRAM = P2.

BDCTAB-DYNPRO = P3.

else.

CLEAR BDCTAB.

BDCTAB-FNAM = P1.

BDCTAB-FVAL = P2.

endif.

APPEND BDCTAB.

ENDFORM. " bdc_dynpro

thanks

mrutyun^