' There is no communication with the WSA at this time
Dim WS_Payroll As OrderService.PayrollObj WS_Payroll = New OrderService.PayrollObj( ) ' Create the SubAppObject WS_OrderService.CreateAO_Payroll( ) |
' Save the SubAppObjectID in the SubAppObject copy from AppObject
WS_Payroll.PayrollIDValue = WS_OrderService.PayrollIDValue |