Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb
===================================================================
diff -u -r1629 -r1634
--- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1629)
+++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1634)
@@ -2,22 +2,36 @@
Private Shared _instance As SifonLadeController
Private ReadOnly _specialLadenRep As SpecialLadenRepository
+ Private ReadOnly _sifonladeManager As LadeManager(Of ISifonLade)
- Public Sub New()
- _specialLadenRep = New SpecialLadenRepository
- End Sub
-
+ '''
+ ''' Singleton instantie opvragen.
+ '''
+ ''' Instantie
Public Shared Function GetInstance() As SifonLadeController
If _instance Is Nothing Then
_instance = New SifonLadeController
End If
Return _instance
End Function
-
+
+ Public Sub New()
+ 'Repository
+ _specialLadenRep = New SpecialLadenRepository
+ End Sub
+
'''
- ''' Informatie opvragen over de sifonLade als DTO.
+ ''' Zoek de lade aan de hand van de lade code.
'''
'''
+ Public Function ZoekLade(ladeCode As String) As Boolean
+
+ End Function
+
+ '''
+ ''' Informatie opvragen over de sifonLade als DTO.
+ '''
+ ''' DTO met informatie
Public Function GeefInformatieSifonLade() As SifonLadeDto
'De eerste sifonlade opvragen.
Dim sifonLade As ISifonLade = _specialLadenRep.geefSifonLade(0)
@@ -27,6 +41,18 @@
Return dtoConverter.ToDto(sifonLade)
End Function
+ '''
+ ''' Gewijzigde waarden van de sifon lade updaten.
+ '''
+ ''' De DTO van de sifon lade
+ Public Sub UpdateWaardenSifonLade(sifonLadeDto As SifonLadeDto)
+ 'De DTO converter aanmaken.
+ Dim dtoConverter = New SifonLadeDtoConverter
+ 'Dto converteren naar sifon lade.
+ dtoConverter.FromDto(sifonLadeDto)
+
+ End Sub
+
Private Sub verdeelSifonLadenOverReworkTrays()
Dim zijkanten As New List(Of ArdisData)
For Each sifonLade In _specialLadenRep.sifonLaden