Free code :- Add chq no detail of sundry Debtors

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
 
 

 

witch screen show the for
Add chq no detail of sundry Debtors

reports

 

here is the screen shoot atteached

 

Please explain the utility/use of the TDL.