Dear Members, We often need to fill up RTGS/NEFT fund transfer deposit sleep which is quiet time consuming work and also there is chances for mistakes. Here is fully automated RTGS/NEFT fund transfer Application Instruction: 1) Make entries for RTGS or NEFT fund transfer in payment voucher. 2) Click print button 1st you get Tally Default payment voucher print then click Esc Button then 2nd you get "RTGS/NEFT FUNDS TRANSFER APPLICATION CUM PAYMENT ORDER". 3) For this you must have Parties Bank account details in party ledger master. Respected Members are requested to give Valuable advice to improve this code. Hope you will enjoy this code. Code: ;;-------------------------------------------------------------------------------------------- ;;-------------------------------------------------------------------------------------------- ;; ******************************************* S T A R T *** ;; *** Payment Voucher ************************************* [#Form: Payment Color] ;Delete:Print Add : Print : Rtgs Neft letter Print [Report : Rtgs Neft letter Print] <basegroup:voucher> Use : PymtRcpt Print Print : VCHPrintConfigure [Form : Rtgs Neft letter Print] Parts : DSp Company Name, DSP Company Address Parts : RtgsNeftTopHeadings, RtgsNeftSalutation,RtgsNeftCmpBank,RtgsNeftPartyBank,RtgsNeftDeclSign Parts : RtgsNeftAcknow Height : 100% Screen Width : 100% Screen HorizontalAlign :Left Space Left : if $$InPrintMode then 5 else 0 Space Top : if $$InPrintMode then 3 else 0 Space Right : if $$InPrintMode then 5 else 0 Space Bottom : if $$InPrintMode then 5 else 0 ;;****************************************************************************** [Part : RtgsNeftTopHeadings] Lines : RtgsNeftTitle, RtgsNeftDate, RtgsNeftTO, RtgsNeftBank Local : Field : Simple Field : FullWidth : Yes [Line: RtgsNeftTitle] Fields : Simple Field Space Bottom : 1 Local : Field : Simple Field : Set as : $$String:"RTGS/NEFT FUNDS TRANSFER APPLICATION CUM PAYMENT ORDER" Local : Field : Simple Field : Style : StyleGSName Local : Field : Simple Field : FullWidth : Yes Local : Field : Simple Field : Align:Center Local : Field : Simple Field : Border:Thin Bottom [Line : RtgsNeftDate] RightFields : RtgsNeftDate [Field : RtgsNeftDate] Set as : $$String:"Date: "+$$String:$Date Style : StyleAllTextBold FullWidth : Yes Align:Right [Line: RtgsNeftTO] Fields : Simple Field Local : Field : Simple Field : Set as : "To,"++ $$NewLine+"The Branch Manager," Local : Field : Simple Field : Style : StyleAllTextBold Local : Field : Simple Field : Line :2 [Line: RtgsNeftBank] Fields : Simple Field Space Bottom : 1 Local : Field : Simple Field : Set as : $MailingName:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries)+ + $$NewLine+$$CaseConvert:TitleCaseExact:($BankBranchName:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries)) Local : Field : Simple Field : Style : StyleAllTextBold Local : Field : Simple Field : Line :2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Part : RtgsNeftSalutation] Lines : RtgsNeftSalute, RtgsNeftLetter Local : Field : Simple Field : FullWidth : Yes HorizontalAlign : Left [Line: RtgsNeftSalute] Fields : Simple Field Space Bottom : 0.3 Local : Field : Simple Field : Set as : $$String:"Dear Sir/ Madam," Local : Field : Simple Field : Style : StyleAllText [Line : RtgsNeftLetter] Fields : Simple Field Local : Field : Simple Field : Set as :"Please Remit a sum of Rs. "+$$String:$Amount+" ("+$$InWords:$Amount+ +" Only) as per details given below by debiting the"+ +" below mentioned account.Please also debit the said account maintained with"+ +" your branch with your service charges and Govt. taxes, as applicable for such"+ +" remittance, if any." Local : Field : Simple Field : Style : StyleAllText Local : Field : Simple Field :Line:0 Space Bottom : 0.1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Part:RtgsNeftCmpBank] Lines : RtgsNeftCmpBankTit,RtgsNeftCmpBankName,RtgsNeftCmpBankacc,RtgsNeftCmpBankIfs,RtgsNeftCmpBankcont,RtgsNeftCmpBankChq,RtgsNeftCmpChqAmt Border: Thin Box Local : Field : Name Field : FullWidth : Yes Local : Field : Name Field : Style : StyleAllTextBold Local : Field : Medium Prompt : Style : StyleAllText HorizontalAlign : Left Space Bottom : 0.2 [Line: RtgsNeftCmpBankTit] Fields : Name Field Space Bottom : 0.5 Local : Field : Name Field : Set as : $$String:"Applicant/Remitter's Account Details : " [Line: RtgsNeftCmpBankName] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : $BankAccHolderName:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries) Local : Field : Medium Prompt : Set as : $$LocaleString:"A/c Holder's Name:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftCmpBankacc] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : $BankDetails:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries) Local : Field : Medium Prompt : Set as : $$LocaleString:"Account Number:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftCmpBankIfs] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : $IFSCode:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries) Local : Field : Medium Prompt : Set as : $$LocaleString:"IFSC:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftCmpBankcont] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : $$CaseConvert:TitleCaseExact:($BankBranchName:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries)) Local : Field : Medium Prompt : Set as : $$LocaleString:"Branch:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftCmpBankChq] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : $AllLedgerEntries[2].BankAllocations.Instrumentnumber Local : Field : Medium Prompt : Set as : $$LocaleString:"Cheque Number:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftCmpChqAmt] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : $Amount Local : Field : Medium Prompt : Set as : $$LocaleString:"Cheque Amount:" Local : Field : Medium Prompt : FullWidth : Yes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Part:RtgsNeftPartyBank] Lines : RtgsNeftPartyBankTit,RtgsNeftParty,RtgsNeftPartyBankName,RtgsNeftPartyBankacc,RtgsNeftPartyBankIfs;,RtgsNeftPartyBankcont Border: Thin Box Local : Field : Name Field : FullWidth : Yes Local : Field : Name Field : Style : StyleAllTextBold Local : Field : Medium Prompt : Style : StyleAllText HorizontalAlign : Left [Line: RtgsNeftPartyBankTit] Fields : Name Field Space Bottom : 0.5 Local : Field : Name Field : Set as :"Details of Beneficiary Account: " [Line: RtgsNeftParty] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : If @@HasSatPymtDetMoreThanOne Then $MailingName:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) else $_FavouringName:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) Local : Field : Medium Prompt : Set as : $$LocaleString:"Name of Beneficiary:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftPartyBankName] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : If @@HasSatPymtDetMoreThanOne Then $$ReportObject:$$CollectionField:$BankName:(-1):PaymentDetails:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) else $_PartyBank:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) Local : Field : Medium Prompt : Set as : $$LocaleString:"Beneficiary Bank Name:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftPartyBankacc] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : If @@HasSatPymtDetMoreThanOne Then $$ReportObject:$$CollectionField:$AccountNumber:(-1):PaymentDetails:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) else $_AccountNumber:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) Local : Field : Medium Prompt : Set as : $$LocaleString:"Beneficiary Account Number:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftPartyBankIfs] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : If @@HasSatPymtDetMoreThanOne Then $$ReportObject:$$CollectionField:$IFSCode:(-1):PaymentDetails:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) else $_PartyBankCode:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries) Local : Field : Medium Prompt : Set as : $$LocaleString:"Beneficiary IFSC:" Local : Field : Medium Prompt : FullWidth : Yes [Line: RtgsNeftPartyBankcont] Fields : Medium Prompt,Name Field Space Bottom : 0.1 Local : Field : Name Field : Set as : $_Address1:(Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries))+ + ","+$_Address2:(Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries))++ ","+$_Address3:(Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries)) Local : Field : Medium Prompt : Set as : $$LocaleString:"Beneficiary Address:" Local : Field : Medium Prompt : FullWidth : Yes ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Part:RtgsNeftDeclSign] Lines : RtgsNeftDecl, RtgsNeftEnClose,RtgsNeftSign,RtgsNeftDot Local : Field : Simple Field : FullWidth : Yes Local : Field : Simple Field : Style : StyleAllTextBold HorizontalAlign : Left Space Top : 1 [Line: RtgsNeftDecl] Fields : Simple Field Space Bottom : 0.1 Local : Field : Simple Field : Set as : $$String:"I/We accept and agree to abide by the terms & conditions" [Line : RtgsNeftEnClose] Fields : Simple Field Space Bottom : 5 Local : Field : Simple Field : Set as :"Enclosed Cheque No.... "+$AllLedgerEntries[2].BankAllocations.Instrumentnumber+"... /Debit Authority Dt.... "+$$String:$AllLedgerEntries[2].BankAllocations.InstrumentDate+"....Rs. "+$$String:$Amount +"....Enclosed" [Line : RtgsNeftSign] Right Field : Simple Field Local : Field : Simple Field : Set as :"Applicant/ Remitters's Signature" Local : Field : Simple Field :Alignment:Right [Line: RtgsNeftDot] Fields : Simple Field Space Bottom : 0.1 Local : Field : Simple Field : Set as : "------------------------------------------------------------------------------------------------------------------------------------------" ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Part:RtgsNeftAcknow] Parts:RtgsNeftAck,RtgsNeftPartyBank,RtgsNeftAckSeal Vertical:Yes [Part:RtgsNeftAck] Lines : RtgsNeftAckHead, RtgsNeftAckBody Local : Field : Simple Field : FullWidth : Yes Local : Field : Simple Field : Style : StyleAllText HorizontalAlign : Left [Line: RtgsNeftAckHead] Fields : Simple Field Space Bottom : 0.2 Local : Field : Simple Field : Set as : $$String:"Acknowledgement" Local : Field : Simple Field : Align:Center Local : Field : Simple Field : Border:Thin Bottom Local : Field : Simple Field : Style : StyleAllTextBold [Line : RtgsNeftAckBody] Fields : Simple Field Space Bottom : 0.2 Local : Field : Simple Field : Set as :"Received application from "+$BankAccHolderName:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries) +" With A/c. No. "+$BankDetails:Ledger:($$CollectionField:$LedgerName:2:AllLedgerEntries)+ +" for Rs. "+$$String:$Amount +" on "+$$String:$Date+ +" for funds transfer under RTGS/NEFT as per the terms agreed between the customer"+ +" and the Bank on as detailed below." Local : Field : Simple Field :Line:0 [Part:RtgsNeftAckSeal] Line:RtgsNeftAckSeal Space Top:3 Local : Field : Default: FullWidth : Yes Local : Field : Default : Style : StyleAllTextBold [Line : RtgsNeftAckSeal] Field:Short Name Field,Name Field Right Field : Simple Field Local : Field : Simple Field : Set as :"Code" Local : Field : Name Field : Set as :"Bank Seal & Signature" Local : Field : Short Name Field : Set as :"UTR Sr. No." Local : Field : Simple Field :Alignment:Right ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; [Style : StyleGSName] Font: "Courier New" Height : 12 Bold : Yes [Style : StyleAllText] Font: "Courier New" Height : 10 [Style : StyleAllTextBold] Font: "Courier New" Height : 10 Bold : Yes [System : Formulae] HasSatPymtDetMoreThanOne : ($$NumItems:PaymentDetails:Ledger:($$CollectionField:$LedgerName:1:AllLedgerEntries)) > 1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; *** Payment Voucher ************************************* ;; *********************************************** E N D ***
Please fill up dummy company beneficiary Bank account details, company Bank account details and transaction details for rtgs or neft then post a screen shot. Then it will show the real view of RTGS Letter. Also requested members to give valuable suggestion. Here is screenshot
Thank you Sattam Ji Though am using fillable form download from maxutils.com but you have share a nice tdl ......... Appreciated ..........
using this tdl you have not to fill up RTGS form manually.This is fully automatic from tally. This format friendly to bank use.Every Bank will accept this form.