help on create receipt function

iam creating receipt voucher by function but problem is amount show as negative please give us solluction

[Function: RPVFROM LEDGER]


Variable : grpDate : Date
Variable : grpCrLedgerName : String
Variable : grpDrLedgerName : String
Variable : grpAmount : Amount
Variable: grpdepnarra :String


Variable : Counter : Number: 1


10 : SET : grpDate :#RPVvchdate
20 : SET : grpCrLedgerName : @@RPVcramount
30 : SET : grpDrLedgerName @RPVdramount
40 : SET : grpAmount :#RPVamount
50 :Set : grpdepnarra :#RPVnarration
60: SET : SVViewName : $$SysName:AcctgVchView

70 : NEW OBJECT : Voucher
80 : SET VALUE : Date : ##grpDate
90 : SET VALUE : VoucherTypeName : @@RPVvchtype
100 : Set Value: Narration : ##grpdepnarra


120 : SET VALUE : Ledger Name : ##grpDrLedgerName
140 : SET VALUE : IsDeemedPositive : "Yes"
141 : SET VALUE : Amount : ##grpAmount * (-1)



;----------------------------------------------------------------------------
;;Credit Entry
160 : INSERT COLLECTION OBJECT : AllLedgerEntries
170 : SET VALUE : Ledger Name :##grpCrLedgerName
180 : SET VALUE : Amount : ##grpAmount
190 : SET VALUE : IsDeemedPositive : "No"
200 : SET TARGET : ..
210 : SET VALUE : PersistedView : ##SVViewName
220 : CREATE TARGET

 

please answer if you have idea any one

 

I have Not tested try this if it works
;;debit entry
110 : INSERTCOLLECTION OBJECT : ALlLedgerEntries
120 : SET TARGET : LedgerEntries
130 : SET VALUE : LedgerName : ##grpDrLedgerName
140 : SET VALUE : Amount : ##grpAmount * (-1)
145 : SET VALUE : Is Deemed Positive: "YES"
150 : SET TARGET : ..

 

Thanks sir its done in proper way