how to split Receipt amount

Dear Sir,

I want to split the Receipt Amount as per attachment, with a click of button,
Please help in me in this regard...

Thanks in Advance

 

Question re-structured...

i'm trying to split the receipt amount in receipt voucher, this code is working well in Rel 1.61 but not in 4.6.

Someone please help me to sort out this issue.

I have enclosed tdl code..

 

This is your code or part of code????????

 

this is your full code or part of code>>>>>>>>>>>>>>>>>

 

This is Part of Code...