Tally Chapter 127 TDL for T Format Ledger Report By Rajiv Mishra Computer Class

 


Few lines of the code is missing. Wach the video for Full coding


[Field: LedgerStatementGroup]

Use : Name Field

Variable : GroupName

Modifies : GroupName

Table : CMPLedCOLL

Show Table : Always



[Report : Leder Statement Report]

Variable : SVFromDate, SVToDate

Set : SVfromDate:$BooksFrom:Company:##SVCurrentCompany

Set : GroupName : ##GroupName

Variable : IsMultiPage, InNewPages

Set : IsMultiPage : yes

Set : InNewPages : yes

Set : SVToDate : ##SVCurrentdate

Form : LStatement Form

Variables : DBBillExplodeFlag, DBCostExplodeFlag, DBInvExplodeFlag, DBBankExplodeFlag

Variable : GroupName, ShowForex, LedShowForex, ShowCreatedBy

Variable : ShowRunBalance

Variable : BankRecMode, ShowMarkedVouchers, AllowBackDatedRecon

Variables : ExplodeNarrFlag

Variables : IsDayBook, DSPWithOpening

Variable : OnlyInVouchers, OnlyOutVouchers, OnlyDrVouchers, OnlyCrVouchers

Variable : OnlyAccVouchers, OnlyInvVouchers

Variable : IsMultiPage, InNewPages, ColumnarDayBook, ExtractMode, ShowQtyExtract

Variable : Show ContactDetails, IsItemBatchReport, IsNegativeCash

Variable : DBFilterVar

;;Start Fresh page for each balaning method

Variable : BMInNewPage

Set : BMInNewPage : No

;;Show Ledger's Parent

Variable : ShowLedParent

Variable : PrintSortingOnGrp

Variable : VoucherTypeName

Variables : LedStarting, LedNameStartingFrom, LedNameStartingTo ;;For alphabetical print range

; Set : DBFilterVar : No

Set : IsLedBkup : No

Set : IsGrpBkup : No


Set : SV SortMethod : @@Default

Set : Is Ledger Report : Yes

Set : DSPWithOpening : Yes

Set : DSPShowMonthly : No

Set : DSPHasMultiLevel : No

Set : DSPNotScaleable : Yes

Set : DSPHasColumnTotal : No

Set : BankRecMode : No

Set : IsMultiPage : No

Set : ColumnarDayBook : No

Set : ExtractMode : No

Set : ShowCreatedBy : No

Set : IsItemBatchReport : No

[Form : LStatement Form]

Height : 100% Screen

Width : 100% Screen

BackGround : Light yellow

Space Top : If $$InPrintMode Then 0.5 Else 0 inches

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

BottomButton: InvReports, AcctReports, ReportOperations, FilterButton, ValueButton

Buttons : PrintButton, ExportButton, UploadButton, MailButton

Parts : LStatement Tit,LStatementinfoPart

;Add : Bottom Part : DBCBDetailsvmv1

Add : Button : Refresh TDL, ExplodeFlag


[Part : LStatement Tit]

Space Bottom : 0.2 inch

Line : LStatementParty; Tit Line2

;Line : LStatement Tit Line,LStatementAdd,LStatementGSTNo,LStatementPeriod,LStatementParty; Tit Line2


Add:Lines:At End:partyaddL03,partyaddL04


[Line : LStatement Tit Line]

Field : LStatement Tit Field


[Field : LStatement Tit Field]

Use : Name Field

Set as : @@CmpMailName;$Name:Company:##SVCurrentCompany

Align : Center

Full Width : Yes

Style : Large Bold

Color:red

[Line:LStatementAdd]

Field:LStatementAddField

[Field:LStatementAddField]

Use : Name Field

Set as : $$FullList:CompanyAddress:$Address

Align : Center

Full Width : Yes

;Border : Thin Box

Style:TINY

[Line:LStatementGSTNo]

Field:LStatementGSTNoField

[Field:LStatementGSTNoField]

Use : Name Field

Set as : $$LocaleString:"GSTIN No:"+$GSTRegNumber:TaxUnit:mad:@CMPExcisePrimaryGodown+$$LocaleString:" PAN NO.:"+ $IncomeTaxNumber:Company:##SVCurrentCompany

Align : Center

Full Width : Yes

Style:TINY

[Line:LStatementPeriod]

Field:LStatementPeriodField

Space Top:0.5

Border:thin bottom


[Field:LStatementPeriodField]

Use:name field

Set as:$$LocaleString:"Ledger Statement For the period " + $$String:##SVFromDate + " to " + $$String:##SVToDate

Align : Center

Full Width : Yes

Local:Style:defualt:Height:20

Color:yellow

Style:large bold

[Line:LStatementParty]

Field:LStatementPartyInfo,LStatementPartyField


[Field:LStatementPartyInfo]

Use :Name Field

SetAs:"Party Name :"

Width:14

Style:small

Background:DEEP COBALT BLUE

Color:WHITE

[Field:LStatementPartyField]

Use :Name Field

SetAs:##GroupName

Width:201 mms

;Style:tiny

;Border: Thin Box

Color : dark red

Local:STYLE:DEFAULT:Height:14

Full Width:Yes

[Line:partyaddL03]

Fields:partyaddL21,partyaddL22,partyaddL23

border : thin top

[Field:partyaddL21]

Fields:Simple Prompt, Name Field

Local:Field:simple prompt : info :$$localestring:"Address:"

Local : Field : simple prompt : color : WHITE

Local : Field : simple prompt : width : 14

Local : Field : simple prompt :Background:DEEP COBALT BLUE

Local : Field :name Field : Set as : $STPartyFullAdd:Ledger:##GroupName

Local : Field :name Field : width : 93.5

Local : Field :name Field :Skip:yes

Local : Field :name Field : line : 0

Local : Field :name Field : style :SMALL

Color : dark red

Background:LIGHT BLUE

[Field:partyaddL22]

Fields:Simple Prompt, Name Field

Local:Field:simple prompt : info :$$localestring:"State:"

Local : Field : simple prompt : color : WHITE

Local : Field : simple prompt :Background:DEEP COBALT BLUE

Local : Field : simple prompt : width : 8

Local : Field : name Field : Set as : $LedStateName:Ledger:##GroupName

Local : Field :name Field :Skip:Yes

Color:dark red

Background:LIGHT BLUE

Local : Field :name Field : style : normal

Local : Field :name Field : width : 14

[Field:partyaddL23]

Fields:Simple Prompt, Name Field

Local:Field:simple prompt : info :$$localestring:"Pin Code:"

Local : Field : simple prompt : color : WHITE

Local : Field : simple prompt :Background:DEEP COBALT BLUE

Local : Field : simple prompt : width : 8

Local : Field : name Field :Set as : $pincode:Ledger:##GroupName

Local : Field :name Field :Skip:Yes

Color:dark red

Background:LIGHT BLUE

Local : Field :name Field : style : normal

Local : Field :name Field : width : 30





[Line:partyaddL04]

Fields:partyaddL35,partyaddL38,partyaddL39

border : thin top


[Field:partyaddL35]

Fields:Simple Prompt, Name Field

Local:Field:simple prompt : info :$$localestring:"GSTIN No.:"

Local : Field : simple prompt : color : WHITE

Local : Field : simple prompt :Background:DEEP COBALT BLUE

Local : Field : simple prompt : width : 14

Local : Field : name Field :Set as : $PARTYGSTIN:Ledger:##GroupName

Local : Field : name Field :Skip:Yes

Local : Field :name Field : width : 93.5

Local : Field :name Field : style : normal bold

Color : blue

border : thin bottom



[Field:partyaddL38]

Fields:Simple Prompt, Name Field

Local:Field:simple prompt : info :$$localestring:"Mobile:"

Local : Field : simple prompt : color : WHITE

Local : Field : simple prompt :Background:DEEP COBALT BLUE

Local : Field : simple prompt : width : 8

Local : Field : name Field :Set as : $LedgerMobile:Ledger:##GroupName

Local : Field :name Field :Skip:Yes

Local : Field :name Field : style : normal

Color:BLUE

border : thin bottom

[Field:partyaddL39]

Fields:Simple Prompt, Name Field

Local:Field:simple prompt : info :$$localestring:"E-Mail:"

Local : Field : simple prompt : color : WHITE

Local : Field : simple prompt :Background:DEEP COBALT BLUE

Local : Field : simple prompt : width : 8

Local : Field : name Field :Set as : $Email:Ledger:##GroupName

Local : Field :name Field :Skip:Yes

Color :BLUE

border : thin bottom

Local : Field :name Field : style : normal

Local : Field :name Field : Width:21.2


[Part:LStatementinfoPart]

Left Part:LStatementinfoPartLeft

Right Part:LStatementinfoPartRight


[Part:LStatementinfoPartLeft]

Line:LedTitleInfoLeft,LedopebalfieldLeft,LedTitleFieldLeft

Repeat:LedTitleFieldLeft:VLedcollectionLeft

Bottom Line:LedClbalfieldLeft

Scroll:Vertical

Float:no

Common Border:Yes


[Part:LStatementinfoPartRight]

Line:LedTitleInfoRight,LedopebalfieldRight,LedTitleFieldRight

Repeat:LedTitleFieldRight:VLedcollectionRight

Bottom Line:LedClbalfieldRight

Scroll:Vertical

Float:no

Common Border:Yes



[Line:LedopebalfieldLeft]

Right Fields:LedopebalLT, LedopebalL

Border: Thin BOttom


[Field:LedopebalLT]

info :$$localestring:"Opening Balance:"

color : WHITE

width : 12

Inactive: If $$IsEmpty:#LedopebalL then Yes Else No

Border : Thin Top

Background: DEEP COBALT BLUE


[Field:LedopebalL]

Use : Amount Field

Set as : If $$IsDr:$Openingbalance:Ledger:##GroupName then $Openingbalance:Ledger:##GroupName else ""

Skip : Yes

style : normal

Color : BLUE

Format : "Symbol,DrCr"

Width : 16


[Line:LedClbalfieldLeft]

Right Fields:LedclbalLT, LedClbalL

Border: Totals


[Field:LedClbalLT]

info :$$localestring:"Clsoing Balance:"

color : WHITE

width : 12

Inactive: If $$IsEmpty:#LedClbalL then Yes Else No

Border : Thin Top

Background: DEEP COBALT BLUE


[Field:LedClbalL]

Use : Amount Field

Set as : If $$IsDr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""

Skip : Yes

style : normal

Color : BLUE

Format : "Symbol,DrCr"

Width : 16


[Line:LedTitleInfoLeft]

Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt

Local:Field:LVchDDate:Info:"Date"

Local:Field:LVchDParticulars:Info:"Particulars"

Local:Field:LVchDNum:Info:"Vch.Type"

Local:Field:LVchDebitAmt:Info:"Debit Amount"

Border:THIN TOP BOTTOM

Local:Field:default:Background:DEEP COBALT BLUE

Local:Field:default:color:white

Local:Style:Default:Height:10


[Line:LedopebalfieldRight]

Right Fields:LedopebalRT, LedopebalR

Border: Thin BOttom


[Field:LedopebalRT ]

info : $$localestring:"Opening Balance:"

color : WHITE

width : 12

Inactive: If $$IsEmpty:#LedopebalR then Yes Else No

Border : Thin Top

Background: DEEP COBALT BLUE


[Field:LedopebalR]

Use : Amount Field

Set as : If $$IsCr:$Openingbalance:Ledger:##GroupName then $Openingbalance:Ledger:##GroupName else ""

Skip : Yes

style : normal

Color : BLUE

Format : "Symbol,DrCr"

Width : 16


[Line:LedClbalfieldRight]

Right Fields:LedclbalRT, LedClbalR

Border: Totals


[Field:LedClbalRT]

info :$$localestring:"Clsoing Balance:"

color : WHITE

width : 12

Inactive: If $$IsEmpty:#LedClbalR then Yes Else No

Border : Thin Top

Background: DEEP COBALT BLUE


[Field:LedClbalR]

Use : Amount Field

Set as : If $$IsCr:$Closingbalance:Ledger:##GroupName then $Closingbalance:Ledger:##GroupName else ""

Skip : Yes

style : normal

Color : BLUE

Format : "Symbol,DrCr"

Width : 16



[Line:LedTitleFieldLeft]

Field:LVchDDate,LVchDParticulars,LVchDNum,LVchDebitAmt,DSPVCHMASTERIDNO

Option : AlterVchOnEnter : Yes

;Explode : LedTitleFieldLeft : ##ExplodeFlag or $$KeyExplode

[field:LVchDDate]

Use:uni date field

Set as : $Date

Format : “full Date”

Width :12

Style : tiny

Border : Thin bottom right


[field:LVchDParticulars]

Use : Name Field

Set as:$$LocaleString:"To Bill No." + $VoucherNumber

Width : 44

Style : tiny

Border : Thin bottom right

color:geranium

[field:LVchDNum]

Use : Name Field

Set as : $VoucherTypeName

Width : 12

Style : tiny

Border : Thin bottom right


[field:LVchDebitAmt]

Use : Amount Field

Set as : if not $$IsDr:$Amount then 0 else $Amount

Width : 15

color : blue

Border : Thin bottom right

Space Right:1

Style:tiny


[Line:LedTitleInfoRight]

Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt

Local:Field:LVchcDate:Info:"Date"

Local:Field:LVchcParticulars:Info:"Particulars"

Local:Field:LVchcNum:Info:"Ch.No."

Local:Field:LVchCreditAmt:Info:"Credit Amount"

Border:THIN TOP BOTTOM

Local:Field:default:Background:DEEP COBALT BLUE

Local:Field:default:color:white

Local:Style:Default:Height:10


[Line:LedTitleFieldRight]

Field:LVchCDate,LVchCParticulars,LVchCNum,LVchCreditAmt,DSPVCHMASTERIDNO

Option : AlterVchOnEnter : Yes


[field:LVchCDate]

Use:uni date field

Set as : $Date

Format : "DD/MMM/YYYY";“Short Date”

Width : 12

Style : tiny

Border : Thin bottom right


[field:LVchCParticulars]

Use : Name Field


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


Width : 44

Style : tiny

Border : Thin bottom right

color:geranium

[field:LVchCNum]

Use : Name Field


Set as : $AllLedgerEntries[-1].BankAllocations.InstrumentNumber

Width : 12

Style : tiny

Border : Thin bottom right

[field:LVchCreditAmt]

Use : Amount Field

;Set as:$amount

Set as : if $$IsDr:$Amount then 0 else $Amount

Width : 15

Style : tiny

color : Red

Border : Thin bottom right

Space Right:1

[Collection : VLedcollectionLeft]

Type : Vouchers: Ledger

Child of :$$BaseOwner:#GroupName

Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration

Sort : @@InCreasing: -$Date

Filter:FilterDspVchDrAmt

[Collection : VLedcollectionRight]

Type : Vouchers: Ledger

Child of :$$BaseOwner:#GroupName

Fetch : VoucherTypeName,Date,VoucherNumber,Amount, Narration

Sort : @@InCreasing: -$Date

Filter:FilterDspVchCrAmt


[System:formula]

FilterDspVchDrAmt:$$IsDr:$Amount

FilterDspVchCrAmt:not $$IsDr:$Amount


 


टिप्पणियाँ

इस ब्लॉग से लोकप्रिय पोस्ट

Tally Chapter 153 TDL for Custom List of Stock Item By Rajiv Mishra Computer Class

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class

TDL CODE for New Column in Invoice by Rajiv Mishra Computer class