Skip to Content
0
Former Member
Aug 06, 2009 at 06:22 PM

Customer Expected Price - Custom Cond. Val. Form. Routine 608 not working

120 Views

Hi ABAP experts,

I have created a new condition value forumla routine 608. Copied the code from 008.

I want to place a delivery block at header level.

data: maximum(3) type p value 50,

difference(7) type p.

check: komp-cepok ne 'C',

komp-kposn ne 0,

komk-vbtyp na vbtyp_fakt.

if komp-fxmsg = space.

komp-fxmsg = '805'.

endif.

komp-cepok = ' '.

check: komp-prsfd = 'X'.

komp-cepok = 'A'.

difference = komp-netwr - xkwert.

if difference lt 0.

difference = difference * -1.

endif.

check: difference gt maximum.

komk-lifsk = 'ZZ'.

komp-cepok = 'B'.

xkomv-fxmsg = '249'.

This routine is not placing any delivery block even if there price difference greater than 50 between customer expected condition value and Net Value.

Please let me know.

What's going wrong?

Thanks,

Matt