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