EFT Payment email sorting

[perry]

Hi All,
v7.2.1.1 (SR4)

Customer wants to sort Creditor cheque/eft payment email in transaction date order (while system setting is set to Duedate).
I'm looking at the code and cant see an easy way for me to sort it (without rewriting the whole thing), anay suggestion is much appreciated.

[Mike.Sheen]

Are you talking about the order in this dialog?

Because each email is one per creditor - and it is associated with one or more transactions, you can't really order by transaction date, or any date order.

[Mike.Sheen]

After thinking about this some more - you probably want to change the order the transactions appear on each email...

As you would already know, the order the transactions appear on the email matches that of the payment form - which is controlled by a system setting. When composing the email - we simply add the transactions in the order there are in the InvoicePaymentLines collection of each creditor (see code below)

Code: Select all

Public Sub SendRemittanceEmail(ByVal Creditor As JiwaCreditorChqPay.Creditor, ByVal OveriddenEmailAddress As String)

        Dim EmailObject As JiwaApplication.JiwaEmail.EmailMessage

        EmailObject = Manager.BusinessLogicFactory.CreateBusinessLogic(Of JiwaApplication.JiwaEmail.EmailMessage)(Nothing)
        EmailObject.CreateNew()

        EmailObject.BodyIsHTML = True
        EmailObject.EmailFrom = ResolveTokens(From, Creditor, Nothing, OveriddenEmailAddress)
        EmailObject.EmailTo = ResolveTokens(EmailTo, Creditor, Nothing, OveriddenEmailAddress)
        EmailObject.EmailCC = ResolveTokens(CC, Creditor, Nothing, OveriddenEmailAddress)
        EmailObject.EmailBCC = ResolveTokens(BCC, Creditor, Nothing, OveriddenEmailAddress)
        EmailObject.EmailSubject = ResolveTokens(Subject, Creditor, Nothing, OveriddenEmailAddress)

        EmailObject.EmailBody = ResolveTokens(SelectedEmailTemplate.Header, Creditor, Nothing, OveriddenEmailAddress)

        For Each invoice As JiwaCreditorChqPay.clsPayLineInvoice In Creditor.InvoicePaymentLines
            EmailObject.EmailBody &= ResolveTokens(SelectedEmailTemplate.Body, Creditor, invoice, OveriddenEmailAddress)
        Next

        EmailObject.EmailBody &= ResolveTokens(SelectedEmailTemplate.Footer, Creditor, Nothing, OveriddenEmailAddress)

        EmailObject.SourceID = _ChequePaymentForm.CRChequePayObject.RecID
        EmailObject.SourceType = "Creditor Cheque Payments"
        EmailObject.SourceDisplayNo = _ChequePaymentForm.CRChequePayObject.BatchNo
        EmailObject.SourceForm = "JiwaFinancials.Jiwa.JiwaCreditorChqPayUI.CreditorChqPay"

        If RequestReadReceipt Then
            EmailObject.RequestReadReceipt = True
        End If

        EmailObject.Status = JiwaApplication.JiwaEmail.EmailMessage.EmailStatuses.Sent
        EmailObject.Save()

    End Sub

You could try intercepting the tool click of the email button and at that point iterate through each creditor and use a bit of linq to sort the InvoicePaymentLines in the order you want. To prevent unexpected behaviours after the the dialog closes it might be a good idea to sort it back in the order it was, or at least re-read the batch to discard any changes the sorting made.

[perry]

Hi Mike,

Thanks, we did end up changing the system setting to achieve desired sequence.

Changing sequence of the collection item sounds like a fun idea, I probably will try it with my own time.