9bb017db-cb5b-48a2-9336-d9c9596b6533 AERP - 031 - BO Release Copy Carrier During backorder processing, copies the carrier information from a previous snapshot to the newly created snapshot. true false 31 Advanced ERP Consultants 2017.09.25 Option strict On Option explicit On Imports System Imports System.Collections.Generic Imports System.Linq Imports JiwaFinancials.Jiwa Imports JiwaFinancials.Jiwa.JiwaSales Imports JiwaFinancials.Jiwa.JiwaSales.SalesOrder Public Class BusinessLogicPlugin Inherits System.MarshalByRefObject Implements JiwaApplication.IJiwaBusinessLogicPlugin Private _boProcess As JiwaBOProcess.StdFunctions Private _releasedOrders As Dictionary(Of String, String) Public Overrides Function InitializeLifetimeService() As Object ' returning null here will prevent the lease manager ' from deleting the Object. Return Nothing End Function Public Sub Setup(ByVal JiwaBusinessLogic As JiwaApplication.IJiwaBusinessLogic, ByVal Plugin As JiwaApplication.Plugin.Plugin) Implements JiwaApplication.IJiwaBusinessLogicPlugin.Setup _boProcess = TryCast(JiwaBusinessLogic, JiwaBOProcess.StdFunctions) If _boProcess Is Nothing Then Return ' Panic AddHandler _boProcess.ProcessSnapshotCreated, AddressOf BoProcess_SnapshotCreated AddHandler _boProcess.ProcessComplete, AddressOf BoProcess_ProcessComplete _releasedOrders = New Dictionary(Of String, String)() End Sub Private Sub BoProcess_ProcessComplete() If System.Diagnostics.Debugger.IsAttached Then System.Diagnostics.Debugger.Break() ' copy key list so that we can remove items from the dictionary as we process them. Dim keys As List(Of String) = _releasedOrders.Keys.ToList() For Each k As String In keys FixCarrier(k, _releasedOrders(k)) _releasedOrders.Remove(k) Next End Sub ' because Jiwa's standard process (as of 7.0.175) doesn't copy carrier information to a new snapshot. Private Sub FixCarrier(InvoiceID As String, InvoiceHistoryID As String) Dim so As SalesOrder = JiwaApplication.Manager.Instance.BusinessLogicFactory.CreateBusinessLogic(Of SalesOrder)(Nothing) so.Setup() so.Read(InvoiceID) Dim newSoH As SalesOrderHistory = so.SalesOrderHistorys(InvoiceHistoryID) newSoH.Carrier.ReadRecord(so.SalesOrderHistorys(newsoh.HistoryNo - 1).Carrier.RecID, True) ' alternatively, get 1st snapshot's carrier: ' newSoH.Carrier.ReadRecord(so.SalesOrderHistorys(1).Carrier.RecID, True) ' newSoH.Save() so.Save(False, False) ' actually put it in the database! End Sub Private Sub BoProcess_SnapshotCreated(InvoiceID As String, InvoiceHistoryID As String) _releasedOrders.Add(InvoiceID, InvoiceHistoryID) End Sub End Class Report VisualBasic 082530b1-4286-4db2-a6a5-aef37521e476 Backorder Processing JiwaFinancials.Jiwa.JiwaBOProcess.StdFunctions JiwaBOProcess, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c 2d09abc6-bc8d-428b-a832-dce6f655ef74 JiwaApplication, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaApplication.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaApplication.dll 8800953b-2a1a-4ec5-a0c1-b4a77bae9d0e mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 mscorlib.dll C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscorlib.dll 6c8373f0-288a-477b-98b6-752f525f9db0 System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System\v4.0_4.0.0.0__b77a5c561934e089\System.dll c48237eb-4be5-4eff-8a87-40d874867073 System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Data.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_32\System.Data\v4.0_4.0.0.0__b77a5c561934e089\System.Data.dll 8761c211-a53a-470a-a544-5c23fa47d095 System.Xml, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Xml.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Xml\v4.0_4.0.0.0__b77a5c561934e089\System.Xml.dll e6be4848-64ad-4d04-a712-8e834b858c2b System.Runtime.Serialization, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Runtime.Serialization.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.Serialization\v4.0_4.0.0.0__b77a5c561934e089\System.Runtime.Serialization.dll fefdcce8-95c9-4f1d-99b4-11ee54d7661c System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Windows.Forms.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Windows.Forms\v4.0_4.0.0.0__b77a5c561934e089\System.Windows.Forms.dll 213cd2d8-f78c-4b43-8f08-e14c23e15f01 Microsoft.VisualBasic, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a Microsoft.VisualBasic.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\Microsoft.VisualBasic\v4.0_10.0.0.0__b03f5f7f11d50a3a\Microsoft.VisualBasic.dll e51f82dc-dbef-4672-bf1f-a7393b1180a2 JiwaEncryption, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaEncryption.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaEncryption.dll ac5c77cc-5c5c-48f1-aab4-c3c0e56bb0e6 System.Core, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Core.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Core\v4.0_4.0.0.0__b77a5c561934e089\System.Core.dll f67daaa5-8cbf-4320-9265-12cb8de97017 JiwaLib, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaLib.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaLib.dll c51c59f3-1327-4e11-921e-9d902b24e34f System.Security, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a System.Security.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Security\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Security.dll 6cf399fe-4a85-41a3-9a27-659407eb7e2c JiwaSales, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaSales.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaSales.dll 999ff389-4350-4d29-9475-33df032c2af1 System.Runtime.Caching, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a System.Runtime.Caching.dll C:\WINDOWS\Microsoft.Net\assembly\GAC_MSIL\System.Runtime.Caching\v4.0_4.0.0.0__b03f5f7f11d50a3a\System.Runtime.Caching.dll 93b3568d-fe95-4067-b9a1-e204034ecffe JiwaBOProcess, Version=7.0.175.0, Culture=neutral, PublicKeyToken=e30ce81e37f29c8c JiwaBOProcess.dll C:\Program Files (x86)\Jiwa Financials\Jiwa 7\JiwaBOProcess.dll 2cdbec77-9fca-4e8c-a8e5-e2d50a1b1873 caf90ee5-c649-4fba-9aa9-b254f080f467 AERP - 000 - Shared Library A library of shared tools for use by other AERP plugins. Advanced ERP Consultants false 0