String)("BarCode") _
, .AssetTag = search.Field(Of String)("Asset Tag") _
, .MaintenanceVendor = "Unknown" _
, .LeaseEndDate = "0000-00-00" _
, .PONumber = search.Field(Of String)("PO Number") _
, .ManufacturerPartNumber = search.Field(Of String)("Manufacturer Part Number") _
, .MaintenanceEndDate = "0000-00-00" _
, .Manufacturer = search.Field(Of String)("Manufacturer") _
, .Make = search.Field(Of String)("Make") _
, .Model = search.Field(Of String)("Model") _
, .BidSegment = search.Field(Of String)("Bid Segment") _
, .HostName = search.Field(Of String)("Host Name") _
, .InstallDate = search.Field(Of DateTime?)("Install Date").ToString _
, .Floor = search.Field(Of String)("Floor") _
, .Room = search.Field(Of String)("Room") _
, .RSN = search.Field(Of String)("RSN") _
, .BuildingName = search.Field(Of String)("Building Name") _
, .Country = search.Field(Of String)("Country") _
, .ProductType = search.Field(Of String)("Product Type") _
, .FileOrigin = search.Field(Of String)("File Origin") _
, .AssetID = search.Field(Of String)("Asset ID") _
, .ClientCode = search.Field(Of String)("Client Code") _
}
Dim GMAssetsAll = datamartTable.AsEnumerable()
Dim FinalAssetsAll = From AssetsAll In GMAssetsAll _
Select New With _
{ _
.SerialNumber = AssetsAll.Field(Of String)("Serial Number") _
, .BarCode = AssetsAll.Field(Of String)("BarCode") _
, .AssetTag = AssetsAll.Field(Of String)("Asset Tag") _
, .MaintenanceVendor = AssetsAll.Field(Of String)("Maintenance Vendor") _
, .LeaseEndDate = AssetsAll.Field(Of DateTime?)("Lease End Date").ToString _
, .PONumber = AssetsAll.Field(Of String)("PO Number") _
, .ManufacturerPartNumber = AssetsAll.Field(Of String)("Manufacturer Part Number") _
, .MaintenanceEndDate = AssetsAll.Field(Of DateTime?)("Maintenance End Date").ToString _
, .Manufacturer = "Unknown" _
, .Make = AssetsAll.Field(Of String)("Make") _
, .Model = AssetsAll.Field(Of String)("Model") _
, .BidSegment = AssetsAll.Field(Of String)("Bid Segment") _
, .HostName = AssetsAll.Field(Of String)("Host Name") _
, .InstallDate = AssetsAll.Field(Of DateTime?)("Install Date").ToString _
, .Floor = AssetsAll.Field(Of String)("Floor") _
, .Room = AssetsAll.Field(Of String)("Room") _
, .RSN = AssetsAll.Field(Of String)("RSN") _
, .BuildingName = AssetsAll.Field(Of String)("Building Name") _
, .Country = AssetsAll.Field(Of String)("Country") _
, .ProductType = AssetsAll.Field(Of String)("Product Type") _
, .FileOrigin = AssetsAll.Field(Of String)("File Origin") _
, .AssetID = AssetsAll.Field(Of String)("Asset ID") _
, .ClientCode = AssetsAll.Field(Of String)("Client Code") _
}
'Add any newly added records to Assets All set
Dim BindingTable = FinalAssetsAll.Union(searchNoneIn)
Dim FinalGMAssetsAll As DataTable = CustomLINQtoDataSetMethods.CopyToDataTable(BindingTable)
Dim TwoDHistory = TwoDhistTable.AsEnumerable()
Dim GMAssetsQuery = FinalGMAssetsAll.AsEnumerable()
'Calculate retagging reports by joining with 2D Barcode History table
Dim RetagginReport = From AssetsAll In GMAssetsQuery Join TwoDHist In TwoDHistory _
On AssetsAll.Field(Of String)("SerialNumber") Equals TwoDHist.Field(Of String)("Old Tag Serial Number") _
Where TwoDHist.Field(Of String)("Old Tag Serial Number") <> AssetsAll.Field(Of String)("SerialNumber") _
Or TwoDHist.Field(Of String)("Old Tag Bid Segment") <> AssetsAll.Field(Of String)("BidSegment") _
Or TwoDHist.Field(Of String)("Old