1. We are making changes to http://tdlexperts.com. So redirected to new portal http://tdlexperts.net. Kindly cooperate!!!
    Dismiss Notice

Voucher columnar reference in Columnar Day Book

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

  1. Iyer

    Iyer New 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​
     


  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
     


  3. laxman

    laxman Member


    thanks for update Mr Sundar One update more this TDL open entry after enter entry.
     


  4. laxman

    laxman Member


    DEAR NEED "ALTER ON ENTER" THIS CODE PLEASE UPDATE ...
     


  5. Iyer

    Iyer New Member


    Buttons not visibile
     

    Attached Files:

    • Cli.jpg
      Cli.jpg
      File size:
      48.5 KB
      Views:
      114


  6. Iyer

    Iyer New Member


    Buttons not visibile
     


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


  9. PeaceOfMind

    PeaceOfMind New Member


    Replace field name with actual field in that line
     


  10. laxman

    laxman Member




    thanks alter on enter is work....
     
    Basha likes this.


  11. Basha

    Basha Member


    Dear Laxman,

    What u replace upload the code please
     


  12. laxman

    laxman Member


    yes find code
     

    Attached Files:



  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.
     


  14. SKB

    SKB New Member


    QUN
     


  15. Abdul Bari

    Abdul Bari New Member


    can i get cost center name on each entry if ..,
     


  16. maniderik

    maniderik New Member


    but voucher amount not display in payment,journal ,etc
     


  17. uttam100

    uttam100 Member


    What is the use of this report.
     


Share This Page