How do i get Delivered quantity in sales units

Question

Hi all,
How do i get Delivered quantity in sales units, in schedule lines (SD - VA02).
I tried RV_SCHEDULE_CHECK_DELIVERIES, it not works.I m unable to find any table.
Please suggest ...
regards,
prasad gore

Answer 1

hi,
try this.
*       Fill Pending and Delivered Quantity          *
    SELECT *
                 from vbup
                 into table it_vbup
                 where vbeln = it_vbap-vbeln
                 and posnr = it_vbap-POSNR.
    READ TABLE IT_VBUP WITH KEY VBELN = IT_VBAP-VBELN POSNR = IT_VBAP-POSNR.
    IF SY-SUBRC EQ 0.
      IT_FINAL-lv_status = IT_VBUP-LFSTA.
    ENDIF.
    SELECT *
                 from vbfa
                 into table it_vbfa
                 where VBELV = it_vbap-vbeln
                 and POSNV = it_vbap-posnr.
    loop at it_vbap into wa_vbap where vbeln = it_vbak-vbeln.
      MOVE-CORRESPONDING wa_vbap to it_VBAPVB.
      append it_VBAPVB.
    endloop.
    loop at it_vbEp where vbeln = it_vbak-vbeln.
      MOVE-CORRESPONDING it_vbep to IT_VBEPVB.
      append it_VBEPVB.
    ENDLOOP.
    CALL FUNCTION 'RV_SCHEDULE_CHECK_DELIVERIES'
      EXPORTING
        fbeleg                        = it_vbap-vbeln
        fposnr                        = it_vbap-Posnr
*   FVERRECHNUNG                  = ' '
*   FS073_ALT                     = ' '
*   IF_NO_SORT                    = ' '
      tables
        fvbfa                         = it_vbfa
        fvbup                         = it_vbup
        fxvbep                        = it_VBEPVB
*   FVBLB                         =
        fvbap                         = it_VBAPVB
     EXCEPTIONS
       FEHLER_BEI_LESEN_FVBUP        = 1
       FEHLER_BEI_LESEN_FXVBEP       = 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.
    LOOP AT it_VBEPVB WHERE POSNR = IT_VBAP-POSNR.
      IT_FINAL-KWMENG_d = IT_FINAL-KWMENG_d + it_VBEPVB-VSMNG.    " COMPUTE DELIVERY QTY
    ENDLOOP.