Columnar Day Book

Discussion in 'Free Source Codes' started by sseema, Jan 2, 2020.

         
  1. sseema

    sseema Member


    upload_2020-1-2_13-29-52.png



    If any body need this code than you have to give me a good tdl to me in return
    hahahahhaahah
     



  2. [#Menu : Gateway of Tally]
    Item : Columer Day Book : Display : Columer Day Book
    [Report : Columer Day Book]
    Form :Columer Day Book
    Variable : SVFromDate,SVToDate
    Set : SVFromDate : ##SVCurrentDate
    Set : SVToDate : ##SVCurrentDate

    [Form :Columer Day Book]
    Part :daybookhead,daybookhead1, Columer Day Book ;;,daybookhead2

    bottom Part : daybookbottam
    Button : Change Period,Print Button,Export Button,FilterButton,GRPVCH Configure

    Background : Magenta

    [Part : daybookhead]
    Line :daybookhead
    [Line :daybookhead]
    Field : Simple Field
    ;Local : Field : Simple Field : Set As : ". Coulmer Day Book on " + $$String:##SVCurrentDate

    Local : Field : Simple Field : Set As : " Coulmer Day Book on " + $$String:##SVFromDate +" to " + $$String:##SVToDate
    Local : Field : Simple Field : Style : Normal Bold
    Local : Field : Simple Field : Align : Centre
    [Part : daybookhead1]
    Use : Columer Day Book
    Delete : Repeat
    Delete : Scroll
    Border : ColumnTitles
    Local : Field : Default : Type : string
    Local : Field : My Voucher Date : Set As : "Date"
    Local : Field : MyVoucherParty: Set As : "Particular"
    Local : Field : MyVchNo : Set As : "Voucher No"
    Local : Field : MyVchType : Set As : "Voucher Type"
    Local : Field : MyVchAmount0 : Set As : "Contra"
    Local : Field : MyVchAmount : Set As : "Sales"
    Local : Field : MyVchAmount1 : Set As : "Receipt"
    Local : Field : MyVchAmount2 : Set As : "Payment"
    Local : Field : MyVchAmount3 : Set As : "Debit Note"
    Local : Field : MyVchAmount4 : Set As : "Credit Note"
    Local : Field : MyVchAmount5 : Set As : "Journal"
    Local : Field : MyVchAmount6 : Set As : "Purchase"
    Local :Field : Default : Style : Large Bold
    Local: Field: Default: Align: Center
    Local: Field: Default:Background: Yellow

    [Part :Columer Day Book]
    Line : Columer Day Book
    Repeat :Columer Day Book :My Voucher Rep Collection
    tOTAL : MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
    Scroll : Vertical
    [Line :Columer Day Book]
    Field :My Voucher Date,MyVoucherParty,MyVchNo,MyVchType

    Right Field : MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
    Option : Alter On Enter

    [Field :My Voucher Date]
    Use : Short Date Field
    Set As : $Date
    Border : Thin Right

    [Field : MyVoucherParty]

    Use : NAme Field
    Set As : $LedgerName
    Width : 35
    Border : Thin Right
    Alter : Voucher



    [Field : MyVchNo]
    Use : NAme Field
    Set As : $VoucherNumber
    Width : 18
    Border : Thin Right

    [Field : MyVchType]
    Use : Name Field
    Set As : $VoucherTypeName
    Border : Thin Right
    Width : 15

    [Field : MyVchAmount0]
    Use : Amount Field

    Set As :if $VoucherTypeName CONTAINS "Con" then $Amount else ""
    Format : "DrCr"
    Border : Thin Right
    [Field : MyVchAmount]
    Use : Amount Field

    Set As :if $VoucherTypeName CONTAINS "Sale" then $Amount else ""
    Format : "DrCr"
    Border : Thin Right
    [Field : MyVchAmount1]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Rec" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount2]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "pay" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount3]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "deb" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount4]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Cre" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount5]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Jou" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount6]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Pur" then $Amount else ""
    [Collection : My Voucher Rep Collection]
    Type : Vouchers
    Fetch : Date,Amount,VoucherTypeName ,PArtyLedgerName,VoucherNumber

    ;*/
    [Part: daybookbottam]
    Lines : daybookTotalLine
    [Line: daybookTotalLine]
    Use : Columer Day Book
    Local: Field: Default : Style : Small Bold
    Local: Field: Default:Background: Yellow
    Local: Field: Default: Type: String
    Local: Field: Default: Align: Center
    Local : Field : MyVoucherParty: Set As : "Total"
    Local : Field : MyVoucherParty: Color: Red
    Local : Field : MyVchNo : Set As : "Day Book"
    Local : Field : MyVchNo: Color: Red
    Local : Field : MyVchType : Set As : "Amount"
    Local : Field : MyVchType : Color: Red
    Local : Field : MyVchAmount0 :Set As: $$Total:MyVchAmount0
    Local : Field : MyVchAmount : Set As : $$Total:MyVchAmount
    Local : Field : MyVchAmount1 : Set As : $$Total:MyVchAmount1
    Local : Field : MyVchAmount2 : Set As : $$Total:MyVchAmount2
    Local : Field : MyVchAmount3 : Set As : $$Total:MyVchAmount3
    Local : Field : MyVchAmount4 : Set As : $$Total:MyVchAmount4
    Local : Field : MyVchAmount5 : Set As : $$Total:MyVchAmount5
    Local : Field : MyVchAmount6 : Set As : $$Total:MyVchAmount6
    Border : Totals
     
    sandeep76out likes this.


  3. mpal2311

    mpal2311 Active Member



  4. sandeep76out

    sandeep76out New Member



  5. imranlhr

    imranlhr Member


    In above code if found new some new improvements because if you extract the report it show Purchases and also Purchase Order, Receipt and also receipt note, Sales and also sales order so, please change "LIKE" instead of "CONTAINS". I ADD one more field Cheq # in above day book.
     


  6. M K RAJU

    M K RAJU New Member


    good morning sseema daybook collection vouchers only purchase and sales coloums please send me sample code
    day book
    Type : Vouchers : $$VchTypePurchase & $$VchTypeSales not working help me
     


  7. imranlhr

    imranlhr Member


    i attached new day book with cheq # and Invoice Reference number. it shows Sales Order, Purchase order but doesn't show amounts. so, i used LIKE instead of Contains.
     

    Attached Files:



  8. ashok singhvi

    ashok singhvi New Member



  9. NainaSiraj

    NainaSiraj Member



  10. haejosh

    haejosh New Member


    excellent works . :cool:
    small suggestion shift+enter key and ctrl+enter key defined @ list of columner day book LIST..
     


  11. imranlhr

    imranlhr Member


    Code:
    [#Menu : Gateway of Tally]
    Item : Columer Day Book : Display : Columer Day Book
    [Report : Columer Day Book]
    Form :Columer Day Book
    Variable : SVFromDate,SVToDate
    Set : SVFromDate : ##SVCurrentDate
    Set : SVToDate : ##SVCurrentDate
    
    [Form :Columer Day Book]
    Part :daybookhead,daybookhead1, Columer Day Book ;;,daybookhead2
    
    bottom Part : daybookbottam
    Button : Change Period,Print Button,Export Button,FilterButton,GRPVCH Configure
    
    
    [Part : daybookhead]
    Line :daybookhead
    [Line :daybookhead]
    Field : Simple Field
    ;Local : Field : Simple Field : Set As : ". Coulmer Day Book on " + $$String:##SVCurrentDate
    
    Local : Field : Simple Field : Set As : " Coulmer Day Book on " + $$String:##SVFromDate +" to " + $$String:##SVToDate
    Local : Field : Simple Field : Style : Normal
    Local : Field : Simple Field : Align : Centre
    
    
    [Part : daybookhead1]
    Use : Columer Day Book
    Delete : Repeat
    Delete : Scroll
    Border : ColumnTitles
    Local : Field : Default : Type : string
    Local : Field : My Voucher Date : Set As : "Date"
    Local : Field : My Voucher Day : Set As : "Day Name"
    Local : Field : MyVoucherParty: Set As : "Particular"
    Local : Field : MyVchNo : Set As : "Voucher No"
    Local : Field : MyVchType : Set As : "Voucher Type"
    Local : Field : Refnobb : Set As : "Reference No."
    Local : Field : TEPLChequeNoFld : Set As : "Cheque No"
    Local : Field : MyVchAmount5 : Set As : "Journal"
    Local : Field : MyVchAmount : Set As : "Sales"
    Local : Field : MyVchAmount4 : Set As : "Credit Note"
    Local : Field : MyVchAmount6 : Set As : "Purchase"
    Local : Field : MyVchAmount3 : Set As : "Debit Note"
    Local : Field : MyVchAmount1 : Set As : "Receipt"
    Local : Field : MyVchAmount2 : Set As : "Payment"
    
    
    
    
    Local :Field : Default : Style : Small Bold : Color : Leaf Green
    Local: Field: Default: Align: Center
    
    
    
    [Part :Columer Day Book]
    Line : Columer Day Book
    Repeat :Columer Day Book :My Voucher Rep Collection
    tOTAL : MyVchAmount5,MyVchAmount,MyVchAmount4,MyVchAmount6,MyVchAmount3,MyVchAmount1,MyVchAmount2
    Scroll : Vertical
    [Line :Columer Day Book]
    Field :My Voucher Date,My Voucher Day,MyVoucherParty,MyVchNo,MyVchType,Refnobb,TEPLChequeNoFld
    
    Right Field : MyVchAmount5,MyVchAmount,MyVchAmount4,MyVchAmount6,MyVchAmount3,MyVchAmount1,MyVchAmount2
    Option : Alter On Enter
    
    [Field :My Voucher Date]
    Use : Short Date Field
    Set As : $Date
    Border : Thin Right
    
    
    [Field : My Voucher Day]
    
    Use : Name Title Field
    set as : $$Dayofweek : $date
    Indent : 6
    Style : Normal Bold
    FullWidth : Yes
    Width : @@ShortNameWidth
    Border : Thin Right
    
    
    
    
    [Field : MyVoucherParty]
    
    Use : NAme Field
    Set As : $LedgerName
    Width : 35
    Border : Thin Right
    Alter : Voucher
    
    
    
    [Field : MyVchNo]
    Use : NAme Field
    Set As : $VoucherNumber
    Width : 18
    Border : Thin Right
    
    [Field : MyVchType]
    Use : Name Field
    Set As : $VoucherTypeName
    Border : Thin Right
    Width : 15
    
    [Field:Refnobb]
    Use : Name Field
    Set As : $Reference
    Width : 20
    Align : centre
    color : black
    Style : Normal
    Border : Thin Left right
    [#Collection: Vouchers of Ledger]
    Fetch : AllLedgerEntries.BankAllocations.INSTRUMENTNUMBER
    Fetch : Reference
    
    [#Collection: Daybook Vouchers of Company]
    Fetch : AllLedgerEntries.BankAllocations.INSTRUMENTNUMBER
    Fetch : Reference
    
    [#Collection : Specific Vouchers of Company]
    Fetch : AllledgerEntries.BankAllocations.INSTRUMENTNUMBER
    Fetch : Reference
    
    [#Collection: Vouchers of Group]
    Fetch : AllLedgerEntries.BankAllocations.INSTRUMENTNUMBER
    Fetch : Reference
    
    
    
    [Field : TEPLChequeNoFld]
    Use : Short Name Field
    Set as : $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER
    Border : Thin Right
    Skip : Yes
    Align : Right
    Width : 6
    
    [Field : MyVchAmount5]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Jou" then $Amount else ""
    Border : Thin Right
    
    
    
    [Field : MyVchAmount]
    Use : Amount Field
    Set As :if $VoucherTypeName LIKE "Sales" then $Amount else ""
    Format : "DrCr"
    Border : Thin Right
    
    [Field : MyVchAmount4]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Cre" then $Amount else ""
    Border : Thin Right
    
    [Field : MyVchAmount6]
    Use : Amount Field
    Set As :if $VoucherTypeName LIKE "Purchase" then $Amount else ""
    Border : Thin Right
    [Collection : My Voucher Rep Collection]
    Type : Vouchers
    Fetch : Date,Amount,VoucherTypeName ,PArtyLedgerName,VoucherNumber
    
    [Field : MyVchAmount3]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "deb" then $Amount else ""
    Border : Thin Right
    
    
    
    
    
    [Field : MyVchAmount1]
    Use : Amount Field
    Set As :if $VoucherTypeName LIKE "Receipt" then $Amount else ""
    Border : Thin Right
    [Field : MyVchAmount2]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "pay" then $Amount else ""
    Border : Thin Right
    
    
    [Part: daybookbottam]
    Lines : daybookTotalLine
    [Line: daybookTotalLine]
    Use : Columer Day Book
    Local: Field: Default : style : Small bold : Bottom :Double Line
    
    Local: Field: Default: Align: Center
    
    
    
    
    Local : Field : My Voucher Date : Invisible : Yes
    Local : Field :  My Voucher Day : Invisible : Yes
    Local : Field : MyVoucherParty : Invisible : Yes
    Local : Field : MyVchNo : Invisible : Yes
    Local : Field : MyVchType : Invisible : Yes
    Local : Field : Refnobb : Set as : "Total"
    
    Local : Field : TEPLChequeNoFld: Invisible : Yes
    
    Local : Field : MyVchAmount5 : Set As : $$Total:MyVchAmount5
    
    Local : Field : MyVchAmount : Set As : if $$Total:MyVchAmount >1 then $$Total:MyVchAmount else ""
    Local : Field : MyVchAmount4 : Set As : $$Total:MyVchAmount4
    Local : Field : MyVchAmount6 : Set As : $$Total:MyVchAmount6
    Local : Field : MyVchAmount3 : Set As : $$Total:MyVchAmount3
    Local : Field : MyVchAmount1 : Set As : $$Total:MyVchAmount1
    Local : Field : MyVchAmount2 : Set As : $$Total:MyVchAmount2
    Border : Totals
    [#Line:DSP VchDetail]
    Local:Field:Default:Background:If $$IsOdd:$$BalanceLines Then "Grey" Else "White"
    
    Enjoy all with new columnar Day Book
     


  12. GOPAL_K

    GOPAL_K New Member


    Madem,

    I wish to thank for your contribution which i have searched for a long.
    I wish the day book columnar report in the format attached in addition bank ceque details captured shall be better
    Whether it will be possible to you do that
    with Regards
    Gopal
     

    Attached Files:



Share This Page