Help About Whatsapp QR Code

Discussion in 'Free Source Codes' started by Rohit Khedar, Mar 25, 2021.

    
  1. Rohit Khedar

    Rohit Khedar Member


    :--- My QR Code proper not good output Msg and when scan QR code after no auto on led mobile.
    :--- hear come a option "send to"
    :--- Plz help me anyone expert


    Code:
    ;;------------------------------------ ;;
    
    [#Line : EI Consignee]
    Add : Option : TlyErp_Qr_Ledcontct :@@IsSales
    
    [!Line : TlyErp_Qr_Ledcontct]
    
    Add : Fields: Medium Prompt, TlyErp_Qr_Ledcontct
    
    Local : Field : Medium Prompt : Info : $$LocaleString:"WhatsApp No :"
    Local : Field : Medium Prompt : width : @@ShortWidth
    
    
    [Field : TlyErp_Qr_Ledcontct]
    Use : Name Field
    Set as   : $LedgerMobile:Ledger:$LedgerName
    Set Always : Yes
    
    ;;-----------------------------------------;;
    
    
    
    [#Form: Sales Color]
    
            On : Form Accept : $$InAlterMode  : CALL : TlyErp_Whats_Qr_Msg
            On : Form Accept : $$InCreateMode : CALL : TlyErp_Whats_Qr_Msg
    
        Add : Button : TlyErpPDFBtn
     
    [Button: TlyErpPDFBtn]
    
        Title: "Create PDF"
        Key : Ctrl + F
        Action : Call: TlyErp_Whats_Qr_Msg
    
    
    
         
    [Function: TlyErp_Whats_Qr_Msg]
    
        10 : QUERYBOX : "Do you want to send" +$$NewLine + $$NewLine + "Invoice details on whatsapp ?" : Yes:No
        20 : IF : Not $$LastResult
        30 :    Continue
     
        40 : ENDIF
     
        50 : Display : TlyErp_Qr_Reports
    
    
    
    [Report: TlyErp_Qr_Reports]
    
        Form    :    TlyErp_Qr_Form
        Title   :    "QR Code Details"
    
    [Form: TlyErp_Qr_Form]
    
        Parts    :    TlyErp_Qr_Parts  
         
    
        VerticalAlign   : Center
        HorizontalAlign : Center
    
        Height  : 60% Page
        Width   : 25% Page
     
     
     
     
    [Part: TlyErp_Qr_Parts]
    
    Part: TlyErp_Qr_SubTitle, TlyErp_Qr_Part
    
    Vertical    : Yes
    
    Space Left  : 1
    Space Right : 1
    
    [Part: TlyErp_Qr_SubTitle]
    
        Line    :    TlyErp_Qr_SubTitle
        Background  : @@SV_VCHTYPE
     
    
    [Line: TlyErp_Qr_SubTitle]
    
     
        Fields : Form Sub Title
        Local  :    Field    :    Form Sub Title  :    Set as   :    "Send Message thru" +$$NewLine + "WhatsApp" +$$NewLine + "91"+ #TlyErp_Qr_Ledcontct
        Local  :    Field    :    Form Sub Title  :    Align    :    Center
        Local  :    Field    :    Form Sub Title  :    Color    :    @@SV_VCHCOLOR
        Local  :    Field    :    Form Sub Title  :    Style    :    Normal Bold Italic
        Local  :    Field    :    Form Sub Title  :    Lines    :    0
    Local  :    Field    :    Form Sub Title  :widespace:yes
    
    
    [Part: TlyErp_Qr_Part]
    
       Line            : Empty
    
    
       QR Code         : "whatsapp://send?Phone="+ @@TlyErp_Mob+ +"&text=" + @@TlyErp_Msg
       Width           : 50% screen
       Height          : 50% screen
       Space Top       : 0.5
    
       VerticalAlign   : Center
       HorizontalAlign : Center
    
    
    
    
    
    [System: Formula]
    TlyErp_Mob : $$String:"91" + ($Ledgermobile:Ledger:$Ledgername)
    TlyErp_Msg : "Dear%20Customer%20,"+"Your%20Invoice%20No:%20"+$$String:$VoucherNumber+",%20*Amount%20"+$$String:$amount+"%20Date%20"+$$String:##VARVchDate+",%20has%20been%20Generated.%20"+"%20Regards%20"+$$String:@@CmpMailName
    
     
    Last edited: Mar 25, 2021


  2. Neeru

    Neeru Active Member