Skip to Content
0
Former Member
Jan 16, 2008 at 11:52 AM

urgent...help me...

40 Views

Hi Friends,

REPORT ZJBAPI_DELI_COMMIT.

DATA : deli_docu TYPE vbeln,

it_STOCK TYPE TABLE OF BAPIDLVREFTOSTO,

wa_STOCK TYPE BAPIDLVREFTOSTO,

it_return TYPE TABLE OF BAPIRET2,

wa_return TYPE BAPIRET2.

PARAMETER REF_DOC(10).

wa_stock-REF_DOC = REF_DOC.

APPEND wa_stock to it_stock.

CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_STO'

IMPORTING

DELIVERY = deli_docu

TABLES

stock_trans_items = it_stock

RETURN = it_return.

SKIP.

WRITE: / 'Delivery Document Number: ', deli_docu.

SKIP.

WRITE : / 'Return Values: '.

LOOP AT it_return INTO wa_return.

WRITE / wa_return-MESSAGE.

ENDLOOP.

CLEAR it_return.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

****************************************AUTO PICKING**********************************

data : wa_lips type lips,

it_lips TYPE TABLE OF lips,

wa_likp TYPE likp,

it_likp TYPE TABLE OF likp.

data : v_pikmg type lipsd-pikmg.

SELECT SINGLE * from lips into wa_lips where vbeln = deli_docu.

  • if sy-subrc <> 0.

  • message 'No value found from LIPS' type 'I'.

  • endif.

SELECT SINGLE * from likp into wa_likp where vbeln = deli_docu.

  • if sy-subrc <> 0.

  • message 'No value found from LIKP' type 'I'.

  • endif.

*read table it_lips into wa_lips index 1.

*read table it_likp into wa_likp index 1.

SELECT SINGLE rfmng from vbfa into v_pikmg

where vbelv = wa_lips-vbeln

and posnv = wa_lips-posnr

and vbeln = wa_lips-vgbel

and ( vbtyp_n = 'Q'

or vbtyp_v = 'J' ).

If v_pikmg is INITIAL.

data:wa_VBKOK type VBKOK.

data:wa_vbpok type vbpok,

it_VBPOK TYPE TABLE OF VBPOK.

wa_VBKOK-VBELN_VL = wa_likp-vbeln. " 0080001420

wa_VBKOK-VBTYP_VL = wa_likp-vbtyp. " J

wa_VBKOK-KODAT = wa_likp-kodat. " 01/09/2008

wa_VBPOK-VBELN_VL = wa_lips-vbeln. " 0080001420

wa_VBPOK-POSNR_VL = wa_lips-posnr. " 000010

wa_VBPOK-VBELN = wa_lips-vgbel. " 8200001248

wa_VBPOK-POSNN = wa_lips-vgpos. " 000010

wa_VBPOK-PIKMG = wa_lips-lfimg. " 1.000

wa_VBPOK-MATNR = wa_lips-matnr. " SC540206FUR2

wa_VBPOK-CHARG = wa_lips-charg. " 1000000009

wa_VBPOK-WERKS = wa_lips-werks. " 8380

append wa_vbpok to it_VBPOK.

CALL FUNCTION 'SD_DELIVERY_UPDATE_PICKING_1'

EXPORTING

VBKOK_WA = wa_VBKOK

SYNCHRON = 'X'

NO_MESSAGES_UPDATE_1 = ' '

  • NICHT_SPERREN_1 = ' '

  • AUFRUFER_T_1 = ' '

  • IF_ERROR_MESSAGES_SEND_1 = 'X'

  • IF_LATE_DELIVERY_UPD = ' '

  • IT_SERNR_UPDATE =

TABLES

VBPOK_TAB = it_VBPOK.

endif.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

This code is working fine in debug mode, but wn i execute normally, im getting an error message as, Delivery not found.

Plz solve my problem.

points will be awarded.