Sales Order printed, then email

[DannyC]

I want to do an email after a delivery docket has been printed.
I am exploiting some code in the "Sales Order Custom Email" plugin you've written - basically I want to fire the

Code: Select all

Private Sub EmailSalesOrder

from the printed event.
I need to pass the SalesOrderForm object into the Private Sub EmailSalesOrder but I can't work out how to do it.

So far I have

Code: Select all

    Public Sub Setup(ByVal JiwaForm As JiwaApplication.IJiwaForm, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaFormPlugin.Setup
      Dim salesOrderForm As JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.BaseSalesOrderEntryForm = DirectCast(JiwaForm, JiwaSalesUI.SalesOrder.SalesOrderEntryForm)
      AddHandler salesOrderForm.SalesOrder.Printed, AddressOf SOPrinted
   End Sub

   Public Sub SOPrinted (sender As Object, e As System.eventargs, ByVal Report As JiwaApplication.PrintGroup.SalesOrderReports.SalesOrderReport)
        If Report.Name = "Delivery Docket" Then
'         msgbox ("You have printed the delivery docket")
         Dim salesOrderForm As JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(sender, JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.BaseSalesOrderEntryForm)
         EmailOrderConfirmation(salesOrderForm)
         Throw New JiwaFinancials.Jiwa.JiwaApplication.Exceptions.ClientCancelledException
      End If
   End Sub
'''''''''''''      
   Private Sub EmailOrderConfirmation(ByVal SalesOrderForm As JiwaSalesUI.SalesOrder.SalesOrderEntryForm,  Optional ByVal ExportFormatType As CrystalDecisions.Shared.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat)      
        If salesOrderForm.SalesOrder.ChangeFlag Or salesOrderForm.SalesOrder.InsertFlag Then
            Throw New System.Exception("Cannot email a sales order until the changes have been saved.")
        End If
   '''This is the same as the Jiwa code
   End Sub

but I clearly have a mix up between the object types. It seems the sender in the SOPrinted sub is not a form so it can't cast to a form type.

When I print, I get an error
unable to cast object of type JiwaFinancials.Jiwa.JiwaSales.SalesOrder.SalesOrder to type JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.BaseSalesOrderEntryForm.
How can I get the SalesOrderForm object to pass into the EmailSalesOrder sub?

Thanks

Danny

[Scott.Pearce]

If you look at the type of the sender object passed to SOPrinted, you will see that it is in fact of type JiwaFinancials.Jiwa.JiwaSales.SalesOrder.SalesOrder (and I believe you did figure this). So, begin by casting that to an appropriately typed variable, thus:

Code: Select all

Dim salesOrderObejct As JiwaFinancials.Jiwa.JiwaSales.SalesOrder.SalesOrder = DirectCast(sender, JiwaFinancials.Jiwa.JiwaSales.SalesOrder.SalesOrder)


Now, there is a really useful property called "Client" in many of our business logic objects from which you can get to the form!

Code: Select all

Dim salesOrderForm As JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(salesOrderObejct.client, JiwaFinancials.Jiwa.JiwaSalesUI.SalesOrder.BaseSalesOrderEntryForm)