PLEASE HELP WITH CODE

Discussion in 'Tally Integration' started by auruem, May 20, 2020.

         
Tags:
  1. auruem

    auruem New Member


    PLEASE HELP ME WITH THE PROPER CODE AND ALIGNMENT.
     

    Attached Files:

    Last edited: May 26, 2020 at 9:58 PM


  2. imranlhr

    imranlhr Member


    Enjoy this columnar 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


    [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"
     
    mpal2311 likes this.


Share This Page