WIP

ImporterShared/Documents/DocumentLoader.vb

@@ -1,4 +1,5 @@
-Imports System.IO
+Imports System.Globalization
+Imports System.IO
 Imports DigitalData.Modules.Logging
 Imports ImporterShared.Schemas
 Imports ImporterShared.Winline
@@ -33,7 +34,6 @@ Namespace Documents
                 Logger.Debug("Found [{0}] files in directory [{1}]", oFiles.Count, oDirectory)
 
                 For Each oFile In oFiles
-                    ' TODO: Supply currently selected mandator when the mandator selection works
                     Dim oDocument = LoadFile(oFile, pSchema, pMandator)
                     Files.Add(oDocument)
                 Next
@@ -129,9 +129,17 @@ Namespace Documents
                         Where(Function(c) c.Name = oSubElement.Name).
                         SingleOrDefault()
 
+                    Dim oValue = oSubElement.Value
+
+                    ' TODO: Needed when we have time for date times
+                    'If oSchemaField.DataType = Constants.ColumnType.Date Then
+                    '    Dim oDate = Date.ParseExact(oValue, "yyyy-MM-dd", CultureInfo.InvariantCulture)
+                    '    oValue = oDate.ToString("d")
+                    'End If
+
                     oFields.Add(oSubElement.Name.ToString, New DocumentRow.FieldValue With {
-                        .Original = oSubElement.Value,
-                        .Final = oSubElement.Value,
+                        .Original = oValue,
+                        .Final = oValue,
                         .DataType = oSchemaField.DataType
                     })
                 Next