UPI QR CODE IN SALES INVOICE

Discussion in 'Free Source Codes' started by Vidya Sagar mehta, Jul 30, 2021.

    
  1. Vidya Sagar mehta

    Vidya Sagar mehta New Member


    READY UPI QR CODE IN SALES INVOICE
    This addon help to bring Payment QR code of google pay / phone pay/ Paytm/ UPI/BHIM in Tally Invoice Print. which helps fast payment by auto pick amount & party while scanning QR Code in any of payment apps. No need to type amount or party etc manually. All are auto.
     

    Attached Files:

    Rajsrisrimal, JITEN JAIN and tejeet like this.


  2. sasikanth123

    sasikanth123 New Member



  3. rajesh5034

    rajesh5034 New Member


    Is it possible to get the QR Code as follow in Purchase Order 1) Vendor Name + PO Number + PO Amount + PO Date for purchase order, anyone can send the tdl syntax to add in tally prime
     


  4. Adnan Miyajiwala

    Adnan Miyajiwala New Member



  5. tejeet

    tejeet Member


    Hi,
    Can you send me this tdl/code to tejeet1@gmail.com
     


  6. venkatkolla

    venkatkolla New Member


    Can you send me this tdl/code to kvguntur1@gmail.
     


  7. sateesh

    sateesh New Member



  8. venkatkolla

    venkatkolla New Member




  9. pls. send me code kaushiksagar143@gmail.com
     
    Last edited: May 4, 2022


  10. Anand Chudasama

    Anand Chudasama New Member



  11. dammani.shri

    dammani.shri New Member



  12. venkatkolla

    venkatkolla New Member


    Can you send me this tdl/code to suryasoftsolutions999@gmail.com
     


  13. Rajiv Prabhakar

    Rajiv Prabhakar New Member



  14. HITESHDASANI

    HITESHDASANI New Member



  15. Tejas S Vora

    Tejas S Vora New Member



  16. JAYRAM96A

    JAYRAM96A Member


    ;Report for Qr Configuration


    [Report:QrConfig]
    Title:"QrCode Configuration"
    Form:QrConfig
    [Form:QrConfig]
    Width:50% page
    Part:QrConfig
    [Part:QrConfig]
    Lines:QrConfigTitle,QrPaymentMode,QrIncludeAmount,QrUpiId;,QrBankAccount,QrBankIfsc,QrMobileNo,QrMmid
    Space Bottom:2
    Space Left:2
    Space Right:2
    Space Top:2
    Line:QrHelpLine
    [Line:QrConfigTitle]
    Field:Name Field
    Local:Field:Name Field:Info:"Configure Qr Code Settings"
    Local:Field:Name Field:Full Width:Yes
    Local:Field:Name Field:Align:Center
    Local:Field:Name Field:Border:thinbottom
    [Line:QrPaymentMode]
    Space Top:0.5
    Fields:LongPrompt,QrPaymentMode
    Local:Field:LongPrompt:Info:"Payment Mode"
    [Field:QrPaymentMode]
    Use:Name Field
    ;Table:QrPaymentModes
    Set as : "UPI ID"
    Set Always:Yes
    Show Table:Always
    Storage:QrPaymentMode
    Width:50
    Dynamic : ""
    Read Only:Yes
    [Collection:QrPaymentModes]
    Title:"Payment Modes"
    List Name:"UPI ID","Bank Account & IFSC","Mobile Number & MMID"
    [Line:QrIncludeAmount]
    Field:Long Prompt,QrIncludeAmount
    Local:Field:LongPrompt:Info:"Include Amount?"
    Space Top:0.5

    [Field:QrIncludeAmount]
    Use:Logical Field
    Show Table:Always
    Set as:No
    Storage:QrIncludeAmount
    [Line:QrUpiId]
    Field:Long Prompt,QrUpiId
    Local:Field:LongPrompt:Info:"Enter UPI Id"
    Space Top:0.5
    Local : Field : Long Prompt : Inactive: @@NOUPID
    Invisible : @@NOUPID
    [Field:QrUpiId]

    Storage:QrUpiId
    Use:Name Field
    Width:50
    Case : Lower Case
    Inactive: @@NOUPID
    Control:QrInvalidMsg:$$IsEmpty:$$Value
    [System : Formula]
    QrPaymentMode:$QrPaymentMode:Company:##SvCurrentCompany
    NoUPID : $QrPaymentMode!="UPI ID"
    NoBank : $QrPaymentMode!="Bank Account & IFSC"
    NoMMID : $QrPaymentMode!="Mobile Number & MMID"
    QrUPId :$QrUpiId:Company:##SvCurrentCompany
    QrBankAccount :$$LocaleString:($QrBankAccount:Company:##SvCurrentCompany)
    QrIFSCode :$QrBankIfsc:Company:##SvCurrentCompany
    QrMobileNo :$$LocaleString:($QrMobileNo:Company:##SvCurrentCompany)
    QrMMID : $$LocaleString:($QrMmid:Company:##SvCurrentCompany)
    IsQrAmountInclude:$QrIncludeAmount:Company:##SvCurrentCompany
    QrInvalidMsg:"Invalid Input!"

    [Line:QrBankAccount]
    Field:Long Prompt,QrBankAccount
    Local:Field:LongPrompt:Info:"Enter Bank Account Number"
    Space Top:0.5
    Local : Field : Long Prompt : Inactive: @@NoBank
    Invisible : @@NOBank
    [Field:QrBankAccount]
    Storage:QrBankAccount
    Use:Name Field
    Width:50
    Format:NoComma,NoZero
    Inactive: @@NoBank
    Control:QrInvalidMsg:$$IsEmpty:$$Value

    [Line:QrBankIfsc]
    Field:Long Prompt,QrBankIfsc
    Local:Field:LongPrompt:Info:"Enter IFSC Code"
    Space Top:0.5
    Local : Field : Long Prompt : Inactive: @@NoBank
    Invisible : @@NOBank
    [Field:QrBankIfsc]
    Storage:QrBankIfsc
    Use:Name Field
    Width:50
    Inactive: @@NoBank
    Control:QrInvalidMsg:$$IsEmpty:$$Value

    [Line:QrMobileNo]
    Field:Long Prompt,QrMobileNo
    Local:Field:LongPrompt:Info:"Enter Mobile Number"
    Space Top:0.5
    Local : Field : Long Prompt : Inactive: @@NoMMID
    Invisible : @@NOMMID
    [Field:QrMobileNo]
    Storage:QrMobileNo
    Use:Name Field
    Width:50
    Format:NoComma,NoZero
    Inactive: @@NOMMID
    Control:QrInvalidMsg:$$IsEmpty:$$Value
    [Line:QrMmid]
    Field:Long Prompt,QrMmid
    Local:Field:LongPrompt:Info:"Enter MMID"
    Space Top:0.5
    Local : Field : Long Prompt : Inactive: @@NoMMID
    Invisible : @@NOMMID

    [Field:QrMmid]
    Storage:QrMmid
    Use:Name Field
    Width:50
    Format:NoComma,NoZero
    Inactive: @@NoMMID
    Control:QrInvalidMsg:$$IsEmpty:$$Value


    [Line:QrHelpLine]
    Space Top:2
    Field:SimpleField
    Local:Field:Simple Field:Info:"**Make Sure Above Entered Information is Valid and Working"
    Local:Field:Simple Field:Align:Center
    Local:Field:Simple Field:Full Width:Yes
    Local:Field:Simple Field:Color:Red


    [Function:InitQrCodeGeneration]
    Variable:QString: String:"upi://pay?"
    Variable:QinvNumber:String:$$StringFindAndReplace:($$String:$VoucherNumber):"_":"-"
    Variable:QPartyName:String:$$TrimRefId:($$StringFindAndReplace:$PartyLedgerName:"_":"-")
    Variable:QCompany:String:$$TrimRefId:($$StringFindAndReplace:##SvCurrentCompany:"_":"-")
    Variable:QAmount:String:($$LocaleString:($$Number:$Amount))
    10:If:mad:@QrPaymentMode contains "UPI ID"
    11:Set:QString:##QString+"pa="+@@QrUPId+"&"
    12:Set:QString:##QString+"pn="+##QCompany+"&"
    13:Set:QString:##QString+"mc=0000&"
    14:Set:QString:##QString+"tr="+##QinvNumber+"_"+##QPartyName+"_Pay%20to%20"+##QCompany+"&"
    amt1:If:mad:@IsQrAmountInclude
    15:Set:QString:##QString+"am="+##QAmount+"&"
    amt2:End If
    16:Set:QString:##QString+"mam=0&cu=INR"
    17:Return:##QString
    18:End If

    [Function:TrimRefId]
    Parameter:v1:String
    01:If:$$StringLength:##v1 > 4
    02:Return:$$StringPart:##v1:0:4
    03:Else
    04:Return:##v1
    05:End If
     


  17. dsaria007

    dsaria007 New Member


    hi
    hi,
    pls share the code
    dsaria007@gmail.com
     


Share This Page