bdc query

[Former Member]

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

[red]GROUP = 'ZMM01' hw to create this group ?plz give details steps for bdc u[pload using session method[/red]

KEEP = 'X'

USER = SY-UNAME.

IF sy-subrc 0.

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

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

ENDIF.

[Former Member]

hi i am sending you bdc coding of vk11 with session method.

sample code

REPORT zvk11

NO STANDARD PAGE HEADING LINE-SIZE 255.

*include bdcrecx1.

*

*start-of-selection.

*

*perform open_group.

DATA : BEGIN OF itab OCCURS 0,

kschl LIKE rv13a-kschl,

matnr LIKE komg-matnr,

charg LIKE komg-charg,

kbetr(13) TYPE c,

konwa LIKE konp-konwa,

datab LIKE rv13a-datab,

datbi LIKE rv13a-datbi,

END OF itab.

• DATA : itab TYPE STANDARD TABLE OF tab WITH HEADER LINE.

DATA : bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = 'c:\tradeqty1.txt'

filetype = 'ASC'

has_field_separator = 'X'

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.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

• CLIENT = SY-MANDT

• DEST = FILLER8

group = 'ZMRP'

• HOLDDATE = FILLER8

keep = 'X'

user = sy-uname

• RECORD = FILLER1

• PROG = SY-CPROG

• IMPORTING

• QID =

• EXCEPTIONS

• CLIENT_INVALID = 1

• DESTINATION_INVALID = 2

• GROUP_INVALID = 3

• GROUP_IS_LOCKED = 4

• HOLDDATE_INVALID = 5

• INTERNAL_ERROR = 6

• QUEUE_ERROR = 7

• RUNNING = 8

• SYSTEM_LOCK_ERROR = 9

• USER_INVALID = 10

• OTHERS = 11

.

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.

PERFORM xyz.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

tcode = 'VK11'

• POST_LOCAL = NOVBLOCAL

• PRINTING = NOPRINT

• SIMUBATCH = ' '

• CTUPARAMS = ' '

TABLES

dynprotab = bdcdata

• EXCEPTIONS

• INTERNAL_ERROR = 1

• NOT_OPEN = 2

• QUEUE_ERROR = 3

• TCODE_INVALID = 4

• PRINTING_INVALID = 5

• POSTING_INVALID = 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.

REFRESH bdcdata.

ENDLOOP.

CALL FUNCTION 'BDC_CLOSE_GROUP'

• EXCEPTIONS

• NOT_OPEN = 1

• QUEUE_ERROR = 2

• OTHERS = 3

.

IF sy-subrc <> 0.

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

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

ENDIF.

&----

---

*& Form XYZ

&----

---

• text

----

---

FORM xyz.

PERFORM bdc_dynpro USING 'SAPMV13A' '0100'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RV13A-KSCHL'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'RV13A-KSCHL'

itab-kschl. "'ZMRP'.

PERFORM bdc_dynpro USING 'SAPLV14A' '0100'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RV130-SELKZ(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=WEIT'.

PERFORM bdc_dynpro USING 'SAPMV13A' '1502'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RV13A-DATBI(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'KOMG-MATNR'

itab-matnr. "'201000000000000000'.

PERFORM bdc_field USING 'KOMG-CHARG(01)'

itab-charg. "'0000000063'.

PERFORM bdc_field USING 'KONP-KBETR(01)'

itab-kbetr. "' 570'.

PERFORM bdc_field USING 'KONP-KONWA(01)'

itab-konwa. "'inr'.

PERFORM bdc_field USING 'RV13A-DATAB(01)'

itab-datab. "'08.09.2007'.

PERFORM bdc_field USING 'RV13A-DATBI(01)'

itab-datbi. "'23.08.2010'.

PERFORM bdc_dynpro USING 'SAPMV13A' '1502'.

PERFORM bdc_field USING 'BDC_CURSOR'

'KOMG-CHARG(01)'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=SICH'.

*perform bdc_transaction using 'VK11'.

*perform close_group.

ENDFORM. "XYZ

----

---

• Start new screen *

----

---

FORM bdc_dynpro USING program dynpro.

CLEAR bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

APPEND bdcdata.

ENDFORM. "BDC_DYNPRO

----

---

• Insert field *

----

---

FORM bdc_field USING fnam fval.

IF fval <> space.

CLEAR bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

APPEND bdcdata.

ENDIF.

ENDFORM. "BDC_FIELD

reward if helpful