1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

Voucher columnar reference in Columnar Day Book

Discussion in 'Requests' started by Iyer, Sep 11, 2013.

    
  1. Iyer

    Iyer Member


    [#Menu : Gateway of Tally]
    Item : Columner Day Book : Display : Columner Day Book
    [Report : Columner Day Book]
    Form :Columner Day Book
    Variable : SVFromDate,SVToDate
    ;;Set : SVFromDate : ##SVCurrentDate
    ;;Set : SVToDate : ##SVCurrentDate
    [Form :Columner Day Book]
    Part :daybookhead,daybookhead1, Columner 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 : " DayBook From on " + $$String:##SVFromDate +" to " + $$String:##SVToDate
    Local : Field : Simple Field : Style : Normal Italic
    ;;Local : Field : Simple Field : Align : Centre

    [Part : daybookhead1]
    Use : Columner 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 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 :Columner Day Book]
    Line : Columner Day Book
    Repeat :Columner Day Book :My Voucher Rep Collection

    Scroll : Vertical
    [Line :Columner 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 : 20

    ;;Border : Thin Right
    [Field : MyVchNo]
    Use : NAme Field
    Set As : $Narration
    ;; Border : Thin Right

    [Field : MyVchType]
    Use : Name Field
    Set As : $VoucherTypeName
    ;; Border : Thin Right
    Width : 20
    [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 : Columner 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

    Fact speaking copied from other source or from tdl experts forum. This is really awesome.

    For the same we require tdl code to add the total in the bottom and Voucher Reference.

    Please do the needful​
     
    Iyer, Sep 11, 2013
    #1


  2. Sunder

    Sunder New Member


    A little bit of modification which is not mine.


    ;;;;;;;;daybook

    [#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
    Title:"New Day Book"

    [Form :Columer Day Book]
    Part :daybookhead,daybookhead1, Columer Day Book ;;,daybookhead2
    Button : Change Period,Print Button,Export Button
    Bottom Part:gtotal
    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 : " 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 : Myexe :Set As : "Executive"
    Local : Field : mycreatedby :Set As : "Created By"
    Local : Field : My Voucher Date : Set As : "Date"
    Local : Field : MyVoucherParty: Set As : "Particular"
    Local : Field : MyVchNo1 : Set As : "Voucher No"
    Local : Field : MyVchNo2 : Set As : "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
    Total: MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
    Scroll : Vertical

    [Line :Columer Day Book]
    Field :mycreatedby, MYexe, MY Voucher Date, MyVoucherParty
    Right Field : MyVchNo1,MyVchNo2,MyVchType,MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6

    [Field : mycreatedby]
    Use: short Name Field
    Set As : $skuser+$JSKUSER+$PAYUSER+$RSkUser
    Width : 10
    Border : Thin Left

    [Field : Myexe]
    Use: Name Field
    Set As : $MSVCHSalesman
    Width : 10
    Border : Thin Left

    [Field :My Voucher Date]
    Use: Short Date Field
    Set As : $Date
    Width : 15
    Border : Thin Left
    ;;Border : Thin Bottom

    [Field : MyVoucherParty]
    Use: Short Name Field
    Set As : $LedgerName
    Width : 50
    Border : Thin Left

    [Field : MyVchNo1]
    Use : Name Field
    Set As : $VoucherNumber
    ; Width : 15
    Border : Thin Left

    [Field : MyVchNo2]
    Use : Name Field
    Set As : $Narration
    Width : 105
    Border : Thin Left

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

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

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

    [Field : MyVchAmount1]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Rec" then $Amount else ""
    Border : Thin Left
    Format : "DrCr"

    [Field : MyVchAmount2]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "pay" then $Amount else ""
    Border : Thin Left
    Format : "DrCr"

    [Field : MyVchAmount3]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "deb" then $Amount else ""
    Border : Thin Left
    Format : "DrCr"

    [Field : MyVchAmount4]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Cre" then $Amount else ""
    Border : Thin Left
    Format : "DrCr"

    [Field : MyVchAmount5]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Jou" then $Amount else ""
    Border : Thin Left
    Format : "DrCr"

    [Field : MyVchAmount6]
    Use : Amount Field
    Set As :if $VoucherTypeName CONTAINS "Pur" then $Amount else ""
    Format : "DrCr"
    Border : Thin Left

    [Part:gtotal]

    Use : Columer Day Book
    Delete : Repeat
    Delete : Scroll
    Delete : Total
    Border : Totals
    Local : Field : Default: Type : string
    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
    Local : Field : Default : Style : Small Bold

    [Collection : My Voucher Rep Collection]
    Type : Vouchers
    ;;filter :salevou
    Fetch : Date,Amount,narration,VoucherTypeName,MSVCHSalesman,PArtyLedgerName,VoucherNumber,JSKUSER,PAYUSER,SKUSER,RSkUser

    ;;;;;;;end daybook
     
    Sunder, Sep 11, 2013
    #2


  3. laxman

    laxman Member


    thanks for update Mr Sundar One update more this TDL open entry after enter entry.
     
    laxman, Sep 11, 2013
    #3


  4. laxman

    laxman Member


    DEAR NEED "ALTER ON ENTER" THIS CODE PLEASE UPDATE ...
     
    laxman, Nov 7, 2013
    #4


  5. Iyer

    Iyer Member


    Buttons not visibile
     

    Attached Files:

    • Cli.jpg
      Cli.jpg
      File size:
      48.5 KB
      Views:
      195
    Iyer, Dec 2, 2013
    #5


  6. Iyer

    Iyer Member


    Buttons not visibile
     
    Iyer, Dec 2, 2013
    #6


  7. PeaceOfMind

    PeaceOfMind New Member


    In both report &form write
    Use : dsp template
    Buttons will be visible.
    For alter on enter
    In line columar day book. Write
    Option : alter on enter
    Local : field : fieldname : alter : voucher : $$isvoucher
     
    PeaceOfMind, Dec 2, 2013
    #7
    Manoj Garg likes this.


  8. PeaceOfMind

    PeaceOfMind New Member


    In both report &form write
    Use : dsp template
    Buttons will be visible.
    For alter on enter
    In line columar day book. Write
    Option : alter on enter
    Local : field : fieldname : alter : voucher : $$isvoucher
     
    PeaceOfMind, Dec 2, 2013
    #8


  9. PeaceOfMind

    PeaceOfMind New Member


    Replace field name with actual field in that line
     
    PeaceOfMind, Dec 2, 2013
    #9


  10. laxman

    laxman Member




    thanks alter on enter is work....
     
    laxman, Dec 3, 2013
    #10
    Basha likes this.


  11. Basha

    Basha Member


    Dear Laxman,

    What u replace upload the code please
     
    Basha, Dec 3, 2013
    #11


  12. laxman

    laxman Member


    yes find code
     

    Attached Files:

    laxman, Dec 3, 2013
    #12


  13. mahaveersomani

    mahaveersomani New Member


    Thank you so much for provide the awesome tdl.


    i have one problem in this tdl can anybody tell me how i can set this tdl for my purpose.


    i need both the ledgers of entry

    suppose
    Entry is :


    Ram A/c Dr. 500
    To Sub contract Charges 500

    now i need in column no. 2 "RAM"
    and in column no. 3 "Sub Contract Charges"


    is it possible ???

    please Reply.
     
    mahaveersomani, Apr 10, 2015
    #13


  14. SKB

    SKB New Member


    QUN
     
    SKB, Nov 28, 2016
    #14


  15. Abdul Bari

    Abdul Bari New Member


    can i get cost center name on each entry if ..,
     
    Abdul Bari, Dec 8, 2016
    #15


  16. maniderik

    maniderik New Member


    but voucher amount not display in payment,journal ,etc
     
    maniderik, Jan 27, 2017
    #16


  17. uttam100

    uttam100 Member


    What is the use of this report.
     
    uttam100, Jan 27, 2017
    #17


Share This Page