Deault Keys in TDL

Hey, in the given TDL, i want all the keys of the daybook to function in this. How to do that??

Code:

[#Menu: Gateway Of Tally]

Add : Item :Before : @@locDisplay:Daily Sales Report : Display : Cash Sales Report


[Report: Cash Sales Report]
Form : CashsalesReport
Variable : SVFromDate, SVToDate
Set : SVfromDate:$$CurrentDate
Set : LedgerName : ##LedgerName
Variable : IsMultiPage, InNewPages
Set : IsMultiPage : yes
Set : InNewPages : yes
Set : SVToDate : $$CurrentDate

;Object : Company

[Form: CashsalesReport]
Part :JKT Address Company Details,CashsalesReportDt1

Space Top : If $$InPrintMode Then 0.5 Else 0 inches
Space Bottom : If $$InPrintMode Then 0.5 Else 0 inches
;Space Right : If $$InPrintMode Then 0.5 Else 0 inches
Button : Change Period, Change Ledger, Report Config,Print Button,Export Button,BottomToolBarBtn1, BottomToolBarBtn2,BottomToolBarBtn3,BottomToolBarBtn4,BottomToolBarBtn5,BottomToolBarBtn6,BottomToolBarBtn7,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11
BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
Buttons : PrintButton, ExportButton, UploadButton, MailButton
Add : Button :ExplodeFlag



height : 100% Screen
Width: 100% Screen

[Part:JKT Address Company Details]
Line : LStatement Tit Line1,LStatementAdd1,LStatementGSTNo1,LStatementPeriod1,CashsalesReportTitle
Border: Thin Box

[Line : LStatement Tit Line1]
Field : LStatement Tit Field1

[Field : LStatement Tit Field1]
Use : Name Field
Set as : @@CmpMailName;$Name:Company:##SVCurrentCompany
Align : Center
Full Width : Yes
Style : Large Bold
Color:red
[Line:LStatementAdd1]

Field:LStatementAddField1

[Field:LStatementAddField1]
Use : Name Field
Set as : $$FullList:CompanyAddress:$Address
Align : Center
Full Width : Yes
;Border : Thin Box
Style:TINY

[Line:LStatementGSTNo1]
Field:LStatementGSTNoField1
[Field:LStatementGSTNoField1]
Use : Name Field
Set as : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:@@CMPExcisePrimaryGodown+$$LocaleString:" PAN NO.:"+ $IncomeTaxNumber:Company:##SVCurrentCompany
Align : Center
Full Width : Yes
Style:TINY
[Line:LStatementPeriod1]
Field:LStatementPeriodField1
Space Top:0.5
Border:thin bottom

[Field:LStatementPeriodField1]
Use:name field
Set as:$$LocaleString:"Statement For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate
Align : Center
Full Width : Yes
Local:Style:defualt:Height:20
Color:Black
Style:large bold


[Part:CashsalesReportTitle]
    Line: CashsalesReportTitle
    Total:cstotalbillamt
    [Line:CashsalesReportTitle]
        Field:CashsalesReportTitle

        [Field:CashsalesReportTitle]
            Use: name field
            Set as: "Daily Sales Report"
            Full Width:Yes
            Style:  Large Bold
            Align:Center
          
[Part:CashsalesReportDt1]

    Line: cashsalestitleline,CashsalesDtLine
    Repeat:CashsalesDtLine:Cashsalescoll
    Bottom Line : jktotalcashparty
    Common Border:Yes
    Scroll:Vertical
    Border : Thin Left Right
    Total: cstotalbillamt

[Line:jktotalcashparty]
use : CashsalesDtLine
Border : Totals
Local : Field : Default : Style : Normal Bold
Local : Field : Default : Type : String
Local : Field : cs sno : Set As : "TOTAL"
Local : Field : cs billdate : Set As :""
Local : Field : cs billno : Set As :""
Local : Field : cs partyname : Set As :""
Local : Field : cs totalbillamt : Set As: $$Total:cstotalbillamt
Local : Field : cs Narration :Set As:""


  
[Line:cashsalestitleline]
    use : CashsalesDtLine
    Local : Field : Default : Type : String
    Local : Field : Default : Align : Center
   ;;Local: Field: cs sno, cs billdate, cs billno, cs partyname, cs totalbillamt, cs Narration
    Local:Field: cs sno : Set as : "S.no"
    Local:Field: cs billdate : Set as : "Bill Date"
    Local:Field: cs billno : Set as : "Bill No."  
    Local:Field: cspartyname : Set as : "Billed In "
    Local:Field: cspartyname1 : Set as : "Party Name"
    Local:Field: cs totalbillamt : Set as : "Total Bill Amount"
    Local:Field: cs Narration :Set as : "Narration"

  
[Line:CashsalesDtLine]
    Field: cs sno, cs billdate, cs billno, cs partyname,cs partyname1 ,cs totalbillamt, DSPVCHMASTERIDNO
     Option : AlterVchOnEnter : YES   

[Field: cs sno]
        ;Use:Name Field
        Set as: $$Line
    Style : Normal Bold
;Style : If $$InPrintMode Then Normal Else Normal Bold   
Width : 5
        Border : Thin Left Right bottom
    Align : Center
  
[Field: cs billdate]
    ;Use: uni Date Field
    Set as: $date
    Style : Normal Bold
    Border : Thin Bottom Right
    Width : 13
    Align : Center

    [Field:cs billno]
        Use:name Field
        Set as:$vouchernumber
        Border : Thin Bottom Right
    Width : 20
    Align : Center

[Field: cs partyname]
    Use:name field
    Set as: $ledgername
    Width : 60
    Border : Thin Left Right  bottom

[Field: cs partyname1]
    Use:name field
    Set as: $basicbuyername
    Width : 60
    Border : Thin Left Right  bottom

[Field: cs totalbillamt]
   Use : Amount Forex Field
    Set as : $Amount
   Width : 15
   Align : Center
   Style : Normal Bold
   Border : Thin Left Right  bottom

[Collection:cashsalescoll]
        Type: vouchers:vouchertype
        Child Of:$$VchTypeSales
    ;;Child Of:$$VchTypePayment
        Belongs To: Yes
        Fetch: LedgerEntries.*,date, vouchernumber, basicbuyername,Ledgername, amount, Narration, *.*
        Filter:
   
    Fetch        : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
        Fetch        : AllLedgerEntries.BankAllocations.*
  
  
    Compute        : TotLedDrAmt                : $$OrigVchLedDrTotal
    Compute        : TotLedCrAmt                : $$OrigVchLedCrTotal

   
[System:Formulas]
        cashEntries: $$IsLedOfGrp:$partyledgername:$$Groupcash
    ;;onlycashEntries: $$IsLedOfGrp:$ledgername:$$GroupDuties