the code is :- Code: [#Part: MST LED Explode Sundry] Add : Line : At End : CustomerChqDetails [Line : CustomerChqDetails] Field : Medium Prompt,CustomerChqDetails Local : Field : Medium Prompt : Set As : "Set Cheque Details ?" [Field :CustomerChqDetails] Use : Logical Field Sub form : Cheque Nos Sub form : $$Value Set As : No [Report : Cheque Nos Sub form] [Form : Cheque Nos Sub form] Part : Cheque Nos Sub formTitle,Cheque Nos Sub form Horizontal Align : Left [Part : Cheque Nos Sub formTitle] Use : Cheque Nos Sub form Border : Column Titles Delete : Repeat Delete : Scroll Delete : Break on Local :Field : Default : Delete : Storage Local : Field : ChequeNos : Info : "Cheque Nos" Local : Field : BankNameinCheque : Info : "Bank Name" Local : Field : CustBillNo : Info : "Bill No." Local : Field : ChequeAmount : Info : "Bill Amount" [Part : Cheque Nos Sub form] Line : Cheque Nos Sub form Repeat : Cheque Nos Sub form :Cheque Nos Aggregate Break On : $$IsEmpty:$ChequeNos Scroll : Vertical [Line : Cheque Nos Sub form] Field : ChequeNos,BankNameinCheque,CustBillNo,ChequeAmount [Field : ChequeNos] Use : Name Field Storage : ChequeNos [Field : BankNameinCheque] Use : Name Field Storage : BankNameinCheque [Field : CustBillNo] Use : Name Field Storage : SalesBillNo [Field :ChequeAmount] Use : Amount Field Storage : SalesBillAmt [System : UDF] Cheque Nos Aggregate : Aggregate : 21000 ChequeNos : String : 21010 BankNameinCheque : String : 21011 SalesBillNo : String : 21012 SalesBillAmt : Amount : 21013 ;;--- Voucher Object EIChequeNos : String : 21012 [#Line: EI Consignee] Add : Field : At end : EiChequeTL,EIChqTables [Field : EiChequeTL] Info : "Cheque Table :" [Field : EIChqTables] Use : Name Field Storage : EIChequeNos Table : LedgerChqTables,Not Applicable : $$IsEmpty:$$Value Show Table : Always [Collection : LedgerChqTables] Title : "Cheque List" Sub Title : "Cheque Nos","Bank Name" Type : Cheque Nos Aggregate : Ledger Child of : #EIConsignee Format : $ChequeNos,20 Format : $BankNameinCheque,20 Filter : EmptyChequesOnly ;---- Modify object [#Form : Sales Color] On : Form Accept : yes : Modify Object : (Ledger,#EIConsignee).ChequeNosAggregate[1,@@MyFormula].SalesBillNo[1].SalesBillNo:#VCHNumber,SalesBillAmt[1].SalesBillAmt:#EIValueTotal [System : Formula] MyFormula : $ChequeNos = #EIChqTables EmptyChequesOnly : $$IsEmpty:$SalesBillAmt