Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Open Orders Report.

Go to solution
Former Member

‎2006 Oct 09 10:39 AM

0 Likes
769

Hello,

Can anyone give me the code for the open orders report??Using the tables VBAP,VBAK and VBUK.

Thanking you in anticipation.

Regards,

Sirisha.

1 ACCEPTED SOLUTION
Read only

Go to solution
Former Member

‎2006 Oct 09 12:46 PM

0 Likes
708

hi sirisha ,

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.

HIDE sales_open-vbeln .

ENDLOOP.

ENDFORM. " sales_sel

&----

*& Form sales_top_of_page

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM sales_top_of_page.

WRITE:/4 sy-uline(114),

50 'OPEN SALES ORDERS' COLOR 7 INTENSIFIED ON .

WRITE: /4 sy-vline,

5 'SalesOrder' COLOR 1 ,

16 sy-vline,

17 'OrderType' COLOR 1,

27 sy-vline,

28 'Customer' COLOR 1,

40 sy-vline,

41 'PoNumber' COLOR 1,

55 sy-vline,

56 'Delivery Status' COLOR 1,

76 sy-vline,

77 'Billing Status' COLOR 1,

96 sy-vline,

97 'Processing Status' COLOR 1,

117 sy-vline .

WRITE:/4 sy-uline(114).

ENDFORM. " sales_top_of_page

AT LINE-SELECTION.

SELECT a~vbeln

a~posnr

a~matnr

  • a~kwmeng

b~lfsta

b~lfgsa

b~fksta

b~fksaa

b~gbsta

INTO TABLE itm_sales

FROM vbap AS a JOIN vbup AS b

ON avbeln EQ bvbeln

AND aposnr EQ bposnr

AND b~gbsta NE 'C'

WHERE a~vbeln EQ sales_open-vbeln.

IF NOT sales_open IS INITIAL.

LOOP AT itm_sales.

WRITE:/5 itm_sales-vbeln,

itm_sales-posnr,

itm_sales-matnr,

itm_sales-lfsta,

itm_sales-lfgsa,

itm_sales-fksta,

itm_sales-fksaa,

itm_sales-gbsta.

ENDLOOP.

ENDIF.

Regards,

Vijay

check the entries with t-code va05 for the same criteria.

Message was edited by: Vijay

Hello,

Can anyone give me the code for the open orders report??Using the tables VBAP,VBAK and VBUK.

Thanking you in anticipation.

Regards,

Sirisha.

Reply
4 REPLIES 4
Read only

Go to solution
Former Member

‎2006 Oct 09 10:58 AM

0 Likes
708

Hi,

You can use transaction VA05.

Regards,

Raghavendra

Read only

Go to solution
Former Member

‎2006 Oct 09 12:46 PM

0 Likes
709

hi sirisha ,

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.

HIDE sales_open-vbeln .

ENDLOOP.

ENDFORM. " sales_sel

&----

*& Form sales_top_of_page

&----

  • text

----

  • --> p1 text

  • <-- p2 text

----

FORM sales_top_of_page.

WRITE:/4 sy-uline(114),

50 'OPEN SALES ORDERS' COLOR 7 INTENSIFIED ON .

WRITE: /4 sy-vline,

5 'SalesOrder' COLOR 1 ,

16 sy-vline,

17 'OrderType' COLOR 1,

27 sy-vline,

28 'Customer' COLOR 1,

40 sy-vline,

41 'PoNumber' COLOR 1,

55 sy-vline,

56 'Delivery Status' COLOR 1,

76 sy-vline,

77 'Billing Status' COLOR 1,

96 sy-vline,

97 'Processing Status' COLOR 1,

117 sy-vline .

WRITE:/4 sy-uline(114).

ENDFORM. " sales_top_of_page

AT LINE-SELECTION.

SELECT a~vbeln

a~posnr

a~matnr

  • a~kwmeng

b~lfsta

b~lfgsa

b~fksta

b~fksaa

b~gbsta

INTO TABLE itm_sales

FROM vbap AS a JOIN vbup AS b

ON avbeln EQ bvbeln

AND aposnr EQ bposnr

AND b~gbsta NE 'C'

WHERE a~vbeln EQ sales_open-vbeln.

IF NOT sales_open IS INITIAL.

LOOP AT itm_sales.

WRITE:/5 itm_sales-vbeln,

itm_sales-posnr,

itm_sales-matnr,

itm_sales-lfsta,

itm_sales-lfgsa,

itm_sales-fksta,

itm_sales-fksaa,

itm_sales-gbsta.

ENDLOOP.

ENDIF.

Regards,

Vijay

check the entries with t-code va05 for the same criteria.

Message was edited by: Vijay

Read only

Go to solution
Former Member

‎2006 Oct 09 3:52 PM

0 Likes
708

Thanks a lot Vijay.Ireally apppreciate it.

Read only

Go to solution
Former Member
In response to Former Member

‎2007 Jul 16 3:37 PM

0 Likes
708

gud one.