Update Routine - Deaggegation - Net Price

Question

Dear sdn's
For a object '0NETPRICE' , i am using the following update routine.    
IF ( COMM_STRUCTURE-processkey =       '002'  OR     COMM_STRUCTURE-processkey       =       '012'  OR
COMM_STRUCTURE-processkey       =       '022')
AND COMM_STRUCTURE-bwapplnm EQ 'MM'
Here GR Qty (31,969), GR Val (286,122.55) loading correctly. Net price getting aggreagted. In the folowing example i should get only 7.56 instead of 30.24. Inversion also problem, it will through only "0'.
Netprice    GR Qty    GR Val        Document Number
7.56          50,819-     454,830.05-     4500008362
7.56     66,886     598,629.70     4500008362
7.56     66,886-     598,629.70-     4500008362
7.56     82,788     740,952.60     4500008362
30.24     31,969     286,122.55     
Can anybody suugest me the logic in routine ...?
Regards
Raju Saravanan

Answer 1

Hi,
( COMM_STRUCTURE-PROCESSKEY = '002' or
     COMM_STRUCTURE-PROCESSKEY = '012' or
     COMM_STRUCTURE-PROCESSKEY = '022' )
     AND COMM_STRUCTURE-BWAPPLNM EQ 'MM'
     AND COMM_STRUCTURE-CPQUAOU <> 0.
     perFORM QUANTITY_CONVERT
        USING    COMM_STRUCTURE-CPQUAOU
                 COMM_STRUCTURE-po_UNIT
                 COMM_STRUCTURE-base_uom
                 COMM_STRUCTURE-numerator
                 COMM_STRUCTURE-denomintr
        CHANGING RESULT.
if COMM_STRUCTURE-/BIC/ZPEINH ne 0.
  RESULT = RESULT * COMM_STRUCTURE-/BIC/ZSTPRS1.
  RESULT = RESULT / COMM_STRUCTURE-/BIC/ZPEINH.
else.
  RESULT = 0.
Endif.
if the returncode is not equal zero, the result will not be updated
  RETURNCODE = 0.
  else.
   RETURNCODE = 4.
endif.
result value of the routine
RESULT = .
result value of the unit
  UNIT = COMM_STRUCTURE-CURRENCY.
if the returncode is not equal zero, the result will not be updated
RETURNCODE = 0.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
the above code using.....please suggest