- Code: Select all
' Form Loaded breakout
End Sub
Public Function ProcessSalesOrder(FormObject, SalesOrderObject)
Dim SOProcObject
Dim lErrorString
Dim lErrorModule
ProcessSalesOrder = True
If ProcessSalesOrder = True Then
Set SOProcObject = CreateObject("JiwaProcessSO.clsSalesOrderProcess")
Set SOProcObject.Database = SalesOrderObject.Database
Set SOProcObject.CommonLib = SalesOrderObject.JiwaCommLib
Set SOProcObject.JLib = SalesOrderObject.JLib
Set SOProcObject.MDIParent = FormObject.MDIParent
Set SOProcObject.SystemProfile = SalesOrderObject.SystemProfile
End If
If ProcessSalesOrder = True Then
If SOProcObject.Setup = 0 Then
ProcessSalesOrder = False
lErrorString = SOProcObject.ErrorString
lErrorModule = SOProcObject.ErrorModule
End If
End If
If ProcessSalesOrder = True Then
If SOProcObject.ProcessSalesOrder(SalesOrderObject.InvoiceID) = 0 Then
ProcessSalesOrder = False
lErrorString = SOProcObject.ErrorString
lErrorModule = SOProcObject.ErrorModule
End If
End If
If Not (SOProcObject Is Nothing) Then
SOProcObject.CleanUp
Set SOProcObject = Nothing
End If
If ProcessSalesOrder = False Then
MsgBox "Error occurred whilst processing : " & lErrorString & vbCrLf & "Module : " & lErrorModule
End If
End Function
You could then invoke this, when the sales order invoice is printed
- Code: Select all
' Sales Order Save Completed Breakout
If Printing = True And SalesOrderObject.SalesOrderStatus = 0 Then
If SalesOrderObject.PrintLogs(SalesOrderObject.PrintLogs.Count).ReportType = 0 Then
If ProcessSalesOrder(FormObject, SalesOrderObject) = True Then
FormObject.ReadRecord 0
End If
End If
End If
End Sub