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

IN TALLY ERP 9 IT IS WORKING PERFECT ADDED THE REFERENCE NUMBER BUT IN THE PRIME IT IS NOT WORKING PLS HELP TO RUN THIS IN PRIME


[#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 EndartyaddL03,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:TaxUnitCMPExcisePrimaryGodown+$$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
BackgroundEEP COBALT BLUE
Color:WHITE
[Field:LStatementPartyField]
Use :Name Field
SetAs:##LedgerName
Width:201 mms
;Style:tiny
;Border: Thin Box
Color : 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:##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 : 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:##LedgerName
Local : Field :name Field :Skip:Yes
Color: 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:##LedgerName
Local : Field :name Field :Skip:Yes
Color: 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:##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


[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:##LedgerName
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:##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: 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 bold
Color : red
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 Bold
Color : ORANGE
Format : "Symbol,DrCr"
Width : 16
Align:Right

[Line:LedTitleInfoLeft]
Field:LVchDDate,LVchDParticulars,LVchDReference,LVchDChqNum,LVchDType,LVchDebitAmt
Local:Field:LVchDDate:Info:"Date"
Local:Field:LVchDParticulars:Info:"Particulars"
Local:Field:LVchDReference:Info:"Reference"
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:BackgroundEEP COBALT BLUE
Local:Field:default:color:white
Local:Styleefault:Height:10


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

[Field:LedopebalRT ]
info : $$localestring:"Opening Balance :"
color : RED
width : 50
Inactive: If $$IsEmpty:#LedopebalR then Yes Else No
Background: YELLOW
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 bold
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 bold
Color : red
Format : "Symbol,DrCr"
Width : 16
Align:Right

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

[Field:LedClbalRT]
info :$$localestring:"Closing Balance :"
color : BLUE
width : 50
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 BOLD
Color : ORANGE
Format : "Symbol,DrCr"
Width : 16


[Line:LedTitleFieldLeft]
Field:LVchDDate,LVchDParticulars,LVchDReference,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
Width : 37
Style : tiny
Border : Thin right
color:geranium

[Field:LVchDReference]
Set As : $Reference ;+ " // " + $$String
Width : 10
color : uk1
Align : center
Style : tiny
border : thin right

[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 $Reference +
else If $$Issales:$VoucherTypeName then $Reference +
Else $AllLedgerEntries.BankAllocations.InstrumentNumbers
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,LVchCReference,LVchCChqNum,LVchCType,LVchCreditAmt
Local:Field:LVchcDate:Info:"Date"
Local:Field:LVchcParticulars:Info:"Particulars"
Local:Field:LVchcReference:Info:"Reference"
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:BackgroundEEP COBALT BLUE
Local:Field:default:color:white
Local:Styleefault:Height:10

[Line:LedTitleFieldRight]
Field:LVchCDate,LVchCParticulars,LVchCReference,LVchDChqNum,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
Width : 39
Style : tiny
Border : Thin right
color:geranium

[Field:LVchCReference]
Set As : $Reference ;+ " // " + $$String
Width : 10
color : uk1
Align : center
Style : tiny
border : thin right

[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 : 16
Full Width : Yes
Style : tiny
color : BLUE
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 : AllLedgerEntries.LedgerName, AllLedgerEntries.Amount
Fetch : AllLedgerEntries.BankAllocations.*
Fetch : Date, VoucherTypeName, VoucherNumber,Narration,Reference


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 efault]
Key :Refresh TDL
[#Menu efault]
Key :Refresh TDL

 

sir i tried but not been able to understand in prime

 

sir i removed the color also changed the style but also error i wl cheking but not finding solution see the error

 

Amit Sir thank u for ur valuable and effective and easy to adopt guidance,i succeeded to run the tdl and its working fine

SHARING SCREEN SHOT OF PURCHASE AND SALES LEDGER