Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb =================================================================== diff -u -r1626 -r1738 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb (.../HoofdAansturingSpoelbakLade.vb) (revision 1626) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb (.../HoofdAansturingSpoelbakLade.vb) (revision 1738) @@ -130,15 +130,15 @@ End If 'data van de gegenereerde aapassen met juiste data Dim kantenbandDataGegenereerdLinks As KantenbandData = kantenbandDataOrigineelLinks.ShallowCopy - kantenbandDataGegenereerdLinks.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc) + kantenbandDataGegenereerdLinks.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc, gegenereerdeZijkantL.PartMat) 'barcode opvragen van de originele zijkanten Dim kantenbandDataOrigineelRechts As KantenbandData = KantenbandMapper.geef(origineleZijkantR.PartCalc) If kantenbandDataOrigineelRechts Is Nothing Then Throw New Exception("De kantenbandDataOrigineelRechts kon niet worden opgehaald met barcode: " & origineleZijkantR.PartCalc) End If 'data van de gegenereerde aapassen met juiste data Dim kantenbandDataGegenereerdRechts As KantenbandData = kantenbandDataOrigineelRechts.ShallowCopy - kantenbandDataGegenereerdRechts.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantR.PartL, gegenereerdeZijkantR.PartW, gegenereerdeZijkantR.PartCalc) + kantenbandDataGegenereerdRechts.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantR.PartL, gegenereerdeZijkantR.PartW, gegenereerdeZijkantR.PartCalc, gegenereerdeZijkantR.PartMat) slaOpInAfkanter(kantenbandDataGegenereerdLinks) slaOpInAfkanter(kantenbandDataGegenereerdRechts) Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb =================================================================== diff -u -r1732 -r1738 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1732) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeV2.vb (.../SifonLadeV2.vb) (revision 1738) @@ -40,6 +40,7 @@ Public Sub New(buitenzijkantL As Zijkant, buitenzijkantR As Zijkant, bodem As Bodem, rug As Rug) Me.BuitenzijkantL = buitenzijkantL Me.BuitenzijkantR = buitenzijkantR + Me.Bodem = bodem Me.OrigineleRug = rug 'Variabelen instellen. @@ -149,12 +150,10 @@ 'Barcode van een zijkant ophalen. Dim isVerlaagdeRug = OrigineleRug.ArdisData.SifonLadeIsVerlaagdeRug(BuitenzijkantL.ArdisDataL.PartCalc) - 'Lengte van de originele rug ophalen. - Dim oorspronkelijkeLengteRug = OrigineleRug.ArdisData.PartL 'Data en ticket updaten. - rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, oorspronkelijkeLengteRug, isVerlaagdeRug) - rugRArdisData.SifonLadeNieuweRug2Data(PositieSifonuitsparingR, OrigineleRug.ArdisData.PartL, isVerlaagdeRug) + rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, isVerlaagdeRug, BuitenzijkantL.ArdisDataL.PartExt01) + rugRArdisData.SifonLadeNieuweRug2Data(PositieSifonuitsparingR, isVerlaagdeRug, BuitenzijkantL.ArdisDataL.PartExt01) 'Ruggen initialiseren met Ardis data. RugL = New Rug() With { Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb =================================================================== diff -u -r1704 -r1738 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb (.../HoofdAansturingSifonLade.vb) (revision 1704) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb (.../HoofdAansturingSifonLade.vb) (revision 1738) @@ -125,15 +125,15 @@ End If 'data van de gegenereerde aapassen met juiste data Dim kantenbandDataGegenereerdLinks As KantenbandData = kantenbandDataOrigineelLinks.ShallowCopy - kantenbandDataGegenereerdLinks.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc) + kantenbandDataGegenereerdLinks.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc, gegenereerdeZijkantL.GeefKleurBinnen()) 'barcode opvragen van de originele zijkanten Dim kantenbandDataOrigineelRechts As KantenbandData = KantenbandMapper.geef(origineleZijkantR.PartCalc) If kantenbandDataOrigineelRechts Is Nothing Then Throw New Exception("De kantenbandDataOrigineelRechts kon niet worden opgehaald met barcode: " & origineleZijkantR.PartCalc) End If 'data van de gegenereerde aapassen met juiste data Dim kantenbandDataGegenereerdRechts As KantenbandData = kantenbandDataOrigineelRechts.ShallowCopy - kantenbandDataGegenereerdRechts.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantR.PartL, gegenereerdeZijkantR.PartW, gegenereerdeZijkantR.PartCalc) + kantenbandDataGegenereerdRechts.sifonLadeUpdateGegenereerdeZijkantData(gegenereerdeZijkantR.PartL, gegenereerdeZijkantR.PartW, gegenereerdeZijkantR.PartCalc, gegenereerdeZijkantR.GeefKleurBinnen()) slaOpInAfkanter(kantenbandDataGegenereerdLinks) slaOpInAfkanter(kantenbandDataGegenereerdRechts) Index: TAOR-rework-bugfixing/TAOR rework/databases/Kantenband/KantenbandData.vb =================================================================== diff -u -r1596 -r1738 --- TAOR-rework-bugfixing/TAOR rework/databases/Kantenband/KantenbandData.vb (.../KantenbandData.vb) (revision 1596) +++ TAOR-rework-bugfixing/TAOR rework/databases/Kantenband/KantenbandData.vb (.../KantenbandData.vb) (revision 1738) @@ -80,20 +80,70 @@ ID = PartCalc End Sub - Public Sub sifonLadeUpdateGegenereerdeZijkantData(partL As String, partW As String, barcode As String) + Public Sub sifonLadeUpdateGegenereerdeZijkantData(partL As String, partW As String, barcode As String, materiaal As String) Length = CStr(CDbl(partL.Replace(".", ",")) - 5.0).Replace(",", ".") Width = CStr(CDbl(partW.Replace(".", ",")) - 5.0).Replace(",", ".") 'barcode instellen ID = barcode - InsertTime = "" - BeginTime = "" - EndTime = "" 'barcode in de printer text aanpassen If Not (Pass1PrinterText Is Nothing OrElse Pass1PrinterText.Equals("")) Then Dim indexBarcode As Integer = Pass1PrinterText.LastIndexOf(" ") Pass1PrinterText = Pass1PrinterText.Remove(indexBarcode) Pass1PrinterText &= barcode End If + + InsertTime = "" + BeginTime = "" + EndTime = "" + Pass1Edgeband = Configs.geefKantenbandCodeBijKleur(materiaal) + Pass1PrinterText1 = "" + Pass1PrinterText2 = "" + Pass1PrinterText3 = "" + Pass1PrinterText = "" + Pass1Exit = "" + Pass2Edgeband = Configs.geefKantenbandCodeBijKleur(materiaal) + Pass2PrinterText1 = "" + Pass2PrinterText2 = "" + Pass2PrinterText3 = "" + Pass2PrinterText = "" + Pass3Edgeband = "" + Pass3PrinterText1 = "" + Pass3PrinterText2 = "" + Pass3PrinterText3 = "" + Pass3PrinterText = "" + Pass3Exit = "" + Pass4Edgeband = "" + Pass4PrinterText1 = "" + Pass4PrinterText2 = "" + Pass4PrinterText3 = "" + Pass4PrinterText = "" + Pass4Tilting180 = "" + Pass4Turning180 = "" + + If Configs.geefKantenbandMateriaalBijKleur(materiaal).ToLower.Equals("melamine") Then + Pass1Program = "AFKANTEN MELAMINE" + Pass1Tilting180 = "0" + Pass1Turning180 = "1" + Pass2Program = "AFKANTEN MELAMINE" + Pass2Tilting180 = "1" + Pass2Turning180 = "0" + Pass2Exit = "D" + Else + Pass1Program = "AFKANTEN FINEER" + Pass1Tilting180 = "0" + Pass1Turning180 = "1" + Pass2Program = "AFKANTEN FINEER" + Pass2Tilting180 = "1" + Pass2Turning180 = "1" + Pass2Exit = "" + Pass3Program = "SCHIELE ZONDER GROEF" + Pass3Tilting180 = "0" + Pass3Turning180 = "1" + Pass4Program = "SCHIELE ZONDER GROEF" + Pass4Tilting180 = "0" + Pass4Turning180 = "0" + Pass4Exit = "D" + End If End Sub Public Sub sifonLadeStelLengteRugIn(oorspronkelijkeLengte As String, decor As String) Index: TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb =================================================================== diff -u -r1657 -r1738 --- TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb (.../Zijkant.vb) (revision 1657) +++ TAOR-rework-bugfixing/TAOR rework/nieuwdomein/onderdelen/implementaties/Zijkant.vb (.../Zijkant.vb) (revision 1738) @@ -1,8 +1,35 @@ Public Class Zijkant Implements IOnderdeel, IHeeftDubbeleArdisData, IHeeftKantenbandData + Private _ardisdataL As ArdisData Public Property ArdisDataL As ArdisData Implements IHeeftDubbeleArdisData.ArdisData1 + Set(value As ArdisData) + _ardisdataL = value + 'Update kleur van andere in paar, indien deze aanwezig is. + If Not (_ardisdataL Is Nothing or _ardisdataR is Nothing) Then + _ardisdataR.AndereZijkantVanPaar = _ardisdataL + _ardisdataL.AndereZijkantVanPaar = _ardisdataR + End If + End Set + Get + Return _ardisdataL + End Get + End Property + Private _ardisdataR As ArdisData Public Property ArdisDataR As ArdisData Implements IHeeftDubbeleArdisData.ArdisData2 + Set(value As ArdisData) + _ardisdataR = value + 'Update kleur van andere in paar, indien deze aanwezig is. + If Not (_ardisdataL Is Nothing or _ardisdataR is Nothing) Then + _ardisdataR.AndereZijkantVanPaar = _ardisdataL + _ardisdataL.AndereZijkantVanPaar = _ardisdataR + End If + End Set + Get + Return _ardisdataR + End Get + End Property + Public Property KantenbandData As KantenbandData Implements IHeeftKantenbandData.KantenbandData ''' Index: TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb =================================================================== diff -u -r1732 -r1738 --- TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1732) +++ TAOR-rework-bugfixing/TAOR rework/controllers/SifonLadeController.vb (.../SifonLadeController.vb) (revision 1738) @@ -224,10 +224,12 @@ content.Add(slot.zijkantenSpeciaal(0).GeefBatch) If slot.zijkantenSpeciaal.Count = 4 Then 'voorraad content.Add(slot.zijkantenSpeciaal(0).geefColorDubbelVoorraad(slot.zijkantenSpeciaal(1), slot.zijkantenSpeciaal(2), slot.zijkantenSpeciaal(3))) - ElseIf slot.type = SlotType.enkel Then 'voorraad met 1 zijkant - content.Add(slot.zijkantenSpeciaal(0).geefColorEnkel(slot.zijkantenSpeciaal(1))) - Else + ElseIf slot.zijkantenSpeciaal(0).AndereZijkantVanPaar Is Nothing Then + 'Originele zijkant. content.Add(slot.zijkantenSpeciaal(0).geefColorDubbel(slot.zijkantenSpeciaal(1))) + Else + 'Moeten andere zijkant van he tpaar hebben om bicolor te kunnen tonen. + content.Add(slot.zijkantenSpeciaal(0).geefColorDubbel(slot.zijkantenSpeciaal(0).AndereZijkantVanPaar)) End If content.Add(slot.zijkantenSpeciaal(0).PartL) Index: TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb =================================================================== diff -u -r1732 -r1738 --- TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1732) +++ TAOR-rework-bugfixing/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1738) @@ -115,9 +115,9 @@ Dim oorspronkelijkeLengteRug = OrigineleRug.ArdisData.PartL 'Data en ticket updaten. - rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, oorspronkelijkeLengteRug, isVerlaagdeRug) - rugMArdisData.SifonLadeNieuweRugMData(BreedteMiddenstuk, oorspronkelijkeLengteRug) - rugRArdisData.SifonLadeNieuweRug2Data(PositieSifonuitsparingR, oorspronkelijkeLengteRug, isVerlaagdeRug) + rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, isVerlaagdeRug, BuitenzijkantL.ArdisDataL.PartExt01) + rugMArdisData.SifonLadeNieuweRugMData(BreedteMiddenstuk, BuitenzijkantL.ArdisDataL.PartExt01) + rugRArdisData.SifonLadeNieuweRug2Data(PositieSifonuitsparingR, isVerlaagdeRug, BuitenzijkantL.ArdisDataL.PartExt01) 'Ruggen initialiseren met Ardis data. RugL = New Rug() With { Index: TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb =================================================================== diff -u -r1732 -r1738 --- TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1732) +++ TAOR-rework-bugfixing/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1738) @@ -1,4 +1,5 @@ Imports System.Diagnostics.Eventing.Reader +Imports System.Text.RegularExpressions Public Class ArdisData Public PartId As String @@ -38,6 +39,8 @@ Property KamerfreesSlotNr As String Property Bestandsnaam As String 'Naam van het bestand waar de Ardis data zich in bevindt voor special laden. + Property AndereZijkantVanPaar As ArdisData + Public Function ShallowCopy() As ArdisData Return DirectCast(Me.MemberwiseClone(), ArdisData) End Function @@ -185,13 +188,12 @@ ''' Nieuwe data voor een linkse rug. ''' ''' - ''' ''' - Public Sub SifonLadeNieuweRug1Data(positieSifon As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean) + Public Sub SifonLadeNieuweRug1Data(positieSifon As Double, isVerlaagdeRug As Boolean, partExt01Zijkant As String) 'PartL updaten. Dim nieuwePartL = positieSifon - 23.5 'Ticketlijnen en PartL updaten. - SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, isVerlaagdeRug, RugStuk.Links) + SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL, isVerlaagdeRug, RugStuk.Links, partExt01Zijkant) 'Kleur aanpassen. PasKleurAanSpecial() End Sub @@ -201,13 +203,12 @@ ''' Nieuwe data voor een rechtse rug van een enkele sifonlade. ''' ''' - ''' ''' - Public Sub SifonLadeNieuweRug2Data(rest As Double, oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean) + Public Sub SifonLadeNieuweRug2Data(rest As Double, isVerlaagdeRug As Boolean, partExt01Zijkant As String) 'PartL berekenen. Dim nieuwePartL = rest - 23.5 'Ticketlijnen en PartL updaten. - SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, isVerlaagdeRug, RugStuk.Rechts) + SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL, isVerlaagdeRug, RugStuk.Rechts, partExt01Zijkant) 'Kleur aanpassen. PasKleurAanSpecial() End Sub @@ -216,30 +217,37 @@ ''' Nieuwe data voor de middelste rug. ''' ''' - ''' - Public Sub SifonLadeNieuweRugMData(breedteMiddenstuk As Double, oorspronkelijkeLengteRug As String) + Public Sub SifonLadeNieuweRugMData(breedteMiddenstuk As Double, partExt01Zijkant As String) 'PartL berekenen. Dim nieuwePartL = breedteMiddenstuk - 15 'Zet type op Valligne. PartCalc = PartCalc.Substring(0, 2) & "A" & PartCalc.Substring(3) 'Ticketlijnen updaten. 'Ticketlijnen en PartL updaten. - SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug, nieuwePartL, False, RugStuk.Midden) + SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL, False, RugStuk.Midden, partExt01Zijkant) 'Kleur aanpassen. PasKleurAanSpecial() End Sub ''' ''' PartExt01 aanpassen. ''' - ''' - Private Sub SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug As String) + Private Sub SifonLadeUpdateEtiketLijn1Rug(partExt01Zijkant As String) Dim afdekKapjesEnSy As String = PartExt01.Substring(PartExt01.LastIndexOf("/")) Dim tempPartExt01 As String = PartExt01.Substring(0, PartExt01.LastIndexOf("/")) afdekKapjesEnSy = tempPartExt01.Substring(tempPartExt01.LastIndexOf("/")) & afdekKapjesEnSy tempPartExt01 = tempPartExt01.Substring(0, tempPartExt01.LastIndexOf("/")) afdekKapjesEnSy = tempPartExt01.Substring(tempPartExt01.LastIndexOf("/")) & afdekKapjesEnSy - PartExt01 = PartRef.Substring(0, 3) & "/" & PartExt07 & "-" & PartExt07 & "/" & CStr(CDbl(oorspronkelijkeLengteRug.Replace(".", ",")) + 5).Replace(",", ".") & "x" & PartW & "/" & PartRemark & afdekKapjesEnSy + + Dim r = New Regex("\/\w*-(\w*)-\w*\/", RegexOptions.IgnoreCase) + Dim m as Match= r.Match(partExt01Zijkant) + If Not m.Success Then + Throw New Exception("Kon materiaal voor etiketlijn 1 van een rug niet updaten, de juiste kleur is niet aanwezig in de partExt01 van de zijkant.") + End If + + dim materiaalZijkant = m.Groups(1).Value + + PartExt01 = $"{PartRef.Substring(0, 3)}/{PartExt07}-{materiaalZijkant}/{PartL}x{PartW}/{PartRemark}{afdekKapjesEnSy}" End Sub Private Enum RugStuk @@ -253,13 +261,12 @@ ''' Anders als PartL kleiner dan minimum lengte rug -> minimum lengte rug. ''' Als verlaagde rug en te kort dan PartL - 5.5 ''' - ''' ''' ''' - Private Sub SifonladeUpdatePartLEnEtiketlijnen(oorspronkelijkeLengteRug As String, nieuwePartL As Double, isVerlaagdeRug As Boolean, rugstuk As RugStuk) + Private Sub SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL As Double, isVerlaagdeRug As Boolean, rugstuk As RugStuk, partExt01Zijkant As String) Dim isVergrootteBaliko As Boolean = False Dim isVergrootteVallinge As Boolean = False - dim isteKorteRug as Boolean = false + Dim isteKorteRug As Boolean = False 'Controleren of het een verlaagde rug is. If isVerlaagdeRug Then @@ -305,7 +312,7 @@ PartL = Configs.SifonLadeGeefMinimumLengteRug() End If - SifonLadeUpdateEtiketLijn1Rug(oorspronkelijkeLengteRug) + SifonLadeUpdateEtiketLijn1Rug(partExt01Zijkant) 'Bij etiketlijn 2 'kar' vervangen door 'sifon'. PartExt02 = PartExt02.Replace("KAR", "SIFON") @@ -357,7 +364,7 @@ If isTeKorteRug Then 'Te korte rug. lengte = nieuwePartL - elseIf Not ((Not isVerlaagdeRug) And isVergrootteVallinge) Then + ElseIf Not ((Not isVerlaagdeRug) And isVergrootteVallinge) Then 'Normaal. lengte = CDbl(PartL.Replace(".", ",")) - 5 Else @@ -392,6 +399,9 @@ 'Toewijzen aan variabele. PartCalc = nieuweBarcode + + 'PartExt04 aanpassen met nieuwe barcode. + PartExt04 = PartCalc & PartExt04.Substring(PartExt04.IndexOf("/")) End Sub Public Function sifonLadeGeefOorspronkelijkeLengteRug()