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



  3. Rohit Khedar

    Rohit Khedar Member



  4. Neeru

    Neeru Active Member


    Hi..

    Working as u want in Mobile not in Desktop web

    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         : ($$String:@@AS+"91"+$$String:@@DMKDS+$$String:@@TlyErp_Msg):True
       ;($$String:"whatsapp://send?Phone=91"+$$String:@@DMKDS+$$String:@@TlyErp_Msg):True
     
       Width           : 50% screen
       Height          : 50% screen
       Space Top       : 0.5
    
       VerticalAlign   : Center
       HorizontalAlign : Center
    
    
    [System: Formulae]
        AS:"https://api.whatsapp.com/send/?phone=";"whatsapp://send?Phone="
        DMKDS:#TlyErp_Qr_Ledcontct
        TlyErp_Mob : $$String:"91" + $Ledgermobile:Ledger:$Ledgername
        TlyErp_Msg : "&text=Dear%20Customer%20,"+"Your%20Invoice%20No:%20"+$$String:$VoucherNumber+",%20*Amount%20"+$$String:$amount+"%20Date%20"+$$String:##VARVchDate+",%20has%20been%20Generated.%20"+"%20Regards%20"+
        +$$StringFindAndReplace:@@CmpMailName:" ":"%20"
    
     


  5. Rohit Khedar

    Rohit Khedar Member


    Neeru## Good work now for auto generate on led mobile but Invoice no and amount value not pikup so see screenshot
     

    Attached Files:




  6. TlyErp_Msg : "&text=Dear%20Customer%20,"+"Your%20Invoice%20No:%20"+$$String:#VCHNumber+",%20*Amount%20"+$$String:#EIValueTotal+"%20Date%20"+$$String:##VARVchDate+",%20has%20been%20Generated.%20"+"%20Regards%20"+
    +$$StringFindAndReplace:mad:@CmpMailName:" ":"%20"
     


  7. Rohit Khedar

    Rohit Khedar Member


    Neeru## CHANDRESH GAUR## good work now .... thank you so much

    Kabir ji ne kaha tha
    Kaal kare so aaj kar
    Aaj kare so ab
    Network down ho jayega
    Phir wish karega kab, isliye..
    Happy Holi In Advance

    again thank you so much ...............
     


  8. subash pal

    subash pal Member


    Please make it one time login system with attachment Messages and also for prime Thanks in Advance
     


Share This Page