Imports System.Text.RegularExpressions

Public Class ZijkamerFreesProductieData
    Public PickSequence As String
    Public PickPlace As String
    Public PalletID As String
    Public SlotNbr As String
    Public LeftRight As String
    Public FeedbackERP As String
    Public PickTimeStamp As String
    Public MillingTimeStamp As String
    Public DropTimeStamp As String
    Public InsertTimeStamp As String
    Public BatchID As String
    Public SequenceNbr As String
    Public ProductCode As String
    Public Color As String
    Public PickListID As String
    Public NettoLength As String
    Public NettoHeight As String
    Public OversizeLength As String
    Public OversizeHeight As String
    Public ProgramLeftInner As String
    Public ProgramLeftOuter As String
    Public ProgramRightInner As String
    Public ProgramRightOuter As String
    Public PrintBarcodeLeft As String
    Public PrintBarcodeRight As String
    Public PrintTextLeft1 As String
    Public PrintTextLeft2 As String
    Public PrintTextLeft3 As String
    Public PrintTextRight1 As String
    Public PrintTextRight2 As String
    Public PrintTextRight3 As String
    Public PrintTextLeft4 As String
    Public PrintTextRight4 As String
    Public tableWork As String
    Public adjustment_X1 As String
    Public adjustment_X2 As String
    Public adjustment_YA As String
    Public adjustment_YB As String
    Public adjustment_YC As String
    Public adjustment_YD As String

    ' Private _kantelband As String

    Private _colorEnkel As String
    Private _colorDubbel As String
    Private _length As String
    Private _height As String

    Public Overrides Function Equals(obj As Object) As Boolean
        If obj Is Nothing OrElse Not Me.GetType() Is obj.GetType() Then
            Return False
        End If
        If CType(obj, ZijkamerFreesProductieData).PrintBarcodeLeft.Equals(PrintBarcodeLeft) Then
            Return True
        End If
        If CType(obj, ZijkamerFreesProductieData).PrintBarcodeRight.Equals(PrintBarcodeRight) Then
            Return True
        End If
        Return False

    End Function

    Public ReadOnly Property colorEnkel() As String
        Get
            Return _colorEnkel
        End Get
    End Property

    Public ReadOnly Property colorDubbel() As String
        Get
            Return _colorDubbel
        End Get
    End Property

    Public ReadOnly Property length() As String
        Get
            Return _length
        End Get
    End Property

    Public ReadOnly Property height() As String
        Get
            Return _height
        End Get
    End Property

    Public Overrides Function ToString() As String
        Return "colordubbel: " & _colorDubbel & "length: " & _length & "height: " & _height
    End Function

    Public Function ShallowCopy() As ZijkamerFreesProductieData
        Return DirectCast(Me.MemberwiseClone(), ZijkamerFreesProductieData)
    End Function

    Public Sub updateCijferVelden()
        PickSequence = PickSequence.Replace(".", ",")
        SlotNbr = SlotNbr.Replace(".", ",")
        NettoLength = NettoLength.Replace(".", ",")
        NettoHeight = NettoHeight.Replace(".", ",")
        OversizeHeight = OversizeHeight.Replace(".", ",")
        OversizeLength = OversizeLength.Replace(".", ",")

        PrintTextLeft1.Replace(",", ".")
        PrintTextRight1.Replace(",", ".")
        PrintTextLeft4.Replace(",", ".")
        PrintTextRight4.Replace(",", ".")
    End Sub

    'rework
    Public Sub aanpassenData(ByVal LinksOfRechts As String, ByVal NieuwTrayNummer As String, ByVal SlotNbr As String, ByVal voorVoorraad As Boolean, ByVal etiketTekst As String, Optional productieDataAndereVanPaar As ZijkamerFreesProductieData = Nothing, Optional andereZijkantLinksOfRechts As String = "")
        If Not (LinksOfRechts.Equals("L") Or LinksOfRechts.Equals("R")) Then
            Throw New Exception("linksOfRechts niet juist bij het aanpassen van data ZijkamerFreesProductieData")
        End If

        'velden die leeg zijn op "" zetten
        PickTimeStamp = ""
        MillingTimeStamp = ""
        DropTimeStamp = ""
        InsertTimeStamp = ""

        If productieDataAndereVanPaar Is Nothing Then
            LeftRight = LinksOfRechts
            PrintTextRight4 = Mid(PrintTextRight4, 1, 11) & "/***REWORK***"
            PrintTextLeft4 = Mid(PrintTextLeft4, 1, 11) & "/***REWORK***"
        Else
            LeftRight = "LR"
            'de gewone plank gaan we altijd links steken
            If LinksOfRechts.ToLower.Equals("l") Or PrintBarcodeLeft.Substring(5, 1).Equals("R") Then
                PrintTextLeft4 = Mid(PrintTextLeft4, 1, 11) & "/***REWORK***"
            Else
                PrintBarcodeLeft = PrintBarcodeRight
                PrintTextLeft1 = PrintTextRight1
                PrintTextLeft2 = PrintTextRight2
                PrintTextLeft3 = PrintTextRight3
                PrintTextLeft4 = Mid(PrintTextRight4, 1, 11) & "/***REWORK***"
            End If

            If LinksOfRechts.ToLower.Equals("r") Then
                ProgramLeftInner = ProgramRightInner
                ProgramLeftOuter = ProgramRightOuter
            End If

            'de andere plank gaan we sowieso rechts steken
            If andereZijkantLinksOfRechts.ToLower.Equals("l") Then
                PrintBarcodeRight = productieDataAndereVanPaar.PrintBarcodeLeft
                PrintTextRight1 = productieDataAndereVanPaar.PrintTextLeft1
                PrintTextRight2 = productieDataAndereVanPaar.PrintTextLeft2
                PrintTextRight3 = productieDataAndereVanPaar.PrintTextLeft3
                PrintTextRight4 = Mid(productieDataAndereVanPaar.PrintTextLeft4, 1, 11) & "/***REWORK***"
                ProgramRightInner = productieDataAndereVanPaar.ProgramLeftInner
                ProgramRightOuter = productieDataAndereVanPaar.ProgramLeftOuter
            Else
                PrintBarcodeRight = productieDataAndereVanPaar.PrintBarcodeRight
                PrintTextRight1 = productieDataAndereVanPaar.PrintTextRight1
                PrintTextRight2 = productieDataAndereVanPaar.PrintTextRight2
                PrintTextRight3 = productieDataAndereVanPaar.PrintTextRight3
                PrintTextRight4 = Mid(productieDataAndereVanPaar.PrintTextRight4, 1, 11) & "/***REWORK***"
                ProgramRightInner = productieDataAndereVanPaar.ProgramRightInner
                ProgramRightOuter = productieDataAndereVanPaar.ProgramRightOuter
            End If
        End If


        PalletID = NieuwTrayNummer
        Me.SlotNbr = SlotNbr
        PickSequence = SlotNbr 'volgorde voor robot
        PickPlace = "R" 'rework
        FeedbackERP = "3"

        ' _kantelband = PrintTextLeft1.Substring(9, 2)
        Dim tempTekst As String = PrintTextLeft1
        tempTekst = tempTekst.Remove(0, tempTekst.IndexOf("/") + 1)
        tempTekst = tempTekst.Substring(0, tempTekst.IndexOf("/"))
        Dim _buiten As String = tempTekst.Substring(0, tempTekst.IndexOf("-"))
        Dim _binnen As String = tempTekst.Substring(tempTekst.LastIndexOf("-") + 1)

        _colorEnkel = _binnen & "-" & _buiten
        _colorDubbel = _binnen & "-" & _buiten & "-" & _binnen & "-" & _buiten

        _length = PrintBarcodeLeft.Substring(3, 2) & "0"
        _height = PrintBarcodeLeft.Substring(1, 1)

        'Etiketlijn aanpassen als het voor voorraad is
        If voorVoorraad Then
            If etiketTekst.Equals("") Then
                Throw New Exception("EtiketTekst mag niet leeg zijn als het onderdeel voor voorraad is")
            End If
            PrintTextLeft3 = etiketTekst.ToUpper
            PrintTextRight3 = etiketTekst.ToUpper
        End If
    End Sub

    'specials
    Private Sub updatePrintTextLeftAndRight1SpoelBakOfSifon(suffix As String)
        'eerste stuk
        Dim printTextLeft1ZonderEersteDeel As String = PrintTextLeft1.Remove(0, PrintTextLeft1.IndexOf("/") + 1)
        Dim printTextLeft1EersteDeel As String = PrintTextLeft1.Remove(PrintTextLeft1.IndexOf("/") + 1)
        printTextLeft1EersteDeel = printTextLeft1EersteDeel & printTextLeft1ZonderEersteDeel.Substring(0, printTextLeft1ZonderEersteDeel.IndexOf("/") + 1)
        'laatste stuk
        Dim printTextLeft1ZonderLaatsteDeel As String = PrintTextLeft1.Substring(0, PrintTextLeft1.LastIndexOf("/"))
        Dim printTextLeft1LaatsteDeel As String = printTextLeft1ZonderLaatsteDeel.Substring(printTextLeft1ZonderLaatsteDeel.LastIndexOf("/"))
        printTextLeft1ZonderLaatsteDeel = printTextLeft1ZonderLaatsteDeel.Substring(0, printTextLeft1ZonderLaatsteDeel.LastIndexOf("/"))
        printTextLeft1LaatsteDeel = printTextLeft1ZonderLaatsteDeel.Substring(printTextLeft1ZonderLaatsteDeel.LastIndexOf("/")) & printTextLeft1LaatsteDeel
        printTextLeft1ZonderLaatsteDeel = printTextLeft1ZonderLaatsteDeel.Substring(0, printTextLeft1ZonderLaatsteDeel.LastIndexOf("/"))
        printTextLeft1LaatsteDeel = printTextLeft1ZonderLaatsteDeel.Substring(printTextLeft1ZonderLaatsteDeel.LastIndexOf("/")) & printTextLeft1LaatsteDeel

        PrintTextLeft1 = printTextLeft1EersteDeel & NettoLength + 5 & "x" & CStr(CDbl(NettoHeight.Replace(".", ",")) + 5).Replace(",", ".") & printTextLeft1LaatsteDeel & "/" & suffix

        'eerste stuk
        Dim printTextRight1ZonderEersteDeel As String = PrintTextRight1.Remove(0, PrintTextRight1.IndexOf("/") + 1)
        Dim printTextRight1EersteDeel As String = PrintTextRight1.Remove(PrintTextRight1.IndexOf("/") + 1)
        printTextRight1EersteDeel = printTextRight1EersteDeel & printTextRight1ZonderEersteDeel.Substring(0, printTextRight1ZonderEersteDeel.IndexOf("/") + 1)
        'laatste stuk
        Dim printTextRight1ZonderLaatsteDeel As String = PrintTextRight1.Substring(0, PrintTextRight1.LastIndexOf("/"))
        Dim printTextRight1LaatsteDeel As String = printTextRight1ZonderLaatsteDeel.Substring(printTextRight1ZonderLaatsteDeel.LastIndexOf("/"))
        printTextRight1ZonderLaatsteDeel = printTextRight1ZonderLaatsteDeel.Substring(0, printTextRight1ZonderLaatsteDeel.LastIndexOf("/"))
        printTextRight1LaatsteDeel = printTextRight1ZonderLaatsteDeel.Substring(printTextRight1ZonderLaatsteDeel.LastIndexOf("/")) & printTextRight1LaatsteDeel
        printTextRight1ZonderLaatsteDeel = printTextRight1ZonderLaatsteDeel.Substring(0, printTextRight1ZonderLaatsteDeel.LastIndexOf("/"))
        printTextRight1LaatsteDeel = printTextRight1ZonderLaatsteDeel.Substring(printTextRight1ZonderLaatsteDeel.LastIndexOf("/")) & printTextRight1LaatsteDeel

        PrintTextRight1 = printTextRight1EersteDeel & NettoLength + 5 & "x" & CStr(CDbl(NettoHeight.Replace(".", ",")) + 5).Replace(",", ".") & printTextRight1LaatsteDeel & "/" & suffix
    End Sub

#Region "sifon lade"

    Public Sub updateDataSifonLadeOrigineel(trayNummer As String, slotNummer As Integer)
        'waarden instellen
        PalletID = trayNummer
        PickSequence = slotNummer
        SlotNbr = slotNummer
        'feedback ERP op 3 zetten
        FeedbackERP = "3"
        'velden die leeg zijn op "" zetten
        PickTimeStamp = ""
        MillingTimeStamp = ""
        DropTimeStamp = ""
        InsertTimeStamp = ""
        'de etiketLijnen aanpassen
        PrintTextLeft4 = PrintBarcodeLeft.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
        PrintTextRight4 = PrintBarcodeRight.Trim & "/D:" & NettoLength & "xH:" & NettoHeight

        Dim indexKar As Integer = PrintTextLeft2.ToLower.IndexOf("kar")
        If indexKar > 0 Then
            PrintTextLeft2 = PrintTextLeft2.Remove(indexKar)
            PrintTextLeft2 &= "SIFON"
        End If
        indexKar = PrintTextRight2.ToLower.IndexOf("kar")
        If indexKar > 0 Then
            PrintTextRight2 = PrintTextRight2.Remove(indexKar)
            PrintTextRight2 &= "SIFON"
        End If
        'pickplace op rework zetten
        PickPlace = "R"
    End Sub
    Public Sub updateDataSifonLadeGegenereerd(trayNummer As String, slotNummer As Integer, nettoLengte As String, nettoHoogte As String, barcodeLeft As String, barcodeRight As String, materiaal As String)
        PalletID = trayNummer
        PickSequence = slotNummer
        SlotNbr = slotNummer
        'de lengte aanpassen
        NettoLength = CDbl(nettoLengte.Replace(".", ",")) - 5.0
        'de hoogte aanpassen
        NettoHeight = CDbl(nettoHoogte.Replace(".", ",")) - 5.0
        'de etiketLijnen aanpassen
        PrintTextLeft1 = SifonLadeNewPrintTextLeft(PrintTextLeft1, materiaal)
        PrintTextRight1= SifonLadeNewPrintTextLeft(PrintTextRight1, materiaal)

        PrintTextLeft4 = barcodeLeft.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
        PrintTextRight4 = barcodeRight.Trim & "/D:" & NettoLength & "xH:" & NettoHeight

        updatePrintTextLeftAndRight1SpoelBakOfSifon("SY")

        'programma's aanpassen
        If PrintBarcodeLeft.Substring(5, 1).Equals("C") Or PrintBarcodeLeft.Substring(5, 1).Equals("D") Then
            Dim letterProgramma As String = barcodeLeft.Substring(1, 1)
            Dim programmas As List(Of String) = Configs.sifonLadeGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug(letterProgramma)

            ProgramLeftInner = programmas(0)
            ProgramLeftOuter = programmas(1)
            ProgramRightInner = programmas(2)
            ProgramRightOuter = programmas(3)
        End If

        'barcodeLeft
        PrintBarcodeLeft = barcodeLeft
        'barcodeRight
        PrintBarcodeRight = barcodeRight
        'pickplace op rework zetten
        PickPlace = "R"

    End Sub

    Private Function SifonLadeNewPrintTextLeft(printText As String, materiaal As String) As String
        'Eerste stukje van originele, klein zelf invullen, rest van originele.
        Dim r = New Regex("([^\/]*[^\/]*\/*)", RegexOptions.IgnoreCase)
        Dim m As Match = r.Match(printText)
        If Not m.Success Then
            Throw New Exception("Kon materiaal voor PrintText1 van een zijkant niet updaten, de juiste stukken zijn niet aanwezig in de PrintTextLeft1.")
        End If

        Dim nieuwePrintText1 = String.Empty
        Dim i As Integer = 0
        While m.Success
            If i = 1 Then
                nieuwePrintText1 &= $"{materiaal}-{materiaal}-{materiaal}/"
            Else
                nieuwePrintText1 &= m.Value
            End If

            i += 1
            m = m.NextMatch()
        End While

        Return nieuwePrintText1
    End Function

#End Region

#Region "spoelbak lade"

    Public Sub updateDataSpoelbakLadeOrigineel(trayNummer As String, slotNummer As Integer)
        'de spaties in de barcodes verwijderen
        PrintBarcodeLeft = PrintBarcodeLeft.Trim
        PrintBarcodeRight = PrintBarcodeRight.Trim
        'waarden instellen
        PalletID = trayNummer
        PickSequence = slotNummer
        SlotNbr = slotNummer
        'feedback ERP op 3 zetten
        FeedbackERP = "3"
        'velden die leeg zijn op "" zetten
        PickTimeStamp = ""
        MillingTimeStamp = ""
        DropTimeStamp = ""
        InsertTimeStamp = ""
        'de etiketLijnen aanpassen
        PrintTextLeft4 = PrintBarcodeLeft.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
        PrintTextRight4 = PrintBarcodeRight.Trim & "/D:" & NettoLength & "xH:" & NettoHeight

        updatePrintTextLeftAndRight1SpoelBakOfSifon("SP")

        Dim indexKar As Integer = PrintTextLeft2.ToLower.IndexOf("kar")
        If indexKar > 0 Then
            PrintTextLeft2 = PrintTextLeft2.Remove(indexKar)
            PrintTextLeft2 &= "SPOELBAK"
        End If
        indexKar = PrintTextRight2.ToLower.IndexOf("kar")
        If indexKar > 0 Then
            PrintTextRight2 = PrintTextRight2.Remove(indexKar)
            PrintTextRight2 &= "SPOELBAK"
        End If
        'pickplace op rework zetten
        PickPlace = "R"
    End Sub

    Public Sub updateDataSpoelbakLadeGegenereerd(trayNummer As String, slotNummer As Integer, nettoLengte As String, nettoHoogte As String, barcodeLeft As String, barcodeRight As String)
        PalletID = trayNummer
        PickSequence = slotNummer
        SlotNbr = slotNummer
        'de lengte aanpassen
        NettoLength = CDbl(nettoLengte.Replace(".", ",")) - 5.0
        'de hoogte aanpassen
        NettoHeight = CDbl(nettoHoogte.Replace(".", ",")) - 5.0
        'de lengte aanpassen
        NettoLength = CDbl(nettoLengte.Replace(".", ",")) - 5.0
        Dim NettoLengthMetKomma As String = NettoLength.Replace(",", ".")
        'de etiketLijnen aanpassen
        PrintTextLeft4 = barcodeLeft.Trim & "/D:" & NettoLengthMetKomma & "xH:" & NettoHeight
        PrintTextRight4 = barcodeRight.Trim & "/D:" & NettoLengthMetKomma & "xH:" & NettoHeight

        updatePrintTextLeftAndRight1SpoelBakOfSifon("SP")

        Dim indexKar As Integer = PrintTextLeft2.ToLower.IndexOf("kar")
        If indexKar > 0 Then
            PrintTextLeft2 = PrintTextLeft2.Remove(indexKar)
            PrintTextLeft2 &= "SPOELBAK"
        End If
        indexKar = PrintTextRight2.ToLower.IndexOf("kar")
        If indexKar > 0 Then
            PrintTextRight2 = PrintTextRight2.Remove(indexKar)
            PrintTextRight2 &= "SPOELBAK"
        End If

        'programma's aanpassen
        If PrintBarcodeLeft.Substring(5, 1).Equals("C") Or PrintBarcodeLeft.Substring(5, 1).Equals("D") Then
            Dim letterProgramma As String = barcodeLeft.Substring(1, 1)
            Dim programmas As List(Of String) = Configs.sifonLadeGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug(letterProgramma)

            ProgramLeftInner = programmas(0)
            ProgramLeftOuter = programmas(1)
            ProgramRightInner = programmas(2)
            ProgramRightOuter = programmas(3)
        End If

        'barcodeLeft
        PrintBarcodeLeft = barcodeLeft
        'barcodeRight
        PrintBarcodeRight = barcodeRight

        'pickplace op rework zetten
        PickPlace = "R"
    End Sub

#End Region

#Region "test lade"

    Public Sub testLadeUpdateData(sleutelBarcodeBarcodeLeft As String, sleutelBarcodeBarcodeRight As String)
        PrintBarcodeLeft = sleutelBarcodeBarcodeLeft
        PrintBarcodeRight = sleutelBarcodeBarcodeRight
        PickPlace = "R" 'instellen dat het een rework tray is
        NettoLength = NettoLength.Replace(".", ",")
        NettoHeight = NettoHeight.Replace(".", ",")
        OversizeHeight = OversizeHeight.Replace(".", ",")
        OversizeLength = OversizeLength.Replace(".", ",")
    End Sub

    Public Sub testLadeUpdateTrayEnSlotNummer(trayNummer As String, Optional slotNummer As String = "1")
        PalletID = trayNummer
        SlotNbr = slotNummer
    End Sub

#End Region

#Region "specialLadeDiepereZijkant"

    Public Sub updateSpecialLadeDiepereZijkant(diepteVerschil As Integer)
        Dim zaagmaat As String = (CInt(NettoLength) + diepteVerschil + 5).ToString

        NettoLength = NettoLength.Replace(".", ",")
        NettoHeight = NettoHeight.Replace(".", ",")
        OversizeHeight = OversizeHeight.Replace(".", ",")
        OversizeLength = OversizeLength.Replace(".", ",")
        NettoLength = (CInt(NettoLength) + diepteVerschil).ToString

        'updaten eerste deel laatste afmetingen printtextright1
        Dim linkseDeel As String = PrintTextRight1.Substring(0, PrintTextRight1.IndexOf("/") + 1)
        Dim tempDeelPrintTextRight1 As String = PrintTextRight1.Remove(0, PrintTextRight1.IndexOf("/") + 1)
        linkseDeel &= tempDeelPrintTextRight1.Substring(0, tempDeelPrintTextRight1.IndexOf("/") + 1)
        tempDeelPrintTextRight1 = tempDeelPrintTextRight1.Remove(0, tempDeelPrintTextRight1.IndexOf("/") + 1)
        Dim rechtseDeel As String = tempDeelPrintTextRight1.Substring(tempDeelPrintTextRight1.IndexOf("x"))
        Dim nieuwePrintTextRight1 As String = linkseDeel
        nieuwePrintTextRight1 &= zaagmaat & rechtseDeel
        PrintTextRight1 = nieuwePrintTextRight1

        'updaten eerste deel laatste afmetingen printtextleft1
        linkseDeel = PrintTextLeft1.Substring(0, PrintTextLeft1.IndexOf("/") + 1)
        Dim tempDeelPrintTextLeft1 As String = PrintTextLeft1.Remove(0, PrintTextLeft1.IndexOf("/") + 1)
        linkseDeel &= tempDeelPrintTextLeft1.Substring(0, tempDeelPrintTextLeft1.IndexOf("/") + 1)
        tempDeelPrintTextLeft1 = tempDeelPrintTextLeft1.Remove(0, tempDeelPrintTextLeft1.IndexOf("/") + 1)
        rechtseDeel = tempDeelPrintTextLeft1.Substring(tempDeelPrintTextLeft1.IndexOf("x"))
        Dim nieuwePrintTextLeft1 As String = linkseDeel
        nieuwePrintTextLeft1 &= zaagmaat & rechtseDeel
        PrintTextLeft1 = nieuwePrintTextLeft1

        'updaten eerste deel laatste afmetingen printtextright4
        If Not PrintTextRight4.ToLower.Contains("rework") Then
            Dim nieuwePrintTextRight4 As String = PrintTextRight4.Remove(PrintTextRight4.IndexOf("D:") + 2)
            nieuwePrintTextRight4 &= zaagmaat
            Dim laatsteDeel As String = PrintTextRight4.Substring(PrintTextRight4.IndexOf("xH:")).Trim
            nieuwePrintTextRight4 &= laatsteDeel
            PrintTextRight4 = nieuwePrintTextRight4
        End If
        If Not PrintTextLeft4.ToLower.Contains("rework") Then
            'updaten eerste deel laatste afmetingen printtextleft4
            Dim nieuwePrintTextLeft4 As String = PrintTextLeft4.Remove(PrintTextLeft4.IndexOf("D:") + 2)
            nieuwePrintTextLeft4 &= zaagmaat
            Dim laatsteDeel As String = PrintTextLeft4.Substring(PrintTextLeft4.IndexOf("xH:")).Trim
            nieuwePrintTextLeft4 &= laatsteDeel
            PrintTextLeft4 = nieuwePrintTextLeft4
        End If
    End Sub

    Function geefEersteDeelBarcodeZonderCijfer() As String
        Dim eersteDeelBarcodeL As String = PrintBarcodeLeft.Substring(0, 3)
        Dim eersteDeelBarcodeR As String = PrintBarcodeRight.Substring(0, 3)
        If Not eersteDeelBarcodeL.Equals(eersteDeelBarcodeR) Then
            Throw New Exception("Eerste delen barcodes zijkamerfreesproductiedata barcodes zijn niet gelijk")
        End If
        Return eersteDeelBarcodeL
    End Function

    Function geefEersteDeelBarcodeMetCijfer() As String
        Dim eersteDeelBarcodeL As String = PrintBarcodeLeft.Substring(0, 5)
        Dim eersteDeelBarcodeR As String = PrintBarcodeRight.Substring(0, 5)
        If Not eersteDeelBarcodeL.Substring(0, 3).Equals(eersteDeelBarcodeR.Substring(0, 3)) Then
            Throw New Exception("Eerste delen barcodes met cijfers zijkamerfreesproductiedata barcodes zijn niet gelijk")
        End If
        Return eersteDeelBarcodeL
    End Function

#End Region

#Region "specialLadeHogereZijkant"

    Public Sub updateSpecialLadeHogereZijkant(hoogteLetter As String, automillingProgrammaLetter As String)
        Dim zaagmaat As String = Configs.geefNieuweHoogtesData(hoogteLetter) + 5

        NettoLength = NettoLength.Replace(".", ",")
        NettoHeight = NettoHeight.Replace(".", ",")
        OversizeHeight = OversizeHeight.Replace(".", ",")
        OversizeLength = OversizeLength.Replace(".", ",")
        NettoHeight = Configs.geefNieuweHoogtesData(hoogteLetter)

        'updaten tweede deel laatste afmetingen printtextright1
        Dim linkseDeel As String = PrintTextRight1.Substring(0, PrintTextRight1.IndexOf("/") + 1)
        Dim tempDeelPrintTextRight1 As String = PrintTextRight1.Remove(0, PrintTextRight1.IndexOf("/") + 1)
        linkseDeel &= tempDeelPrintTextRight1.Substring(0, tempDeelPrintTextRight1.IndexOf("/") + 1)
        tempDeelPrintTextRight1 = tempDeelPrintTextRight1.Remove(0, tempDeelPrintTextRight1.IndexOf("/") + 1)
        linkseDeel &= tempDeelPrintTextRight1.Substring(0, tempDeelPrintTextRight1.IndexOf("x") + 1)
        tempDeelPrintTextRight1 = tempDeelPrintTextRight1.Remove(0, tempDeelPrintTextRight1.IndexOf("x") + 1)
        Dim rechtseDeel As String = tempDeelPrintTextRight1.Substring(tempDeelPrintTextRight1.IndexOf("/"))
        Dim nieuwePrintTextRight1 As String = linkseDeel
        nieuwePrintTextRight1 &= zaagmaat & rechtseDeel
        PrintTextRight1 = nieuwePrintTextRight1

        'updaten tweede deel laatste afmetingen printtextleft1
        linkseDeel = PrintTextLeft1.Substring(0, PrintTextLeft1.IndexOf("/") + 1)
        Dim tempDeelPrintTextLeft1 As String = PrintTextLeft1.Remove(0, PrintTextLeft1.IndexOf("/") + 1)
        linkseDeel &= tempDeelPrintTextLeft1.Substring(0, tempDeelPrintTextLeft1.IndexOf("/") + 1)
        tempDeelPrintTextLeft1 = tempDeelPrintTextLeft1.Remove(0, tempDeelPrintTextLeft1.IndexOf("/") + 1)
        linkseDeel &= tempDeelPrintTextLeft1.Substring(0, tempDeelPrintTextLeft1.IndexOf("x") + 1)
        tempDeelPrintTextLeft1 = tempDeelPrintTextLeft1.Remove(0, tempDeelPrintTextLeft1.IndexOf("x") + 1)
        rechtseDeel = tempDeelPrintTextLeft1.Substring(tempDeelPrintTextLeft1.IndexOf("/"))
        Dim nieuwePrintTextLeft1 As String = linkseDeel
        nieuwePrintTextLeft1 &= zaagmaat & rechtseDeel
        PrintTextLeft1 = nieuwePrintTextLeft1

        'updaten tweede deel laatste afmetingen printtextright4
        If Not PrintTextRight4.ToLower.Contains("rework") Then
            Dim nieuwePrintTextRight4 As String = PrintTextRight4.Remove(PrintTextRight4.IndexOf("H:") + 2)
            nieuwePrintTextRight4 &= zaagmaat
            PrintTextRight4 = nieuwePrintTextRight4
        End If
        If Not PrintTextLeft4.ToLower.Contains("rework") Then
            'updaten tweede deel laatste afmetingen printtextleft4
            Dim nieuwePrintTextLeft4 As String = PrintTextLeft4.Remove(PrintTextLeft4.IndexOf("H:") + 2)
            nieuwePrintTextLeft4 &= zaagmaat
            PrintTextLeft4 = nieuwePrintTextLeft4
        End If

        'updaten programma's
        ProgramLeftInner = ProgramLeftInner.Substring(0, ProgramLeftInner.LastIndexOf("\") + 1) & automillingProgrammaLetter & ProgramLeftInner.Substring(ProgramLeftInner.LastIndexOf("\") + 2)
        ProgramLeftOuter = ProgramLeftOuter.Substring(0, ProgramLeftOuter.LastIndexOf("\") + 1) & automillingProgrammaLetter & ProgramLeftOuter.Substring(ProgramLeftOuter.LastIndexOf("\") + 2)
        ProgramRightInner = ProgramRightInner.Substring(0, ProgramRightInner.LastIndexOf("\") + 1) & automillingProgrammaLetter & ProgramRightInner.Substring(ProgramRightInner.LastIndexOf("\") + 2)
        ProgramRightOuter = ProgramRightOuter.Substring(0, ProgramRightOuter.LastIndexOf("\") + 1) & automillingProgrammaLetter & ProgramRightOuter.Substring(ProgramRightOuter.LastIndexOf("\") + 2)
    End Sub

    Function geefEersteDeelBarcodeMetNieuweHoogte(nieuweHoogteLetter As String) As String
        Dim eersteDeelBarcodeL As String = PrintBarcodeLeft.Substring(0, 5)
        Dim eersteDeelBarcodeR As String = PrintBarcodeRight.Substring(0, 5)
        If Not eersteDeelBarcodeL.Substring(0, 3).Equals(eersteDeelBarcodeR.Substring(0, 3)) Then
            Throw New Exception("Eerste delen barcodes met cijfers zijkamerfreesproductiedata barcodes zijn niet gelijk")
        End If

        eersteDeelBarcodeL = eersteDeelBarcodeL.Substring(0, 1) & nieuweHoogteLetter & eersteDeelBarcodeL.Substring(2)
        Return eersteDeelBarcodeL
    End Function

#End Region

#Region "special lade nieuwe kleur"

    Public Sub updateSpecialLadeNieuweKleurLeft(zijkantLi As ArdisData, zijkantRe As ArdisData)
        Dim kleurGedeelte As String = PrintTextLeft1.Remove(0, PrintTextLeft1.IndexOf("/") + 1)
        kleurGedeelte = kleurGedeelte.Substring(0, kleurGedeelte.IndexOf("/"))
        Dim nieuweKleuren As String = zijkantLi.specialLadeNieuweKleurGeefKleurenLetters()
        PrintTextLeft1 = PrintTextLeft1.Replace(kleurGedeelte, nieuweKleuren)

        kleurGedeelte = PrintTextRight1.Remove(0, PrintTextRight1.IndexOf("/") + 1)
        kleurGedeelte = kleurGedeelte.Substring(0, kleurGedeelte.IndexOf("/"))
        nieuweKleuren = zijkantRe.specialLadeNieuweKleurGeefKleurenLetters()
        PrintTextRight1 = PrintTextRight1.Replace(kleurGedeelte, nieuweKleuren)
    End Sub

#End Region

#Region "voorraad"

    Public Sub voorraadStelInitieleWaardenIn(trayId As String, slotNr As String, linksOfRechts As LinksOfRechts, kleur As String, diepte As String, hoogteLetter As String, label As String, barcodeA As String, Optional barcodeB As String = "")
        PickSequence = slotNr
        PickPlace = "R"
        PalletID = trayId
        SlotNbr = slotNr
        LeftRight = If(Not barcodeB.Equals(""), "LR", If(linksOfRechts = LinksOfRechts.Links, "L", "R"))
        FeedbackERP = "3"
        PickTimeStamp = ""
        MillingTimeStamp = ""
        DropTimeStamp = ""
        InsertTimeStamp = ""
        BatchID = "99999"
        SequenceNbr = ""
        ProductCode = ""
        Color = kleur
        PickListID = ""
        NettoLength = diepte - 5
        NettoHeight = geefHoogteDataVoorraad(hoogteLetter) - 5
        OversizeLength = "2,5"
        OversizeHeight = "2,5"
        ProgramLeftInner = "WORDT VERVANGEN"
        ProgramLeftOuter = "WORDT VERVANGEN"
        ProgramRightInner = "WORDT VERVANGEN"
        ProgramRightOuter = "WORDT VERVANGEN"
        PrintBarcodeLeft = barcodeA
        PrintBarcodeRight = barcodeB
        PrintTextLeft1 = label
        PrintTextLeft2 = ""
        PrintTextLeft3 = ""
        PrintTextRight1 = label
        PrintTextRight2 = ""
        PrintTextRight3 = ""
        PrintTextLeft4 = barcodeA
        PrintTextRight4 = barcodeB
        tableWork = ""
        adjustment_X1 = ""
        adjustment_X2 = ""
        adjustment_YA = ""
        adjustment_YB = ""
        adjustment_YC = ""
        adjustment_YD = ""
    End Sub

    Public Sub voorraadStelProgrammasInZonderPartner(hoogte As String)
        Const pad As String = "C:\TWINcat\CNC\"
        ProgramLeftInner = pad + hoogte + "_" + "OUT_L.nc"
        ProgramLeftOuter = pad + hoogte + "_" + "IN_L.nc"
        ProgramRightInner = pad + hoogte + "_" + "OUT_R.nc"
        ProgramRightOuter = pad + hoogte + "_" + "IN_R.nc"
    End Sub

    Sub voorraadStelProgrammasInMetPartner(linksOfRechtsA As LinksOfRechts, linksOfRechtsB As LinksOfRechts, hoogte As String)
        Const pad As String = "C:\TWINcat\CNC\"
        ProgramLeftInner = pad + hoogte + "_" + "OUT_" + If(linksOfRechtsA = LinksOfRechts.Links, "L", "R") + ".nc"
        ProgramLeftOuter = pad + hoogte + "_" + "IN_" + If(linksOfRechtsA = LinksOfRechts.Links, "L", "R") + ".nc"
        ProgramRightInner = pad + hoogte + "_" + "OUT_" + If(linksOfRechtsB = LinksOfRechts.Links, "L", "R") + ".nc"
        ProgramRightOuter = pad + hoogte + "_" + "IN_" + If(linksOfRechtsB = LinksOfRechts.Links, "L", "R") + ".nc"
    End Sub

#End Region

End Class