Creditor Cheque Payment email

[perry]

Hi,

Jiwa 7.0.157

The task is to add "Remark" from cheque payment line to the email body section.

There is no token available for remark. I also tried to see if I can change the email content but no luck finding an event.

In general, when you click "Email" on cheque payment form, are there any event available on the popup form?
I had similar task (link below), that requires events from that popup form.
https://forums.jiwa.com.au/viewtopic.php?f=26&t=657&p=2277&hilit=cheque#p2277

[Mike.Sheen]

Hi Perry,

I've added DEV-5661 to add this capability.

Mike

[perry]

Hi Mike,

We had the same request again from another customer.

I found a hacky solution, although still prefer if DEV-5661 can be implemented. Not sure what has been planned but would you consider using xlst as template and pass the whole object (as XML)? This way you dont have to worry about tokens.

with the temp solution, I overwrite the invoice number field (only text field is available at line level) with html code. it does the job.

Code: Select all

Private Sub AfterDialogStart(JiwaDialog As IJiwaDialog)
            If TypeOf JiwaDialog Is JiwaCreditorChqPayUI.EmailRemittance Then
                Dim emailRemittanceDialog As JiwaCreditorChqPayUI.EmailRemittance = JiwaDialog

                'PM 2018-09-03, this is the sample code by Jiwa, although, .Owner is always nothing...
                'Dim creditorChequePaymentForm As JiwaCreditorChqPayUI.CreditorChqPay = emailRemittanceDialog.Owner


                For Each creditor As JiwaCreditorChqPay.Creditor In ChqPayForm.CRChequePayObject.Creditors

                    For Each pay As JiwaCreditorChqPay.clsPayLineInvoice In creditor.InvoicePaymentLines
                        If Not pay.InvoiceNo.Contains("</td>") Then
                            pay.InvoiceNo += "</span><o:p></o:p></p></td>" &
                "<td width=75 style='width:56.25pt;padding:.75pt .75pt .75pt .75pt'>" &
                "<p class=MsoNormal align=right style='text-align:right'><span style='font-size:10.0pt;font-family:""Verdana"",""sans-serif"";color:black'>" &
                pay.CRTransRemark
                        End If
                    Next
                Next


            End If