Contract Document Report VA45

[Former Member]

Hi Gurus

I want to create a report which will display contract no, old value , new value , user change the price by sales office

So when you type VA45 and select organizational data enter the details and execute the report will display now I want to know who made the changes for the material price for that particular contract no.

I wrote a program which is displaying changes made by sales number but I need it by contract number is there any modification to be done please

report ZCHGDOC_BY_SALES no standard page heading

line-size 132.

type-pools:

slis. " ALV types

• Tables

tables:

cdhdr, " Change documents: Header

cdpos, " Change documents: Items

vbak, " Sales order: Header

vbap. " Sales order: Items

• Types

types:

begin of ty_cdhdr,

objectclas like cdhdr-objectclas, " Object class

objectid like cdhdr-objectid, " Object value

changenr like cdhdr-changenr, " Document change number

username like cdhdr-username, " Changed by

udate like cdhdr-udate, " Changed on

utime like cdhdr-utime, " Changed at

tcode like cdhdr-tcode, " Transaction code

end of ty_cdhdr,

ty_it_cdhdr type ty_cdhdr occurs 0,

begin of ty_cdpos,

objectclas like cdpos-objectclas, " Object class

objectid like cdpos-objectid, " Object value

changenr like cdpos-changenr, " Document change number

tabname like cdpos-tabname, " Table name

tabkey like cdpos-tabkey, " Table key

fname like cdpos-fname, " Field name

chngind like cdpos-chngind, " Change indicator

value_new like cdpos-value_new, " New value of field

value_old like cdpos-value_old, " Old value of field

end of ty_cdpos,

ty_it_cdpos type ty_cdpos occurs 0,

begin of ty_dd03l,

tabname like dd03l-tabname,

fieldname like dd03l-fieldname,

as4local like dd03l-as4local,

as4vers like dd03l-as4vers,

rollname like dd03l-rollname,

end of ty_dd03l,

ty_it_dd03l type ty_dd03l occurs 0,

begin of ty_dd04t,

rollname like dd04t-rollname,

ddlanguage like dd04t-ddlanguage,

as4local like dd04t-as4local,

as4vers like dd04t-as4vers,

scrtext_l like dd04t-scrtext_l,

end of ty_dd04t,

ty_it_dd04t type ty_dd04t occurs 0,

begin of ty_kna1,

kunnr like kna1-kunnr, " Customer number

name1 like kna1-name1, " Customer name

end of ty_kna1,

ty_it_kna1 type ty_kna1 occurs 0,

ty_text(500) type c,

ty_lines type tline,

ty_it_lines type ty_lines occurs 0,

begin of ty_merged,

vbeln like vbak-vbeln, " Sales order number

erdat like vbak-erdat, " Created on

auart like vbak-auart, " Order type

faksk like vbak-faksk, " Billing block in SD document

netwr like vbak-netwr, " Net value

waerk like vbak-waerk, " Currency

vkorg like vbak-vkorg, " Sales organisation

vtweg like vbak-vtweg, " Distribution channel

vkbur like vbak-vkbur, " Sales office

fkara like vbak-fkara, " Proposed billing type

kunnr like vbak-kunnr, " Sold-to party

xblnr like vbak-xblnr, " Reference

fbuda like vbkd-fbuda, " Date services rendered

username like cdhdr-username, " Changed by

udate like cdhdr-udate, " Changed on

utime like cdhdr-utime, " Changed at

tcode like cdhdr-tcode, " Transaction code

tabname like cdpos-tabname, " Table name

tabkey like cdpos-tabkey, " Table key

fname like cdpos-fname, " Field name

chngind like cdpos-chngind, " Change indicator

value_new like cdpos-value_new, " New value of field

value_old like cdpos-value_old, " Old value of field

scrtext_l like dd04t-scrtext_l, " Description of field

intnote type ty_text, " Internal note

hdrnote type ty_text, " Header note

name1 like adrc-name1, " Sold-to party name

end of ty_merged,

ty_it_merged type ty_merged occurs 0,

begin of ty_vbak,

vbeln like vbak-vbeln, " Sales order number

erdat like vbak-erdat, " Created on

auart like vbak-auart, " Order type

faksk like vbak-faksk, " Billing block in SD document

netwr like vbak-netwr, " Net value

waerk like vbak-waerk, " Currency

vkorg like vbak-vkorg, " Sales organisation

vtweg like vbak-vtweg, " Distribution channel

vkbur like vbak-vkbur, " Sales office

fkara like vbak-fkara, " Proposed billing type

kunnr like vbak-kunnr, " Sold-to party

xblnr like vbak-xblnr, " Reference

objectid like cdhdr-objectid, " Change document object

end of ty_vbak,

ty_it_vbak type ty_vbak occurs 0,

begin of ty_vbkd,

vbeln like vbkd-vbeln, " Sales order number

posnr like vbkd-posnr, " Sales order item

fbuda like vbkd-fbuda, " Date services rendered

end of ty_vbkd,

ty_it_vbkd type ty_vbkd occurs 0.

• Internal tables

data:

it_cdhdr type ty_it_cdhdr,

it_cdpos type ty_it_cdpos,

it_fieldcat type slis_t_fieldcat_alv,

it_kna1 type ty_it_kna1,

it_merged type ty_it_merged,

it_vbak type ty_it_vbak,

it_vbkd type ty_it_vbkd.

data:

wa_vbak type ty_vbak.

data:

st_tvariant like disvariant,

st_variant like disvariant.

constants:

co_as4local_a like dd03l-as4local " Active version

value 'A',

co_objectclas_verkbeleg like cdhdr-objectclas

value 'VERKBELEG',

co_posnr_initial like vbkd-posnr " Initial item number

value is initial,

co_save_u type c " User display variant

value 'U', " saving allowed.

co_trvog_0 like vbak-trvog " Sales order

value '0'.

data:

va_exit type c, " ALV display

va_tabix like sy-tabix.

selection-screen: begin of block b1 with frame title text-001.

parameters: s_vkbur like vbak-vkbur.

"s_vkorg like vbak-vkbur,

"s_vtweg like vbak-vkbur.

select-options:

" s_vkbur for vbak-vkbur, " Sales office

"s_vkorg for vbak-vkorg, " Sales organisation

"s_vtweg for vbak-vtweg, " Distribution channel

s_vbeln for vbak-vbeln, " Sales order number

s_usrnme for cdhdr-username, " Changed by

s_udate for cdhdr-udate. " Changed on

selection-screen: end of block b1,

begin of block b2 with frame title text-002.

parameters:

p_varint like disvariant-variant. " Display variant.

selection-screen: end of block b2.

• Initialization

initialization.

• Load display variant.

if not p_varint is initial.

move st_variant to st_tvariant.

move p_varint to st_tvariant-variant.

call function 'REUSE_ALV_VARIANT_EXISTENCE'

exporting

i_save = co_save_u

changing

cs_variant = st_tvariant.

st_variant = st_tvariant.

else.

clear st_variant.

st_variant-report = sy-repid.

endif.

at selection-screen on value-request for p_varint.

• Provide display variant list for this program.

call function 'REUSE_ALV_VARIANT_F4'

exporting

is_variant = st_variant

i_save = co_save_u

importing

e_exit = va_exit

es_variant = st_tvariant

exceptions

not_found = 2.

if sy-subrc eq 2.

message id sy-msgid type 'S'

number sy-msgno

with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

else.

if va_exit eq space.

st_variant = st_tvariant.

p_varint = st_tvariant-variant.

endif.

endif.

• At selection screen

at selection-screen.

• Load display variant.

if not p_varint is initial.

move st_variant to st_tvariant.

move p_varint to st_tvariant-variant.

call function 'REUSE_ALV_VARIANT_EXISTENCE'

exporting

i_save = co_save_u

changing

cs_variant = st_tvariant.

st_variant = st_tvariant.

else.

clear st_variant.

st_variant-report = sy-repid.

endif.

• Start of selection

start-of-selection.

• Extract order details from VBAK

select vbeln erdat auart faksk netwr waerk vkorg vtweg vkbur fkara

kunnr xblnr

from vbak

into table it_vbak

where vkbur eq s_vkbur

" and vkorg eq s_vkorg

" and vtweg eq s_vtweg

and vbeln in s_vbeln

and trvog eq co_trvog_0.

if sy-subrc ne 0.

• No data found for selection

message s001(zgen).

exit.

endif.

loop at it_vbak into wa_vbak.

va_tabix = sy-tabix.

wa_vbak-objectid = wa_vbak-vbeln.

modify it_vbak from wa_vbak

index va_tabix

transporting objectid.

endloop.

select objectclas objectid changenr username udate utime tcode

from cdhdr

into table it_cdhdr

for all entries in it_vbak

where objectclas eq co_objectclas_verkbeleg

and objectid eq it_vbak-objectid

and username in s_usrnme

and udate in s_udate.

if sy-subrc eq 0.

select objectclas objectid changenr tabname tabkey fname chngind

value_new value_old

from cdpos

into table it_cdpos

for all entries in it_cdhdr

where objectclas eq it_cdhdr-objectclas

and objectid eq it_cdhdr-objectid

and changenr eq it_cdhdr-changenr.

endif.

select vbeln posnr fbuda

from vbkd

into table it_vbkd

for all entries in it_vbak

where vbeln eq it_vbak-vbeln

and posnr eq co_posnr_initial.

perform merge_data tables it_cdhdr

it_cdpos

it_kna1

it_merged

it_vbak

it_vbkd.

if it_merged[] is initial.

message s001(zgen).

exit.

endif.

• Release memory no longer required.

free: it_cdhdr,

it_cdpos,

it_kna1,

it_vbak,

it_vbkd.

• Build field catalog for call to report function

perform build_field_catalog tables it_fieldcat.

• Output report.

perform output_report tables it_fieldcat

it_merged.

&----

---

*& Form merge_data

&----

---

• text

----

---

form merge_data tables pa_it_cdhdr type ty_it_cdhdr

pa_it_cdpos type ty_it_cdpos

pa_it_kna1 type ty_it_kna1

pa_it_merged type ty_it_merged

pa_it_vbak type ty_it_vbak

pa_it_vbkd type ty_it_vbkd.

• Local internal tables

data:

lit_dd03l type ty_it_dd03l,

lit_dd04t type ty_it_dd04t.

• Local work areas

data:

lwa_cdhdr type ty_cdhdr,

lwa_cdpos type ty_cdpos,

lwa_dd03l type ty_dd03l,

lwa_dd04t type ty_dd04t,

lwa_kna1 type ty_kna1,

lwa_merged type ty_merged,

lwa_vbak type ty_vbak,

lwa_vbkd type ty_vbkd.

• Local variables

data:

lva_dd03l_tabix like sy-tabix,

lva_dd04t_tabix like sy-tabix.

sort pa_it_cdhdr by objectid changenr.

sort pa_it_cdpos by objectid changenr tabname tabkey fname.

sort pa_it_kna1 by kunnr.

sort pa_it_vbak by vbeln.

sort pa_it_vbkd by vbeln.

loop at pa_it_vbak into lwa_vbak.

clear lwa_merged.

• Assign sales order fields to reporting work area

lwa_merged-vbeln = lwa_vbak-vbeln.

lwa_merged-erdat = lwa_vbak-erdat.

lwa_merged-auart = lwa_vbak-auart.

lwa_merged-faksk = lwa_vbak-faksk.

lwa_merged-netwr = lwa_vbak-netwr.

lwa_merged-waerk = lwa_vbak-waerk.

lwa_merged-vkorg = lwa_vbak-vkorg.

lwa_merged-vtweg = lwa_vbak-vtweg.

lwa_merged-vkbur = lwa_vbak-vkbur.

lwa_merged-fkara = lwa_vbak-fkara.

lwa_merged-kunnr = lwa_vbak-kunnr.

lwa_merged-xblnr = lwa_vbak-xblnr.

• Get name of sold-to party from PA_IT_KNA1

clear lwa_kna1.

read table pa_it_kna1 into lwa_kna1

with key kunnr = lwa_vbak-kunnr

binary search.

lwa_merged-name1 = lwa_kna1-name1.

• Get business data from PA_IT_VBKD.

clear lwa_vbkd.

read table pa_it_vbkd into lwa_vbkd

with key vbeln = lwa_vbak-vbeln

binary search.

lwa_merged-fbuda = lwa_vbkd-fbuda.

• Get internal note text for sales order

perform read_text using '0002'

'1'

lwa_merged-vbeln

'VBBK'

lwa_merged-intnote.

• Get header note 1 text for sales order

perform read_text using 'Z002'

'1'

lwa_merged-vbeln

'VBBK'

lwa_merged-hdrnote.

• Determine if change documents exist for sales order.

clear lwa_cdhdr.

read table pa_it_cdhdr into lwa_cdhdr

with key objectid = lwa_vbak-objectid.

if sy-subrc ne 0.

continue.

endif.

loop at pa_it_cdhdr into lwa_cdhdr

from sy-tabix.

lwa_merged-username = lwa_cdhdr-username.

lwa_merged-udate = lwa_cdhdr-udate.

lwa_merged-utime = lwa_cdhdr-utime.

lwa_merged-tcode = lwa_cdhdr-tcode.

clear lwa_cdpos.

read table pa_it_cdpos into lwa_cdpos

with key objectid = lwa_cdhdr-objectid

changenr = lwa_cdhdr-changenr

binary search.

loop at pa_it_cdpos into lwa_cdpos

from sy-tabix.

lwa_merged-tabname = lwa_cdpos-tabname.

lwa_merged-tabkey = lwa_cdpos-tabkey.

lwa_merged-fname = lwa_cdpos-fname.

lwa_merged-chngind = lwa_cdpos-chngind.

lwa_merged-value_new = lwa_cdpos-value_new.

lwa_merged-value_old = lwa_cdpos-value_old.

• Get description for field - determine date element

clear lwa_dd03l.

read table lit_dd03l into lwa_dd03l

with key tabname = lwa_cdpos-tabname

fieldname = lwa_cdpos-fname

binary search.

lva_dd03l_tabix = sy-tabix.

if sy-subrc ne 0.

select single tabname fieldname as4local as4vers rollname

from dd03l

into lwa_dd03l

where tabname eq lwa_cdpos-tabname

and fieldname eq lwa_cdpos-fname

and as4local eq co_as4local_a.

if sy-subrc eq 0.

insert lwa_dd03l into lit_dd03l

index lva_dd03l_tabix.

endif.

endif.

• If data element was found, get description

if not lwa_dd03l is initial.

clear lwa_dd04t.

read table lit_dd04t into lwa_dd04t

with key rollname = lwa_dd03l-rollname

ddlanguage = sy-langu

binary search.

lva_dd04t_tabix = sy-tabix.

if sy-subrc ne 0.

select single rollname ddlanguage as4local as4vers scrtext_l

from dd04t

into lwa_dd04t

where rollname eq lwa_dd03l-rollname

and ddlanguage eq sy-langu.

if sy-subrc eq 0.

insert lwa_dd04t into lit_dd04t

index lva_dd04t_tabix.

else.

lwa_dd04t-scrtext_l = 'Description for field not found'.

endif.

endif.

endif.

lwa_merged-scrtext_l = lwa_dd04t-scrtext_l.

append lwa_merged to pa_it_merged.

at end of changenr.

• Only process field changes for this change document.

exit.

endat.

endloop.

at end of objectid.

• Initialise work area so we know change document for order has

• been processed.

clear lwa_merged.

• Only process change documents for this sales order.

exit.

endat.

endloop.

endloop.

endform. " merge_data

&----

---

*& Form build_field_catalog

&----

---

• text

----

---

form build_field_catalog tables pa_it_fieldcat type slis_t_fieldcat_alv.

data:

• Local variable

lva_col_pos type slis_fieldcat_alv-col_pos,

• Local structure

st_fieldcat type slis_fieldcat_alv.

lva_col_pos = 0.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'VBELN'.

st_fieldcat-ref_tabname = 'VBAK'.

st_fieldcat-ref_fieldname = 'VBELN'.

st_fieldcat-row_pos = '1'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'VKBUR'.

st_fieldcat-ref_tabname = 'VBAK'.

st_fieldcat-ref_fieldname = 'VKBUR'.

st_fieldcat-row_pos = '1'.

st_fieldcat-outputlen = '6'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'UDATE'.

st_fieldcat-ref_tabname = 'CDHDR'.

st_fieldcat-ref_fieldname = 'UDATE'.

st_fieldcat-row_pos = '1'.

st_fieldcat-outputlen = '10'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'USERNAME'.

st_fieldcat-ref_tabname = 'CDHDR'.

st_fieldcat-ref_fieldname = 'USERNAME'.

st_fieldcat-row_pos = '1'.

st_fieldcat-outputlen = '6'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

• clear st_fieldcat.

• add 1 to lva_col_pos.

• st_fieldcat-tabname = 'PA_IT_MERGED'.

• st_fieldcat-fieldname = 'FNAME'.

• st_fieldcat-ref_tabname = 'CDPOS'.

• st_fieldcat-ref_fieldname = 'FNAME'.

• st_fieldcat-row_pos = '4'.

• st_fieldcat-outputlen = '8'.

• st_fieldcat-col_pos = lva_col_pos.

• append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'SCRTEXT_L'.

st_fieldcat-ref_tabname = 'DD04T'.

st_fieldcat-ref_fieldname = 'SCRTEXT_L'.

st_fieldcat-row_pos = '1'.

st_fieldcat-outputlen = '30'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'CHNGIND'.

st_fieldcat-ref_tabname = 'CDPOS'.

st_fieldcat-ref_fieldname = 'CHNGIND'.

st_fieldcat-row_pos = '1'.

st_fieldcat-outputlen = '8'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'WAERK'.

st_fieldcat-ref_tabname = 'VBAK'.

st_fieldcat-ref_fieldname = 'WAERK'.

st_fieldcat-row_pos = '1'.

st_fieldcat-col_pos = lva_col_pos..

append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'VALUE_NEW'.

st_fieldcat-ref_tabname = 'CDPOS'.

st_fieldcat-ref_fieldname = 'VALUE_NEW'.

st_fieldcat-row_pos = '1'.

st_fieldcat-outputlen = '27'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

clear st_fieldcat.

add 1 to lva_col_pos.

st_fieldcat-tabname = 'PA_IT_MERGED'.

st_fieldcat-fieldname = 'VALUE_OLD'.

st_fieldcat-ref_tabname = 'CDPOS'.

st_fieldcat-ref_fieldname = 'VALUE_OLD'.

st_fieldcat-row_pos = '1'.

st_fieldcat-outputlen = '27'.

st_fieldcat-col_pos = lva_col_pos.

append st_fieldcat to pa_it_fieldcat.

endform. " build_field_catalog

&----

---

*& Form output_report

&----

---

• text

----

---

form output_report tables pa_it_fieldcat type slis_t_fieldcat_alv

pa_it_merged type ty_it_merged.

• Local variables

data:

lva_formname type slis_formname,

lva_repid like sy-repid.

lva_repid = sy-repid.

lva_formname = 'ALV_USER_COMMAND'.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

i_callback_program = lva_repid

i_callback_user_command = lva_formname

i_save = 'A'

is_variant = st_variant

it_fieldcat = pa_it_fieldcat[]

tables

t_outtab = pa_it_merged

exceptions

program_error = 1

others = 2.

endform. " output_report

&----

---

*& Form alv_user_command

&----

---

• text

----

---

form alv_user_command using pa_ucomm like sy-ucomm

pa_selfield type slis_selfield.

• Local work areas

data:

lwa_merged type ty_merged.

clear lwa_merged.

read table it_merged into lwa_merged

index pa_selfield-tabindex.

case pa_selfield-fieldname.

when 'VBELN'.

• Sales order number

set parameter id 'AUN' field lwa_merged-vbeln.

call transaction 'VA03' and skip first screen.

when 'KUNNR'.

• Customer number

set parameter id 'KUN' field lwa_merged-kunnr.

set parameter id 'VKO' field space.

set parameter id 'VTW' field space.

set parameter id 'SPA' field space.

call transaction 'XD03' and skip first screen.

endcase.

endform. " alv_user_command

&----

---

*& Form read_text

&----

---

• text

----

---

form read_text using pa_id

pa_inline_count

pa_name

pa_object

pa_text.

• Local internal tables

data:

lit_inlines type ty_it_lines,

lit_lines type ty_it_lines.

• Local work areas

data:

lwa_lines type ty_lines.

• Local variables

data:

lva_tdname like thead-tdname.

refresh: lit_inlines,

lit_lines.

lva_tdname = pa_name.

call function 'READ_TEXT_INLINE'

exporting

id = pa_id

inline_count = pa_inline_count

language = sy-langu

name = lva_tdname

object = pa_object

tables

inlines = lit_inlines

lines = lit_lines

exceptions

id = 1

language = 2

name = 3

not_found = 4

object = 5

reference_check = 6

others = 7.

loop at lit_lines into lwa_lines.

concatenate pa_text

lwa_lines-tdline

into pa_text separated by space.

endloop.

endform. " read_text ENDLOOP.

[Former Member]

HI Piroz,

Im actually looking for the same thing...

How can I create a report were I can see if a contract has been changed or cancelled? I use VA45 to see contracts, I would like to run a report to see if there has been any changes on the contracts of if they have been cancelled, thank you soooooo much if you can help me

[PeterJonker]

The CDHDR table has a field TCODE. Maybe when you place VA45 in there when you select from this table.

Did you make a change to the contract (a change you want to catch) and then check the tables CDHDR and CDPOS how this has been recorded ? That's the same way how you should select these changes.

[Former Member]

Hi Peter, I assume your responce is for Piroz?

[anup_deshmukh4]

Hello Piroz   will T-code AUT10 hlep you ?

Hope it helps

Anup