कुल पेज दृश्य

रविवार, 16 जनवरी 2022

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


 


कोई टिप्पणी नहीं:

एक टिप्पणी भेजें

 [#Form: Master Accounting Form] Delete: Bottom Buttons : Master Group, Master Ledger, Master VchType, Blank Button ;, Master Company Operat...