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

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

 

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

 

Sir your problem solved

 

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

 

Sir not working

 

sir what is the working key for it?

 

it shows error memory violation

 

[#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 EndartyaddL03,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@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
BackgroundEEP COBALT BLUE
Color:WHITE
[Field:LStatementPartyField]
Use :Name Field
SetAs:##GroupName
Width:201 mms
;Style:tiny
;Border: Thin Box
Color : dark red
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 :BackgroundEEP 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
[FieldartyaddL22]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"State:"
Local : Field : simple prompt : color : WHITE
Local : Field : simple prompt :BackgroundEEP 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
[FieldartyaddL23]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"Pin Code:"
Local : Field : simple prompt : color : WHITE
Local : Field : simple prompt :BackgroundEEP 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




[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 :BackgroundEEP 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


[FieldartyaddL38]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"Mobile:"
Local : Field : simple prompt : color : WHITE
Local : Field : simple prompt :BackgroundEEP 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
[FieldartyaddL39]
Fields:Simple Prompt, Name Field
Local:Field:simple prompt : info :$$localestring:"E-Mail:"
Local : Field : simple prompt : color : WHITE
Local : Field : simple prompt :BackgroundEEP 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:BackgroundEEP COBALT BLUE
Local:Field:default:color:white
Local:Styleefault: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:BackgroundEEP COBALT BLUE
Local:Field:default:color:white
Local:Styleefault: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 efault]
Key :Refresh TDL

[#Menu efault]
Key :Refresh TDL





Please Solve this problem sir

 

bikesh agrawal ji, thodisi mehnat khud kar liya karo

 

Sorry Amit sir

 

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

 

Respective Amit sir,


no issue in bank account

 

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

 

sorry amit sir

 

please put tdl file for this

 

this mine modification

 

keep it up, bikesh agrawal

 

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

Thank You