I also discovered another issue, If I create a New credit Note and if the previous SO showed a Branch other than Sydney it DOES NOT change the Branch to Sydney? However creating a New Invoice it forces the Branch correctly as per the code? Do I need to cater for Credit Notes separately? Thanks.
Code below.
- Code: Select all
Public Sub Setup(ByVal JiwaForm As JiwaApplication.IJiwaForm, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaFormPlugin.Setup
Dim salesOrderForm As JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(JiwaForm, JiwaSalesUI.SalesOrder.SalesOrderEntryForm)
AddHandler salesOrderForm.SalesOrder.CreateEnd, AddressOf CreateEnd
AddHandler salesOrderForm.SalesOrder.SaveStart, AddressOf SaveStart
AddHandler salesOrderForm.SalesOrder.ReadEnd, AddressOf ReadEnd
AddHandler salesOrderForm.SalesOrder.PropertyChanged, AddressOf PropertyChanged
End Sub
Private Sub CreateEnd(sender As Object, e As System.EventArgs)
Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = DirectCast(sender, JiwaSales.SalesOrder.SalesOrder)
Dim salesOrderForm As JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(salesOrder.client, JiwaSalesUI.SalesOrder.SalesOrderEntryForm)
'' *** For Warehouse 'Alexandria, Branch = Sydney ** 14/07/16 DH
'' msgbox (" salesOrder.Branch.Description = " & salesOrder.Branch.Description )
If salesOrder.Warehouse.Description = "Alexandria" Then
salesorder.Branch.ReadRecordFromDescription("Sydney")
End If
End Sub
Private Sub SaveStart(sender As Object, e As System.EventArgs)
Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = DirectCast(sender, JiwaSales.SalesOrder.SalesOrder)
'' *** NOT NEEDED - used CreateEnd ***
End Sub
Private Sub ReadEnd(sender As Object, e As System.EventArgs)
Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = DirectCast(sender, JiwaSales.SalesOrder.SalesOrder)
Dim salesOrderForm As JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(salesOrder.client, JiwaSalesUI.SalesOrder.SalesOrderEntryForm)
' lock
salesOrderForm.BranchLookup.Enabled = False
salesOrderForm.lblBranch.Enabled = False
End Sub
Private Sub PropertyChanged(sender As Object, e As System.EventArgs)
Dim salesOrder As JiwaSales.SalesOrder.SalesOrder = DirectCast(sender, JiwaSales.SalesOrder.SalesOrder)
Dim salesOrderForm As JiwaSalesUI.SalesOrder.SalesOrderEntryForm = DirectCast(salesOrder.client, JiwaSalesUI.SalesOrder.SalesOrderEntryForm)
' lock
salesOrderForm.BranchLookup.Enabled = False
salesOrderForm.lblBranch.Enabled = False
End Sub
End Class


