VF01 BDC PROBLEM

[Former Member]

Hi.

I have a BDC code which runs fine using call transaction VF01 and Mode = 'A'.

But when I run it in Mode = N, its not executed. Invoice is not created.

Any idea?

I tried with other options like Update = 'S' and 'A' and 'L'.

My code is as below ::

FORM GET_OPENORDERS.

• SELECT VBELN ERDAT VKORG LFART FROM LIKP INTO TABLE ITAB_LIKP WHERE VKORG = '3010'.

SELECT VBELN XBLNR FROM VBAK INTO TABLE ITAB_VBAK WHERE

VBELN = '0000000483'.

• AUART = 'ZCKD' OR

• AUART = 'ZEXS' OR

• AUART = 'ZCLM' OR

• AUART = 'ZISO' OR

• VKORG = '3010' AND

• VTWEG = '30' AND

• SPART = '30' AND

• ERDAT = SY-DATUM.

IF NOT ITAB_VBAK[] IS INITIAL.

SELECT VBELN VBTYP FROM VBUK INTO TABLE ITAB_VBUK FOR ALL ENTRIES IN ITAB_VBAK

WHERE

VBELN = ITAB_VBAK-VBELN AND

LFSTK = 'C' AND " DELIVERY STATUS : COMPLETED

LFGSK = 'C' AND " OVER ALLDELIVERY STATUS : COMPLETED

FKSAK NE 'C' AND " BILLING STATUS ORDER : NOT COMPLETED

VBTYP = 'C'. " DOC TYPE = ORDERS

ENDIF.

ENDFORM. " GET_OPENORDERS

&----

---

*& Form CREATE_INVOICE

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM CREATE_INVOICE .

LOOP AT ITAB_VBUK.

• DO.

• READ DATASET DATASET INTO RECORD.

• IF SY-SUBRC <> 0. EXIT. ENDIF.

PERFORM BDC_DYNPRO USING 'SAPMV60A' '0102'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

• '0000000464'.

ITAB_VBUK-VBELN.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'/00'.

PERFORM BDC_FIELD USING 'KOMFK-VBELN(01)'

ITAB_VBUK-VBELN.

• RECORD-VBELN_01_001.

PERFORM BDC_DYNPRO USING 'SAPMV60A' '0104'.

PERFORM BDC_FIELD USING 'BDC_CURSOR'

'ZESO'.

PERFORM BDC_FIELD USING 'BDC_OKCODE'

'=SICH'.

• PERFORM BDC_TRANSACTION USING 'VF01'.

• ENDDO.

WAIT UP TO 1 SECONDS.

CALL TRANSACTION 'VF01' USING BDCDATA MODE 'N'

UPDATE 'S'

MESSAGES INTO MESSTAB.

COMMIT WORK AND WAIT.

CLEAR: BDCDATA, MESSTAB.

REFRESH: BDCDATA, MESSTAB.

ENDLOOP.

• PERFORM CLOSE_GROUP.

• PERFORM CLOSE_DATASET USING DATASET.

loop at MESSTAB.

write : Messtab.

endloop.

ENDFORM. " CREATE_INVOICE

----

---

• 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

[Former Member]

used commit work and wait.

[Former Member]

Thanks for the reply but I am already it as in the code above.

YOur help onthis would be great .

[Former Member]

hi pranu,

you were used commit work and wait.

i think thats y..

[Former Member]

Shall I use commit work and wait or not?

[Former Member]

can any one please send me the sample program for invoice using BDC?

[Former Member]

Hi All,

Thanks for the replies.

Just adding my comments here.

We need to do the saperate recording for this problem.

In SHDB, we have to select "Simulate Background Mode"

My problem is solved.

Adding here so that it will appear in teh search results for others....

May be.. cheers,