Netwr and fklmg dividing problem -------- points assured

Question

hi,
I am stuck in a problem please see the code
my internal table
                       data:  begin of it occurs 1,
                           vbeln like vbrp-vbeln,
                           netwr like vbrp-netwr,
                           fklmg like vbrp-fklmg,
                           fkdat like vbrk-fkdat,
                           erzet  like vbrk-erzet,
                           end of it.
SELECT avbeln anetwr afklmg bfkdat b~erzet
                INTO corresponding fields of table it
                      FROM vbrp as a inner join vbrk as b on avbeln = bvbeln
                           UP TO 1 ROWS where amatnr = komp-matnr and bfkart      ne 'ZPRO'
                                order by bfkdat descending berzet descending.
read table it index 1.
value  =  it-netwr / it-fklmg.
if it-netwr = 1000.00 and it-fklmg = 1.000
value is coming as 1.00
I declared    VALUE  like vbrp-netwr.
-> if I declare  VALUE(21) then my out put is 100
-> but actually it should be 1000.00
please help me.
points assured.
regards,
Prabhu

Answer 1

Hi Prabhu,
I think the declaration for Value matters here. I tried this in a test program,
REPORT  ztest.
DATA: lv_netwr  TYPE netwr_fp VALUE '1000.00',
      lv_fklmg  TYPE fklmg    VALUE '1.000',
      lv_value  TYPE netwr_fp.
lv_value = lv_netwr / lv_fklmg.
WRITE:/ lv_value.
The value that we get for lv_value is '1000.00'.
Reason being NETWR_FP is CURRENCY FIELD and FKLMG is QUANTITY FIELD. When we divide these two we need to have the result in a datatype that can hold bigger values.
Try declaring lv_value of type NETWR_FP. I think you should get the right value as output.
<i>Reward points for helpful answers</i>.
Best Regards,
Ram.