Skip to Content
0
Former Member
Sep 28, 2005 at 02:52 PM

Printing Quantities in decimals

127 Views

I am trying to print Scheduling agreement delivery schedule using transaction code ME38. The printout does not display target , scheduled and delivered quantities in decimals. I have checked the print program ZMT003 which is used to drive the script ZMEDRUCKS1_ORCH.

The fields RM06P-PRMG1, RM06P-PRMG2 and RM06P-PRMG3 hold decimal values , however, it doesn't print in the output.

Would any one be able to hep me on this.

Please find below the codes:

Print Program : ZMT003

FORM AUSGABE_EINT.

PERFORM MENGE_AUSGEBEN USING EKPO-MENGE

T006-ANDEC

RM06P-PRMG1.

IF EKKO-LPHIS IS INITIAL OR XLMAHN NE SPACE.

PERFORM MENGE_AUSGEBEN USING PEKPO-WEMNG

T006-ANDEC

RM06P-PRMG2.

ELSE.

PERFORM MENGE_AUSGEBEN USING XEKEK-ABEFZ

T006-ANDEC

RM06P-PRMG2.

ENDIF.

PERFORM MENGE_AUSGEBEN USING EKPO-KTMNG

T006-ANDEC

RM06P-PRMG3.

CALL FUNCTION 'WRITE_FORM'

EXPORTING

ELEMENT = 'ITEM_INFO_1'

EXCEPTIONS

OTHERS = 01.

CLEAR SY-SUBRC.

******************************************************

FORM MENGE_AUSGEBEN USING MGA_MENGE MGA_ANDEC MGA_AMENG.

DATA: H-AMENG LIKE RM06P-PRMG1.

WRITE MGA_MENGE NO-SIGN TO H-AMENG.

IF MGA_ANDEC EQ 0 AND

H-AMENG+14(3) EQ '000'.

SHIFT H-AMENG RIGHT BY 4 PLACES.

ENDIF.

MGA_AMENG = H-AMENG.

ENDFORM.

Thanks in advance

Cheers

Vibha

Message was edited by: Vibha Garg