Deault Keys in TDL

Discussion in 'Requests' started by PRAPTI, Aug 4, 2019.

         
  1. PRAPTI

    PRAPTI Member


    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
    
     


Share This Page