topic Re: bdc in Application Development and Automation Discussions

bdc

Former Member — Tue, 25 Jul 2006 06:34:56 GMT

using bdc through FM. not working ,what should be entered in the elements list tell me in detail.

Re: bdc

Former Member — Tue, 25 Jul 2006 06:38:16 GMT

Hi Naval,

Can you send detail of your Problum please.

Ankur Garg.

Re: bdc

Former Member — Tue, 25 Jul 2006 06:38:17 GMT

are u passing all the fields for the BDCDATA table?

1. PROGRAM: Name of module pool program associated with the screen. Set this field only for the first record for the screen.

2. DYNPRO: Screen Number. Set this field only in the first record for the screen.

3. DYNBEGIN: Indicates the first record for the screen. Set this field to X, only for the first record for the screen. (Reset to ‘ ‘ (blank) for all other records.)

4. FNAM: Field Name. The FNAM field is not case-sensitive.

5. FVAL: Value for the field named in FNAM. The FVAL field is case-sensitive. Values assigned to this field are always padded on the right, if they are less than 132 characters. Values must be in character format.

check if the screen flow is correct. Also execute in the ALL screen mode and also debug to see where the error is occuring!

-Aarthi.

Re: bdc

Former Member — Tue, 25 Jul 2006 06:38:18 GMT

report ZAB_PURCHASE no standard page heading line-size 255.

tables: ekko, ekpo, t100.

DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA: MESSTAB LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF T_MSG OCCURS 0.

INCLUDE STRUCTURE T100.

DATA: END OF T_MSG.

*include bdcrecx1.

*SELECTION-SCREEN BEGIN OF SCREEN 500 AS WINDOW.

SELECTION-SCREEN BEGIN OF BLOCK salesblock WITH FRAME TITLE text-001.

PARAMETERS : Vendor like Ekko-lifnr OBLIGATORY,

Order_ty like RM06E-BSART obligatory,

Pur_org like ekko-ekorg obligatory value check,

Pur_grp like ekko-ekgrp obligatory value check,

Material like ekpo-ematn obligatory value check,

Quantity(13) type n,

Plant like ekpo-werks obligatory value check.

SELECTION-SCREEN END OF BLOCK salesblock.

*SELECTION-SCREEN END OF SCREEN 500.

*CALL SELECTION-SCREEN 500.

TOP-OF-PAGE.

WRITE :/40 'Creating Purchase Order' COLOR 4 INTENSIFIED ON INVERSE ON

ULINE.

FORMAT COLOR 7 INVERSE ON.

WRITE :/1(20) 'Mesaage Type',

25(20) 'Message'.

ULINE.

start-of-selection.

*perform open_group.

perform bdc_dynpro using 'SAPMM06E' '0100'.

perform bdc_field using 'BDC_CURSOR'

'EKKO-EKGRP'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'EKKO-LIFNR'

Vendor.

perform bdc_field using 'RM06E-BSART'

Order_ty.

perform bdc_field using 'RM06E-BEDAT'

'05-30-2005'.

perform bdc_field using 'EKKO-EKORG'

Pur_org.

perform bdc_field using 'EKKO-EKGRP'

Pur_grp.

perform bdc_field using 'RM06E-LPEIN'

'T'.

perform bdc_dynpro using 'SAPMM06E' '0120'.

perform bdc_field using 'BDC_CURSOR'

'EKPO-WERKS(01)'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

perform bdc_field using 'EKPO-EMATN(01)'

Material.

perform bdc_field using 'EKPO-MENGE(01)'

Quantity.

perform bdc_field using 'EKPO-WERKS(01)'

Plant.

*perform bdc_transaction using 'ME21'.

*CALL TRANSACTION 'ME21' USING BDCDATA

MODE 'A'
UPDATE 'A'
MESSAGES INTO MESSTAB.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

DEST = FILLER8

GROUP = 'ZAP3'

HOLDDATE = FILLER8

KEEP = 'X'

USER = SY-UNAME

RECORD = FILLER1
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.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'ME21'

POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT

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.

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.

end-of-selection.

loop at messtab.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = messtab-MSGID

LANG = 'EN'

NO = messtab-msgnr

V1 = messtab-MSGV1

V2 = messtab-MSGV2

V3 = messtab-MSGV3

V4 = messtab-MSGV4

IMPORTING

MSG = T_MSG

EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2

IF sy-subrc <> 0.

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

ENDIF.

if messtab-msgtyp = 'S'.

FORMAT COLOR 5 inverse on.

elseif messtab-msgtyp = 'E'.

FORMAT COLOR 6 inverse on.

else.

FORMAT COLOR 3 inverse on.

ENDIF.

WRITE : /1(20) messtab-msgtyp ,

25(60) t_msg.

endloop.

*perform close_group.

----

Start new screen *

----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM.

----

Insert field *

----

FORM BDC_FIELD USING FNAM FVAL.

IF FVAL <> ' '.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

ENDIF.

ENDFORM.

Re: bdc

Former Member — Tue, 25 Jul 2006 06:39:45 GMT

Hi Naval,

Chk the prg below.But before tht u need to go to transaction shdb for recording the transactiuon u want to run ur session.Here i used MM01 transaction but the procedure is the same.

report ZBDC_SESSION no standard page heading line-size 255.

TABLES: MARA,MAKT.

DATA: BEGIN OF ITAB OCCURS 10,

MATNR LIKE MARA-MATNR,

MBRSH LIKE MARA-MBRSH,

MTART LIKE MARA-MTART,

MAKTX LIKE MAKT-MAKTX,

MEINS LIKE MARA-MEINS,

END OF ITAB.

DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

*include bdcrecx1.

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = 'C:/H1.TXT'

FILETYPE = 'DAT'

TABLES

data_tab = ITAB

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

GROUP = 'SESHR'

HOLDDATE = SY-DATUM

KEEP = 'X'

USER = SY-UNAME.

LOOP AT ITAB.

PERFORM FILL_BDCDATA.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'MM01'

TABLES

dynprotab = BDCDATA.

REFRESH BDCDATA.

ENDLOOP.

CALL FUNCTION 'BDC_CLOSE_GROUP'.

&----

*& Form FILL_BDCDATA

&----

text

----

--> p1 text
<-- p2 text

----

form FILL_BDCDATA.

perform bdc_dynpro using 'SAPLMGMM' '0060'.

perform bdc_field using 'BDC_CURSOR'

'RMMG1-MTART'.

perform bdc_field using 'BDC_OKCODE'

'=AUSW'.

perform bdc_field using 'RMMG1-MATNR'

ITAB-MATNR.

perform bdc_field using 'RMMG1-MBRSH'

ITAB-MBRSH.

perform bdc_field using 'RMMG1-MTART'

ITAB-MTART.

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_field using 'BDC_CURSOR'

'MSICHTAUSW-DYTXT(01)'.

perform bdc_field using 'BDC_OKCODE'

'=DEF_SAVE'.

perform bdc_field using 'MSICHTAUSW-KZSEL(01)'

'X'.

*perform bdc_field using 'MSICHTAUSW-KZSEL(01)'

'X'.

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_field using 'BDC_CURSOR'

'USRM1-AAUSW'.

perform bdc_field using 'BDC_OKCODE'

'=DEF_SKIP'.

perform bdc_field using 'USRM1-AAUSW'

'X'.

perform bdc_dynpro using 'SAPLMGMM' '0070'.

perform bdc_field using 'BDC_CURSOR'

'USRM1-SISEL'.

perform bdc_field using 'BDC_OKCODE'

'=ENTR'.

perform bdc_field using 'USRM1-AAUSW'

'X'.

perform bdc_field using 'USRM1-SISEL'

'X'.

perform bdc_dynpro using 'SAPLMGMM' '4004'.

perform bdc_field using 'BDC_OKCODE'

'=BABA'.

perform bdc_field using 'MAKT-MAKTX'

ITAB-MAKTX.

perform bdc_field using 'BDC_CURSOR'

'MARA-MEINS'.

perform bdc_field using 'MARA-MEINS'

ITAB-MEINS.

perform bdc_field using 'MARA-MTPOS_MARA'

'NORM'.

endform. " FILL_BDCDATA

----

Insert field *

----

FORM BDC_FIELD USING FNAM FVAL.

IF FVAL <> SPACE.

CLEAR BDCDATA.

BDCDATA-FNAM = FNAM.

BDCDATA-FVAL = FVAL.

APPEND BDCDATA.

ENDIF.

ENDFORM.

----

Start new screen *

----

FORM BDC_DYNPRO USING PROGRAM DYNPRO.

CLEAR BDCDATA.

BDCDATA-PROGRAM = PROGRAM.

BDCDATA-DYNPRO = DYNPRO.

BDCDATA-DYNBEGIN = 'X'.

APPEND BDCDATA.

ENDFORM.

Reward Points for the same.

Regards,

Harini

Re: bdc

sushant_singh — Tue, 25 Jul 2006 09:01:23 GMT

hi naval,

enter the field names of the internal table with corresponding type definition in the element list ,

ithink that will make it run properly.

regards

sushant.

Re: bdc

Former Member — Tue, 25 Jul 2006 09:09:31 GMT

hi,

in BDC,the function modules are

BDC_OPEN_GROUP

BDC_INSERT

BDC_CLOSE_GROUP,

study these function modules,pass the parameters,

you will get it,

best of luck,

regards,

kcc

Re: bdc

Former Member — Tue, 25 Jul 2006 09:13:21 GMT

hi naval

hope this code help u:

are u passing all the fields for the BDCDATA table?

1. PROGRAM: Name of module pool program associated with the screen. Set this field only for the first record for the screen.

2. DYNPRO: Screen Number. Set this field only in the first record for the screen.

3. DYNBEGIN: Indicates the first record for the screen. Set this field to X, only for the first record for the screen. (Reset to ‘ ‘ (blank) for all other records.)

4. FNAM: Field Name. The FNAM field is not case-sensitive.

check if the screen flow is correct. Also execute in the ALL screen mode and also debug to see where the error is occuring!

Re: bdc

Former Member — Tue, 25 Jul 2006 10:04:05 GMT

hi naval,

maybe it will give u a shortdump

'Unable to interpret / as a number,

so to get rid of this shortdump u should

enter any int value in that field.

Reward points if helpful.

Re: bdc

Former Member — Tue, 25 Jul 2006 10:09:23 GMT

Try this

CALL FUNCTION 'ZFM_BDCS'

EXPORTING

CTU = 'X'

MODE = 'N'

UPDATE = 'A'

GROUP =
USER =
KEEP =
HOLDDATE =
NODATA = ' '

LIFNR_001 = EKKO-LIFNR

BSART_002 = 'NB'
BEDAT_003 = '05-29-2005'

EKORG_004 = EKKO-EKORG

EKGRP_005 = EKKO-EKGRP

LPEIN_006 = 'T'

WERKS_007 = EKPO-WERKS

EMATN_01_008 = EKPO-EMATN

TXZ01_01_009 = 'ISTENTRY'

MENGE_01_010 = ZVIKK-ZMEN

IMPORTING
SUBRC =

TABLES

MESSTAB = MESSTAB