[#Form : Select Company List] On : Form Accept : @@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [Reporttp] Formtp [Formtp] Height:15 Width:50 Part:email,otp Bottom Part:next Key:Esc,quit [Button:Esc] Key:ESC Action: Close Company [Button:quit] Key:CTRL+Q Action: Close Company [Part:Next] Space Top:2 Button:Next Horizontal Align:Center [Part:email] Line:email,tommail Horizontal Align:Center [Line:email] Field:email Space Top:.5 [Field:email] Info:$$LocaleString:"(SEND OTP TO)" Color:Blue Align:Center Full Width:Yes [Line:tommail] Field:tommail Space Top:.5 [Field:tommail] Info@ToEmail Color:Blue Align:Center Full Width:Yes [Button:Next] Title:"GENRATE OTP" Focus BG:White Use:Inline Button Template Key:ALT+O Width : 35 Height : 3 Horizontal Align:Center Style:Normal Bold Color:Red Skip Forward:Not $$IsEmpty:#otp ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Parttp] Space Top:2 Linetp Horizontal Align:Center [Linetp] Fieldtp [Fieldtp] Width:35 Max:6 Set as:"" Align:Center Wide Space:Yes Style:Large Bold2 Color:Cyan Blue Valid:Yes Control:Abb@Abb1 [Style:Large Bold2] Height:25 Font:Arial [#Part : CMP TallyShopFeatures Left] Line : TlyTrng EmailFeatures Line:to Email [Line:To Email] Fields : LONG Prompt, TO EMAIL Local : Field : LONG Prompt : Info : "TO Email id for getting OTP :" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TO EMAIL] Use:Name Field Storage : To Email [Line : TlyTrng EmailFeatures] Fields : LONG Prompt, TlyTrng EmailFeatures Local : Field : LONG Prompt : Info : "Enable OTP Login ?:" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TlyTrng EmailFeatures] Use : Logical Field Storage : TlyTrng Email Features Sub Form : TlyTrng EmailConfigurations : $$Value [Report : TlyTrng EmailConfigurations] Title : "E-Mail Configurations" Form : TlyTrng EmailConfigurations Full Screen : No Variable:Applock Set : SVAccounts : No Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : Yes Set : SVTaxAudit : No Set : SVTallyNet : No [Form : TlyTrng EmailConfigurations] Parts : Form SubTitle, MPaySlip MailInfo Config Full Width : No Height : 60% Screen Space Right : 2 Space Left : 2 No Confirm : Yes Background : @@SV_CMPCONFIG Option : Small Size Form Local : Line : Default : NoCursor : Yes Local : Part : MPaySlip MailInfo Config : Delete : Border Local : Part : DSP ExcelExportDetails : Delete : Line : DSP ExportSheetName, Local : Part : MPaySlip MailInfo Config : Delete : Line : MPaySlip MailExportFormat Local : Line : Form SubTitle : Space Top : 0.25 Local : Field : Form SubTitle : Info : $$LocaleString:"E-Mail Configuration" Local : Line : DSP ExcelExportWithFormatting : Local : Field : Short Prompt : Width : 30 Local : Line : DSP ExcelExportWithColour : Local : Field : Short Prompt : Width : 30 Local : Field : DSP Mail ServerName : Storage : TlyTrng Email MailServerName Local : Field : DSP Mail Server : Storage : TlyTrng Email MailServer Local : Field : DSP Mail UseSsl : Storage : TlyTrng Email MailUseSsl Local : Field : DSP Mail UseSSLOnStdPort : Storage : TlyTrng Email Mail UseSSLOnStdPort Local : Field : DSP MailFromAddress : Storage : TlyTrng Email MailFromAddress Local : Field : DSP MailAuthUserName : Storage : TlyTrng Email MailAuthUserName Local : Field : DSP MailAuthPassword : Storage : TlyTrng Email MailAuthPassword Local : Field : DSP MailAuthPassword : Delete : Inactive Local : Line : DSP MailAuthUNInfo : Invisible : Yes Local : Line : DSP MailFromName : Invisible : Yes Local : Line : DSP MailFromAddress : Space Top : 2 [System : Formulae] TlyTrng Email Features : $TlyTrngEmailFeatures:Company:##SVCurrentCompany TlyTrng Email MailServerName : $TlyTrngEmailMailServerName:Company:##SVCurrentCompany TlyTrng Email MailServer : $TlyTrngEmailMailServer:Company:##SVCurrentCompany TlyTrng Email MailUseSsl : $TlyTrngEmailMailUseSsl:Company:##SVCurrentCompany TlyTrng Email Mail UseSSLOnStdPort : $TlyTrngEmailMailUseSSLOnStdPort:Company:##SVCurrentCompany TlyTrng Email MailFromAddress : $TlyTrngEmailMailFromAddress:Company:##SVCurrentCompany TlyTrng Email MailAuthUserName : $TlyTrngEmailMailAuthUserName:Company:##SVCurrentCompany TlyTrng Email MailAuthPassword : $TlyTrngEmailMailAuthPassword:Company:##SVCurrentCompany ToEmail :$ToEmail:Company:##SVCurrentCompany otp:$$RandomNumber:99999:999999 [System:formula] abb:"Invailed OTP \n Please Enter \n The correct OTP " abb1:#otp not contains @@11 11: If $$IsEmpty:##applock then "895641" else ##Applock [System : UDF] TlyTrng Email Features : Logical : 3015 TlyTrng Email MailServerName : String : 3016 TlyTrng Email MailServer : String : 3017 TlyTrng Email MailUseSsl : Logical : 3018 TlyTrng Email Mail UseSSLOnStdPort : Logical : 3019 TlyTrng Email MailFromAddress : String : 3020 TlyTrng Email MailAuthUserName : String : 3021 TlyTrng Email MailAuthPassword : String : 3022 ToEmail : String : 3023 [Variable:Applock] Type:String Set Always:Yes [System:Variable] applock:"" [Function:setotp] 0011 : Set : Applock @otp [Function : TlyTrng Email Vch] Parameter : VoucherId : String Variable : TlyTrng ToEmail : String @ToEmail Variable : TlyTrng EmailSubject : String : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock Variable : SVPrintFileName : String 0000 : If : NOT $$IsEmpty:##TlyTrngToEmail 0050 : Set : SVMailEmbedImage : Yes 0060 : Set : SVExportFormatVar : $$SysNameDF 0070 : Set : SVExportFormat : $$SysNameDF 0080 : Set : SVBrowserWidth : 210 0090 : Set : SVBrowserHeight : 297 0100 : Set : SVMailAttachFileName : $$String:"OTP" + ".PDF" 0110 : Set : SVPrintFileName : $$MakeMailName:##TlyTrngToEmail@TlyTrngEmailMailServer@TlyTrngEmailMailFromAddress@TlyTrngEmailMailFromAddress:##TlyTrngEmailSubject@TlyTrngEmailMailAuthUserName@TlyTrngEmailMailAuthPassword@TlyTrngEmailMailUseSsl@TlyTrngEmailMailUseSSLOnStdPort Local Formula : EMailText : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock + "\n Company - " + $$LocaleString:$$UPPER@CMPMAILNAME +"\n" +"DATE-" +$$LocaleString:$$CurrentDate +"\n" + "TIME - " + $$LocaleString:$$MachineTime 0120 : Set : SVMailText : $$LocaleStringEMailText 0130 : Mail : EMailVoucher : True 0140 : End If [Report : EMailVoucher] Title : "otp" Formtp gen Variable : SVPrintCopies : Number : 1 Variable : SAPrintCopies : Number : 1 [Form:OTP GEn] Parttpgen [Parttpgen] Horizontal Align:Center Vertical Align:Center Linetpgen [Linetpgen] Fieldtpgen [Fieldtpgen] Type:String Set as:##Applock Style:LargeBold2
sir its because it has a button on the part and used form select company List (it was in the prime only form)
Analysing Project: 'otp login'... Report (Select Company2): error T0029: Could not find the definition Form - 'CMP Select Action Form' referred from Report - 'Select Company2' in the attribute - Local. "C:\Users\Abhinand\OneDrive\tally\project\otp for both release.txt"(185): warning T0023: Unused definition System Formulae - TlyTrng Email MailServerName. Analysis Finished. Total 1 Error(s), 1 Warning(s) and 0 Remark(s) Build failed when build time I get this error any solution for this
Code: [#Report: Select Company] Option : Form4ERP9 : @@ProductInformation CONTAINS "Tally.ERP 9" Option : Form4Prime : NOT @@ProductInformation CONTAINS "Tally.ERP 9" [!Report : Form4ERP9] Local : Form : CMP Select Action Form : On : Form Accept : @@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [!Report : Form4Prime] Local : Form : Select Company List : On : Form Accept : @@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP
thank you sir that problem was solved ,but when rlease erp 9 how to go back to select company(company info menu) when press buttons esc2,quit2 sir any other meathead available [System:Events] CmpLoadEvent : Load Company @TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [Reporttp] Formtp [Formtp] Height:15 Width:50 Part:email,otp Optiontp1:$$ProdInforodMajorVersion = 1 and $$ProdInforodMinorVersion > 0 ;as TallyPrime Optiontp2:$$ProdInforodMajorVersion = 1 and $$ProdInforodMinorVersion = 0 ;as Tally.ERP9 Background:White [!Formtp1] Add:Bottom Part:next Key:Esc,quit [!Formtp2] Add:Button:Next2 Delete:Height Add:Height:10 Button:Esc2,quit2 [Button:Esc] Key:ESC Action: Close Company [Button:quit] Key:CTRL+Q Action: Close Company [Button:Esc2] Key:ESC Action: Restart application Title:"Go Back" [Function: restart] 2: IF :$$LastResult 3: Restart Application : $$LocaleString:"Do you want to go back ?" 4: ENDIF ;;End of File [Button:quit2] Key:CTRL+Q Title:"Prvious" Action: Restart application [Part:Next] Space Top:2 Button:Next Horizontal Align:Center [Part:email] Line:email,tommail Horizontal Align:Center [Line:email] Field:email Space Top:.5 [Field:email] Info:$$LocaleString:"(SEND OTP TO)" Color:Blue Align:Center Full Width:Yes [Line:tommail] Field:tommail Space Top:.5 [Field:tommail] Info@ToEmail Color:Blue Align:Center Full Width:Yes [Button:Next] Title:"GENRATE OTP" Focus BG:White Use:Inline Button Template Key:ALT+O Width : 35 Height : 3 Horizontal Align:Center Style:Normal Bold Color:Red Skip Forward:Not $$IsEmpty:#otp ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Button:Next2] Title:"GENRATE OTP" Key:ALT+O ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Parttp] Space Top:2 Linetp Horizontal Align:Center [Linetp] Fieldtp [Fieldtp] Width:35 Max:6 Set as:"" Align:Center Wide Space:Yes Style:Large Bold2 Color:Cyan Blue2 Valid:Yes Control:Abb@Abb1 [Color: Cyan Blue2] RGB : 42, 103, 177 [Style:Large Bold2] Height:25 Font:Arial [#Part : CMP TallyShopFeatures Left] Line : TlyTrng EmailFeatures Line:to Email [Line:To Email] Fields : LONG Prompt, TO EMAIL Local : Field : LONG Prompt : Info : "TO Email id for getting OTP :" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TO EMAIL] Use:Name Field Storage : To Email [Line : TlyTrng EmailFeatures] Fields : LONG Prompt, TlyTrng EmailFeatures Local : Field : LONG Prompt : Info : "Enable OTP Login ?:" Space Top : 0.3 Invisible:NOT $$IsCmpOwner [Field : TlyTrng EmailFeatures] Use : Logical Field Storage : TlyTrng Email Features Sub Form : TlyTrng EmailConfigurations : $$Value [Report : TlyTrng EmailConfigurations] Title : "E-Mail Configurations" Form : TlyTrng EmailConfigurations Full Screen : No Variable:Applock Set : SVAccounts : No Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : Yes Set : SVTaxAudit : No Set : SVTallyNet : No [Form : TlyTrng EmailConfigurations] Parts : Form SubTitle, MPaySlip MailInfo Config Full Width : No Height : 60% Screen Space Right : 2 Space Left : 2 No Confirm : Yes Background : @@SV_CMPCONFIG Option : Small Size Form Local : Line : Default : NoCursor : Yes Local : Part : MPaySlip MailInfo Config : Delete : Border Local : Part : DSP ExcelExportDetails : Delete : Line : DSP ExportSheetName, Local : Part : MPaySlip MailInfo Config : Delete : Line : MPaySlip MailExportFormat Local : Line : Form SubTitle : Space Top : 0.25 Local : Field : Form SubTitle : Info : $$LocaleString:"E-Mail Configuration" Local : Line : DSP ExcelExportWithFormatting : Local : Field : Short Prompt : Width : 30 Local : Line : DSP ExcelExportWithColour : Local : Field : Short Prompt : Width : 30 Local : Field : DSP Mail ServerName : Storage : TlyTrng Email MailServerName Local : Field : DSP Mail Server : Storage : TlyTrng Email MailServer Local : Field : DSP Mail UseSsl : Storage : TlyTrng Email MailUseSsl Local : Field : DSP Mail UseSSLOnStdPort : Storage : TlyTrng Email Mail UseSSLOnStdPort Local : Field : DSP MailFromAddress : Storage : TlyTrng Email MailFromAddress Local : Field : DSP MailAuthUserName : Storage : TlyTrng Email MailAuthUserName Local : Field : DSP MailAuthPassword : Storage : TlyTrng Email MailAuthPassword Local : Field : DSP MailAuthPassword : Delete : Inactive Local : Line : DSP MailAuthUNInfo : Invisible : Yes Local : Line : DSP MailFromName : Invisible : Yes Local : Line : DSP MailFromAddress : Space Top : 2 [System : Formulae] TlyTrng Email Features : $TlyTrngEmailFeatures:Company:##SVCurrentCompany TlyTrng Email MailServerName : $TlyTrngEmailMailServerName:Company:##SVCurrentCompany TlyTrng Email MailServer : $TlyTrngEmailMailServer:Company:##SVCurrentCompany TlyTrng Email MailUseSsl : $TlyTrngEmailMailUseSsl:Company:##SVCurrentCompany TlyTrng Email Mail UseSSLOnStdPort : $TlyTrngEmailMailUseSSLOnStdPort:Company:##SVCurrentCompany TlyTrng Email MailFromAddress : $TlyTrngEmailMailFromAddress:Company:##SVCurrentCompany TlyTrng Email MailAuthUserName : $TlyTrngEmailMailAuthUserName:Company:##SVCurrentCompany TlyTrng Email MailAuthPassword : $TlyTrngEmailMailAuthPassword:Company:##SVCurrentCompany ToEmail :$ToEmail:Company:##SVCurrentCompany otp:$$RandomNumber:99999:999999 [System:formula] abb:"Invailed OTP \n Please Enter \n The correct OTP " abb1:#otp not contains @@11 11: If $$IsEmpty:##applock then "895641" else ##Applock [System : UDF] TlyTrng Email Features : Logical : 3015 TlyTrng Email MailServerName : String : 3016 TlyTrng Email MailServer : String : 3017 TlyTrng Email MailUseSsl : Logical : 3018 TlyTrng Email Mail UseSSLOnStdPort : Logical : 3019 TlyTrng Email MailFromAddress : String : 3020 TlyTrng Email MailAuthUserName : String : 3021 TlyTrng Email MailAuthPassword : String : 3022 ToEmail : String : 3023 [Variable:Applock] Type:String Set Always:Yes [System:Variable] applock:"" [Function:setotp] 0011 : Set : Applock @otp [Function : TlyTrng Email Vch] Parameter : VoucherId : String Variable : TlyTrng ToEmail : String @ToEmail Variable : TlyTrng EmailSubject : String : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock Variable : SVPrintFileName : String 0000 : If : NOT $$IsEmpty:##TlyTrngToEmail 0050 : Set : SVMailEmbedImage : Yes 0060 : Set : SVExportFormatVar : $$SysNameDF 0070 : Set : SVExportFormat : $$SysNameDF 0080 : Set : SVBrowserWidth : 210 0090 : Set : SVBrowserHeight : 297 0100 : Set : SVMailAttachFileName : $$String:"OTP" + ".PDF" 0110 : Set : SVPrintFileName : $$MakeMailName:##TlyTrngToEmail@TlyTrngEmailMailServer@TlyTrngEmailMailFromAddress@TlyTrngEmailMailFromAddress:##TlyTrngEmailSubject@TlyTrngEmailMailAuthUserName@TlyTrngEmailMailAuthPassword@TlyTrngEmailMailUseSsl@TlyTrngEmailMailUseSSLOnStdPort Local Formula : EMailText : "Dear " +$$CmpUserName+" your Tally Login OTP Is - "+##applock + "\n Company - " + $$LocaleString:$$UPPER@CMPMAILNAME +"\n" +"DATE-" +$$LocaleString:$$CurrentDate +"\n" + "TIME - " + $$LocaleString:$$MachineTime 0120 : Set : SVMailText : $$LocaleStringEMailText 0130 : Mail : EMailVoucher : True 0140 : End If [Report : EMailVoucher] Title : "otp" Formtp gen Variable : SVPrintCopies : Number : 1 Variable : SAPrintCopies : Number : 1 [Form:OTP GEn] Parttpgen [Parttpgen] Horizontal Align:Center Vertical Align:Center Linetpgen [Linetpgen] Fieldtpgen [Fieldtpgen] Type:String Set as:##Applock Style:LargeBold2
no come any option for Enter OTP when start tally and no select company to company info and no receve any otp on mail
;;==============HELP ME TO FIX IT=============== [System : UDF] GWLWCustOnYes : Logical : 400 [System : Formula] GWLWEnaleAddon : $GWLWCustOnYes:Company:##SVCurrentCompany = "Yes" GWLWPartyLedgerPartyFilter : $LedgerName =##GWLWPartyLedger GWLWOnly : $$IsBelongsTo:$$GroupSundryDebtors OR $$IsBelongsTo:$$GroupSundryCreditors OR $$ISBelongsto:$$GroupCash OR $$IsBelongsto:$$GroupBank [#Form: Company Operations] Switch : GWLW LowerRel : GWLW NotFor3.2 : ($$Number:$$ProdInforodReleaseAsStr) < 3.2 Switch : GWLW CurrenRel : GWLW For3.2 : ($$Number:$$ProdInforodReleaseAsStr) >= 3.2 [!Form : GWLW NOTFor3.2] Local : Part : CMP AccFeat Right : Add : Line : At End : GWLW Use Customization [!Form : GWLW For3.2] Local : Part : CMP TallyShopFeatures Left : Add : Line : At End : GWLW Use Customization [Line: GWLW Use Customization] Fields : Medium Prompt,GWLW Use Customization Local : Field : Medium Prompt : Info : $$LocaleString:"Enable Party-Wise Multi Voucher Printing ?" Local : Field : Medium Prompt : Fullwidth : yes Space Top : 0.4 [Field: GWLW Use Customization] Use : Logical Field Storage : GWLWCustOnYes [#Part: MVP Print Common] Option : GWLW MVP Print Common : @@GWLWEnaleAddon [!Part : GWLW MVP Print Common] Add : Line : After :VoucherTypeName : GWLW Ledger Name [Line : GWLW Ledger Name] Fields : Medium Prompt,GWLW Ledger Name fld Local : Field : Medium Prompt : Info : $$LocaleString:"Select Ledgers to Print" [Field : GWLW Ledger Name fld] Use : Name Field Set As : ##GWLWPartyLedger Modifies : GWLWPartyLedger Table : GWLW Led table Show Table : Always [Collection: GWLW Led table] Title : $$LocaleString:"List of Ledger Name" Format : $$Name, 20 Align : Right FullHeight : Yes Type : Ledger Fetch : Name Report : Ledger Variable : GWLWPartyLedger Trigger : SLedger BelongsTo : Yes WithAlias : Yes Set as : $Name IsODBCTable : Yes Filter : GWLWOnly [#Report: Multi Voucher Print] Option : GWLW Multi Voucher Print : @@GWLWEnaleAddon [!Report : GWLW Multi Voucher Print] Variable : GWLWPartyLedger Local : Collection : MSpecific Vouchers of Company : Add : Filter : GWLWPartyLedgerPartyFilter [Variable : GWLWPartyLedger] Type : String [System : Variable] GWLWPartyLedger : ""
login as an admin user and chick this to things in it(@TlyTrngEmailFeatures AND NOT $$IsCmpOwner) and login as a user then check Please use last updated code Fisrt code will not work When set default company on start is yes
Code: [System:Events] CmpLoadEvent : Load Company :@@TlyTrngEmailFeatures AND NOT $$IsCmpOwner : Execute : OTP [Report:OTP] Form:OTP [Form:OTP] Height : 15 Width : 50 Part : email,otp Option : Otp2:$$ProdInfo:prodMajorVersion = 1 and $$ProdInfo:prodMinorVersion = 0 Background:White [!Form:Otp2] Add:Button : Next2 Delete : Height Add:Height : 10 Button : Esc2,quit2 [Button:Esc2] Key : ESC Action : Restart application Title : "Go Back" [Function: restart] 2: IF :$$LastResult 3: Restart Application : $$LocaleString:"Do you want to go back ?" 4: ENDIF [Button:quit2] Key : CTRL+Q Title : "Previous" Action : Restart application [Part:email] Line : email,tommail Horizontal Align: Center [Line:email] Field : email Space Top : 0.5 [Field:email] Info : $$LocaleString:"(SEND OTP TO)" Color : Blue Align : Center Full Width : Yes [Line:tommail] Field : tommail Space Top : 0.5 [Field:tommail] Info : @@ToEmail Color : Blue Align : Center Full Width : Yes [Button:Next2] Title : "GENRATE OTP" Key : ALT + G ActionEx:1:Call:setotp ActionEx:2: Call : TlyTrng Email Vch : $MasterId [Part:otp] Space Top : 2 Line : otp Horizontal Align: Center [Line:otp] Field : otp [Field:otp] Width : 35 Max : 6 Set as : "" Align : Center Wide Space : Yes Style : Large Bold2 Color : Cyan Blue2 Valid : Yes Control : Abb:@@Abb1 [Color: Cyan Blue2] RGB : 42, 103, 177 [Style:Large Bold2] Height:25 Font:Arial [#Part : CMP TallyShopFeatures Left] Line : TlyTrng EmailFeatures Line:to Email [Line:To Email] Fields : LONG Prompt, TO EMAIL Local : Field : LONG Prompt : Info : "TO Email id for getting OTP :" Space Top : 0.3 Invisible : NOT $$IsCmpOwner [Field : TO EMAIL] Use : Name Field Storage : To Email [Line : TlyTrng EmailFeatures] Fields : LONG Prompt, TlyTrng EmailFeatures Local : Field : LONG Prompt : Info : "Enable OTP Login ?:" Space Top : 0.3 Invisible : NOT $$IsCmpOwner [Field : TlyTrng EmailFeatures] Use : Logical Field Storage : TlyTrng Email Features Sub Form : TlyTrng EmailConfigurations : $$Value [Report : TlyTrng EmailConfigurations] Title : "E-Mail Configurations" Form : TlyTrng EmailConfigurations Full Screen : No Variable : Applock Set : SVAccounts : No Set : SVInventory : No Set : SVStatutory : No Set : SVTallyShop : Yes Set : SVTaxAudit : No Set : SVTallyNet : No [Form : TlyTrng EmailConfigurations] Parts : Form SubTitle, MPaySlip MailInfo Config Full Width : No Height : 60% Screen Space Right : 2 Space Left : 2 No Confirm : Yes Background : @@SV_CMPCONFIG Option : Small Size Form Local : Line : Default : NoCursor : Yes Local : Part : MPaySlip MailInfo Config : Delete : Border Local : Part : DSP ExcelExportDetails : Delete : Line : DSP ExportSheetName, Local : Part : MPaySlip MailInfo Config : Delete : Line : MPaySlip MailExportFormat Local : Line : Form SubTitle : Space Top : 0.25 Local : Field : Form SubTitle : Info : $$LocaleString:"E-Mail Configuration" Local : Line : DSP ExcelExportWithFormatting : Local : Field : Short Prompt : Width : 30 Local : Line : DSP ExcelExportWithColour : Local : Field : Short Prompt : Width : 30 Local : Field : DSP Mail ServerName : Storage : TlyTrng Email MailServerName Local : Field : DSP Mail Server : Storage : TlyTrng Email MailServer Local : Field : DSP Mail UseSsl : Storage : TlyTrng Email MailUseSsl Local : Field : DSP Mail UseSSLOnStdPort : Storage : TlyTrng Email Mail UseSSLOnStdPort Local : Field : DSP MailFromAddress : Storage : TlyTrng Email MailFromAddress Local : Field : DSP MailAuthUserName : Storage : TlyTrng Email MailAuthUserName Local : Field : DSP MailAuthPassword : Storage : TlyTrng Email MailAuthPassword Local : Field : DSP MailAuthPassword : Delete : Inactive Local : Line : DSP MailAuthUNInfo : Invisible : Yes Local : Line : DSP MailFromName : Invisible : Yes Local : Line : DSP MailFromAddress : Space Top : 2 [System : Formulae] TlyTrng Email Features : $TlyTrngEmailFeatures:Company:##SVCurrentCompany TlyTrng Email MailServerName : $TlyTrngEmailMailServerName:Company:##SVCurrentCompany TlyTrng Email MailServer : $TlyTrngEmailMailServer:Company:##SVCurrentCompany TlyTrng Email MailUseSsl : $TlyTrngEmailMailUseSsl:Company:##SVCurrentCompany TlyTrng Email Mail UseSSLOnStdPort : $TlyTrngEmailMailUseSSLOnStdPort:Company:##SVCurrentCompany TlyTrng Email MailFromAddress : $TlyTrngEmailMailFromAddress:Company:##SVCurrentCompany TlyTrng Email MailAuthUserName : $TlyTrngEmailMailAuthUserName:Company:##SVCurrentCompany TlyTrng Email MailAuthPassword : $TlyTrngEmailMailAuthPassword:Company:##SVCurrentCompany ToEmail : $ToEmail:Company:##SVCurrentCompany otp : $$RandomNumber:99999:999999 [System:formula] abb : "Invailed OTP \n Please Enter \n The correct OTP " abb1 : #otp not contains @@11 11 : If $$IsEmpty:##applock then "895641" else ##Applock [System : UDF] TlyTrng Email Features : Logical : 3015 TlyTrng Email MailServerName : String : 3016 TlyTrng Email MailServer : String : 3017 TlyTrng Email MailUseSsl : Logical : 3018 TlyTrng Email Mail UseSSLOnStdPort : Logical : 3019 TlyTrng Email MailFromAddress : String : 3020 TlyTrng Email MailAuthUserName : String : 3021 TlyTrng Email MailAuthPassword : String : 3022 ToEmail : String : 3023 [Variable:Applock] Type:String Set Always:Yes [System:Variable] applock:"" [Function:setotp] 0011 : Set : Applock :@@otp [Function : TlyTrng Email Vch] Parameter : VoucherId : String Variable : TlyTrng ToEmail : String :@@ToEmail Variable : TlyTrng EmailSubject : String : "OTP LOGIN FOR USER " +$$CmpUserName+" GENERATED BY ABHINAND VK OTP IS -"+##applock Variable : SVPrintFileName : String 0000 : If : NOT $$IsEmpty:##TlyTrngToEmail 0060 : Set : SVExportFormatVar : $$SysName:pDF 0070 : Set : SVExportFormat : $$SysName:pDF 0100 : Set : SVMailAttachFileName : $$String:" OTP" + ".PDF" 0110 : Set : SV PrintFileName :$$MakeMailName:##TlyTrngToEmail:@@TlyTrngEmailMailServer:@@TlyTrngEmailMailFromAddress:@@TlyTrngEmailMailFromAddress:##TlyTrngEmailSubject:@@TlyTrngEmailMailAuthUserName:@@TlyTrngEmailMailAuthPassword:@@TlyTrngEmailMailUseSsl:@@TlyTrngEmailMailUseSSLOnStdPort Local Formula : EMailText : "Dear " +$$Upper:$$CmpUserName+" your Tally Login OTP Is - "+##applock + "\n Company - " + $$LocaleString:$$UPPER:@@CMPMAILNAME +"\n" +"DATE-" +$$LocaleString:$$CurrentDate +"\n" + "TIME - " + $$LocaleString:$$MachineTime 0120 : Set : SVMailText : $$LocaleString:@EMailText 0130 : Mail : EMailVoucher : Yes 0140 : End If [Report : EMailVoucher] Title : "OTP GENERATION IN PROGRESS.." Form:otpgen [Form:OTPGEn] Part:otpgen [Part:otpgen] Horizontal Align:Center Line:otpgen [Line:otpgen] Field:otpgen [Field:otpgen] Type:String Set as:##Applock Style:LargeBold2 Well Done Sir.. Its Working Properly I have used Same Code [Original Credit Abhinand VK & Amit Kamdar Sir] I want to Send Only Text Message as Email Not PDF
