Imports System.IO
Imports System.Xml.Serialization

Module TestLadeMapperXML
    'Public Sub writeToFile(testLaden As List(Of TestLade))
    'Dim serializer As New Xml.Serialization.XmlSerializer(testLaden.GetType)
    '    serializer.Serialize(New FileStream(getPath(), FileMode.OpenOrCreate), testLaden)
    'End Sub

    Public Function getDataFromFile() As List(Of TestLade)
        Try
            Dim serializer As New XmlSerializer(GetType(List(Of TestLade)), New XmlRootAttribute(""))
            Dim deserialized As List(Of TestLade) = Nothing
            deserialized = DirectCast(serializer.Deserialize(New FileStream(getPath(), FileMode.Open, FileAccess.Read, FileShare.Read)), List(Of TestLade))
            Return deserialized
        Catch ex As Exception
            Throw New Exception("Er is iets foutgelopen bij serializeren van het bestand TestLaden.xml. " & ex.Message)
        End Try
    End Function

    Private Function getPath() As String
        Dim strPath As String = My.Settings.PathNaarConfigMap
        Dim fileName As String = "TestLaden.xml"
        Dim fullPath = Path.Combine(strPath, fileName)
        Return fullPath
    End Function

    'Public Sub vulBestand()
    '    Dim ardisdata As New ArdisData
    '    ardisdata.PartId = "azer"
    '    ardisdata.OrderId = "azer"
    '    ardisdata.PartRef = "azer"
    '    ardisdata.PartQty = "azer"
    '    ardisdata.PartMat = "azer"
    '    ardisdata.PartL = "azer"
    '    ardisdata.PartW = "azer"
    '    ardisdata.PartCalc = "?kantID"
    '    ardisdata.PartRemark = "azer"
    '    ardisdata.PartRemark2 = "azer"
    '    ardisdata.PartRemark3 = "azer"
    '    ardisdata.PartGroup = "azer"
    '    ardisdata.PartLevel = "azer"
    '    ardisdata.PartExt01 = "azer"
    '    ardisdata.PartExt02 = "azer"
    '    ardisdata.PartExt03 = "azer"
    '    ardisdata.PartExt04 = "azer"
    '    ardisdata.PartExt05 = "azer"
    '    ardisdata.PartExt06 = "azer"
    '    ardisdata.PartExt07 = "azer"
    '    ardisdata.PartExt08 = "azer"
    '    ardisdata.PartExt09 = "azer"
    '    ardisdata.PartD = "azer"
    '    ardisdata.PartProd = "azer"
    '    ardisdata.GroupCode = "azer"
    '    ardisdata.Status = "azer"
    '    ardisdata.Inserted = "azer"
    '    ardisdata.LastChanged = "azer"
    '    ardisdata.PartQtyCut = "azer"
    '    ardisdata.PartExt10 = "azer"
    '    ardisdata.PartExt11 = "azer"

    '    Dim stemasdata As New StemasData
    '    stemasdata.Barcode = "?kantBarcode"
    '    stemasdata.BasePanelLenght = 0.0
    '    stemasdata.BasePanelWidth = 0.0
    '    stemasdata.SliceWidth = 0.0
    '    stemasdata.ProfilingWidth = 0.0
    '    stemasdata.NbrOfSlices = 0
    '    stemasdata.Alignment = "a"
    '    stemasdata.SliceType = "azerty"
    '    stemasdata.ProgLeft1 = "azerty"
    '    stemasdata.ProgRight1 = "azerty"
    '    stemasdata.SliceWidth1 = 0.0
    '    stemasdata.PrintBegin1 = "azerty"
    '    stemasdata.PrintEnd1 = "azerty"
    '    stemasdata.ProgLeft2 = "azerty"
    '    stemasdata.ProgRight2 = "azerty"
    '    stemasdata.SliceWidth2 = 0.0
    '    stemasdata.PrintBegin2 = "azerty"
    '    stemasdata.PrintEnd2 = "azerty"
    '    stemasdata.ProgLeft3 = "azerty"
    '    stemasdata.ProgRight3 = "azerty"
    '    stemasdata.SliceWidth3 = 0.0
    '    stemasdata.PrintBegin3 = "azerty"
    '    stemasdata.PrintEnd3 = "azerty"
    '    stemasdata.ProgLeft4 = "azerty"
    '    stemasdata.ProgRight4 = "azerty"
    '    stemasdata.SliceWidth4 = 0.0
    '    stemasdata.PrintBegin4 = "azerty"
    '    stemasdata.PrintEnd4 = "azerty"
    '    stemasdata.ProgLeft5 = "azerty"
    '    stemasdata.ProgRight5 = "azerty"
    '    stemasdata.SliceWidth5 = "azerty"
    '    stemasdata.PrintBegin5 = "azerty"
    '    stemasdata.PrintEnd5 = "azerty"
    '    stemasdata.BatchID = "azerty"
    '    stemasdata.Toelevering = "azerty"
    '    stemasdata.Dossiercode = "azerty"

    '    Dim productiedata As New ZijkamerFreesProductieData
    '    productiedata.PickSequence = "aze"
    '    productiedata.PickPlace = "aze"
    '    productiedata.PalletID = "aze"
    '    productiedata.SlotNbr = "aze"
    '    productiedata.LeftRight = "aze"
    '    productiedata.FeedbackERP = "aze"
    '    productiedata.PickTimeStamp = "aze"
    '    productiedata.MillingTimeStamp = "aze"
    '    productiedata.DropTimeStamp = "aze"
    '    productiedata.InsertTimeStamp = "aze"
    '    productiedata.BatchID = "aze"
    '    productiedata.SequenceNbr = "aze"
    '    productiedata.ProductCode = "aze"
    '    productiedata.Color = "aze"
    '    productiedata.PickListID = "aze"
    '    productiedata.NettoLength = "aze"
    '    productiedata.NettoHeight = "aze"
    '    productiedata.OversizeLength = "aze"
    '    productiedata.OversizeHeight = "aze"
    '    productiedata.ProgramLeftInner = "aze"
    '    productiedata.ProgramLeftOuter = "aze"
    '    productiedata.ProgramRightInner = "aze"
    '    productiedata.ProgramRightOuter = "aze"
    '    productiedata.PrintBarcodeLeft = "?ZijkantLI1"
    '    productiedata.PrintBarcodeRight = "?ZijkantRE1"
    '    productiedata.PrintTextLeft1 = "aze"
    '    productiedata.PrintTextLeft2 = "aze"
    '    productiedata.PrintTextLeft3 = "aze"
    '    productiedata.PrintTextRight1 = "aze"
    '    productiedata.PrintTextRight2 = "aze"
    '    productiedata.PrintTextRight3 = "aze"
    '    productiedata.PrintTextLeft4 = "aze"
    '    productiedata.PrintTextRight4 = "aze"
    '    productiedata.tableWork = "aze"
    '    productiedata.adjustment_X1 = "aze"
    '    productiedata.adjustment_X2 = "aze"
    '    productiedata.adjustment_YA = "aze"
    '    productiedata.adjustment_YB = "aze"
    '    productiedata.adjustment_YC = "aze"
    '    productiedata.adjustment_YD = "aze"

    '    Dim kantenbandData As New KantenbandData
    '    kantenbandData.ID = "?onderdeelID"
    '    kantenbandData.Length = "test"
    '    kantenbandData.Width = "test"
    '    kantenbandData.Thickness = "test"
    '    kantenbandData.PassNumber = "test"
    '    kantenbandData.InsertTime = "test"
    '    kantenbandData.BeginTime = "test"
    '    kantenbandData.EndTime = "test"
    '    kantenbandData.Pass1Program = "test"
    '    kantenbandData.Pass1Edgeband = "test"
    '    kantenbandData.Pass1PrinterText1 = "test"
    '    kantenbandData.Pass1PrinterText2 = "test"
    '    kantenbandData.Pass1PrinterText3 = "test"
    '    kantenbandData.Pass1PrinterText = "test"
    '    kantenbandData.Pass1Tilting180 = "test"
    '    kantenbandData.Pass1Turning180 = "test"
    '    kantenbandData.Pass1Exit = "test"
    '    kantenbandData.Pass2Program = "test"
    '    kantenbandData.Pass2Edgeband = "test"
    '    kantenbandData.Pass2PrinterText1 = "test"
    '    kantenbandData.Pass2PrinterText2 = "test"
    '    kantenbandData.Pass2PrinterText3 = "test"
    '    kantenbandData.Pass2PrinterText = "test"
    '    kantenbandData.Pass2Tilting180 = "test"
    '    kantenbandData.Pass2Turning180 = "test"
    '    kantenbandData.Pass2Exit = "test"
    '    kantenbandData.Pass3Program = "test"
    '    kantenbandData.Pass3Edgeband = "test"
    '    kantenbandData.Pass3PrinterText1 = "test"
    '    kantenbandData.Pass3PrinterText2 = "test"
    '    kantenbandData.Pass3PrinterText3 = "test"
    '    kantenbandData.Pass3PrinterText = "test"
    '    kantenbandData.Pass3Tilting180 = "test"
    '    kantenbandData.Pass3Turning180 = "test"
    '    kantenbandData.Pass3Exit = "test"
    '    kantenbandData.Pass4Program = "test"
    '    kantenbandData.Pass4Edgeband = "test"
    '    kantenbandData.Pass4PrinterText1 = "test"
    '    kantenbandData.Pass4PrinterText2 = "test"
    '    kantenbandData.Pass4PrinterText3 = "test"
    '    kantenbandData.Pass4PrinterText = "test"
    '    kantenbandData.Pass4Tilting180 = "test"
    '    kantenbandData.Pass4Turning180 = "test"
    '    kantenbandData.Pass4Exit = "test"
    '    kantenbandData.BatchID = "test"
    '    kantenbandData.Toelevering = "test"
    '    kantenbandData.Dossiercode = "test"

    '    Dim sleutels As New List(Of Sleutel)
    '    sleutels.Add(New Sleutel("ZijkantLI1", "zijLzerty??T??molp"))
    '    sleutels.Add(New Sleutel("ZijkantLI2", "zijRzerty??T??molp"))
    '    sleutels.Add(New Sleutel("ZijkantRE1", "zijLzerty??T??molp"))
    '    sleutels.Add(New Sleutel("ZijkantRE2", "zijRzerty??T??molp"))
    '    sleutels.Add(New Sleutel("Rug", "rugzerty??T??molp"))
    '    sleutels.Add(New Sleutel("Front", "frontzerty??T??molp"))
    '    sleutels.Add(New Sleutel("Bodem", "bodemzerty??T??molp"))

    '    Dim onderdeel As New OnderdeelTestLade
    '    onderdeel.Label = "ZIJKANT"
    '    onderdeel.MachinesArdis.Add(ardisdata)
    '    onderdeel.MachinesZijkantfrees.Add(productiedata)
    '    onderdeel.MachinesKantenband.Add(kantenbandData)
    '    Dim onderdeel3 As New OnderdeelTestLade
    '    onderdeel3.Label = "FRONT"
    '    onderdeel3.MachinesArdis.Add(ardisdata)
    '    onderdeel3.MachinesKantenband.Add(kantenbandData)
    '    Dim onderdeel4 As New OnderdeelTestLade
    '    onderdeel4.Label = "BODEM"
    '    onderdeel4.MachinesArdis.Add(ardisdata)
    '    onderdeel4.MachinesStemas.Add(stemasdata)
    '    Dim testLade As New TestLade
    '    testLade.Label = "lade 1"
    '    testLade.AantalKeer = 40
    '    testLade.Sleutels = sleutels
    '    testLade.Onderdelen.Add(onderdeel)
    '    testLade.Onderdelen.Add(onderdeel3)
    '    testLade.Onderdelen.Add(onderdeel4)
    '    Dim testLade2 As New TestLade
    '    testLade2.Label = "lade 2"
    '    testLade2.AantalKeer = 20
    '    testLade2.Sleutels = sleutels
    '    testLade2.Onderdelen.Add(onderdeel3)
    '    testLade2.Onderdelen.Add(onderdeel4)
    '    Dim testladen As New List(Of TestLade)
    '    testladen.Add(testLade)
    '    '  testladen.Add(testLade2)
    '    TestLadeMapperXML.writeToFile(testladen)
    '    'End Sub
End Module