#If Not SCRIPTDEBUGGER Then
References VI.DataImport.dll

Imports System.Collections.Generic
Imports System.IO
Imports System.Globalization
Imports VI.DB.Entities
Imports VI.DB.Specialized
Imports VI.DataImport
#End If

Public Sub CCC_Person_Import (ByVal dfImport As DataFileImport)

	' Standard variables
	Dim logSection As IDisposable

	' Table
	Dim table = Connection.Tables("Person")

	' Line counter
	Dim counter As New LineCounter()
	
	' Value provider
	Dim lineData As New LineValueProvider(New String() {"ID", "FName", "LName", "SiteRegion", "OrigCostCenter", "ZeroFilledCostCenter", "Department", "employee_status", "Company", "DefaultYardID", "DefaultSiteID", "ExceptSiteID", "Title", "ExceptTitle", "ExceptTelephone", "ExceptFax", "UID_PersonHead","JobCode","JobCodeText", "JobCodeType", "", ""})

	' Import from an external database
	Dim lineProvider As ILineProvider
	Dim dbLineProvider As New DbLineProvider()
	dbLineProvider.ProviderName = "System.Data.SqlClient.SqlClientFactory, System.Data, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"
	dbLineProvider.ConnectionString = "Data Source=" + Connection.GetConfigParm("Custom\DataImport\EmployeeImport\dataSource") _
		+ ";Initial Catalog=" + Connection.GetConfigParm("Custom\DataImport\EmployeeImport\catalog") _
		+ ";User ID=" + Connection.GetConfigParm("Custom\DataImport\EmployeeImport\user") + ";Password=" + dfIMport.Options + ";Pooling=False"
	dbLineProvider.TimeZone = TimeZoneInfo.FindSystemTimeZoneById("Central Standard Time")

	' SQL statement
	Dim statement As New PlainSqlStatement()
	statement.Statement = "select ID,FName,LName,SiteRegion,OrigCostCenter,ZeroFilledCostCenter,Department,employee_status,Company,DefaultYardID,DefaultSiteID,ExceptSiteID,Title,ExceptTitle,ExceptTelephone,ExceptFax,UID_PersonHead,JobCode, JobCodeText, JobCodeType " & _
"  from [dbo].[CCC_D1_Employee_Build]"
                                  '0     1     2          3              4                    5          6               7       8             9            10           11    12          13               14       15              16     17           18           19
    'DefaultSiteID = CustomProperty08
	'ExceptSiteID = CustomProperty03

	dbLineProvider.Statement = statement
	lineProvider = dbLineProvider

	'
	' Configure column resolution
	'

	' Column indices
	Const iPersonnelNumber  = 0
	Const iFirstName        = 1
	Const iLastName         = 2	
	Const iCustomProperty02 = 3
	Const iCustomProperty04 = 4
	Const iUID_ProfitCenter = 5
	Const iUID_Department   = 6
	Const iCustomProperty10 = 7
	Const iCompanyMember    = 8
	Const iCustomProperty01 = 9
	Const iCustomProperty08 = 10
	Const iCustomProperty03 = 11
	Const iPersonalTitle    = 12
	Const iCustomProperty05 = 13
	Const iCustomProperty06 = 14
	Const iCustomProperty07 = 15
	Const iUID_PersonHead   = 16
	Const iCCC_JobCode      = 17
	Const iCCC_JobCodeText  = 18
	Const iCCC_JobCodeType  = 19
 
	
	' Resolver to get column data from import data
	Dim columnCompanyMember As IResolveImportValue = New ResolveImportValueSimple("CompanyMember")
	Dim columnCustomProperty01 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty01")
	Dim columnCustomProperty02 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty02")
	Dim columnCustomProperty03 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty03")
	Dim columnCustomProperty04 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty04")
	Dim columnCustomProperty05 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty05")
	Dim columnCustomProperty06 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty06")
	Dim columnCustomProperty07 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty07")
	Dim columnCustomProperty08 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty08")
	Dim columnCustomProperty09 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty09")
	Dim columnCustomProperty10 As IResolveImportValue = New ResolveImportValueSimple("CustomProperty10")
	Dim columnFirstName As IResolveImportValue = New ResolveImportValueSimple("FirstName")
	Dim columnLastName As IResolveImportValue = New ResolveImportValueSimple("LastName")
	Dim columnPersonalTitle As IResolveImportValue = New ResolveImportValueSimple("PersonalTitle")
	Dim columnPersonnelNumber As IResolveImportValue = New ResolveImportValueSimple("PersonnelNumber")

	' Build a dictionary: The last parameter forces exceptions when duplicate keys are found
	Dim columnUID_Department As New ResolveImportValueHashed( _
		Connection, _
		ObjectWalker.ColDefs(table, "FK(UID_Department).DepartmentName"), False)

	' Build a dictionary: The last parameter forces exceptions when duplicate keys are found
	Dim columnUID_Locality As New ResolveImportValueHashed( _
		Connection, _
		ObjectWalker.ColDefs(table, "FK(UID_Locality).Ident_locality"), False)
		
	' Build a dictionary: The last parameter forces exceptions when duplicate keys are found
	Dim columnUID_PersonHead As New ResolveImportValueHashed( _
		Connection, _
		ObjectWalker.ColDefs(table, "FK(UID_PersonHead).PersonnelNumber"), False)	
	
	'Dim columnUID_PersonHead As IResolveImportValue = New ResolveImportValueSimple("UID_PersonHead")
    Dim columnCCC_JobCode As IResolveImportValue = New ResolveImportValueSimple("CCC_JobCode")
	Dim columnCCC_JobCodeText As IResolveImportValue = New ResolveImportValueSimple("CCC_JobCodeText")
	Dim columnCCC_JobCodeType As IResolveImportValue = New ResolveImportValueSimple("CCC_JobCodeType")
	
	' Build a dictionary: The last parameter forces exceptions when duplicate keys are found
	Dim columnUID_ProfitCenter As New ResolveImportValueHashed( _
		Connection, _
		ObjectWalker.ColDefs(table, "FK(UID_ProfitCenter).AccountNumber"), False)

	Try

		'
		' Create a dictionary for the destination table
		'
		Dim colImport As IEntityCollection
		Dim elemsByKey As New Dictionary(Of String, IEntity)(StringComparer.OrdinalIgnoreCase)
		Dim imported As New HashSet(Of DbObjectKey)()

		logSection = dfImport.LogSection(#LD("Indexing existing data...")#)
		Try
			Dim query As Query = Query.From("Person").SelectNone()

			' Set keys and values as display items to load them with the collection
			query = query.Select("CompanyMember")
			query = query.Select("CustomProperty01")
			query = query.Select("CustomProperty02")
			query = query.Select("CustomProperty03")
			query = query.Select("CustomProperty04")
			query = query.Select("CustomProperty05")
			query = query.Select("CustomProperty06")
			query = query.Select("CustomProperty07")
			query = query.Select("CustomProperty08")
			query = query.Select("CustomProperty09")
			query = query.Select("CustomProperty10")
			query = query.Select("FirstName")
			query = query.Select("LastName")
			query = query.Select("PersonalTitle")
			query = query.Select("PersonnelNumber")
			query = query.Select("UID_Department")
			query = query.Select("UID_Locality")
			query = query.Select("UID_PersonHead")
			query = query.Select("UID_ProfitCenter")
			query = query.Select("xmarkedfordeletion")
			query = query.Select("CCC_JobCode")
			query = query.Select("CCC_JobCodeText")
			query = query.Select("CCC_JobCodeType")

			' Load the collection
			colImport = Session.Source().GetCollection(query, EntityCollectionLoadType.Slim)

			' Put the entries in the dictionary
			For Each elem In colImport
				Dim key As String

				key = elem.GetValue("PersonnelNumber").String

				If elemsByKey.ContainsKey(key) Then
					dfImport.Log(MsgSeverity.Serious, #LD("Duplicate key: {0}", key)#)
				Else
					elemsByKey.Add(key, elem)
				End If
			Next
		Finally
			If Not logSection Is Nothing Then
				logSection.Dispose()
				logSection = Nothing
			End If
		End Try

		logSection = dfImport.LogSection(#LD("Import data from file")#)
		Try
			For Each line As Line In lineProvider.GetLines(counter)

				' Pay attention to the Stop flag
				If StopProcessing Then
					dfImport.Log(MsgSeverity.Warning, #LD("Import was stopped.")#)
					Exit For
				End If

				Try
					' Get raw data from the current line
					Dim key As String

					line.Add("Fixed value")
					line.Add("Fixed value")
					
					Dim valCCC_JobCode As String
					Dim resCCC_JobCode As String
					
					Dim valCCC_JobCodeText As String
					Dim resCCC_JobCodeText As String
					
					Dim valCCC_JobCodeType As String
					Dim resCCC_JobCodeType As String

					Dim valCompanyMember As String
					Dim resCompanyMember As String

					Dim valCustomProperty01 As String
					Dim resCustomProperty01 As String
					
					Dim valCustomProperty02 As String
					Dim resCustomProperty02 As String

					Dim valCustomProperty03 As String
					Dim resCustomProperty03 As String

					Dim valCustomProperty04 As String
					Dim resCustomProperty04 As String

					Dim valCustomProperty05 As String
					Dim resCustomProperty05 As String

					Dim valCustomProperty06 As String
					Dim resCustomProperty06 As String

					Dim valCustomProperty07 As String
					Dim resCustomProperty07 As String

					Dim valCustomProperty08 As String
					Dim resCustomProperty08 As String
					
					Dim valCustomProperty09 As String
					Dim resCustomProperty09 As String
					
					Dim valCustomProperty10 As String
					Dim resCustomProperty10 As String

					Dim valFirstName As String
					Dim resFirstName As String

					Dim valLastName As String
					Dim resLastName As String

					Dim valPersonalTitle As String
					Dim resPersonalTitle As String

					Dim valPersonnelNumber As String
					Dim resPersonnelNumber As String

					Dim valUID_Department As String
					Dim resUID_Department As String

					Dim valUID_Locality As String
					Dim resUID_Locality As String

					Dim valUID_PersonHead As String
					Dim resUID_PersonHead As String

					Dim valUID_ProfitCenter As String
					Dim resUID_ProfitCenter As String
						valCompanyMember = line.GetValue(iCompanyMember)
						valCustomProperty01 = line.GetValue(iCustomProperty01)
						valCustomProperty02 = line.GetValue(iCustomProperty02)
						valCustomProperty03 = line.GetValue(iCustomProperty03)
						valCustomProperty04 = line.GetValue(iCustomProperty04)
						valCustomProperty05 = line.GetValue(iCustomProperty05)
						valCustomProperty06 = line.GetValue(iCustomProperty06)
						valCustomProperty07 = line.GetValue(iCustomProperty07)
						valCustomProperty08 = line.GetValue(iCustomProperty08)
						valCustomProperty09 = "Fixed value"
						valCustomProperty10 = line.GetValue(iCustomProperty10)
						valFirstName = line.GetValue(iFirstName)
						valLastName = line.GetValue(iLastName)
						valPersonalTitle = line.GetValue(iPersonalTitle)
						valPersonnelNumber = line.GetValue(iPersonnelNumber)
						valUID_Department = line.GetValue(iUID_Department)
						valUID_Locality = "Fixed value"
						valUID_PersonHead = line.GetValue(iUID_PersonHead)
						valUID_ProfitCenter = line.GetValue(iUID_ProfitCenter)
						valCCC_JobCode = line.GetValue(iCCC_JobCode)
						valCCC_JobCodeText = line.GetValue(iCCC_JobCodeText)
						valCCC_JobCodeType = line.GetValue(iCCC_JobCodeType)

						'
						' Here is the place to check and change raw data
						'
						lineData.Line = line
						
						Value = valCustomProperty09
						
						' Start of convert script for CustomProperty09
						Value="Feed Employee"
						' End of convert script for CustomProperty09
						
						valCustomProperty09 = DbVal.ConvertTo(Of String)(Value)
						
						'DefaultSiteID = CustomProperty08
						'ExceptSiteID = CustomProperty03
						
						Value = valUID_Locality
						'VID_WRITE2LOG("\\DC1IAMOPSQAS01\c$\working\Data_Import_Logs\personimport_locality.log", "Locality value = " & valUID_Locality)
						'VID_WRITE2LOG("\\DC1IAMOPSQAS01\c$\working\Data_Import_Logs\personimport_locality.log", "ExceptSiteID   = " & valCustomProperty03)
						'VID_WRITE2LOG("\\DC1IAMOPSQAS01\c$\working\Data_Import_Logs\personimport_locality.log", "DefaultSiteID  = " & valCustomProperty08)
						' Start of convert script for UID_Locality
						If Not String.IsNullOrEmpty(valCustomProperty03)
							'Value = line.GetValue("ExceptSiteID").String
							Value = valCustomProperty03
						Else
							'Value = GetValue("DefaultSiteID").String
							Value = valCustomProperty08
						End If
						' End of convert script for UID_Locality
						
						valUID_Locality = DbVal.ConvertTo(Of String)(Value)
						'VID_WRITE2LOG("\\DC1IAMOPSQAS01\c$\working\Data_Import_Logs\personimport_locality.log", "Ending value = " & valUID_Locality)
						
						' Convert raw data to final column data values
						resCompanyMember = DbVal.ConvertTo(Of String)(columnCompanyMember.ResolveValue(valCompanyMember), lineProvider.Culture)
						resCustomProperty01 = DbVal.ConvertTo(Of String)(columnCustomProperty01.ResolveValue(valCustomProperty01), lineProvider.Culture)
						resCustomProperty02 = DbVal.ConvertTo(Of String)(columnCustomProperty02.ResolveValue(valCustomProperty02), lineProvider.Culture)
						resCustomProperty03 = DbVal.ConvertTo(Of String)(columnCustomProperty03.ResolveValue(valCustomProperty03), lineProvider.Culture)
						resCustomProperty04 = DbVal.ConvertTo(Of String)(columnCustomProperty04.ResolveValue(valCustomProperty04), lineProvider.Culture)
						resCustomProperty05 = DbVal.ConvertTo(Of String)(columnCustomProperty05.ResolveValue(valCustomProperty05), lineProvider.Culture)
						resCustomProperty06 = DbVal.ConvertTo(Of String)(columnCustomProperty06.ResolveValue(valCustomProperty06), lineProvider.Culture)
						resCustomProperty07 = DbVal.ConvertTo(Of String)(columnCustomProperty07.ResolveValue(valCustomProperty07), lineProvider.Culture)
						resCustomProperty08 = DbVal.ConvertTo(Of String)(columnCustomProperty08.ResolveValue(valCustomProperty08), lineProvider.Culture)
						resCustomProperty09 = DbVal.ConvertTo(Of String)(columnCustomProperty09.ResolveValue(valCustomProperty09), lineProvider.Culture)
						resCustomProperty10 = DbVal.ConvertTo(Of String)(columnCustomProperty10.ResolveValue(valCustomProperty10), lineProvider.Culture)
						resFirstName = DbVal.ConvertTo(Of String)(columnFirstName.ResolveValue(valFirstName), lineProvider.Culture)
						resLastName = DbVal.ConvertTo(Of String)(columnLastName.ResolveValue(valLastName), lineProvider.Culture)
						resPersonalTitle = DbVal.ConvertTo(Of String)(columnPersonalTitle.ResolveValue(valPersonalTitle), lineProvider.Culture)
						resPersonnelNumber = DbVal.ConvertTo(Of String)(columnPersonnelNumber.ResolveValue(valPersonnelNumber), lineProvider.Culture)
						resUID_Department = DbVal.ConvertTo(Of String)(columnUID_Department.ResolveValue(valUID_Department), lineProvider.Culture)
						resUID_Locality = DbVal.ConvertTo(Of String)(columnUID_Locality.ResolveValue(valUID_Locality), lineProvider.Culture)
						resUID_PersonHead = DbVal.ConvertTo(Of String)(columnUID_PersonHead.ResolveValue(valUID_PersonHead), lineProvider.Culture)
						resUID_ProfitCenter = DbVal.ConvertTo(Of String)(columnUID_ProfitCenter.ResolveValue(valUID_ProfitCenter), lineProvider.Culture)
						resCCC_JobCode = DbVal.ConvertTo(Of String)(columnCCC_JobCode.ResolveValue(valCCC_JobCode), lineProvider.Culture)
						resCCC_JobCodeText = DbVal.ConvertTo(Of String)(columnCCC_JobCodeText.ResolveValue(valCCC_JobCodeText), lineProvider.Culture)
						resCCC_JobCodeType = DbVal.ConvertTo(Of String)(columnCCC_JobCodeType.ResolveValue(valCCC_JobCodeType), lineProvider.Culture)
						
						'
						' Here is the place to check and change final column data
						'

						'
						' Here starts the standard handling. It is recommended to not change anything beyond this point.
						'

						'
						' Create key for this line
						'
						key = DbVal.ConvertTo(Of String)(resPersonnelNumber)
					Dim elem As IEntity = Nothing
					Dim entity As IEntity = Nothing

					If elemsByKey.TryGetValue(key, elem) Then
						'
						' Found -> Update
						'

						' Mark element for superset handling
						imported.Add(New DbObjectKey(table, elem))


						' Map values
						Dim fullEntity As New Lazy(Of IEntity)(Function() elem.Create(Session))

						If DbVal.Compare(elem.GetRaw("CompanyMember"), resCompanyMember, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CompanyMember", resCompanyMember)
						End If

						If DbVal.Compare(elem.GetRaw("CustomProperty01"), resCustomProperty01, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty01", resCustomProperty01)
						End If

						If DbVal.Compare(elem.GetRaw("CustomProperty02"), resCustomProperty02, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty02", resCustomProperty02)
						End If						
						
						If DbVal.Compare(elem.GetRaw("CustomProperty03"), resCustomProperty03, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty03", resCustomProperty03)
						End If

						If DbVal.Compare(elem.GetRaw("CustomProperty04"), resCustomProperty04, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty04", resCustomProperty04)
						End If

						If DbVal.Compare(elem.GetRaw("CustomProperty05"), resCustomProperty05, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty05", resCustomProperty05)
						End If

						If DbVal.Compare(elem.GetRaw("CustomProperty06"), resCustomProperty06, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty06", resCustomProperty06)
						End If

						If DbVal.Compare(elem.GetRaw("CustomProperty07"), resCustomProperty07, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty07", resCustomProperty07)
						End If

						If DbVal.Compare(elem.GetRaw("CustomProperty08"), resCustomProperty08, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty08", resCustomProperty08)
						End If
					
						If DbVal.Compare(elem.GetRaw("CustomProperty09"), resCustomProperty09, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty09", resCustomProperty09)
						End If
					
						If DbVal.Compare(elem.GetRaw("CustomProperty10"), resCustomProperty10, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CustomProperty10", resCustomProperty10)
						End If

						If DbVal.Compare(elem.GetRaw("FirstName"), resFirstName, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("FirstName", resFirstName)
						End If

						If DbVal.Compare(elem.GetRaw("LastName"), resLastName, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("LastName", resLastName)
						End If

						If DbVal.Compare(elem.GetRaw("PersonalTitle"), resPersonalTitle, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("PersonalTitle", resPersonalTitle)
						End If

						If DbVal.Compare(elem.GetRaw("UID_Department"), resUID_Department, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("UID_Department", resUID_Department)
						End If

						If DbVal.Compare(elem.GetRaw("UID_Locality"), resUID_Locality, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("UID_Locality", resUID_Locality)
						End If

						If DbVal.Compare(elem.GetRaw("UID_PersonHead"), resUID_PersonHead, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("UID_PersonHead", resUID_PersonHead)
						End If

						If DbVal.Compare(elem.GetRaw("UID_ProfitCenter"), resUID_ProfitCenter, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("UID_ProfitCenter", resUID_ProfitCenter)
						End If

						If DbVal.Compare(elem.GetRaw("CCC_JobCode"), resCCC_JobCode, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CCC_JobCode", resCCC_JobCode)
						End If
						
						If DbVal.Compare(elem.GetRaw("CCC_JobCodeText"), resCCC_JobCodeText, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CCC_JobCodeText", resCCC_JobCodeText)
						End If
						
						If DbVal.Compare(elem.GetRaw("CCC_JobCodeType"), resCCC_JobCodeType, ValType.String) <> 0 Then
							fullEntity.Value.PutValue("CCC_JobCodeType", resCCC_JobCodeType)
						End If
						
						If fullEntity.IsValueCreated Or elem.IsDeleted() Then

							entity = fullEntity.Value
						Else
							counter.Increment(LineType.Unchanged)
						End If

					Else
						'
						' Not found -> Insert
						'

						entity = Session.Source().CreateNew("Person")

						' Fill keys and values
						entity.PutValue("CompanyMember", resCompanyMember)
						entity.PutValue("CustomProperty01", resCustomProperty01)
						entity.PutValue("CustomProperty02", resCustomProperty02)
						entity.PutValue("CustomProperty03", resCustomProperty03)
						entity.PutValue("CustomProperty04", resCustomProperty04)
						entity.PutValue("CustomProperty05", resCustomProperty05)
						entity.PutValue("CustomProperty06", resCustomProperty06)
						entity.PutValue("CustomProperty07", resCustomProperty07)
						entity.PutValue("CustomProperty08", resCustomProperty08)
						entity.PutValue("CustomProperty09", resCustomProperty09)
						entity.PutValue("CustomProperty10", resCustomProperty10)
						entity.PutValue("FirstName", resFirstName)
						entity.PutValue("LastName", resLastName)
						entity.PutValue("PersonalTitle", resPersonalTitle)
						entity.PutValue("PersonnelNumber", resPersonnelNumber)
						entity.PutValue("UID_Department", resUID_Department)
						entity.PutValue("UID_Locality", resUID_Locality)
						entity.PutValue("UID_PersonHead", resUID_PersonHead)
						entity.PutValue("UID_ProfitCenter", resUID_ProfitCenter)
						entity.PutValue("CCC_JobCode", resCCC_JobCode)
						entity.PutValue("CCC_JobCodeText", resCCC_JobCodeText)
						entity.PutValue("CCC_JobCodeType", resCCC_JobCodeType)

					End If

					'
					' Additional values can be put into the entity here
					'

					If Not entity Is Nothing Then

						If entity.IsDeleted() Then
							' Recall deleted entity
							entity.MarkForRecall()
						End If

						Dim isUpdate As Boolean = entity.IsLoaded

						' Save it
						If entity.IsDifferent Then
							entity.Save(Session)

							If isUpdate Then
								counter.Increment(LineType.Updated)
							Else
								counter.Increment(LineType.Inserted)
							End If
						Else
							counter.Increment(LineType.Unchanged)
						End If

						If elem Is Nothing Then
							' Include in our collection to avoid double imports of elements

							Dim keyInsert As String
							keyInsert = entity.GetValue("PersonnelNumber").String

							elemsByKey(keyInsert) = entity
							imported.Add(New DbObjectKey(table, entity))
						End If
					End If

				Catch ex As Exception
					dfImport.Log(MsgSeverity.Serious, #LD("Error in line {0}: {1}", counter(LineType.Total), ViException.ErrorString(ex))#)
					dfImport.Log(MsgSeverity.Serious, #LD("Line data was: {0}", line.ToString())#)

					counter.Increment(LineType.Error)
				End Try

				If (counter(LineType.Total) Mod 100) = 0 Then
					dfImport.SetProgressInfo(#LD("{0} lines imported, {1} ignored, {2} inserted, {3} updated, {4} errors", counter(LineType.Total), counter(LineType.Unchanged), counter(LineType.Inserted), counter(LineType.Updated), counter(LineType.Error))#)
				End If

			Next ' ForEach line

		Finally
			If Not logSection Is Nothing Then
				logSection.Dispose()
				logSection = Nothing
			End If
		End Try

		'
		' No superset handling
		'
	Finally

	End Try

	Using dfImport.LogSection(#LD("Results")#)
		dfImport.Log(#LD("{0} lines imported", counter(LineType.Total))#)
		dfImport.Log(#LD("{0} header lines", counter(LineType.Header))#)
		dfImport.Log(#LD("{0} inserted", counter(LineType.Inserted))#)
		dfImport.Log(#LD("{0} changed", counter(LineType.Updated))#)
		dfImport.Log(#LD("{0} deleted", counter(LineType.Deleted))#)
		dfImport.Log(#LD("{0} not changed", counter(LineType.Unchanged))#)
		dfImport.Log(#LD("{0} not found", counter(LineType.NotFound))#)
		dfImport.Log(#LD("{0} empty lines", counter(LineType.Empty))#)
		dfImport.Log(#LD("{0} errors", counter(LineType.Error))#)
	End Using
End Sub