1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Free Code : Columner Daybook

Discussion in 'Free Source Codes' started by bollindia, May 19, 2013.

    
  1. bollindia

    bollindia Member


    hi i m giving here Columer Daybook
    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
        Button : Change Period,Print Button,Export Button
        Background  : @@SV_UNYELLOW
 
 
[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/Narration"
            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 : Small Bold
 
 
 
 
 
 
 
 
[Part :Columer Day Book]
            Line  : Columer Day Book
            Repeat :Columer Day Book :My Voucher Rep Collection
 
            Scroll : Vertical
            [Line :Columer Day Book]
                Field :My Voucher  Date,MyVoucherParty
                 
  Right Field : MyVchNo,MyVchType,MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
 
             
[Field :My Voucher Date]
                    Use : Short Date Field
                    Set As : $Date
Border : Thin Right 
Border : Thin Bottom         
[Field : MyVoucherParty]
                  Use : NAme Field
                    Set As : $LedgerName
Width      : 30
 
                Border : Thin Right 
[Field : MyVchNo]
                  Use : NAme Field
                    Set As : $VoucherNumber + "/" + $Narration
              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 : daybookhead2]
    Use : Columer Day Book     
            Delete : Repeat
            Delete : Scroll
            Border : ColumnTitles
            Local : Field : Default : Type : string
         
            Local : Field : MyVoucherParty: Set As : "Columner"
            Local : Field : MyVchNo : Set As : "Day"
            Local : Field : MyVchType : Set As : "Book"
Local : Field : MyVchAmount : Set As : ""
Local : Field : MyVchAmount1 : Set As : ""
;Local : Field : MyVchAmount2 : Set As : ""
;Local : Field : MyVchAmount3 : Set As : ""
;Local : Field : MyVchAmount4 : Set As : ""
 
          Local :Field : Default : Style : Small Bold

    I m unable to get total, can any body help here for me
     
    bollindia, May 19, 2013
    #1


  2. Amol Ashok Bhalgat

    Amol Ashok Bhalgat Member


    k
     
    Amol Ashok Bhalgat, May 22, 2013
    #2


  3. nirexshan

    nirexshan New Member


    thank u sir
     
    nirexshan, Jun 25, 2013
    #3


  4. SRikanth Dasari

    SRikanth Dasari Member


    sir can you give the full code, some code is missing down
     
    SRikanth Dasari, Mar 17, 2014
    #4


  5. SRikanth Dasari

    SRikanth Dasari Member

    SRikanth Dasari, Mar 17, 2014
    #5


  6. SRikanth Dasari

    SRikanth Dasari Member

    SRikanth Dasari, Mar 28, 2014
    #6


  7. mpal2311

    mpal2311 Active Member


    No email address please.
     
    mpal2311, Mar 28, 2014
    #7


  8. SRikanth Dasari

    SRikanth Dasari Member

    SRikanth Dasari, Mar 28, 2014
    #8


  9. anish

    anish Member


    Please provide full code ......thanks in advance
     
    anish, May 19, 2014
    #9


  10. SRikanth Dasari

    SRikanth Dasari Member


    can i know how to edit the voucher from the reoprt
     
    SRikanth Dasari, Dec 19, 2014
    #10


  11. SRikanth Dasari

    SRikanth Dasari Member


    THE CODE IS SHOWN ABOVE
     
    SRikanth Dasari, Dec 19, 2014
    #11


  12. pramod5542

    pramod5542 Member


    This is the final code of daybook Columer Day Book:



    [#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
     

    Attached Files:

    pramod5542, Feb 1, 2016
    #12


  13. sattam

    sattam Active Member


    Thanx Mr.Pramod5542.
     
    sattam, Feb 2, 2016
    #13


  14. pramod5542

    pramod5542 Member


    You welcome sattam
     
    pramod5542, Feb 2, 2016
    #14


  15. AMALNAVA

    AMALNAVA New Member


    Dear Sir (Pramod5542) , Thanks for your TDL relating to daybook columnar it is very useful for us. Sir, it is possible to add list of voucher details 'i,e' Dr Ledger as well as Cr Ledger also Bill reference/Against Ref Details. In your TDL F12 Button "show all Ledger details" is not activated??
    Kindly do the needful
    Thanks
     
    AMALNAVA, Feb 12, 2016
    #15


  16. llwhiteflowerll

    llwhiteflowerll New Member


    not working :(
     
    llwhiteflowerll, Feb 26, 2016
    #16


  17. Deven

    Deven New Member








    Can we have coloumnar daybook with batch allocation details
     
    Deven, Mar 5, 2016
    #17


  18. birender

    birender New Member


    Dear sir,
    Can we have coloumnar daybook with cost center details
     
    birender, Sep 15, 2016
    #18


  19. kdchavan

    kdchavan New Member


    Why are you adding up Sales Orders in Sales Column? It should be there in separate column ?
     
    kdchavan, May 24, 2018
    #19


  20. JAGADISH MAHAJAN

    JAGADISH MAHAJAN New Member


    How to sort by Voucher type then Voucher No. ?
     
    JAGADISH MAHAJAN, Jan 31, 2022
    #20


Share This Page