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