Sales Order Header wise status.

Question

Hy expert,
i going to make Sales order Status Reports. It run successfully fetch data form header wise, but it display all so, that is already closed or completed.
i wnt to which Sales order it is pending or partially deliverd.
Please help me regarding this.
Report in ALV.
Please read this code for fetch Data. if u like change pl do.
Thnks
Bhavesh Panchal
baroda
FORM data_retrieval.
SELECT VBELN  NETWR KUNNR FROM VBAK INTO (ITAB-VBELN,ITAB-NETWR,ITAB-KUNNR) WHERE VBELN IN VBELN .
SELECT NAME1 FROM KNA1 INTO (ITAB-NAME1) WHERE KUNNR = ITAB-KUNNR .
SELECT BSTKD BSTDK FROM VBKD INTO (ITAB-BSTKD,ITAB-BSTDK) WHERE VBELN = ITAB-VBELN.
SELECT VSNMR_V FROM VBAK INTO (ITAB-VSNMR_V) WHERE VBELN = ITAB-VBELN.
*SELECT EDATU FROM VBEP INTO (ITAB-EDATU) WHERE VBELN = ITAB-VBELN.
SELECT LFSTK FROM VBUK INTO (ITAB-LFSTK) WHERE VBELN = ITAB-VBELN and lfstk not like 'C'.
APPEND ITAB.
ENDSELECT.

Answer 1

Hi,
Try this out.
SELECT vbeln auart spart audat netwr
      FROM vbak INTO TABLE it_vbak
       WHERE spart IN so_spart
       AND audat IN so_fkdat
       AND auart IN rg_auart
       AND vbeln IN so_vbeln.
SELECT vbeln posnr spart werks matnr arktx kwmeng kbmeng abgru pstyv netwr matkl
   INTO CORRESPONDING FIELDS OF TABLE it_vbap
    FROM vbap
       FOR ALL ENTRIES IN it_vbak
         WHERE vbeln = it_vbak-vbeln
          AND posnr LIKE '%'
          AND werks IN so_werks
          AND matkl IN so_matkl
          AND matnr IN so_matnr .
IF it_vbap IS NOT INITIAL.
"Get all delivery details
SELECT vbelv posnv vbeln posnn vbtyp_n vbtyp_v rfmng matnr          " vbfa_j for All Delivery details
         FROM vbfa INTO TABLE it_vbfa_j
          FOR ALL ENTRIES IN it_vbap
           WHERE  vbelv = it_vbap-vbeln AND
            posnv = it_vbap-posnr AND
            vbeln LIKE '%' AND
            posnn LIKE '%' AND
            vbtyp_n = 'J'.   
ENDIF.
LOOP AT it_vbap INTO wa_vbap WHERE abgru EQ space.  
"Get cumulative confirmed qty
wa_final-kbmeng = wa_vbap-kbmeng.
READ TABLE  it_vbfa_J INTO wa_vbfa_j WITH KEY vbelv = wa_vbpa-vbeln
                                            posnv = wa_vbfa-posnr.
                                          "      BINARY SEARCH.
    IF sy-subrc = 0.
       wa_final-delivery_qty_total = wa_vbfa-rfmng.
    ENDIF.
IF wa_final-delivery_qty_total NE wa_final-kbmeng .
       wa_final-pending_order = wa_final-kbmeng - wa_final-delivery_qty_total.    "(pending order = Order_qty - total delivery qty)
ENDIF.
CLEAR wa_final.
endloop.
Hope this will help.
Thanks,
Archana