topic Re: ABAP code help... 2 :-) in Application Development and Automation Discussions

ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 09:36:49 GMT

Hi,

I'm changing an old report with write sentences... I would like to do "write" value data type CURR in format -99999999999,99, now i have vaules displayed in format 999.999.999,99-

How Can I change this?

example:

TYPES: BEGIN OF line,

gross LIKE bseg-dmbtr, "Brutto versteuerter Betrag

netto LIKE bseg-dmbtr, "nicht versteuerter Betrag N0

END OF line.

......

WRITE: /153 itab-gross, itab-netto.

Thanks + points granted

Saso

Re: ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 09:45:37 GMT

Hi use no grouping...

write field NO-GROUPING.

or u can use replace statement...

hop this will help u

reward if useful..

Re: ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 09:47:43 GMT

hi ,

following code may solve half of your problem...


DATA : text type char18.
text = itab-gross.      "field with value 999.999.999,99 
REPLACE ALL OCCURRENCES OF   '.' IN  text
  WITH ' '.
CONDENSE text.
WRITE :/153 text.

Message was edited by:

Sudhakar G

Re: ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 09:49:57 GMT

Try using the statement after write

WRITE: /153 itab-gross CURRENCY w

Effect

Correct format for currency specified in the field w.

Treats the contents as a currency amount. The currency specified in w determines how many decimal places this amount should have.

The contents of w are used as a currency key for the table TCURX; if there is no entry for w, the system assumes that the currency amount has 2 decimal places.

Else u can try <b>SET COUNTRY</b> command and den use write stmts

Hope dis helps

Reward if it does

Re: ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 10:02:13 GMT

Thanks a lot!!

Re: ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 10:03:33 GMT

I want to reward points, but i don't have this option on this question???

Re: ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 10:07:38 GMT

Hi,

DATA : text(18) value '999.999.999,99'.

REPLACE ALL OCCURRENCES OF '.' IN text

WITH ' '.

CONDENSE text.

WRITE 😕 text.

Try this,

Re: ABAP code help... 2 :-)

Former Member — Wed, 07 Nov 2007 10:10:18 GMT

the best solution is NO-GROUPING,

thanks