Value not store in Bank Allocations

Dear Experts please help me with TDL

I am unable to store value in Bank Allocations. Following is my code.

;;Credit Entry
160 : INSERT COLLECTION OBJECT : AllLedgerEntries
160a: SET TARGET : LedgerEntries
170 : SET VALUE : Ledger Name : ##CphCrLedgerName
180 : SET VALUE : Amount : ##CphAmount * (-) 1 ;##CphAmount
190 : SET VALUE : IsDeemedPositive : "No"
;200 : SET TARGET : ..

;200a: LOG : $$String:##CphCrLedgerName ;+ $$String:#CphAmount + "Cr"
;-----------------------------------------------------------------------------------
;Bank Allocations
201 : IF : ($$IsLedOfGrp:$RBCBLedgerName:$$GroupBank OR $$IsLedOfGrp:$RBCBLedgerName:$$GroupBankOD)

210 : INSERT COLLECTION OBJECT : BankAllocations
220 : SET VALUE : Date : ##CphDate
230 : SET VALUE : TransactionType :"Cheque"
235: SET VALUE : BankName : $RBCBLedgerName
240 : SET VALUE : InstrumentNumber :##ChqNo
250 : SET VALUE : InstrumentDate :$$Date:$Date
260 : SET VALUE : PAYMENTFAVOURING :$PartyLedgerName
270 : SET VALUE : Amount ##CphAmount)*-1
280 : SET TARGET : ...
290 : SET TARGET : ..
300 : END IF

 

Try this

270 : Insert Collection Object : BankAllocations
271 : Set Target : BankAllocations[0]
272 : Set Value : Date : @@VKPDate
273 : Set Value : Instrumentdate : @@VKPDate
274 : Set Value : Name : $$String:##VKPchqno
275 : Set Value : TransactionType : $$LocaleString:"Cheque"
276 : Set Value : PaymentFavouring : ##VKPDebitName
277 : Set Value : ChequeCrossComment : "A/c Payee"
278 : Set Value : InstrumentNumber : $$String:##VKPchqno
280 : Set Value : Payment Mode : 'TRANSACTED'
281 : Set Value : BankPartyName : ##VKPDebitName
282 : Set Value : Amount : ##VKPAmt
; 283 : Set Value : ChequeRange : $$String:$VKPChqRangeFrom + "-" + $$String:$VKPChqRangeTo
284 : Set Target : ..

 

Thank You sir, but still same problem occur..

 

Try this...

270 : SET VALUE : Amount ##CphAmount)

 

have tried, still not working..
will you check my code???
if yes, then please share me your mail id