Correction of SD Document Status
1472007 - Document status has to be corrected
* BAPI Define
DATA: gw_so_header LIKE bapisdhd1,
gw_so_headerx LIKE bapisdhd1x,
gw_so_logic_switch LIKE bapisdls,
gv_so_doc_in TYPE bapivbeln-vbeln,
gv_so_doc_num TYPE bapivbeln-vbeln,
gt_so_return2 TYPE bapiret2,
gt_so_partners TYPE bapiparnr OCCURS 0 WITH HEADER LINE,
gt_so_items_in TYPE bapisditm OCCURS 0 WITH HEADER LINE,
gt_so_items_inx TYPE bapisditmx OCCURS 0 WITH HEADER LINE,
gt_so_return1 TYPE bapiret2 OCCURS 0 WITH HEADER LINE,
gt_so_conditions_in TYPE bapicond OCCURS 0 WITH HEADER LINE,
gt_so_conditions_inx TYPE bapicondx OCCURS 0 WITH HEADER LINE.
| Posts: | 252 | ||||||||
|---|---|---|---|---|---|---|---|---|---|
| Registered: | 2/27/07 | ||||||||
| Forum Points: | 302 | ||||||||
| Re: | Getting Sales order -Schedule line field , Delivered Quantity ( VSMNG ) ?? | ||||||||
| Posted: | Jan 13, 2009 10:38 AM | ||||||||
| Content: | Hi. You can use the function module RV_SCHEDULE_CHECK_DELIVERIES to get the delivered quanity corresponding to schedule line item in sales order. Please refer below code:
internal table tl_da_vbep has got field VSMNG which is the delievred quantity for each line item SELECT * FROM vbfa
INTO CORRESPONDING FIELDS OF TABLE tl_xvbfa
WHERE vbelv = ie3mdpslx-delnr
AND posnv = ie3mdpslx-delps
AND vbtyp_v = 'C'.
SELECT * FROM vbup
INTO CORRESPONDING FIELDS OF TABLE tl_xvbup
WHERE vbeln = ie3mdpslx-delnr
AND posnr = ie3mdpslx-delps.
SELECT * FROM vbep
INTO CORRESPONDING FIELDS OF TABLE tl_da_vbep
WHERE vbeln = ie3mdpslx-delnr
AND posnr = ie3mdpslx-delps.
SELECT * FROM vbap
INTO CORRESPONDING FIELDS OF TABLE tl_xvbap
WHERE vbeln = ie3mdpslx-delnr
AND posnr = ie3mdpslx-delps.
CALL FUNCTION 'RV_SCHEDULE_CHECK_DELIVERIES'
EXPORTING
fbeleg = ie3mdpslx-delnr
fposnr = ie3mdpslx-delps
TABLES
fvbfa = tl_xvbfa
fvbup = tl_xvbup
fxvbep = tl_da_vbep
fvbap = tl_xvbap
EXCEPTIONS
fehler_bei_lesen_fvbup = 1
fehler_bei_lesen_fxvbep = 2
OTHERS = 3. | ||||||||
*&---------------------------------------------------------------------*
*& INCLUDE ZXVVFU08 *
*&---------------------------------------------------------------------*
CHECK CVBRK-KALSM = 'Z001'.
CHECK CVBRK-VKORG = '1000' OR
CVBRK-VKORG = '2000'.
LOOP AT CVBRP.
CHECK CVBRP-MATNR(2) = 'XX'.
READ TABLE XACCIT WITH KEY PAOBJNR = CVBRP-PAOBJNR.
CHECK SY-SUBRC = 0.
XACCIT-SGTXT = CVBRP-ARKTX.
MODIFY XACCIT INDEX SY-TABIX.
ENDLOOP.