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

OK Thank you Sir.

 

Please help me.

 

IN TALLY 6.5.4 T-SHAPE LEDGER STATEMENT NOT WORKING
AND SHOWING ERROR.

WHAT CHANGES TO BE REQUIRED TO LOAD THIS TDL

 

it works on tally latest and licensed version .....

 

Dear Sir

I have latest tally erp 9 with valid license.
TTS Expiry will be 31-3-2020 and this is gold module.

 

m

-----------maybe gold be the reason we have normal ....please chk in educational version

 

THIS CODE IN NOT WORK

 

MAIL ID : gabat00000@gmail.com
9726755251

 

Yes. it does not work for me also on latest Gold version 6.5.4 ...but works on 6.5.3 Gold version. if anyone can help here , please do. [ Licensed version]

 

some button delete :like :Button : Change Period,Report Config,Print Button,Export Button,BottomToolBarBtn1, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11,refresh tdl

 

Code:

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



[Collection: CMPLedCOLL1]
Title : "List of Ledger"
Type : Ledger;: Company
;Childof: ##SVCurrentCompany
Belongs To : Yes
Variable : LedgerName
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 : LedgerName
Modifies : LedgerName
Table : cmpledcoll1
Show Table : Always


[Report : Leder Statement Report]
Variable : SVFromDate, SVToDate
Set : SVfromDate:$$FinYearBeg:##StartDate:$StartingFrom:Company:##SVCurrentCompany
Set : LedgerName : ##LedgerName
Variable : IsMultiPage, InNewPages
Set : IsMultiPage : yes
Set : InNewPages : yes
Set : SVToDate : ##SVCurrentdate
Form : LStatement Form
Variables : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag
Variable : LedgerName, 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 -$TBSort,$IsForexLine, $Date
Set : Is Ledger Report : Yes
Set : DSPWithOpening : Yes
Set : DSPShowMonthly : No
Set : DSPHasMultiLevel : No
Set : DSPNotScaleable : NO
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,ChangeLedger, Report Config,Print Button,Export Button,BottomToolBarBtn1, refresh

tdl,BottomToolBarBtn2,BottomToolBarBtn3,BottomToolBarBtn4,BottomToolBarBtn5,BottomToolBarBtn6,BottomToolBarBtn7,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11
BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton
Buttons : PrintButton, ExportButton, UploadButton, MailButton
Parts : JKT1 Invoice Company Details,LStatement Tit,LStatementinfoPart
;Add : Bottom Part : DBCBDetailsvmv1
    Add : Button      : Refresh TDL, ExplodeFlag

[Part:JKT1 Invoice Company Details]
Line: JKT1 Company Name, JKT1 Company Address
Border: Thin Box


[Line: JKT1 Company Name]
Field: Name Field
Local: Field: Name Field: Set as: @@CmpMailName
Local: Field: Name Field: Style:Large Bold
Local: Field: Name Field: Align : Center
Local: Field: Name Field: Full Width: Yes
Local: Field: Name Field: Color : Blue
Space Top: 0.05

[Line:JKT1 Company Address]
Field: Name Field
Local: Field: Name Field: Set as: $$FullList:CompanyAddress:$Address
Local: Field: Name Field: Full Width: Yes
Local: Field: Name Field: Style:O9
Local: Field: Name Field: Align : Center
Local: Field: Name Field: Color : Blue
Local: Field: Name Field: Line:0

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

Add:Lines:At End:partyaddL03,partyaddL04,LStatementPeriod

[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:Black
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:##LedgerName
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:##LedgerName
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:##LedgerName
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:##LedgerName
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:##LedgerName
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:##LedgerName
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:##LedgerName
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]
Right Part:LStatementinfoPartRight
Left Part:LStatementinfoPartLeft

[Part:LStatementinfoPartLeft]
Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft
Repeat:LedTitleFieldLeft:VLedcollectionLeft
Bottom Line:LedClbalfieldLefttot, LedClbalfieldLeft
Bottom Line:LedClbalfieldLefttot1, ;LedClbalfieldLeft1
Scroll:Vertical
Float:no
Common Border:Yes
Total:LVchDebitAmt

[Part:LStatementinfoPartRight]
Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight
Repeat:LedTitleFieldRight:VLedcollectionRight
Bottom Line:LedClbalfieldRighttot, LedClbalfieldRight
Bottom Line:LedClbalfieldRighttot1, ;LedClbalfieldRight1
Scroll:Vertical
Float:no
Common Border:Yes
Total:LVchCreditAmt

[Line:LedopebalfieldLeft]
;Fields:LedopebalLT,LedopebalL

Fields:LedopebalLT
Right Fields : LedopebalL
Border: Thin BOttom

[Field:LedopebalLT]
info :$$localestring:"Opening Balance :"
color : White
width : 50
Inactive: If $$IsEmpty:#LedopebalL then Yes Else No
Background: Dark Green
Align:Right

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


[Line:LedClbalfieldLefttot]
Fields:LedclbalLTtot
Right Fields: LedClbalLtot
Border: Thin Top

[Field:LedClbalLTtot]
info :$$localestring:"Debit Total :"
color : Blue
width : 50
Background:
Align: Right
Widespaced: Yes

[Field:LedClbalLtot]
Use : Amount Field
Set as : $$Total:LVchDebitAmt + #LedopebalL
Skip : Yes
style : normal
Color : BLUE
Format : "Symbol,DrCr"
Width : 16
Align:Right

[Line:LedClbalfieldLefttot1]
Fields:LedclbalLTtot1
Right Fields: LedClbalLtot1
Border: Totals

[Field:LedClbalLTtot1]
info : $$localestring:"Total :"
color : Blue
Width : 50
Background:
Widespaced: Yes
Align: Right

[Field:LedClbalLtot1]
Use : Amount Field
Set as : #LedClbalLtot + #LedClbalL
Skip : Yes
style : normal
Color : BLUE
Format : "Symbol,DrCr"
Width : 16
Align: Right


[Line:LedClbalfieldLeft]
Fields:LedclbalLT
Right Fields: LedClbalL



[Field:LedClbalLT]
info :$$localestring:"Closing Balance :"
color : Blue
width : 50
Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
Background:
Widespaced: Yes
Align: Right


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

[Line:LedTitleInfoLeft]
Field:LVchDDate,LVchDParticulars,LVchDChqNum,LVchDType,LVchDebitAmt
Local:Field:LVchDDate:Info:"Date"
Local:Field:LVchDParticulars:Info:"Particulars"
Local:Field:LVchDChqNum:Info:"Ch. No."
Local:Field:LVchDType: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]
Fields:LedopebalRT
Right Fields: LedopebalR
Border: Thin BOttom

[Field:LedopebalRT ]
info : $$localestring:"Opening Balance :"
color : WHITE
width : 50
Inactive: If $$IsEmpty:#LedopebalR then Yes Else No
Background: Dark Green
Align: Right
Widespaced: Yes

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

[Line:LedClbalfieldRighttot]
Fields:LedclbalRTtot
Right Fields: LedClbalRtot
Border: Thin Top

[Field:LedClbalRTtot]
info :$$localestring:"Credit Total :"
color : Blue
width : 50
Widespaced: Yes
Align: Right

[Field:LedClbalRtot]
Use : Amount Field
Set as : $$Total:LVchCreditAmt+#LedOpeBalR
Skip : Yes
style : normal
Color : BLUE
Format : "Symbol,DrCr"
Width : 16
Align:Right

[Line:LedClbalfieldRighttot1]
Fields:LedclbalRTtot1
Right Fields: LedClbalRtot1
Border: Totals

[Field:LedClbalRTtot1]
info :$$localestring:"Total :"
color : Blue
width : 50
Widespaced: Yes
Align: Right

[Field:LedClbalRtot1]
Use : Amount Field
Set as : #LedClbalRtot + #LedClbalR
Skip : Yes
style : normal
Color : BLUE
Format : "Symbol,DrCr"
Width : 16
Align:Right

[Line:LedClbalfieldRight]
Fields:LedclbalRT
Right Fields:LedClbalR

[Field:LedClbalRT]
info :$$localestring:"Closing Balance :"
color : WHITE
width : 54
Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
Widespaced: Yes
Align: Right

[Field:LedClbalR]
Use : Amount Field
Set as     : $ClosingBalance:Ledger:##LedgerName
Set as : If not $$IsDr:$ClosingBalance:Ledger:##LedgerName then 0 else $ClosingBalance:Ledger:##LedgerName
Skip : Yes
style : normal
Color : BLUE
Format : "Symbol,DrCr"
Width : 16


[Line:LedTitleFieldLeft]
Field:LVchDDate,LVchDParticulars,LVchDChqNum, LVchDType,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 right
Align : Left

[field:LVchDParticulars]
Use : Name Field
Set as:$$LocaleString:$AllLedgerEntries[2].LedgerName + $Reference
Width : 37
Style : tiny
Border : Thin right
color:geranium

[field:LVchDChqNum]
Use : Name Field
Set as : If $$IsPayment:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER +
else If $$IsContra:$VoucherTypeName then     $AllLedgerEntries[-2].BankAllocations.INSTRUMENTNUMBER +
else If $$IsReceipt:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.InstrumentNumber +
else If $$IsPurchase:$VoucherTypeName then $Vouchernumber +
else If $$Issales:$VoucherTypeName then $Vouchernumber +
Else $AllLedgerEntries.BankAllocations.InstrumentNumbers + $VoucherNumber
Width : 8
Style : tiny
Border : Thin right

[field:LVchDType]
Use    : Name Field
        Set as : $VoucherTypeName
        Width  : 10
        Style  : tiny
                Border : Thin Right

[field:LVchDebitAmt]
Use : Amount Field
Set as : $$AsDrAmt:$TotLedDrAmt ;if not $$IsDr:$Amount then 0 else $Amount
;Width : 16
Full Width : Yes
color : blue
Border : Thin right
Space Right:1
Style:tiny

[Line:LedTitleInfoRight]
Field:LVchCDate,LVchCParticulars,LVchCChqNum,LVchCType,LVchCreditAmt
Local:Field:LVchcDate:Info:"Date"
Local:Field:LVchcParticulars:Info:"Particulars"
Local:Field:LVchCChqNum:Info:"Ch. No"
Local:Field:LVchCType:Info:"Vch. Type"
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,LVchCChqNum,LVchCType,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 Left Right
Align : Left

[field:LVchCParticulars]
Use : Name Field
Set as:$$LocaleString:$AllLedgerEntries[1].LedgerName +"-" + $Reference
Width : 39
Style : tiny
Border : Thin right
color:geranium

[field:LVchCChqNum]
Use : Name Field
Set as : If $$IsPayment:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER +
else If $$IsContra:$VoucherTypeName then     $AllLedgerEntries[-2].BankAllocations.INSTRUMENTNUMBER +
else If $$IsReceipt:$VoucherTypeName then $AllLedgerEntries[-1].BankAllocations.InstrumentNumber +
else If $$IsPurchase:$VoucherTypeName then $Reference +
Else $AllLedgerEntries.BankAllocations.InstrumentNumbers + $VoucherNumber
Width : 8
Style : tiny
Border : Thin right


[field:LVchCType]
Use : Name Field
Set as : $VoucherTypeName
Width : 10
Style : tiny
Border : Thin right

[field:LVchCreditAmt]
Use : Amount Field
;Set as:$amount
Set as : $$AsCrAmt:$TotLedCrAmt ;if $$IsDr:$Amount then 0 else $Amount
Width : 14
Full Width : Yes
Style : tiny
color : Red
Border : Thin right
Space Right:1

[Collection : VLedcollectionLeft]
    Use                : Total Ledger Vouchers
    Aggr Compute    : VchDrTotal    : Sum    : $$OrigVchLedDrTotal:#LedgerName
    Filter          : FilterDspVchDrAmt
 
[Collection : VLedcollectionRight]
    Use                : Total Ledger Vouchers
    Aggr Compute    : VchCrTotal    : Sum    : $$OrigVchLedCrTotal:#LedgerName
    Filter          : FilterDspVchCrAmt
 
[System:formula]
FilterDspVchDrAmt: NOT $$IsEmpty:$TotLedDrAmt AND (NOT @@ShowForex OR NOT $$IsBaseCurrency:$TotLedDrAmt)
FilterDspVchCrAmt: NOT $$IsEmpty:$TotLedCrAmt AND (NOT @@ShowForex OR NOT $$IsBaseCurrency:$TotLedCrAmt)

[Collection: Total Ledger Vouchers]
    Type        : Vouchers  : Ledger
    Child of    : ##pvsLedgerName
    ParmVAR        : pvsLedgerName    :  String    : #LedgerName
    Sort : @@InCreasing:  -$TBSort,$IsForexLine, $Date
    Fetch        : Date, VoucherTypeName, VoucherNumber, Narration
    Fetch        : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
    Fetch        : AllLedgerEntries.BankAllocations.*
  
    Compute        : TotalLedDrVchAmt            : If NOT ##InNewPages Then $$OrigVchLedDrTotal:#LedgerName else $$OrigVchLedDrTotal:#LedgerName
    Compute        : TotalLedCrVchAmt            : If NOT ##InNewPages Then $$OrigVchLedCrTotal:#LedgerName else $$OrigVchLedCrTotal:#LedgerName
    Compute        : TotLedDrAmt                : $$OrigVchLedDrTotal:#LedgerName
    Compute        : TotLedCrAmt                : $$OrigVchLedCrTotal:#LedgerName

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

 

Good work

 

nice dear

 

Thanks. solved by removing above lines.

 

DR AND CR TOTAL AMOUNT IS NOT SHOWING AND PARTY DR CR BALANCE IS SHOWING

 

Yes till not showing and some error in code's.....

Some Suggestion : Developer put condition on it that each and every version of TALLY ERP9 x.xxx with same coding if version mismatch simply popup or dilogue box appear and says version conflict and terminate code. OR expert developer surely writes codes with each version function with sequence passes in loop and then executes it......

hance due to version confiict may vary and try to changed and execute the code may very cumbersome works . so if developer writes codes initialy Version Definde in its codes that works perfectly.

 

hello sir
can u please share your code with me. if yes then please mail me to= silpadravid@gmail.com

 

how can i modify this to print ledger group wise or select party wise ,receivable ,payable

 

how to fetch reference no and narration in report

 

Great work ! thanks for share

 

Hi,

Recently I have updated tally ERP to Tally prime and now I am getting error memory access violation. I tried to remove all buttons after reading the threads of this post but still no luck. Appreciate it if anyone can help me with this. In tally ERP it was working fine.

 

[#Menu:Gateway Of Tally]
Add:Key Item:Ledger Statement (T-Shape):L:displaycollection:cmpledcoll
[Collection: CMPLedCOLL]
Title : "List of Ledger"
Type : Ledger
;Childof: ##SVCurrentCompany
Belongs To : Yes
Variable : GroupName
Report : Leder Statement Report
Trigger : Ledger Statement Trigger Rep
Include : Group:$$GroupBank
Include : Group:$$GroupCash
[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:##SVCurrentdate
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 -$TBSort,$IsForexLine, $Date
Set : Is Ledger Report : Yes
Set : DSPWithOpening : Yes
Set : DSPShowMonthly : No
Set : DSPHasMultiLevel : No
Set : DSPNotScaleable : Yes
Set : DSPHasColumnTotal : Yes
Set : BankRecMode : Yes
Set : IsMultiPage : Yes
Set : ColumnarDayBook : No
Set : ExtractMode : Yes
Set : ShowCreatedBy : No
Set : IsItemBatchReport : No
[Form : LStatement Form]
Height : 100% Screen
Width : 100% Screen
;BackGround : Pink
Space Top : If $$InPrintMode Then 0.5 Else 0 inches
Parts : LStatement Tit,LStatementinfoPart
;Add : Bottom Part : DBCBDetailsvmv1
Add : Button : ExplodeFlag
[Part : LStatement Tit]
Space Bottom : 0.5 inch
Line : LStatementPeriod,LStatementParty
[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:Black
[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@CMPExcisePrimaryGodown+$$LocaleString:" PAN NO.:"+ $IncomeTaxNumber:Company:##SVCurrentCompany
Align : Center
Full Width : Yes
Style:TINY
[Line:LStatementPeriod]
Field:LStatementPeriodField
[Field:LStatementPeriodField]
Use:name field
Set as:$$LocaleString:"Date:- " + $$String:##SVFromDate
Align : Center
Full Width : Yes
Border: Thin Bottom
Local:Style:defualt:Height:20
Style:large bold
[Line:LStatementParty]
Field:LStatementPartyInfo,LStatementPartyField
[Field:LStatementPartyInfo]
Use :Name Field
SetAs:"Ledger :"
Width:90
Style:Large
Align : Center
Color:Black
[Field:LStatementPartyField]
Use :Name Field
SetAs:##GroupName
Full Width : Yes
;Style:tiny
;Border: Thin Box
Color : dark Black
Local:STYLEEFAULT:Height:14
Full Width:Yes
[LineartyaddL03]
FieldsartyaddL21,partyaddL22,partyaddL23
border : thin top
[FieldartyaddL21]
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:Grey
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 Grey
[FieldartyaddL22]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"State:"
;Local : Field : simple prompt : color : WHITE
;Local : Field : simple prompt :Background:Grey
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 Grey
Local : Field :name Field : style : normal
Local : Field :name Field : width : 14
[FieldartyaddL23]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"Pin Code:"
;Local : Field : simple prompt : color : WHITE
;Local : Field : simple prompt :Background:Grey
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 Grey
Local : Field :name Field : style : normal
Local : Field :name Field : width : 30
[LineartyaddL04]
FieldsartyaddL35,partyaddL38,partyaddL39
border : thin top
[FieldartyaddL35]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"
;Local : Field : simple prompt : color : WHITE
;Local : Field : simple prompt :Background:Grey
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:Grey
border : thin bottom
[FieldartyaddL38]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"Mobile:"
;Local : Field : simple prompt : color : WHITE
;Local : Field : simple prompt :Background:Grey
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:Grey
border : thin bottom
[FieldartyaddL39]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"E-Mail:"
;Local : Field : simple prompt : color : WHITE
;Local : Field : simple prompt :Background:Grey
Local : Field : simple prompt : width : 8
Local : Field : name Field :Set as : $Email:Ledger:##GroupName
Local : Field :name Field :Skip:Yes
Color:Grey
border : thin bottom
Local : Field :name Field : style : normal
Local : Field :name Field : Width:21.2
[Part:LStatementinfoPart]
Right Part:LStatementinfoPartLeft
Left Part:LStatementinfoPartRight
[Part:LStatementinfoPartLeft]
Line:LedOpeBalfieldRight,LedTitleInfoLeft,LedTitleFieldLeft,LedTotalLeft,LedClbalfieldRight
Repeat:LedTitleFieldLeft:VLedcollectionLeft,LedcollectionLeftBank
Scroll:Vertical
Float:No
Common Border:Yes
Total:LVchDebitAmt
Line:LedTotalLeft
[Part:LStatementinfoPartRight]
Line:LedOpeBalfieldLeft,LedTitleInfoRight,LedTitleFieldRight,LedTotalRight,LVchTitleR
Repeat:LedTitleFieldRight:VLedcollectionRight,VLedcollectionRightBank
Scroll:Vertical
Float:no
Common Border:Yes
Total:LVchCreditAmt
Line:LedTotalRight
[Line:LedOpeBalfieldLeft]
Fields:LedOpeBalLT, LedOpeBalL
Border: Thin Bottom
Space Bottom:.5
Aling:Left
[Field:LedOpeBalLDate]
Use : Uni date field
Set as : $OpeningDate
Format : "DD/MM/YYYY";“Short Date”
color : Black
width : 30
[Field:LedOpeBalLT]
info :$$localestring:"Opening Balance :-"
Style : Large
color : Black
width : 30
Aling:Left
Inactive: If $$IsEmpty:#LedOpeBalL then Yes Else No
[Field:LedOpeBalL]
Use : Amount Field
Set as : If $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
Skip : Yes
style : Large Bold
Color : Blue
Width : 20
Align: Left
[Line:LedTitleInfoLeft]
Field:LVchDParticulars,LVchDebitAmt
Local:Field:LVchDParticulars:Info:"Particulars"
Local:Field:LVchDParticulars:Style:Large Bold
Local:Field:LVchDNum:Info:"Vch.Type"
Local:Field:LVchDebitAmt:Info:"Debit"
Local:Field:LVchDebitAmt:Style:Large Bold
Border:THIN TOP BOTTOM
;Local:Field:default:Background:Grey
;Local:Field:default:color:Black
Local:Styleefault:Height:12
[Line:LedTitleFieldLeft]
Field:LVchDParticulars,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:if $$IsEmpty:$Narration then $$LocaleString:$AlllEDGERENTRIES.LedgerName else $$LocaleString:$AlllEDGERENTRIES.LedgerName + $$NewLine +"(" +$Narration+")"
Width : 34
Style : Medium
;Border : Thin bottom right
;Border:THIN Bottom LEFT
Border : Thin Box
color:Black
[field:LVChChqNum]
Use : Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber
Width : 10
Style : tiny
Border : Thin bottom right
[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 Box
;Border : Thin bottom right
Space Right:1
Style:Normal
[Line:LedTotalLeft]
Fields:LedTotalLT, LedTotalL
Border: Totals
[Field:LedTotalLT]
info :$$localestring:"Debit Total:"
color : Black
width : 35
Border : Thin Top
Align: Left
[Field:LedTotalL]
Use : Amount Field
Set as : $$Total:LVchDebitAmt
Skip : Yes
Color : Blue
Width : 30
Align: Left
Border : Thin right
[Line:LedClbalfieldLeft]
Fields:LedClbalLT, LedClbalL
Border: Totals
[Field:LedClbalLT]
info :$$localestring:"Closing Balance :"
Style : Large Bold
color : Black
width : 25
Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
Border : Thin Top
Align: Right
[Field:LedClbalL]
Use : Amount Field
Set as : Ifnot$$IsDr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""
Skip : Yes
style : normal
Color : Grey
Width : 16
Align: Right
Border : Thin right
[Line:LedOpeBalfieldRight]
Fields: LedOpeBalR
Border: Thin Bottom
Space Bottom: .5
[Field:LedOpeBalRDate]
Use : Uni date field
Set as : $OpeningDate
Format : "DD/MMM/YYYY";“Short Date”
color : Black
width : 12
[Field:LedOpeBalRT]
info :$$localestring:"Opening Balance:"
color : Black
width : 30
Inactive: If $$IsEmpty:#LedOpeBalR then Yes Else No
[Field:LedOpeBalR]
Use : Amount Field
Set as : If not $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
Skip : Yes
style : Large Bold
Color : Grey
Width : 20
Align: Left
[Line:LedTitleInfoRight]
Field:LVchCParticulars,LVchCreditAmt
Local:Field:LVchcParticulars:Info:"Particulars"
Local:Field:LVchcParticulars:Style:Large Bold
Local:Field:LVchcNum:Info:"Vch.Type"
Local:Field:LVchCreditAmt:Info:"Credit"
Local:Field:LVchCreditAmt:Style:Large Bold
Border:THIN TOP BOTTOM
;Local:Field:default:Background:Grey
;Local:Field:default:color:Black
Local:Styleefault:Height:12
[Line:LedTitleFieldRight]
Field:LVchCParticulars,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:if $$IsEmpty:$Narration then $$LocaleString:$AlllEDGERENTRIES.LedgerName else $$LocaleString:$AlllEDGERENTRIES.LedgerName + $$NewLine + " (" +$Narration+")"
Width : 35
Style : Medium
;Border : Thin bottom right
;Border:THIN Bottom LEFT
Border : Thin Box
color:Black
[field:LVchCNum]
Use : Name Field
Set as : $VoucherTypeName
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 : Normal
color : Blue
;Border : Thin bottom right
Border : Thin Box
Space Right:1
[Line:LedTotalRight]
Fields:LedTotalRT, LedTotalR
Border: Totals
[Field:LedTotalRT]
info :$$localestring:"Credit Total:"
color : Black
width : 35
Border : Thin Top
Align: Left
[Field:LedTotalR]
Use : Amount Field
Set as : $$Total:LVchCreditAmt
Skip : Yes
Color : BLUE
Width : 15
[Line:LedClbalfieldRight]
Fields:LedclbalRT, LedClbalR
Border: Totals
[Field:LedClbalRT]
info :$$localestring:"Closing Balance:-"
color : Black
width : 34
Inactive: If $$IsEmpty:#LedClbalR then Yes Else No
Border : Thin Top
[Field:LedClbalR]
Use : Amount Field
Set as : If $$IsDr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""
Skip : Yes
Style : Large Bold
Color : BLUE
Width : 16
Aling : Right
Border : Thin right
[Collection : VLedcollectionLeft]
Type : Vouchers: Ledger
Child of :$$BaseOwner:#GroupName
Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
Sort : @@InCreasing: -$TBSort,$IsForexLine, $Date
Filter:FilterDspVchDrAmt
[Collection : VLedcollectionRight]
Type : Vouchers: Ledger
Child of :$$BaseOwner:#GroupName
Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
Sort : @@InCreasing: -$TBSort,$IsForexLine, $Date
Filter:FilterDspVchCrAmt
[Collection : VLedcollectionLeftBank]
Type : Vouchers: Ledger
Set : GroupName : $$GroupBank
Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
Sort : @@InCreasing: -$TBSort,$IsForexLine, $Date
Filter:FilterDspVchDrAmt
[Collection : VLedcollectionRightBank]
Type : Vouchers: Ledger
Set : GroupName : $$GroupBank
Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration
Sort : @@InCreasing: -$TBSort,$IsForexLine, $Date
Filter:FilterDspVchCrAmt
[System:formula]
FilterDspVchDrAmt:$$IsDr:$Amount
FilterDspVchCrAmt:not $$IsDr:$Amount
[Line:LVchTitleR]
Add:Left Field:SubCrAmt
Local:Field:SubCrAmt:Border:Thin Bottom
Local:Field:Amount Field:Border:Thin Bottom
[Field:SubCrAmt]
Field:Simple Prompt, AMOUNT Field
Local:Field:Simple Prompt:Set as:"Grand Total :-"
Local:Field:AMOUNT FIELD:Set as:$$Total:LVchCreditAmt + $OpeningBalance:Ledger:##GroupName
;Local:Field:AMOUNT FIELD:Background:GREY
Local:Field:AMOUNT FIELD:Skip:Yes
[Line:LVchTitleL]
Add:Left Field:SubDrAmt
Local:Field:SubDrAmt:Border:Thin Bottom
Local:Field:Amount Field:Border:Thin Bottom
[Field:SubDrAmt]
Field:Simple Prompt, Amount Field
Local:Field:Simple Prompt:Set as:"Grand Total:- "
Local:Field:AMOUNT FIELD:Set as:$$Total:LVchDebitAmt + $ClosingBalance:Ledger:##GroupName
;Local:Field:AMOUNT FIELD:Background:Black
Local:Field:AMOUNT FIELD:Skip:Yes