Hello Sir Greeting of the day Please Check my TDL Code 9510 : Set : PurchasesAmt : 100 9520 : Set : TaxAmt : 18.33 9530 : Set : VarVchAmount : 118.33 9620 : Increment : VarLedEntCount 9630 : Insert Collection Object : LedgerEntries 9640 : Set Target : LedgerEntries[##VarLedEntCount] 9660 : Set Value : IsDeemedPositive : Yes 9670 : Set Value : LedgerName : "Purchases Account" 9680 : Set Value : Amount : ##PurchasesAmt ;; 100.00 9690 : Set Target:.. 9700 : Increment : VarLedEntCount 9710 : Insert Collection Object : LedgerEntries 9720 : Set Target : LedgerEntries[##VarLedEntCount] 9730 : Set Value : IsDeemedPositive : Yes 9740 : Set Value : LedgerName : "Tax Account" 9750 : Set Value : Amount : ##TaxAmt ;; 18.33 9760 : Set Target:.. ;; Start Round of entry 9771 : Set : SHTRoundValue : (##VarVchAmount - ($$Round:##VarVchAmount:1.00)) 9775 : If: NOT Equal:##SHTRoundValue:0 9776 : Increment : VarLedEntCount 9777 : Insert Collection Object : LedgerEntries 9778 : Set Target : LedgerEntries[##VarLedEntCount] 9779 : Set Value : IsDeemedPositive : No 9780 : Set Value : LedgerName : "Round of" 9781 : Set Value : Amount : ##SHTRoundValue*-1 ;; (-)0.33 9782 : Set Target:.. 9783 : End If ; End Round of Entry 9820 : Insert Collection Object : LedgerEntries 9821 : Set Target : LedgerEntries[1] 9822 : Set Value : IsDeemedPositive : No 9823 : Set Value : LedgerName : "Party Account" 9824 : Set Value : Amount : ($$Round:##VarVchAmount:1.00) ;;118.00 9825 : If:$IsBillWiseOn:Ledger:##VarPartyLedgerName 9826 : Insert Collection Object : BillAllocations 9830 : Set Value : BillType : $$SysName:NewRef 9832 : Set Value : Name : ##VarVoucherNumber 9835 : Set Value : Amount : ($$Round:##VarVchAmount:1.00) ;;118.00 9840 : Set Target:.. 9845 : End If 9850 : Set Target:.. 9860 : Create Target
8000 : Set : DiffAmount : (##TaxAmt + ##VarVchAmount ) - (##PurchasesAmt ) 8100 : If : ##DiffAmount != 0 8200 : Insert Collection Object : LedgerEntries 8210 : Set Value : LedgerName : "Round Off" 8220 : Set Value : IsDeemedPositive : $$IsNegative:##DiffAmount 8230 : Set Value : Amount : ##DiffAmount 8240 : Set Target : .. 8250 : End If
