bdc query

Former Member — Sat, 17 May 2008 09:37:23 GMT

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.

Re: bdc query

Former Member — Sat, 17 May 2008 10:06:23 GMT

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

topic Re: bdc query in Application Development and Automation Discussions

bdc query

Re: bdc query