Announcement:
wanna exchange links? contact me at sapchatroom@gmail.com.
Posted by
Admin at
I have checked the code in the custom program and error is occurring at this line below at zunit=ztotal2/zqty,could you let me know what could be the reason
The declarations for the data types are as follows.
DATA: ztotal(13) TYPE n.
* droy start
DATA : zebeln LIKE ekko-ebeln.
DATA: ztotal1(14) TYPE c.
earlier ztotal2 was declared as type p decimals and i changed to ztotal2(14)type c.
but the error is still occurring.
* DATA: ztotal2 TYPE p DECIMALS 2.
DATA: ztotal2(14) TYPE c.
DATA: zunit TYPE p DECIMALS 2.
DATA: zunit2(14) TYPE c.
DATA: zqty1(15), " character is being received first.
x1(7),
x2(7),
x3(7),
delimiter VALUE ','.
DATA: zqty TYPE p DECIMALS 3.
--------
CLEAR ztotal1.
IF x1 <> space. "D-EPDK901623
IF x1 <> space AND NOT x1 CA 'X'. "I-EPDK901623
CONCATENATE x1 x2 x3 INTO ztotal1.
ztotal2 = ztotal1.
ENDIF.
MOVE in_tab-value TO ztotal.
ztotal = ztotal2.
set up currency symbol
IF currency = 'GBP'.
SHIFT ztotal RIGHT.
MOVE '£' TO ztotal(1).
ENDIF.
SHIFT ztotal RIGHT DELETING TRAILING space.
MOVE ztotal TO zsline1-netwr.
SHIFT zsline1-netwr RIGHT DELETING TRAILING space.
READ TABLE IN_TAB WITH KEY NAME = 'ML_ESLL-BRTWR'.
READ TABLE in_tab WITH KEY name = 'ML_ESLL-TBTWR'.
CONDENSE in_tab-value NO-GAPS.
MOVE in_tab-value TO ztotal.
now find the unit price only when quanity is positive non zero.
IF zqty > 0.
----------------- zunit = ztotal2 / zqty.
ENDIF.
zunit2 = zunit.
CLEAR zunit.
CLEAR : currency.
READ TABLE in_tab WITH KEY name = 'ML_ESLL-WAERS'.
IF sy-subrc = 0.
CONDENSE in_tab-value NO-GAPS.
MOVE in_tab-value TO currency.
ENDIF.
IF currency = 'GBP'.
SHIFT ztotal RIGHT.
MOVE '£' TO ztotal(1)
SHIFT zunit2 RIGHT.
MOVE '£' TO zunit2(1).
CONDENSE zunit2 NO-GAPS.
| __.____._ Copyright © 2011 Toolbox.com and message author.
Toolbox.com 4343 N. Scottsdale Road Suite 280, Scottsdale, AZ 85251
| | Most Popular White Papers
In the Spotlight  _.____.__ |
