1. CLICK HERE TO JOIN WHATSAPP CHANNEL FOR TDL PROGRAMS

FULLY AUTOMATED RTGS/NEFT FUNDS TRANSFER APPLICATION CUM PAYMENT ORDER

Discussion in 'Free Source Codes' started by sattam, Dec 10, 2022.

    
Tags:
  1. sattam

    sattam Active Member


    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 ***
     
    Last edited: Dec 11, 2022
    sattam, Dec 10, 2022
    #1
    naren1234, Mahesh Sethi, Rohit Khedar and 1 other person like this.


  2. rajiv jaiswal

    rajiv jaiswal Member


    great work sir ji
     
    rajiv jaiswal, Dec 10, 2022
    #2


  3. Rohit Khedar

    Rohit Khedar Member


    @sattam sir ji great work and nice
     
    Rohit Khedar, Dec 10, 2022
    #3


  4. udaya

    udaya Active Member


    Greate..... satam
    upload_2022-12-11_6-59-57.png
     
    udaya, Dec 11, 2022
    #4


  5. sattam

    sattam Active Member


    DUMMY RTGS LETTER.jpg
    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
     
    Last edited: Dec 11, 2022
    sattam, Dec 11, 2022
    #5
    mahender, gangstar and Arun Powar like this.


  6. anish

    anish Member


    Thank you Sattam Ji Though am using fillable form download from maxutils.com but you have share a nice tdl .........
    Appreciated ..........
     
    anish, Dec 11, 2022
    #6


  7. sattam

    sattam Active Member


    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.
     
    sattam, Dec 11, 2022
    #7
    uttam100 and anish like this.


  8. uttam100

    uttam100 Member


    Superb sir. Your contribution to this forum is impeccable.
     
    uttam100, Dec 13, 2022
    #8
    sattam likes this.


  9. DEEPAK B

    DEEPAK B Member


    Great sir
     
    DEEPAK B, Jan 20, 2023
    #9


Share This Page