Bank Payment Register

Dear Expert's & Devlopor's,
Thanks to all for support every time,

In the attached TDL "Bank Payment Register " i am unable to get all the filed Result,
Kindly Suggest, how can we get this compleat TDL

 

Dear Amit Sir & Experts,

Can u plz help to get this .

Thanks,
Mukesh. B

 

Dear Amit Sir,

Plz Have a Look.

Thanks,

 

Dear Amit Sir,

Kindly help to complete this TDL.

Thanks,
Mukesh. B

 

Hi, I have done few modification according to my usage, and I get all the required fields. I think there is error in ";Filter : PayFilter" that I have removed. Please note I am not TDL developer, just doing TDL's with the help of all experts in this forum, and specially Amit Kamdar Sir. Somehow I am unable to upload file, may be our company restrictions.
=====
[CollectionaymentColl]
Type : Voucher
Child Of:$$VchTypePayment
Belongs To: Yes
Fetch : *.*
Fetch :AllledgerEntries.BankAllocations.INSTRUMENTNUMBER
;Fetch:AllLedgerEntries.BankAllocations.BankersDate
Fetch:AllLedgerEntries.BankAllocations.BankDetails
;Filter : PayFilter
==============

 

Please try this below modified code, it may help you develop further :

;**********************************************************;
[#Menu : Gateway of Tally]
Add : Item : Bank Payment : Display : Bank Payment Details

[Report:Bank Payment Details]

Form : Bank Payment Details
Title : "Payment Details"

[Form: Bank Payment Details]

Use : DSP Template ;;;Its a pre defined report containing all the necessary keys, buttons, etc required for reporting purposes
Parts :MB Company,Bank Account Details Tit, Bank Payment Part
Delete : Page Break
Add : Page Break : SatCl Page Break, SatOp Page Break
Height : 100% screen ;;;defining height of form as 100% sccreen
Width : 100% screen ;;;defining width of form as 100% sccreen
Background : Light Yellow ;Very Light Blue ;;;Setting the background color of report to grey


[Part:MB Company]
Line: MB Company Name,MB Company Address
Border: Thin Box

[Line:MB 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
Local: Field: Name Field:color:geranium


[Line:MB 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
Local: Field: Name Field:color:Blue

[Part : Bank Account Details Tit]
Line :Bank Account DetailsDate

[Line : Bank Account DetailsDate]

Border:THIN BOTTOM LEFT RIGHT
Space Top: 1% page
Space Bottom: 1% page
Field : Bank Account DetailFromdt,ToooField,Bank Account DetailTodt

[Field : Bank Account DetailFromdt]
Use : n Field
Set as:$$LocaleString:"Ledger Statement For the period " + $$String:##SVFromDate
Width : 58% Screen
Align : RIGHT
Style : LARGE BOLD
Color:geranium

[Field : ToooField]
Use : Name Field
Set as : "To"
Width : 2% Screen
Align : Center
Style : Normal
Color:geranium

[Field : Bank Account DetailTodt]
Use : Date Field
Set as : ##SVToDate
Width : 45% Screen
Align : Left
Style : LARGE BOLD
Color:geranium


[Part: Bank Payment Part]

Lines : Bank Payment Title, Bank Payment Line,
Repeat : Bank Payment Line : paymentColl ;;;line will repeat on the collection of the ledger
CommonBorder: Yes
Scroll : Vertical

[Line : Bank Payment Title]

Use : Bank Payment Line
Local : Field : Default :Color : White
Local : Field : Default :Background : Dark Green
Local : Field : Default : Type : String
Local : Field : Default : Align : Centre
Local : Field : Default : Style : Arial Bold
Local : Field : Default :Border : BlueBorderXThin


Local : Field : Payment SL No. : Set as : "SL. No"
Local : Field : Payment Vch Date : Set as : "Date"
Local : Field : Payment Led Name : Set as : "Party Ledger Name"
Local : Field : Payment Vch Number : Set as : "Vch No."
Local : Field : Payment Vch Type : Set as : "Vch Type"
Local : Field : Debit PayFavour : Set as : "Favour Name / Rcvd From"
Local : Field : Credit Bank Account No. : Set as : "Credit Bank Acc No."
Local : Field : Credit Bank Name : Set as : "Credit Bank Name"
Local : Field : Credit Bank Branch : Set as : "Credit Bank Branch"
Local : Field : Credit Bank IFSC Code : Set as : "Credit Bank IFSC Code"
Local : Field : Debit Bank Account Number : Set as : "Debit Bank Account Number"
Local : Field : Debit Bank Name : Set as : "Debit Bank Name"
Local : Field : Debit Bank Branch : Set as : "Debit Branch"
Local : Field : Debit Bank IFSC No. : Set as : "Debit Bank IFSC No."
Local : Field : Payments VchTransaction Type : Set as : "Transaction Type"
Local : Field : Payment Dr Amount : Set as : "Debit Amount"
Local : Field : Payment Cr Amount : Set as : "Credit Amount"
Local : Field : Payment Bank Reference : Set as : "Instrument / Bank Ref No."
Local : Field : Payment InstrumentDate : Set as : "Instrument Date"
Local : Field : Payment BankersDate : Set as : "Bankers Date"
Local : Field : Payment Narration : Set as : "Narration"
Border : Thin Top Bottom


[Line: Bank Payment Line]

Fields : Payment SL No.,Payment Vch Date,Payment Vch Number,Payment Vch Type,Payment Led Name,Debit PayFavour,Credit Bank Account No.,Credit Bank Name,Credit Bank Branch,Credit Bank IFSC Code,Debit Bank Account Number,Debit Bank Name,Debit Bank Branch,Debit Bank IFSC No.,Payments VchTransaction Type,Payment Bank Reference,Payment InstrumentDate,Payment BankersDate,Payment Dr Amount,Payment Cr Amount,Payment Narration

Repeat : Payment Led Name ;;;line will repeat on the collection of the ledger

[Fieldayment SL No.]

Set as : $$Line ;;;setting the line number to the field
Width : 4
Align : RIGHT
Border : Thin Right
Alter : Ledger
Style : Normal
SPACE RIGHT : 1
SPACE LEFT : 1

[Fieldayment Vch Date]

; Use : Name Field
Set as : $Date
Format : “Short Date”
Border : Thin Right
Style : TINY
Width :7% screen
SPACE RIGHT : 1
SPACE LEFT : 1
Align : left

[Fieldayment Vch Number]

Use : Name Field
Set as : $VoucherNumber
Border : Thin Right
Style : TINY
Width :10% screen
SPACE RIGHT : 1
SPACE LEFT : 1
Align : left
Alter : Voucher
[Fieldayment Led Name]

Use : Name Field
Set as : $$FilterValue:$LedgerName:AllLedgerEntries:1:IsDefBankAllocLedgerHasValue ;;;set ledger name to field
Border : Thin Right
Style : TINY Bold
Width :35
SPACE RIGHT : 1
SPACE LEFT : 1
Align : left

[Field:Credit Bank Account No.]
Use : Short Name Field
;Set as : $$FilterValue:$LedgerName:AllLedgerEntries:2:IsDefBankAllocLedgerHasCrValue
Set As : $BankDetails:Ledger$LedgerEntries[Last].LedgerName)
Style : Small Bold
Case : Normal
Skip Forward : NOT $$IsEmpty:$$Value
;; To validate Ac number starting with Zero in case of Citi bank
Control : AcNoStartingZero : ($$StringPart:$BankDetails:0:1 EQUALS "0") AND $BankingConfigBank EQUALS "Citi Bank"

[Field:Credit Bank Name]

Use : Name Field
; Set as : $BankName
Set As : $MailingName:Ledger$LedgerEntries[Last].LedgerName)
Border : Thin Right
Width :18
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align : left

[Field:Credit Bank Branch]

Use : Name Field
Set as :$AccountHolder1st
Border : Thin Right
Width :18
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align : left

[Field:Credit Bank IFSC Code]

Use : Short Name Field
Set as:$ifscode
Use : Upper Case Field
Style : Small Bold
Max : 11
Invisible : NOT @@IsIndia
Skip Forward : NOT $$IsEmpty:$$Value
Notify : eBankingWarningsMessage : NOT $$IsEmpty:$$Value AND @@IsIndia AND $$BankCodeValidation$$Value):"IFS":11:""


[Field: Debit Bank Account Number]

Use : Name Field
Set as : $(ledger,#PaymentLedName).PaymentDetails[1].AccountNumber
Border : Thin Right
Width :18
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align : Right

[Fieldebit Bank Name]

Use : Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.BankName
Border : Thin Right
Width :13
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align : left


[Fieldebit Bank Branch]

Use : Name Field
Set as :
Border : Thin Right
Width :15
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align :Right

[Fieldebit Bank IFSC No.]

Use : Name Field
; Set as : $IFSCode:CrLedger:$CrLedgerName;$AllLedgerEntries[-1].BankAllocations.IFSCode
Set As : $AllLedgerEntries[Last].BankAllocations[1].IFSCode
Width :10
Border : Thin Right
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align :Right


[Fieldayments VchTransaction Type]

Use : Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.TransactionType
Width :13
Border : Thin Right
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align :Right

[Fieldebit PayFavour]

Use : Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.PaymentFavouring
Border : Thin Right
Style : TINY
Width :18% screen
SPACE RIGHT: 1
SPACE LEFT: 1
Align : left


[Fieldayment Vch Type]

Use : Name Field
Set as : $VoucherTypeName
Border : Thin Right
Style : TINY
Width :6% screen
SPACE RIGHT: 1
SPACE LEFT: 1
Align : left

[Fieldayment Dr Amount]

Use : Name Field
Set as : if not $$IsDr:$Amount then 0 else $Amount
Border : Thin Right
Style : TINY
Width :10% screen
SPACE RIGHT: 1
SPACE LEFT: 1
Align : Right

[Fieldayment Cr Amount]

Use : Name Field
Set as : if $$IsDr:$Amount then 0 else $Amount
Border : Thin Right
Style : TINY
Width :10% screen
SPACE RIGHT: 1
SPACE LEFT: 1
Align : left

[Fieldayment Bank Reference]

Use : Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER
Width :15
Border : Thin Right
Style : TINY
SPACE RIGHT: 1
SPACE LEFT: 1
Align :Right

[Field: Payment InstrumentDate]

Use : Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.INSTRUMENTDate
Border : Thin Right
Style : TINY
Width :13
SPACE RIGHT: 1
SPACE LEFT: 1
Align :Right


[Fieldayment BankersDate]

Use : Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.BankersDate
Border : Thin Right
Style : TINY
Width :13
SPACE RIGHT: 1
SPACE LEFT: 1
Align :Right

[Field ayment Narration]
Use : Name Field
Set as : $Narration ;;$VoucherChequename
Border : thin Right
Width : 38
Line : 0
Style : TINY SMALL
;**********************************************************;
[CollectionaymentColl]
Type : Voucher
Child Of:$$VchTypePayment
Belongs To: Yes
Fetch : *.*
Fetch :AllledgerEntries.BankAllocations.INSTRUMENTNUMBER
Fetch:AllLedgerEntries.BankAllocations.BankersDate
Fetch:AllLedgerEntries.BankAllocations.BankDetails
Filter : PayFilter

[System:Formulas]
PayFilter:$$IsPayment:$VoucherTypeName
;PayFilter:$$VchTypePayment="Payment"


;[Collection ymtvchsgb]
;Type : Vouchers : group
;Childof : $$groupbank
;Filter ymtvchs;Rctvchs
;Fetch :Ledger,Amount,BankName
;[System : formula]

;Pymtvchs:$$IsPayment:$VoucherTypeName ;;and
;ChBkEntries :Not $LedgerName AND NOT $$IsDr:$Amount

;[System:Formulas]
;AbcFilter :$$IsBelongsTo:$$GroupBank OR $$IsBelongsTo:$$GroupBankOD
;IsBankLedger : ($$IsLedofGrp:$LedgerName:$$GroupBank Or $$IsLedofGrp:$LedgerName:$$GroupBankOD)
;IsBankLedPresent: $$FilterCount:AllLedgerEntries:IsBankLedger > 0

;**********************************************************;
[Border : BlueBorderXThin]
Top : Thin
Bottom : Thin
Right : Thin
Left : Thin
Color : "Blue"
Print Fg: "Blue"

 

Thank You naijaind bhai.

This helped in developing the RTGS letter to bank.

 

shaare code plzzz