Index: ActiviteitenOpvolging/ProductiePitching/mappers/CacheMapper.vb
===================================================================
diff -u -r1759 -r1764
--- ActiviteitenOpvolging/ProductiePitching/mappers/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1759)
+++ ActiviteitenOpvolging/ProductiePitching/mappers/CacheMapper.vb	(.../CacheMapper.vb)	(revision 1764)
@@ -112,7 +112,7 @@
                 Dim workItem As New WorkItem
                 'Fill with values.
                 With workItem
-                    .BatchVisual = ExtractItemFromDataReader(CacheDataReader, "BatchVisual", 0)
+                    .BatchVisual = ExtractItemFromDataReader(CacheDataReader, "BatchVisual", String.Empty)
                     .DeliverToResource = ExtractItemFromDataReader(CacheDataReader, "Naar", String.Empty)
                     .ProductGroup = ExtractItemFromDataReader(CacheDataReader, "Productgroep", String.Empty)
                     .Remark = ExtractItemFromDataReader(CacheDataReader, "Opmerking", String.Empty)
Index: ActiviteitenOpvolging/ProductiePitching/domain/classes/IWorkItem.vb
===================================================================
diff -u -r1759 -r1764
--- ActiviteitenOpvolging/ProductiePitching/domain/classes/IWorkItem.vb	(.../IWorkItem.vb)	(revision 1759)
+++ ActiviteitenOpvolging/ProductiePitching/domain/classes/IWorkItem.vb	(.../IWorkItem.vb)	(revision 1764)
@@ -1,6 +1,6 @@
 Public Interface IWorkItem
     'Fixed fields.
-    Property BatchVisual As Integer
+    Property BatchVisual As String
     'Optional fields.
     Property DeliverToResource As String
     Property ProductGroup As String
Index: ActiviteitenOpvolging/ProductiePitching/screens/DataGridViewUserControl.vb
===================================================================
diff -u -r1759 -r1764
--- ActiviteitenOpvolging/ProductiePitching/screens/DataGridViewUserControl.vb	(.../DataGridViewUserControl.vb)	(revision 1759)
+++ ActiviteitenOpvolging/ProductiePitching/screens/DataGridViewUserControl.vb	(.../DataGridViewUserControl.vb)	(revision 1764)
@@ -391,4 +391,5 @@
             WorkItemsDataGridView.ClearSelection()
         End Try
     End Sub
+
 End Class
Index: ActiviteitenOpvolging/ProductiePitching/domain/classes/implementations/WorkItem.vb
===================================================================
diff -u -r1759 -r1764
--- ActiviteitenOpvolging/ProductiePitching/domain/classes/implementations/WorkItem.vb	(.../WorkItem.vb)	(revision 1759)
+++ ActiviteitenOpvolging/ProductiePitching/domain/classes/implementations/WorkItem.vb	(.../WorkItem.vb)	(revision 1764)
@@ -1,7 +1,7 @@
 Public Class WorkItem
     implements IWorkItem
 
-    Public Property BatchVisual As Integer Implements IWorkItem.BatchVisual
+    Public Property BatchVisual As String Implements IWorkItem.BatchVisual
     Public Property DeliverToResource As String Implements IWorkItem.DeliverToResource
     Public Property ProductGroup As String Implements IWorkItem.ProductGroup
     Public Property Remark As String Implements IWorkItem.Remark