Remaining Open Orders

[Former Member]

Hello Abapers,

where should I find a table that gives me "remaining open order" information? and its respective field name?

Thanks in advance.

Ol Pom.

[Former Member]

Hi,

Check these links..

Thanks,

Naren

[Former Member]

hi POm ,

check this code for open sales order(basic list) + open items (secondary list).

check the status as A--not yet processed..

B--partially processed

C--completely processed

hope this helps u out in getting the functionality.

u can take the header data from vbakuk ( vbak + vbuk )

and items from vbap as shown ..

fetching the data from vbakuk minimizes joins on vbak and vbuk.

execute the below code.

REPORT ZEX2 MESSAGE-ID arc NO STANDARD PAGE HEADING.

Tables :kna1,vbak.

SELECT-OPTIONS : so_vkorg FOR vbak-vkorg OBLIGATORY,

so_vtweg FOR vbak-vtweg OBLIGATORY,

so_spart FOR vbak-spart,

so_kunnr FOR kna1-kunnr.

DATA : BEGIN OF sales_open OCCURS 0 ,

vbeln LIKE vbak-vbeln,

auart LIKE vbak-auart,

kunnr LIKE kna1-kunnr,

bstnk LIKE vbak-bstnk,

lfstk LIKE vbuk-lfstk,

fkstk LIKE vbuk-fkstk,

gbstk LIKE vbuk-gbstk,

END OF sales_open.

DATA : BEGIN OF itm_sales OCCURS 0,

vbeln LIKE vbap-vbeln,

posnr LIKE vbap-posnr,

matnr LIKE vbap-matnr,

lfsta LIKE vbup-lfsta,

lfgsa LIKE vbup-lfgsa,

fksta LIKE vbup-fksta,

fksaa LIKE vbup-fksaa,

gbsta LIKE vbup-gbsta,

END OF itm_sales.

***

DATA : l_kunnr LIKE kna1-kunnr,

l_vkorg LIKE vbak-vkorg,

l_vtweg LIKE vbak-vtweg,

l_spart LIKE vbak-spart.

DATA: v_statusl(20) TYPE c,

v_statusb(20) TYPE c,

v_statusf(20) TYPE c,

v_statusg(20) TYPE c,

v_status(20) TYPE c,

v_field(1) TYPE c.

**Selection Screen Validations.

AT SELECTION-SCREEN.

PERFORM validations.

&----

---

*& Form Validations

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM validations.

**Customer

IF NOT so_kunnr[] IS INITIAL.

SELECT SINGLE kunnr INTO l_kunnr

FROM kna1

WHERE kunnr IN so_kunnr.

IF sy-subrc NE 0.

MESSAGE e002 WITH text-005.

ENDIF.

ENDIF.

**Sales Organization

IF NOT so_vkorg[] IS INITIAL.

SELECT SINGLE vkorg INTO l_vkorg

FROM tvko

WHERE vkorg IN so_vkorg.

IF sy-subrc NE 0.

MESSAGE e003 WITH text-006.

ENDIF.

ENDIF.

**Distribution Channel

IF NOT so_vtweg[] IS INITIAL.

SELECT SINGLE vtweg INTO l_vtweg

FROM tvkov

WHERE vkorg IN so_vkorg

AND vtweg IN so_vtweg.

IF sy-subrc NE 0.

MESSAGE e004 WITH text-007.

ENDIF.

ENDIF.

**Division

IF NOT so_spart[] IS INITIAL.

SELECT SINGLE spart INTO l_spart

FROM tvta

WHERE vkorg IN so_vkorg

AND vtweg IN so_vtweg

AND spart IN so_spart.

IF sy-subrc NE 0.

MESSAGE e005 WITH text-008.

ENDIF.

ENDIF.

ENDFORM. " Validations

Top-of-page.

PERFORM sales_top_of_page.

Start-of-selection.

PERFORM sales_sel.

&----

---

*& Form sales_sel

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM sales_sel.

SELECT vbeln auart kunnr bstnk

lfstk fkstk gbstk

INTO TABLE sales_open

FROM vbakuk

WHERE vkorg IN so_vkorg

AND vtweg IN so_vtweg

AND spart IN so_spart

AND kunnr IN so_kunnr

AND gbstk NE 'C'.

LOOP AT sales_open.

WRITE:/4 sy-vline,

5 sales_open-vbeln HOTSPOT ON COLOR 2 INTENSIFIED OFF,

16 sy-vline,

17 sales_open-auart COLOR 2 INTENSIFIED OFF,

27 sy-vline,

28 sales_open-kunnr COLOR 2 INTENSIFIED OFF,

40 sy-vline,

41 sales_open-bstnk COLOR 2 INTENSIFIED OFF,

55 sy-vline,

56 sales_open-lfstk,

76 sy-vline,

77 sales_open-fkstk,

96 sy-vline,

97 sales_open-gbstk ,

117 sy-vline.

also check in transaction va05 for the same entries ..

regards

vijay.