Simple currency data type calculation doubt

Question

Hello All,
net_price2 = '12.10'.
DATA : NET_PRICE2 TYPE  CHAR20,
       NET_PRICE TYPE KBETR,
       NET_PRICE1 TYPE CHAR20,
       C TYPE CHAR20.
C = 1.
LOOP AT ITAB2.
NET_PRICE = ITAB2-KBETR * C.
C = NET_PRICE.
SHIFT C LEFT DELETING LEADING SPACE.
ENDLOOP.
NET_PRICE1 = C * NET_PRICE2.
in this code i have two values for ITAB2-KBETR .those are 5.00 and 2.00
for first record in loop i am getting value of net_price as (5.00* 1 = 5.00)
but for secodn record what the problem i am facing in i am getting net_price as (5.00*2.00 = 1000.00)......though i want it to
come like 10.
so that net_price1 should come like 12.10 * 10 = 121.....
what i shd do..this type of code now working..please help
Abhijeet

Answer 1

Hello All,
i have done like this........its working.....but do let me know your commnets ....
CHECK PREISFINDUNGSART EQ 'B'.
TYPES : BEGIN OF T_KONP ,
        KBETR TYPE KONP-KBETR,
        MATNR TYPE A073-MATNR,
        KNUMH TYPE A073-KNUMH,
        END OF T_KONP.
TYPES : BEGIN OF T_A004,
        KNUMH TYPE A004-KNUMH,
        KBETR TYPE KONP-KBETR,
        KSCHL TYPE A004-KSCHL,
        END OF T_A004.
DATA :  ITAB TYPE STANDARD TABLE OF T_KONP WITH HEADER LINE,
        ITAB1 TYPE STANDARD TABLE OF T_A004 WITH HEADER LINE,
        ITAB2 TYPE STANDARD TABLE OF T_A004 WITH HEADER LINE.
DATA : NET_PRICE2 TYPE kbetr value '12.10',
NET_PRICE TYPE P DECIMALS 6,
NET_PRICE1 TYPE KWERT,
C TYPE  P DECIMALS 4.
NET_PRICE2 = '12.10'.
SELECT KNUMH INTO CORRESPONDING FIELDS OF TABLE ITAB1 FROM A004 WHERE
       MATNR = KOMP-MATNR.
IF SY-SUBRC = '0'.
  SELECT KBETR KSCHL KNUMH INTO CORRESPONDING FIELDS OF TABLE ITAB2 FROM KONP FOR ALL
    ENTRIES IN ITAB1 WHERE KNUMH = ITAB1-KNUMH.
ENDIF.
C = 1.
LOOP AT ITAB2.
NET_PRICE = ITAB2-KBETR * C.
C = NET_PRICE.
ENDLOOP.
NET_PRICE1 = ( C * NET_PRICE2 ) / 10000 .
XKWERT = NET_PRICE1.