can anyone help me making rokkad type or T style cash book .... ledger

Discussion in 'Free Source Codes' started by bikash agarwal, Mar 14, 2019.

         

  1. can anyone help me making a T style cash book .... ledger
    SOMETHING SIMILAR TO THE JEPG ATTACHED .....
     

    Attached Files:

    Last edited: Mar 15, 2019



  2. this is working but Opening and Closing Balance not showing / Purchase not shown in case of creditors .....please help :(:(:(
     

    Attached Files:



  3. Murali.R

    Murali.R Member


    Sir your problem solved
     

    Attached Files:

    • 5555.txt
      File size:
      14.2 KB
      Views:
      127



  4. yes sir...opening balance is comming if closing balance also it would have been nice sir
     


  5. KRISBALA

    KRISBALA New Member


    Sir not working
    upload_2019-3-15_13-18-51.png
     


  6. deep kumar

    deep kumar New Member


    sir what is the working key for it?
     


  7. deep kumar

    deep kumar New Member


    it shows error memory violation
     


  8. KRISBALA

    KRISBALA New Member


    [#Menu:Gateway Of Tally]
    Add:Key Item:Ledger Statement (T-Shape):L:displaycollection:cmpledcoll



    [Collection: CMPLedCOLL]
    Title : "List of Ledger"
    Type : Ledger;: Company
    ;Childof: ##SVCurrentCompany
    Belongs To : Yes
    Variable : GroupName
    Report : Leder Statement Report
    Trigger : Ledger Statement Trigger Rep


    [Report : Ledger Statement Trigger Rep]

    Use : Collection Variable
    Local : Line : Collection Variable : Add : Field : LedgerStatementGroup
    Local : Field: MV Title : Info : "Name of Ledger"

    [Field: LedgerStatementGroup]
    Use : Name Field
    Variable : GroupName
    Modifies : GroupName
    Table : CMPLedCOLL
    Show Table : Always


    [Report : Leder Statement Report]
    Variable : SVFromDate, SVToDate
    Set : SVfromDate:$BooksFrom:Company:##SVCurrentCompany
    Set : GroupName : ##GroupName
    Variable : IsMultiPage, InNewPages
    Set : IsMultiPage : yes
    Set : InNewPages : yes
    Set : SVToDate : ##SVCurrentdate
    Form : LStatement Form
    Variables : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag
    Variable : GroupName, ShowForex, LedShowForex, ShowCreatedBy
    Variable : ShowRunBalance
    Variable : BankRecMode, ShowMarkedVouchers, AllowBackDatedRecon
    Variables : ExplodeNarrFlag
    Variables : IsDayBook, DSPWithOpening
    Variable : OnlyInVouchers, OnlyOutVouchers, OnlyDrVouchers, OnlyCrVouchers
    Variable : OnlyAccVouchers, OnlyInvVouchers
    Variable : IsMultiPage, InNewPages, ColumnarDayBook, ExtractMode, ShowQtyExtract
    Variable : Show ContactDetails, IsItemBatchReport, IsNegativeCash
    Variable : DBFilterVar
    ;;Start Fresh page for each balaning method
    Variable : BMInNewPage
    Set : BMInNewPage : No
    ;;Show Ledger's Parent
    Variable : ShowLedParent
    Variable : PrintSortingOnGrp
    Variable : VoucherTypeName
    Variables : LedStarting, LedNameStartingFrom, LedNameStartingTo ;;For alphabetical print range
    ; Set : DBFilterVar : No
    Set : IsLedBkup : No
    Set : IsGrpBkup : No

    Set : SV SortMethod : @@Default
    Set : Is Ledger Report : Yes
    Set : DSPWithOpening : Yes
    Set : DSPShowMonthly : No
    Set : DSPHasMultiLevel : No
    Set : DSPNotScaleable : Yes
    Set : DSPHasColumnTotal : No
    Set : BankRecMode : No
    Set : IsMultiPage : No
    Set : ColumnarDayBook : No
    Set : ExtractMode : No
    Set : ShowCreatedBy : No
    Set : IsItemBatchReport : No
    [Form : LStatement Form]
    Height : 100% Screen
    Width : 100% Screen
    BackGround : Light yellow
    Space Top : If $$InPrintMode Then 0.5 Else 0 inches
    Button : Change Period,Report Config,Print Button,Export Button,BottomToolBarBtn1, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11,refresh tdl
    BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
    Buttons : PrintButton, ExportButton, UploadButton, MailButton
    Parts : LStatement Tit,LStatementinfoPart
    ;Add : Bottom Part : DBCBDetailsvmv1
    Add : Button : Refresh TDL, ExplodeFlag

    [Part : LStatement Tit]
    Space Bottom : 0.2 inch
    Line : LStatementParty; Tit Line2
    ;Line : LStatement Tit Line,LStatementAdd,LStatementGSTNo,LStatementPeriod,LStatementParty; Tit Line2

    Add:Lines:At End:partyaddL03,partyaddL04

    [Line : LStatement Tit Line]
    Field : LStatement Tit Field

    [Field : LStatement Tit Field]
    Use : Name Field
    Set as : @@CmpMailName;$Name:Company:##SVCurrentCompany
    Align : Center
    Full Width : Yes
    Style : Large Bold
    Color:red
    [Line:LStatementAdd]
    Field:LStatementAddField
    [Field:LStatementAddField]
    Use : Name Field
    Set as : $$FullList:CompanyAddress:$Address
    Align : Center
    Full Width : Yes
    ;Border : Thin Box
    Style:TINY
    [Line:LStatementGSTNo]
    Field:LStatementGSTNoField
    [Field:LStatementGSTNoField]
    Use : Name Field
    Set as : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:mad:@CMPExcisePrimaryGodown+$$LocaleString:" PAN NO.:"+ $IncomeTaxNumber:Company:##SVCurrentCompany
    Align : Center
    Full Width : Yes
    Style:TINY
    [Line:LStatementPeriod]
    Field:LStatementPeriodField
    Space Top:0.5
    Border:thin bottom

    [Field:LStatementPeriodField]
    Use:name field
    Set as:$$LocaleString:"Ledger Statement For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate
    Align : Center
    Full Width : Yes
    Local:Style:defualt:Height:20
    Color:yellow
    Style:large bold
    [Line:LStatementParty]
    Field:LStatementPartyInfo,LStatementPartyField

    [Field:LStatementPartyInfo]
    Use :Name Field
    SetAs:"Party Name :"
    Width:14
    Style:small
    Background:DEEP COBALT BLUE
    Color:WHITE
    [Field:LStatementPartyField]
    Use :Name Field
    SetAs:##GroupName
    Width:201 mms
    ;Style:tiny
    ;Border: Thin Box
    Color : dark red
    Local:STYLE:DEFAULT:Height:14
    Full Width:Yes
    [Line:partyaddL03]
    Fields:partyaddL21,partyaddL22,partyaddL23
    border : thin top
    [Field:partyaddL21]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Address:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt : width : 14
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field :name Field : Set as : $STPartyFullAdd:Ledger:##GroupName
    Local : Field :name Field : width : 93.5
    Local : Field :name Field :Skip:yes
    Local : Field :name Field : line : 0
    Local : Field :name Field : style :SMALL
    Color : dark red
    Background:LIGHT BLUE
    [Field:partyaddL22]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"State:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field : Set as : $LedStateName:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 14
    [Field:partyaddL23]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Pin Code:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $pincode:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color:dark red
    Background:LIGHT BLUE
    Local : Field :name Field : style : normal
    Local : Field :name Field : width : 30




    [Line:partyaddL04]
    Fields:partyaddL35,partyaddL38,partyaddL39
    border : thin top

    [Field:partyaddL35]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 14
    Local : Field : name Field :Set as : $PARTYGSTIN:Ledger:##GroupName
    Local : Field : name Field :Skip:Yes
    Local : Field :name Field : width : 93.5
    Local : Field :name Field : style : normal bold
    Color : blue
    border : thin bottom


    [Field:partyaddL38]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"Mobile:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $LedgerMobile:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Local : Field :name Field : style : normal
    Color:BLUE
    border : thin bottom
    [Field:partyaddL39]
    Fields:Simple Prompt, Name Field
    Local:Field:simple prompt : info :$$localestring:"E-Mail:"
    Local : Field : simple prompt : color : WHITE
    Local : Field : simple prompt :Background:DEEP COBALT BLUE
    Local : Field : simple prompt : width : 8
    Local : Field : name Field :Set as : $Email:Ledger:##GroupName
    Local : Field :name Field :Skip:Yes
    Color :BLUE
    border : thin bottom
    Local : Field :name Field : style : normal
    Local : Field :name Field : Width:21.2

    [Part:LStatementinfoPart]
    Left Part:LStatementinfoPartLeft
    Right Part:LStatementinfoPartRight

    [Part:LStatementinfoPartLeft]
    Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft
    Repeat:LedTitleFieldLeft:VLedcollectionLeft
    Bottom Line:LedClbalfieldLeft
    Scroll:Vertical
    Float:no
    Common Border:Yes

    [Part:LStatementinfoPartRight]
    Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight
    Repeat:LedTitleFieldRight:VLedcollectionRight
    Bottom Line:LedClbalfieldRight
    Scroll:Vertical
    Float:no
    Common Border:Yes


    [Line:LedopebalfieldLeft]
    Right Fields:LedopebalLT, LedopebalL
    Border: Thin BOttom

    [Field:LedopebalLT]
    info :$$localestring:"Opening Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedopebalL then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE

    [Field:LedopebalL]
    Use : Amount Field
    Set as : If $$IsDr:$Openingbalance:Ledger:##GroupName then $Openingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16

    [Line:LedClbalfieldLeft]
    Right Fields:LedclbalLT, LedClbalL
    Border: Totals

    [Field:LedClbalLT]
    info :$$localestring:"Clsoing Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE

    [Field:LedClbalL]
    Use : Amount Field
    Set as : If $$IsDr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16

    [Line:LedTitleInfoLeft]
    Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt
    Local:Field:LVchDDate:Info:"Date"
    Local:Field:LVchDParticulars:Info:"Particulars"
    Local:Field:LVchDNum:Info:"Vch.Type"
    Local:Field:LVchDebitAmt:Info:"Debit Amount"
    Border:THIN TOP BOTTOM
    Local:Field:default:Background:DEEP COBALT BLUE
    Local:Field:default:color:white
    Local:Style:Default:Height:10

    [Line:LedopebalfieldRight]
    Right Fields:LedopebalRT, LedopebalR
    Border: Thin BOttom

    [Field:LedopebalRT ]
    info : $$localestring:"Opening Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedopebalR then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE

    [Field:LedopebalR]
    Use : Amount Field
    Set as : If $$IsCr:$Openingbalance:Ledger:##GroupName then $Openingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16

    [Line:LedClbalfieldRight]
    Right Fields:LedclbalRT, LedClbalR
    Border: Totals

    [Field:LedClbalRT]
    info :$$localestring:"Clsoing Balance:"
    color : WHITE
    width : 12
    Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
    Border : Thin Top
    Background: DEEP COBALT BLUE

    [Field:LedClbalR]
    Use : Amount Field
    Set as : If $$IsCr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""
    Skip : Yes
    style : normal
    Color : BLUE
    Format : "Symbol,DrCr"
    Width : 16


    [Line:LedTitleFieldLeft]
    Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt,DSPVCHMASTERIDNO
    Option : AlterVchOnEnter : Yes
    ;Explode : LedTitleFieldLeft : ##ExplodeFlag or $$KeyExplode
    [field:LVchDDate]
    Use:uni date field
    Set as : $Date
    Format : “full Date”
    Width :12
    Style : tiny
    Border : Thin bottom right

    [field:LVchDParticulars]
    Use : Name Field
    Set as:$$LocaleString:"To Bill No." + $VoucherNumber
    Width : 44
    Style : tiny
    Border : Thin bottom right
    color:geranium
    [field:LVchDNum]
    Use : Name Field
    Set as : $VoucherTypeName
    Width : 12
    Style : tiny
    Border : Thin bottom right

    [field:LVchDebitAmt]
    Use : Amount Field
    Set as : if not $$IsDr:$Amount then 0 else $Amount
    Width : 15
    color : blue
    Border : Thin bottom right
    Space Right:1
    Style:tiny

    [Line:LedTitleInfoRight]
    Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt
    Local:Field:LVchcDate:Info:"Date"
    Local:Field:LVchcParticulars:Info:"Particulars"
    Local:Field:LVchcNum:Info:"Ch.No."
    Local:Field:LVchCreditAmt:Info:"Credit Amount"
    Border:THIN TOP BOTTOM
    Local:Field:default:Background:DEEP COBALT BLUE
    Local:Field:default:color:white
    Local:Style:Default:Height:10

    [Line:LedTitleFieldRight]
    Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt,DSPVCHMASTERIDNO
    Option : AlterVchOnEnter : Yes

    [field:LVchCDate]
    Use:uni date field
    Set as : $Date
    Format : "DD/MMM/YYYY";“Short Date”
    Width : 12
    Style : tiny
    Border : Thin bottom right

    [field:LVchCParticulars]
    Use : Name Field

    Set as:$$localestring:"By " + $AlllEDGERENTRIES[2].LedgerName

    Width : 44
    Style : tiny
    Border : Thin bottom right
    color:geranium
    [field:LVchCNum]
    Use : Name Field

    Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
    Width : 12
    Style : tiny
    Border : Thin bottom right
    [field:LVchCreditAmt]
    Use : Amount Field
    ;Set as:$amount
    Set as : if $$IsDr:$Amount then 0 else $Amount
    Width : 15
    Style : tiny
    color : Red
    Border : Thin bottom right
    Space Right:1
    [Collection : VLedcollectionLeft]
    Type : Vouchers: Ledger
    Child of :$$BaseOwner:#GroupName
    Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
    Sort : @@InCreasing: -$Date
    Filter:FilterDspVchDrAmt
    [Collection : VLedcollectionRight]
    Type : Vouchers: Ledger
    Child of :$$BaseOwner:#GroupName
    Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
    Sort : @@InCreasing: -$Date
    Filter:FilterDspVchCrAmt

    [System:formula]
    FilterDspVchDrAmt:$$IsDr:$Amount
    FilterDspVchCrAmt:not $$IsDr:$Amount
    [#Menu :Gate way of Tally]
    Add :Button :Refresh TDL

    [Button :Refresh TDL]
    Title :"Refresh TDL"
    Key :Alt+X
    Action :Refresh TDL

    [System :Form keys]
    Key :Refresh TDL

    [System :Menu Keys]
    Key :Refresh TDL

    [#Form :Default]
    Key :Refresh TDL

    [#Menu :Default]
    Key :Refresh TDL





    Please Solve this problem sir
     


  9. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member



  10. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    bikesh agrawal ji, thodisi mehnat khud kar liya karo
     


  11. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Dear Pankaj.

    Try to implement the following:
    a. In case of multiple Dr/Cr the Amount should be picked up.
    b. In case of Bank / Cash the Debit/Credit should be changed to "receipt / payment"
    c. Introduce explode part for Bill details and reference.
    d. Eliminate blank spaces in between. You need to jack up your collection.

    ...doing above and you will have a world class professional TDL.............. keep it up
     


  12. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Do not make a BLAND statement, when it is already working for the original developer.

    You should put up a screenshot, explain step until you get that error and also show which version you are using.

    Always respect the developer, if they have published means it is working on their system. So you should give details to enable the developer to understand why it is not working on your systen.
     


  13. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    Sorry Amit sir
     


  14. Amit Kamdar

    Amit Kamdar Administrator Staff Member



    Sorry for what ????
     


  15. KRISBALA

    KRISBALA New Member


    How it will be came sir, but in my tally not show opening, closing, total balance and purchase invoice no.
     


  16. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    Respective Amit sir,
    upload_2019-3-15_16-45-15.png

    no issue in bank account
     


  17. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    d. Eliminate blank spaces in between. You need to jack up your collection.
    (issue pending)
     


  18. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Remove your SORT and put this...........

    Sort : @@Default : -$TBSort,$IsForexLine, $Date
     


  19. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Because he made the necessary changes............ you need to make the changes too............. ask him for tips.........
     


  20. deep kumar

    deep kumar New Member


     


  21. deep kumar

    deep kumar New Member


    sorry amit sir
     



  22. please put tdl file for this :):)
     



  23. this mine modification
     

    Attached Files:



  24. PANKAJ BHONDLE

    PANKAJ BHONDLE Active Member


    keep it up, bikesh agrawal
     


  25. KRISBALA

    KRISBALA New Member


    i modified some bank details but how to edit opening, closing and totalling pls help me sir, give some tips

    Thank You
     

    Attached Files:

    • demo.png
      demo.png
      File size:
      124.4 KB
      Views:
      102


Share This Page