please help me to sort out the Auto Emailing a logfile as text file from tally

Discussion in 'Free Source Codes' started by Kiran Bedi, Jul 19, 2021.

    
  1. Kiran Bedi

    Kiran Bedi New Member


    Is it possible of mailing the log file (text file)which is created in tally exe folder from the tally erp9
    The below code which i have tried







    ;;;;;;;;;;;;;;;;;;;;;;;code;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


    [#Part: CMP TallyShopFeatures Left]

    Add : Line : At Beginning : Maze_ Email Add On Line
    [Line : Maze_ Email Add On Line]
    Fields : Medium Prompt, Maze_ Email Add On Field
    Local : Field : Medium Prompt : Set as : $$LocaleString:"Enable Auto Emailing ?"
    Space Top : 0.4

    [Field: Maze_ Email Add On Field]
    Use : Logical Field
    Set as : If NOT ##SVTallyShop then "No" else $$Value
    Storage : Maze_EmailAddOn
    Skip : NOT ##SVTallyShop
    Set Always : Yes
    SubForm : Maze_ Email Add On : $$Value = Yes
    [Report: Maze_ Email Add On]
    Family : $$Translate:"Configuration Of Mailing"
    Title : $$SPrintf:mad:@Maze_EmailOperationFormat:mad:@ModeName
    Object : Company
    Form : Maze_ Email Add On
    [Form : Maze_ Email Add On]

    Part : CMP OperName, Maze_ Email Add On F11
    Option : Small Size Form
    Height : 90% Screen
    Full Width : No
    HorizontalAlign : Centre
    VerticalAlign : Centre
    [Part: Maze_ Email Add On F11]
    Parts : Maze_ EmailFeat Title, Maze_ Email Features
    Vertical : Yes
    [Part: Maze_ EmailFeat Title]
    Lines : Maze_ EmailFeatTitle
    Horizontal Alignment : Centre

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Email Configuration ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [Line: Maze_ EmailFeatTitle]
    Fields : Form SubTitle
    Local : Field : Form SubTitle : Info : $$LocaleString:"Configuration Of Mailing"
    Space Top : 1
    Space Bottom : 0.4
    [Part: Maze_ Email Features]
    Lines : Maze_ Email Add On Config Title, Maze_ Email Add On Config
    Repeat : Maze_ Email Add On Config : Maze_EmailAddConfig
    Break on : $$IsEndOfList:$Maze_EmailVoucher
    Scroll : Vertical
    Height : 88% Screen
    [Line: Maze_ Email Add On Config Title]

    Fields : Maze_ Email Voucher, Maze_ Email VoucherConfig,Maze_ Email Subject,Maze_ Email Message
    Local : Field :Maze_ Email Voucher : Set as : "Transaction Type"
    Local : Field :Maze_ Email VoucherConfig : Set as : "Action"
    Local : Field :Maze_ Email Subject : Set as : "Subject"
    Local : Field :Maze_ Email Message : Set as : "Message"
    Local : Field :Maze_ Email Voucher : Skip : Yes
    Local : Field :Maze_ Email VoucherConfig : Skip : Yes
    Local : Field :Maze_ Email Subject : Skip : Yes
    Local : Field :Maze_ Email Message : Skip : Yes
    [Line: Maze_ Email Add On Config]
    Fields : Maze_ Email Voucher, Maze_ Email VoucherConfig,Maze_ Email Subject,Maze_ Email Message
    [Field: Maze_ Email Voucher]
    Use : Name Field
    Set as : $Maze_EmailVoucher
    Storage : Maze_EmailVoucher
    Table : ExtractVoucher Type, End Of List
    Show Table : Always
    Set Always : Yes
    [Field: Maze_ Email VoucherConfig]
    Use : Name Field
    Set as : $Maze_EmailVchConf
    Storage : Maze_EmailVchConf
    Table : VoucherConfig
    Skip : $$IsEndOfList:$Maze_EmailVoucher
    Show Table : Always
    Set Always : Yes

    [Field: Maze_ Email Subject]
    Use : Name Field
    Set as : $Maze_EmailSubject
    Storage : Maze_EmailSubject

    [Field: Maze_ Email Message]
    Use : Narration Field
    Set as : $Maze_EmailMessage
    Lines : 3
    Storage : Maze_EmailMessage

    [#Form: Normal INV Voucher]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Contra Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Sales Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Payment Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));##ReportTitle
    [#Form: JobMaterial Journal Voucher]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Receipt Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Journal Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle)) ;:#DSPCfgTitle;##ReportTitle
    [#Form: Debit Note Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Credit Note Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Purchase Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Delivery Note Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Receipt Note Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Rejection Inward Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Rejection Outward Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Sales Order Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: Purc Order Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: POS Invoice Color]
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    ;[#Form: Journal CENVATTaxObj Color]
    ;
    ; On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    ; On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    ;[#Form: Journal ExciseTaxObj Color]
    ;
    ; On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ; :($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    ; On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    ;[#Form: Journal PLATaxObj Color]
    ;
    ; On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    ; On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle

    [#Form: JobOrderIn Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));:#DSPCfgTitle;##ReportTitle
    [#Form: JobOrderOut Color]

    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InCreateMode) : CALL :ConditionEmailVchCheck :mad:@Maze_EmailMastID :##SVVoucherType ;:#DSPCfgTitle;##ReportTitle
    On : Form Accept : (($$ConditionEmailVch:##SVVoucherType) AND $$InAlterMode) : CALL :ConditionEmailVchCheck : $MasterID :##SVVoucherType ;:($$String:($$AccessObj:Line:EmailVchTitle:#DSPCfgTitle));##ReportTitle

    [#Form : Voucher]

    On : Form Accept : (@@IsOrderVch OR @@IsDelNote OR @@IsRcptNote OR @@IsJobOrderOut OR @@IsJobOrderIn or @@IsStockJrnl OR @@IsPhysStockRemote OR @@RejInvoice OR $$IsAttendance:##SVVoucherType) : Form Accept;@@IsRejectionFilter or @@IsAttendanceFilter) : Form Accept;not ($$IsOrderVch:##SVVoucherType): or @@IsStockJrnl;or @@IsAttendanceFilter
    ;@@IsRejectionFilter or @@IsAttendanceFilter not available in addon so replaced with '@@RejInvoice OR $$IsAttendance:##SVVoucherType' by Gowrisankar

    Option : Vch Stock Query Button2 : $$InAlterMode;(($$ConditionEmailVchManual:##SVVoucherType) AND $$InAlterMode)
    Option : Vch Stock Query Button3 : $$InCreateMode;(($$ConditionEmailVchManual:##SVVoucherType) AND $$InCreateMode)
    [!Form: Vch Stock Query Button2]
    Add : Button : At End : VCHSendMailButton1

    [!Form: Vch Stock Query Button3]
    Add : Button : At End : VCHSendMailButton2

    [Button: VCHSendMailButton1]
    Title : $$LocaleString:"Send Email"
    Key : Alt + D
    Inactive : If ($$ConditionEmailVch1 ="Automatic" OR $$ConditionEmailVch1 ="None") then Yes else No
    Action : CALL :ConditionEmailVchCheck :$MasterID :##SVVoucherType

    [Button: VCHSendMailButton2]
    Title : $$LocaleString:"Send Email"
    Key : Alt + D
    Inactive : If ($$ConditionEmailVch1 ="Automatic" OR $$ConditionEmailVch1 ="None") then Yes else No
    Action : CALL :ConditionEmailVchCheck ;:mad:@Maze_EmailMastID :##SVVoucherType

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Invisible the ALt+D - Send Email Button ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    [Function : ConditionEmailVch1]

    Variable : VoucherRes1 : String

    80 : Walk Collection : VoucherCompanyFilterMain
    100 : SET : VoucherRes1 : $Maze_EmailVchConfType
    150 : End Walk
    160 : Return:##VoucherRes1
    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Transaction Types - Action ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [Function : ConditionEmailVch]

    Parameter : ParamVchType : String
    Variable : VoucherRes : Logical : No

    80 : Walk Collection : VoucherCompanyFilterMain
    90 : If : $Maze_EmailVchConfType="Automatic"
    100 : SET : VoucherRes : Yes
    130 : End If
    150 : End Walk
    160 : Return:##VoucherRes
    [Function : ConditionEmailMsg]

    Parameter : ParamVchType : String
    Variable : VoucherRes : String; : No

    80 : Walk Collection : VoucherCompanyFilterMain
    ; 90 : If : $Maze_EmailVchConfType="Automatic"
    100 : SET : VoucherRes : $Maze_EmailVchMessage
    ; 130 : End If
    150 : End Walk
    160 : Return:##VoucherRes

    [Function : ConditionEmailMsg1]

    Parameter : ParamVchType : String
    Variable : VoucherRes : String; : No

    80 : Walk Collection : VoucherCompanyFilterMain
    ; 90 : If : $Maze_EmailVchConfType="Automatic"
    100 : SET : VoucherRes : $Maze_EmailVchSubject
    ; 130 : End If
    150 : End Walk
    160 : Return:##VoucherRes

    [Function : ConditionEmailVchManual]

    Parameter : ParamVchType : String
    Variable : VoucherRes : Logical : No

    80 : Walk Collection : VoucherCompanyFilterMain
    90 : If : $Maze_EmailVchConfType="Manual"
    100 : SET : VoucherRes : Yes
    130 : End If
    150 : End Walk
    160 : Return:##VoucherRes

    [Function : ConditionEmailVchNone]

    Parameter : ParamVchType : String
    Variable : VoucherRes : Logical : No

    80 : Walk Collection : VoucherCompanyFilterMain
    90 : If : $Maze_EmailVchConfType="None"
    100 : SET : VoucherRes : Yes
    130 : End If
    150 : End Walk
    160 : Return:##VoucherRes

    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Transaction Types - Action - End of Function ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    [Collection : VoucherCompanyFilterSrc]

    Type : Maze_EmailAddConfig : Company
    Child Of : ##SVCurrentCompany
    Compute : Maze_EmailVoucherType : $Maze_EmailVoucher
    Compute : Maze_EmailVchConfType : $Maze_EmailVchConf
    Compute : Maze_EmailVchSubject : $Maze_EmailSubject
    Compute : Maze_EmailVchMessage : $Maze_EmailMessage
    [Collection : VoucherCompanyFilterMain]

    Source Collection : VoucherCompanyFilterSrc
    Fetch : Maze_EmailVoucherType,Maze_EmailVchConfType,Maze_EmailVchSubject,Maze_EmailVchMessage
    Filter : VoucherCompanyFilter

    [Collection : VoucherConfig]

    Title : $$LocaleString:"Voucher Mode"
    List : "Automatic"
    List : "Manual"
    List : "None"

    [System : Formulae]

    Maze_EmailOperationFormat : $$LocaleString:"Email Operations %s"
    EmailReportTitleFormat : ##ReportTitle + (if $$IsEmpty:##ReportSubTitle then "" else (" (" + ##ReportSubTitle + ")"))
    VoucherCompanyFilter : $Maze_EmailVoucherType=##SVVoucherType
    Maze_EmailVcHId Formula : "ID:" + $$String:##PMasterID
    EmailVoucherTitleValue : @@VoucherRepName
    Maze_EmailMastID : (If $$IsEmpty:$MasterID then If $$IsEmpty:($CmpVchID:Company:##SvCurrentCompany) Then 1 Else ($CmpVchID:Company:##SvCurrentCompany) Else $MasterID)
    [System : UDF]

    Maze_EmailAddOn : Logical : 30000
    Maze_EmailAddConfig : Aggregate : 30005
    Maze_EmailVoucher : String : 30010
    Maze_EmailVchConf : String : 30015
    Maze_EmailSubject : String : 30020
    Maze_EmailMessage : String : 30025
    [Function : ConditionEmailVchCheck]
    ; Parameter : PMasterID : Number
    ; Parameter : SVVoucherType : String
    Variable : ReportTitle : String
    Variable : SVSelectMailText : String
    Variable : LedgerName : String
    Variable : ToAddress : String
    Variable : CCAddress : String
    Variable : FromAddress : String
    Variable : MailSubject : String
    Variable : StringVchRes : String
    Variable : LedgerNaming : String
    Variable : EmailTest : String
    Variable : EmailCCTest : String
    7 : Set : SVExportLocation : "F:\Jeyanth TDL Code\ZRA New Tech Project\Add-Ons\Nanthini Updated 03-07-2021\Tally ERP 9 09-07-2021\"
    9 : Msg Box: $VoucherTypeName : ##SVExportLocation
    10 : Set : LedgerName : if($$IsEmpty:($PARTYLEDGERNAME)) then (if($$IsEmpty:(($LedgerEntries[1].LedgerName))) then ($LedgerEntries[2].LedgerName) else $LEDGERENTRIES[1].LedgerName) else ($PARTYLEDGERNAME);$PARTYLEDGERNAME;$ALLLEDGERENTRIES[1].LedgerName;
    ; 11 : Set : LedgerNaming : if($$IsEmpty:($PARTYLEDGERNAME)) then (if($$IsEmpty:(($LedgerEntries[1].LedgerName))) then ($LedgerEntries[2].LedgerName) else $LEDGERENTRIES[1].LedgerName) else ($PARTYLEDGERNAME);$PARTYLEDGERNAME;$ALLLEDGERENTRIES[1].LedgerName;
    15 : SET : EmailTest : $EMail:Ledger:##LedgerName;if($$IsEmpty:($EMail:Ledger:$PARTYLEDGERNAME)) then (if($$IsEmpty:($EMail:Ledger:($AllLedgerEntries[1].LedgerName))) then $EMail:Ledger:($AllLedgerEntries[2].LedgerName) else "") else ($EMail:Ledger:$PARTYLEDGERNAME)
    17 : Set : ToAddress : ##EmailTest
    30 : Set : FromAddress : $Email:Company:##SVCurrentCompany
    35 : Set : EmailCCTest : $EMailCC:Ledger:##LedgerName
    45 : Set : SVViewName : ##SVViewName
    50 : Set : SVExportFormat : #DSPExportFormat
    58 : SET : CCAddress : ##EmailCCTest;if($$IsEmpty:($EMailCC:Ledger:$PARTYLEDGERNAME)) then (if($$IsEmpty:($EMailCC:Ledger:($LedgerEntries[1].LedgerName))) then $EMailCC:Ledger:($LedgerEntries[2].LedgerName) else "") else ($EMailCC:Ledger:$PARTYLEDGERNAME)
    62 : Set : MailSubject : $$ConditionEmailMsg1:##SVVoucherType;$$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    62a : Set : SVMailText : $$ConditionEmailMsg:##SVVoucherType
    63 : Set : SVMailFromAddress : #DSPMailFromAddress
    64 : Set : SVMailFromName : #DSPMailFromName
    65 : Set : FromAddress : If $$IsEmpty:##SVMailFromName then ##SVMailFromAddress else '"' + ##SVMailFromName + '"<' + ##SVMailFromAddress + ">"
    80 : SET : SVMailAttachFileName : ##SVExportLocation+"Deliverynoteinvoice"+##SVExportFormat;$$MakeExportName:##PrintFileName:##SVExportFormat

    100 : SET : SVPrintFileName : $$MakeMailName:##ToAddress:##SVMailServer:##FromAddress:##CCAddress:##MailSubject:##SVMailAuthUserName:##SVMailAuthPasswd:##SVMailUseSsl:##SVMailUseSSLOnStdPort ;;FALSE
    105:Msg Box:##SVMailAttachFileName:##SVExportFormat
    110 : IF : $$IsPayment:##SVVoucherType
    120 : MAIL : PymtRcptVoucher Alter : Yes
    130 : Else
    140 : IF : $$IsReceipt:##SVVoucherType
    150 : MAIL : ReceiptVoucher Alter : Yes
    160 : Else
    170 : IF : $$IsJournal:##SVVoucherType
    ;180 : MAIL : Inventory Voucher Display : Yes;Collection not available in Add on So alterd with available journal collection by Gowrisankar
    185 : MAIL : JrnlPrintVoucher Alter : Yes
    190 : Else
    200 : IF : $$IsDebitNote:##SVVoucherType
    210 : MAIL : DCNotePrintVoucher Alter : Yes
    220 : Else
    230 : IF : $$IsCreditNote:##SVVoucherType
    240 : MAIL : DCNotePrintVoucher Alter : Yes
    250 : Else
    260 : IF : $$IsSales:##SVVoucherType AND @@IsPOSInvoice
    270 : MAIL : POS InvoiceVoucher Alter : Yes
    280 : Else
    ; 110 : IF : $$IsReceipt:##SVVoucherType
    290 : MAIL : AccountVoucherDisplay : Yes
    ; 115 : END IF
    300 : END IF
    310 : END IF
    320 : END IF
    330 : END IF
    340 : END IF
    350 : END IF
    ; 120 : MAIL : Account Voucher Display : Yes
    ; 130 : Msg Box : PrintFileName : ##SVPrintFileName

    [Function : ConditionEmailVchCheck1]

    Variable : P1MasterID : Number

    100 : Log:hi
    130 : Msg Box : PrintFileName : "Hi";##SVViewName
    ;;;; Voucher E-Mail
    [Report:pymtRcptVoucher Alter]
    Object : Voucher : @@Maze_EmailVcHIdFormula
    Use : Voucher
    Title : $$LocaleString:##ReportTitle
    Title : $$LocaleString:##SVSelectMailText
    Set : SVVoucherType : ##SVVoucherType
    Form : PymtRcptVoucher Alter
    PrintSet : PrintFileName : $$LocaleString:mad:@VoucherRepName
    PrintSet : ReportTitle : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType));@@InvPrnTitle;(IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then "Invoice" else $VCHPrintTitle:VoucherType:##SVVoucherType)
    PrintSet : SVSelectMailText : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType));@@InvPrnTitle;(IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then "Invoice" else $VCHPrintTitle:VoucherType:##SVVoucherType)
    Set : OrigSVViewName : ##SVViewName
    Set : SVViewName : ##SVViewName
    [Report:ReceiptVoucher Alter]
    Object : Voucher : @@Maze_EmailVcHIdFormula
    Use : Voucher
    Title : $$LocaleString:##ReportTitle
    Title : $$LocaleString:##SVSelectMailText
    Set : SVVoucherType : ##SVVoucherType
    Form : ReceiptVoucher Alter
    PrintSet : PrintFileName : $$LocaleString:mad:@VoucherRepName
    PrintSet : ReportTitle : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    PrintSet : SVSelectMailText : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    Set : OrigSVViewName : ##SVViewName
    Set : SVViewName : ##SVViewName
    [Report:JrnlPrintVoucher Alter]
    Object : Voucher : @@Maze_EmailVcHIdFormula
    Use : Voucher
    Title : $$LocaleString:##ReportTitle
    Title : $$LocaleString:##SVSelectMailText
    Set : SVVoucherType : ##SVVoucherType
    Form : JrnlPrintVoucher Alter
    PrintSet : PrintFileName : $$LocaleString:mad:@VoucherRepName
    PrintSet : ReportTitle : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    PrintSet : SVSelectMailText : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    Set : OrigSVViewName : ##SVViewName
    Set : SVViewName : ##SVViewName
    [Report:DCNotePrintVoucher Alter]
    Object : Voucher : @@Maze_EmailVcHIdFormula
    Use : Voucher
    Title : $$LocaleString:##ReportTitle
    Title : $$LocaleString:##SVSelectMailText
    Set : SVVoucherType : ##SVVoucherType
    Form : DCNotePrintVoucher Alter
    PrintSet : PrintFileName : $$LocaleString:mad:@VoucherRepName
    PrintSet : ReportTitle : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType));@@InvPrnTitle;(IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then "Invoice" else $VCHPrintTitle:VoucherType:##SVVoucherType)
    PrintSet : SVSelectMailText : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType));@@InvPrnTitle;(IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then "Invoice" else $VCHPrintTitle:VoucherType:##SVVoucherType)
    Set : OrigSVViewName : ##SVViewName
    Set : SVViewName : ##SVViewName
    [Report:pOS InvoiceVoucher Alter]
    Object : Voucher : @@Maze_EmailVcHIdFormula
    Use : Voucher
    Title : $$LocaleString:##ReportTitle
    Title : $$LocaleString:##SVSelectMailText
    Set : SVVoucherType : ##SVVoucherType
    Form : POS InvoiceVoucher Alter
    PrintSet : PrintFileName : $$LocaleString:mad:@VoucherRepName
    PrintSet : ReportTitle : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    PrintSet : SVSelectMailText : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    Set : OrigSVViewName : ##SVViewName
    Set : SVViewName : ##SVViewName
    [Report:AccountVoucherDisplay]
    Object : Voucher : @@Maze_EmailVcHIdFormula
    Use : Voucher
    Title : $$LocaleString:##ReportTitle
    Title : $$LocaleString:##SVSelectMailText
    Set : SVVoucherType : ##SVVoucherType
    Form : Voucher Alter
    PrintSet : PrintFileName : $$LocaleString:mad:@VoucherRepName
    PrintSet : ReportTitle : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    PrintSet : SVSelectMailText : $$LocaleString:(If @@IsSales Then If NOT $$IsEmpty:$VCHPrintTitle:VoucherType:##SVVoucherType Then $VCHPrintTitle:VoucherType:##SVVoucherType Else "INVOICE" Else (IF $$IsEmpty:($VCHPrintTitle:VoucherType:##SVVoucherType) then ##SVVoucherType else $VCHPrintTitle:VoucherType:##SVVoucherType))
    Set : OrigSVViewName :##SVViewName
    Set : SVViewName : ##SVViewName
    [Form: Voucher Alter]
    Use : Printed Invoice
    [#Variable: SVMailAuthPasswd]
    Type : String
    Persistent : Yes
    [#Field: DSP MailAuthPassword]
    Use : Name Field
    Case : Normal
    Modifies : SVMailAuthPasswd
    Skip : NOT $$IsEmpty:$$Value AND NOT $$IsEdited
    Option : EnglishOnly

    [Form: PymtRcptVoucher Alter]

    Use : PymtRcptPrint
    [Form: ReceiptVoucher Alter]

    Use : PymtRcptPrint
    [Form: JrnlPrintVoucher Alter]

    Use : JrnlPrint
    [Form: DCNotePrintVoucher Alter]

    Use : DCNotePrint
    [Form: POS InvoiceVoucher Alter]

    Use : POS Invoice PRint

    [#Report:Voucher]
    ; Delete:Set
    Delete:Variable:VResetOverriddenFlags
     


Share This Page