Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormSelectID.vb
===================================================================
diff -u -r1609 -r1610
--- TAOR-rework-bugfixing/TAOR rework/formulieren/FormSelectID.vb	(.../FormSelectID.vb)	(revision 1609)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormSelectID.vb	(.../FormSelectID.vb)	(revision 1610)
@@ -109,24 +109,23 @@
             'Data table opvragen uit Caché.
             Dim dataTable = CacheMapper.GeefDataTable(tabel, input)
 
-            If (dataTable IsNot Nothing) AndAlso (dataTable.rows.Count > 0) Then
+            If (dataTable IsNot Nothing) AndAlso (dataTable.Rows.Count > 0) Then
                 'Er zijn rijen aanwezig.
                 gevondenCache = True
             ElseIf tabel = Kolommen.barcode Then
-                'Todo ardis ook updaten en datatable laten retourneren
                 'Er zijn geen rijen aanwezig en het type is een barcode.
-                'Data table opvragen opvragen
-                'dataTable = ArdisMapper.GeefDataTable(input)
-                'If DirectCast(dataTable, SqlDataReader).HasRows Then
-                '    gevondenArdis = True
-                'End If
+                'Data table opvragen via Ardis.
+                dataTable = ArdisMapper.GeefDataTable(input)
+                If (dataTable IsNot Nothing) AndAlso (dataTable.Rows.Count > 0) Then
+                    gevondenArdis = True
+                End If
             End If
 
             If gevondenCache Then
                 'formgrid laden met ODBC dataReader
-                FormController.getInstance.laadFormGrid(Me, tabel, input, dataTable)
+                FormController.getInstance.LaadFormGrid(Me, tabel, input, dataTable)
             ElseIf gevondenArdis Then
-                FormController.getInstance.laadFormGrid(Me, Kolommen.barcodeArdis, input, dataTable)
+                FormController.getInstance.LaadFormGrid(Me, Kolommen.barcodeArdis, input, dataTable)
             Else
                 'datareader bestaat niet
                 lblFoutmeldingOpzoeken.Text = "Er zijn geen resultaten"