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

can anyone guide for changing date to == dd-mm-yyy format

 

Pls any guide me how to add Voucher totalling, opening, and closing balance

 

[Line:LVchTitle]
Add:Right Field:SubDrAmt
Add:Right Field:SubCrAmt
Local:Field:Amount Field:Border:THIN BOX

[Field:SubDrAmt]
Field:Simple Prompt, Amount Field
Local:Field:Simple Prompt:Set as:"Debit SubTotal "
Local:Field:AMOUNT FIELD:Set as:$$Total:LVchDebitAmt
;Local:Field:AMOUNT FIELD:Background:GREY
Local:Field:AMOUNT FIELD:Skip:Yes
[Field:SubCrAmt]
Field:Simple Prompt, AMOUNT Field
Local:Field:Simple Prompt:Set as:"Credit SubTotal :"
Local:Field:AMOUNT FIELD:Set as:$$Total:LVchCreditAmt
;Local:Field:AMOUNT FIELD:Background:GREY
Local:Field:AMOUNT FIELD:Skip:Yes


This will be k sir, Pls help me

 

dear Amitji for your suggetion opening & Closing Balnce & Ledger Summary problem Solve

 

but blank space issue not solve

 

[#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 -$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 : 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,LedTotalLeft,LedClbalfieldLeft
Repeat:LedTitleFieldLeft:VLedcollectionLeft
Scroll:Vertical
Float:no
Common Border:Yes
Line:LedTotalLeft
[Part:LStatementinfoPartRight]
Line:LedTitleInfoRight,LedOpeBalfieldRight,LedTitleFieldRight,LedTotalRight,LedClbalfieldRight
Repeat:LedTitleFieldRight:VLedcollectionRight
Scroll:Vertical
Float:no
Common Border:Yes

[Line:LedOpeBalfieldLeft]
Fields:LedOpeBalLDate,LedOpeBalLT, LedOpeBalL
Border: Thin Bottom

[Field:LedOpeBalLDate]
Use : Uni date field
Set as : $OpeningDate
Format : "DD/MMM/YYYY";“Short Date”
color : WHITE
width : 12

[Field:LedOpeBalLT]
info :$$localestring:"Opening Balance:"
color : WHITE
width : 34
Inactive: If $$IsEmpty:#LedOpeBalL then Yes Else No
Border : Thin Top
Background: Dark Green

[Field:LedOpeBalL]
Use : Amount Field
Set as : If $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
Skip : Yes
style : normal
Color : BLUE
Width : 38

[Line:LedTitleInfoLeft]
Field:LVchDDate,LVchDParticulars,LVchChqNum,LVchDNum,LVchDebitAmt
Local:Field:LVchDDate:Info:"Date"
Local:Field:LVchDParticulars:Info:"Particulars"
Local:Field:LVchChqNum:Info:"Ch.No"
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:LedTitleFieldLeft]
Field:LVchDDate,LVchDParticulars,LVchChqNum,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:$AlllEDGERENTRIES[2].LedgerName
Width : 34
Style : tiny
Border : Thin bottom right
color:geranium
[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 bottom right
Space Right:1
Style:tiny

[Line:LedTotalLeft]
Fields:LedTotalLT, LedTotalL
Border: Totals

[Field:LedTotalLT]
info :$$localestring:"Debit Total:"
color : White
width : 46
Border : Thin Top
Background: Dark Green
Align: Right

[Field:LedTotalL]
Use : Amount Field
border : Totals
Border : Thin Left
style : Large Bold
Local : Field : LVchDebitAmt : Set as : $$Total:LVchDebitAmt
Skip : Yes
Color : BLUE
Width : 37

[Line:LedClbalfieldLeft]
Fields:LedClbalLT, LedClbalL
Border: Totals

[Field:LedClbalLT]
info :$$localestring:"Closing Balance:"
color : WHITE
width : 12
Inactive: If $$IsEmpty:#LedClbalL then Yes Else No
Border : Thin Top
Background: Dark Green

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

[Line:LedOpeBalfieldRight]
Fields:LedOpeBalRDate,LedOpeBalRT, LedOpeBalR
Border: Thin Bottom

[Field:LedOpeBalRDate]
Use : Uni date field
Set as : $OpeningDate
Format : "DD/MMM/YYYY";“Short Date”
color : WHITE
width : 12

[Field:LedOpeBalRT]
info :$$localestring:"Opening Balance: "
color : WHITE
width : 44
Inactive: If $$IsEmpty:#LedOpeBalR then Yes Else No
Border : Thin Top
Background: Dark Green

[Field:LedOpeBalR]
Use : Amount Field
Set as : If not $$IsDr:$OpeningBalance:Ledger:##GroupName then $OpeningBalance:Ledger:##GroupName else ""
Skip : Yes
style : normal
Color : BLUE
Width : 27

[Line:LedTitleInfoRight]
Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt
Local:Field:LVchcDate:Info:"Date"
Local:Field:LVchcParticulars:Info:"Particulars"
Local:Field:LVchcNum: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,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:"Bill No." + $REFERENCE
Width : 44
Style : tiny
Border : Thin bottom right
color:geranium
[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 : tiny
color : Blue
Border : Thin bottom right
Space Right:1

[Line:LedTotalRight]
Fields:LedTotalRT, LedTotalR
Border: Totals

[Field:LedTotalRT]
info :$$localestring:"Credit Total:"
color : White
width : 56
Border : Thin Top
Background: Dark Green
Align: Right

[Field:LedTotalR]
Use : Amount Field
border : Totals
Border : Thin Left
style : Large Bold
Local : Field : LVchCreditAmt : Set as : $$Total:LVchCreditAmt
Skip : Yes
Color : BLUE
Width : 15

[Line:LedClbalfieldRight]
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: Dark Green

[Field:LedClbalR]
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


[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

[System:formula]
FilterDspVchDrAmt:$$IsDr:$Amount
FilterDspVchCrAmt:not $$IsDr:$Amount

[Line:LVchTitle]
Add:Right Field:SubDrAmt
Add:Right Field:SubCrAmt
Local:Field:Amount Field:Border:THIN BOX

[Field:SubDrAmt]
Field:Simple Prompt, Amount Field
Local:Field:Simple Prompt:Set as:"Debit SubTotal "
Local:Field:AMOUNT FIELD:Set as:$$Total:LVchDebitAmt
;Local:Field:AMOUNT FIELD:Background:GREY
Local:Field:AMOUNT FIELD:Skip:Yes
[Field:SubCrAmt]
Field:Simple Prompt, AMOUNT Field
Local:Field:Simple Prompt:Set as:"Credit SubTotal :"
Local:Field:AMOUNT FIELD:Set as:$$Total:LVchCreditAmt
;Local:Field:AMOUNT FIELD:Background:GREY
Local:Field:AMOUNT FIELD:Skip:Yes

[#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 please solve the problem

 

Pls Solve the problem sir, i try my level, but not show total and closing balance
Pls help me

 

Respective Amit Sir, Sr.No.1 is ok,
but sr.no.2 to 6 remove line

 

Amit sir this is the error message i am getting sir please help

 

Made Some Little Changes

Company name address
Right place for statement period
Coloumn totals
Voucher type name instead of Bill no.

[#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 : 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:$$FinYearBeg:##StartDate:$StartingFrom: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,ChangeLedger, Report Config,Print Button,Export Button,BottomToolBarBtn1, BottomToolBarBtn2,BottomToolBarBtn3,BottomToolBarBtn4,BottomToolBarBtn5,BottomToolBarBtn6,BottomToolBarBtn7,BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11,refresh tdl
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
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: 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: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:LedClbalfieldLefttot, LedClbalfieldLeft
Scroll:Vertical
Float:no
Common Border:Yes
Total:LVchDebitAmt

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

[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:LedClbalfieldLefttot]
Fields:LedclbalLTtot
Right Fields: LedClbalLtot
Border: Totals

[Field:LedClbalLTtot]
info :$$localestring:"Total"
color : WHITE
width : 12
Border : Thin Top
Background: DEEP COBALT BLUE

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

[Line:LedClbalfieldLeft]
Fields:LedclbalLT
Right Fields: 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:LedClbalfieldRighttot]
Fields:LedclbalRTtot
Right Fields: LedClbalRtot
Border: Totals

[Field:LedClbalRTtot]
info :$$localestring:"Total"
color : WHITE
width : 12
Border : Thin Top
Background: DEEP COBALT BLUE

[Field:LedClbalRtot]
Use : Amount Field
Set as : $$Total:LVchCreditAmt
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 " + $Vouchertypename + "/" + $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

 

Sir hlep me how to debit, credit and closing balance total coding
pls send me code sir

 

"ALT+R " (Remove Line)
Unchanged (Not Working)

 

Add Line Before Closing Balance
and paste this

(do same thing for right side with proper line and field name changes)

[Line:LedClbalfieldLefttot]
Fields:LedclbalLTtot
Right Fields: LedClbalLtot
Border: Totals

[Field:LedClbalLTtot]
info :$$localestring:"Total"
color : WHITE
width : 12
Border : Thin Top
Background: DEEP COBALT BLUE

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

 

Also Read (Find Changes) and change (Replace) This Part

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

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

 

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

i want to place the OPTION in >> inside "Display" of gateway of tally >> "Account books" > above "Ledger"

please help :--------

 

1) collection field : Voucher type: sales, purchase, debit note & credit note (pickup value) but Voucher Type :Receipt & Payment (Not PickupValue) why