FishEye: Tag 1745 refers to a dead (removed) revision in file `ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatchServer.vb'. FishEye: No comparison available. Pass `N' to diff? Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj =================================================================== diff -u -r1744 -r1745 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1744) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj (.../ActiviteitenOpvolging.vbproj) (revision 1745) @@ -14,6 +14,7 @@ v4.7.2 true true + false publish\ true Disk @@ -26,7 +27,6 @@ true 0 1.0.0.%2a - false false true @@ -178,7 +178,7 @@ UserControl - + Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatch.vb =================================================================== diff -u --- ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatch.vb (revision 0) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatch.vb (revision 1745) @@ -0,0 +1,106 @@ +'------------------------------------------------------------------------------ +' +' Deze code is gegenereerd met een hulpprogramma. +' Runtime-versie:4.0.30319.42000 +' +' Als u wijzigingen aanbrengt in dit bestand, kan dit onjuist gedrag veroorzaken wanneer +' de code wordt gegenereerd. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + +Imports System.Data + +Namespace ServiceAgents.Implementations + + + _ + Public Interface ActiviteitPerBatch + + _ + Function GeefActies(ByVal Werkpost As String) As System.Data.DataSet + + _ + Function GeefActiesAsync(ByVal Werkpost As String) As System.Threading.Tasks.Task(Of System.Data.DataSet) + + _ + Function PauzeerActiesVanApp(ByVal AppNaam As String, ByVal ComputerNaam As String) As String + + _ + Function PauzeerActiesVanAppAsync(ByVal AppNaam As String, ByVal ComputerNaam As String) As System.Threading.Tasks.Task(Of String) + + _ + Function RegistreerActieByKey(ByVal BatchResActKey As String, ByVal Status As String, ByVal Gebruiker As String, ByVal AppNaam As String, ByVal ComputerNaam As String) As String + + _ + Function RegistreerActieByKeyAsync(ByVal BatchResActKey As String, ByVal Status As String, ByVal Gebruiker As String, ByVal AppNaam As String, ByVal ComputerNaam As String) As System.Threading.Tasks.Task(Of String) + End Interface + + _ + Public Interface ActiviteitPerBatchSoapChannel + Inherits ActiviteitPerBatch, System.ServiceModel.IClientChannel + End Interface + + _ + Partial Public Class ActiviteitPerBatchSoapClient + Inherits System.ServiceModel.ClientBase(Of ActiviteitPerBatch) + Implements ActiviteitPerBatch + + Public Sub New() + MyBase.New + End Sub + + Public Sub New(ByVal endpointConfigurationName As String) + MyBase.New(endpointConfigurationName) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(endpointConfigurationName, remoteAddress) + End Sub + + Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress) + MyBase.New(binding, remoteAddress) + End Sub + + Public Function GeefActies(ByVal Werkpost As String) As System.Data.DataSet Implements ActiviteitPerBatch.GeefActies + Return MyBase.Channel.GeefActies(Werkpost) + End Function + + Public Function GeefActiesAsync(ByVal Werkpost As String) As System.Threading.Tasks.Task(Of System.Data.DataSet) Implements ActiviteitPerBatch.GeefActiesAsync + Return MyBase.Channel.GeefActiesAsync(Werkpost) + End Function + + Public Function PauzeerActiesVanApp(ByVal AppNaam As String, ByVal ComputerNaam As String) As String Implements ActiviteitPerBatch.PauzeerActiesVanApp + Return MyBase.Channel.PauzeerActiesVanApp(AppNaam, ComputerNaam) + End Function + + Public Function PauzeerActiesVanAppAsync(ByVal AppNaam As String, ByVal ComputerNaam As String) As System.Threading.Tasks.Task(Of String) Implements ActiviteitPerBatch.PauzeerActiesVanAppAsync + Return MyBase.Channel.PauzeerActiesVanAppAsync(AppNaam, ComputerNaam) + End Function + + Public Function RegistreerActieByKey(ByVal BatchResActKey As String, ByVal Status As String, ByVal Gebruiker As String, ByVal AppNaam As String, ByVal ComputerNaam As String) As String Implements ActiviteitPerBatch.RegistreerActieByKey + Return MyBase.Channel.RegistreerActieByKey(BatchResActKey, Status, Gebruiker, AppNaam, ComputerNaam) + End Function + + Public Function RegistreerActieByKeyAsync(ByVal BatchResActKey As String, ByVal Status As String, ByVal Gebruiker As String, ByVal AppNaam As String, ByVal ComputerNaam As String) As System.Threading.Tasks.Task(Of String) Implements ActiviteitPerBatch.RegistreerActieByKeyAsync + Return MyBase.Channel.RegistreerActieByKeyAsync(BatchResActKey, Status, Gebruiker, AppNaam, ComputerNaam) + End Function + End Class +End NameSpace \ No newline at end of file Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.user =================================================================== diff -u -r1743 -r1745 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.user (.../ActiviteitenOpvolging.vbproj.user) (revision 1743) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ActiviteitenOpvolging.vbproj.user (.../ActiviteitenOpvolging.vbproj.user) (revision 1745) @@ -1,7 +1,7 @@  - + publish\ Index: ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/details/EmployeeDetailUserControl.vb =================================================================== diff -u -r1744 -r1745 --- ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/details/EmployeeDetailUserControl.vb (.../EmployeeDetailUserControl.vb) (revision 1744) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/screens/employee/details/EmployeeDetailUserControl.vb (.../EmployeeDetailUserControl.vb) (revision 1745) @@ -107,7 +107,6 @@ Dim currentlySelectedActivity = _parentUserControl.GetCurrentlySelectedActivity() 'Update enable status of buttons. - Dim defaultStates() As ActivityStateEnum = {ActivityStateEnum.Finished } If IsNothing(employee.CurrentActivity) Then 'No current activity. StopButton.visible = False Index: ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatchServiceAgent.vb =================================================================== diff -u -r1744 -r1745 --- ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatchServiceAgent.vb (.../ActiviteitPerBatchServiceAgent.vb) (revision 1744) +++ ActiviteitenOpvolging/ActiviteitenOpvolging/ServiceAgents/Implementations/ActiviteitPerBatchServiceAgent.vb (.../ActiviteitPerBatchServiceAgent.vb) (revision 1745) @@ -28,10 +28,10 @@ End Try End Sub - Private Function SoapClient() As ActiviteitPerBatchServerSoapClient + Private Function SoapClient() As ActiviteitPerBatchSoapClient Dim binding = New BasicHttpBinding() Dim address = New EndpointAddress(ConfigsLoader.CacheWebserviceUrl.Value) - Dim activiteitPerBatchClient = new ActiviteitPerBatchServerSoapClient(binding, address) + Dim activiteitPerBatchClient = new ActiviteitPerBatchSoapClient(binding, address) Return activiteitPerBatchClient End Function