2005 Nov 14 1:38 AM
2005 Nov 14 3:27 AM
It is easier to do a BDC, if you are just doing a PGI. All you have to code for is just the initial screen, enter the delivery number and the BDC OKCODE for PGI.
Yean Nean,
To perform PGI, this code is very simple and works for me:
DATA: I_VBELN LIKE LIKP-VBELN,
I_VBKOK LIKE VBKOK,
I_PROTT LIKE PROTT OCCURS 0 WITH HEADER LINE.
L_VBKOK-VBELN_VL = L_VBELN. <- Delivery number
L_VBKOK-WABUC = 'X'. <- Automatic PGI
* Perform Pick and PGI
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = I_VBKOK
SYNCHRON = 'X'
NO_MESSAGES_UPDATE = ' '
UPDATE_PICKING = 'X'
COMMIT = ' '
DELIVERY = I_VBELN
NICHT_SPERREN = 'X'
IF_ERROR_MESSAGES_SEND_0 = 'X'
TABLES
PROT = I_PROTT
EXCEPTIONS
ERROR_MESSAGE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Or I_PROTT has type E errors in it
ROLLBACK WORK.
ELSE.
COMMIT WORK AND WAIT.
ENDIF.
2005 Nov 14 3:15 AM
For PGI you can use SD_DELIVERY_UPDATE_PICKING_1
Cheers,
Satya
2005 Nov 14 3:27 AM
It is easier to do a BDC, if you are just doing a PGI. All you have to code for is just the initial screen, enter the delivery number and the BDC OKCODE for PGI.
2005 Nov 14 4:02 AM
I hope you cannot use that function module for PGI. I suggest you go with BDC for VL02N.
2005 Nov 14 10:42 PM
Yean Nean,
To perform PGI, this code is very simple and works for me:
DATA: I_VBELN LIKE LIKP-VBELN,
I_VBKOK LIKE VBKOK,
I_PROTT LIKE PROTT OCCURS 0 WITH HEADER LINE.
L_VBKOK-VBELN_VL = L_VBELN. <- Delivery number
L_VBKOK-WABUC = 'X'. <- Automatic PGI
* Perform Pick and PGI
CALL FUNCTION 'WS_DELIVERY_UPDATE'
EXPORTING
VBKOK_WA = I_VBKOK
SYNCHRON = 'X'
NO_MESSAGES_UPDATE = ' '
UPDATE_PICKING = 'X'
COMMIT = ' '
DELIVERY = I_VBELN
NICHT_SPERREN = 'X'
IF_ERROR_MESSAGES_SEND_0 = 'X'
TABLES
PROT = I_PROTT
EXCEPTIONS
ERROR_MESSAGE = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
* Or I_PROTT has type E errors in it
ROLLBACK WORK.
ELSE.
COMMIT WORK AND WAIT.
ENDIF.
| User | Count |
|---|---|
| 3 | |
| 2 | |
| 2 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |