Index: TAOR rework/TAOR rework/Configuraties/Configs.vb =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1592) +++ TAOR rework/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1869) @@ -99,7 +99,7 @@ Private Sub laadOnderdelen() _onderdelen = OnderdelenTextFileMapper.getDataFromFile() If (_onderdelen Is Nothing) OrElse (_onderdelen.Count <= 0) Then - _onderdelen = CacheMapper.geefOnderdelen + _onderdelen = CacheMapper.GeefOnderdelen OnderdelenTextFileMapper.writeToFile(_onderdelen) End If If _onderdelen.Count <= 0 Then @@ -350,6 +350,12 @@ #End Region +#Region "Logs schrijven of niet" + Public Function GeefLogOpslaanStatus() As Boolean + Return My.Settings.LogOpslaanStatus + End Function +#End Region + Public Sub opslaanAlgemeneConfigs() slaConfigsOp() End Sub @@ -532,13 +538,16 @@ Next Throw New Exception("Ongeldige nettoLengte bij opvragen CodeStemasB") End Function + #End Region #Region "kleuren, codes en materialen kantenband" Private _kleurenKantenband As New List(Of String) Private _codesKantenband As New List(Of String) Private _materialenKantenband As New List(Of String) + Private _passProgram1 As New List(Of String) + Private _passProgram2 As New List(Of String) Private Sub laadKantenbandNieuweKleuren() Dim overigeConfigs As New List(Of String) @@ -547,6 +556,8 @@ _kleurenKantenband.Add(lijn.Split("|")(0).Replace("kantenbandkleurenencodes ", "").Replace("KANTENBANDKLEURENENCODES", "").Trim) _codesKantenband.Add(lijn.Split("|")(1).Trim) _materialenKantenband.Add(lijn.Split("|")(2).Trim) + _passProgram1.Add(lijn.Split("|")(3).Trim) + _passProgram2.Add(lijn.Split("|")(4).Trim) Else overigeConfigs.Add(lijn) End If @@ -556,6 +567,10 @@ If _kleurenKantenband.Count <= 0 Or _codesKantenband.Count <= 0 Or _materialenKantenband.Count <= 0 Then Throw New Exception("De configuratie van de kleuren, codes en materialen voor kantenband is foutief of niet aanwezig, gelieve deze na te kijken.") + ElseIf _passProgram1.Count <= 0 Then + Throw New Exception("Pass program 1 voor specials is foutief of niet aanwezig, gelieve deze na te kijken.") + ElseIf _passProgram2.Count <= 0 Then + Throw New Exception("Pass program 2 voor specials is foutief of niet aanwezig, gelieve deze na te kijken.") End If End Sub @@ -583,6 +598,24 @@ Throw New Exception("Ongeldige kleur bij opvragen kantenband materiaal") End Function + Public Function geefPassProgram1BijKleur(kleur As String) As String + For teller As Integer = 0 To _kleurenKantenband.Count - 1 + If kleur.Equals(_kleurenKantenband(teller)) Then + Return _passProgram1(teller) + End If + Next + Throw New Exception("Ongeldige kleur bij opvragen pass program 1") + End Function + + Public Function geefPassProgram2BijKleur(kleur As String) As String + For teller As Integer = 0 To _kleurenKantenband.Count - 1 + If kleur.Equals(_kleurenKantenband(teller)) Then + Return _passProgram2(teller) + End If + Next + Throw New Exception("Ongeldige kleur bij opvragen pass program 2") + End Function + #End Region #End Region @@ -630,7 +663,7 @@ End If End Sub - Public Function sifonLadeGeefMinimumLengteRug() + Public Function SifonLadeGeefMinimumLengteRug() As Integer Return _sifonLadeMinimumLengteRug End Function #End Region Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1592) +++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1869) @@ -1,4 +1,7 @@ -Public Class ArdisData +Imports System.Diagnostics.Eventing.Reader +Imports System.Text.RegularExpressions + +Public Class ArdisData Public PartId As String Public OrderId As String Public PartRef As String @@ -31,12 +34,13 @@ Public PartExt10 As String Public PartExt11 As String - Private _gegenereerd As Boolean - Property Label As String Property KamerfreesTrayId As String 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 @@ -63,117 +67,359 @@ End Function Public Function geefColorEnkel(andereKant As ArdisData) As String - Return geefKleurBinnen() & "-" & andereKant.geefKleurBinnen + Return GeefKleurBinnen() & "-" & andereKant.GeefKleurBinnen End Function Public Function geefColorDubbel(andereKant As ArdisData) As String - Return geefKleurBinnen() & "-" & andereKant.geefKleurBinnen & "-" & geefKleurBinnen() & "-" & andereKant.geefKleurBinnen + Return GeefKleurBinnen() & "-" & andereKant.GeefKleurBinnen & "-" & GeefKleurBinnen() & "-" & andereKant.GeefKleurBinnen End Function - Public Function geefBatch() As String + Public Function GeefBatch() As String Return PartGroup.Substring(0, PartGroup.Length - 3) End Function - Public Function geefKleurBinnen() As String + Public Function GeefKleurBinnen() As String Return PartExt07 End Function - 'specials + 'Specials - Public Sub pasKleurAanSpecial() - Dim firstIndex As Integer = PartMat.IndexOf(".") + 1 - Dim lastIndex As Integer = PartMat.LastIndexOf(".") + ''' + ''' PartExt07 aanpassen met huidig materiaal. + ''' + Public Sub PasKleurAanSpecial() + Dim firstIndex As Integer = PartMat.IndexOf(".", StringComparison.Ordinal) + 1 + Dim lastIndex As Integer = PartMat.LastIndexOf(".", StringComparison.Ordinal) PartExt07 = PartMat.Substring(firstIndex, lastIndex - firstIndex) End Sub - Function isSpecialGegenereerd() As Boolean + ''' + ''' Opvragen of een zijkant is gegenereerd in een sifonlade. Dus of het een binnenzijkantje is. + ''' + ''' + Function IsSpecialGegenereerd() As Boolean Return PartExt09.ToUpper.Equals("A") Or PartExt09.ToUpper.Equals("B") End Function #Region "sifon laden" - Public Sub sifonLadeUpdateEtiketLijnenRug(oorspronkelijkeLengteRug 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 - 'bij etiketlijn 2 'kar' vervangen door sifon + ''' + ''' Updaten etiketlijn 2 en 4. + ''' + Public Sub SifonLadeUpdateEtiketLijnen() + 'Bij etiketlijn 2 'kar' vervangen door sifon PartExt02 = PartExt02.Replace("KAR", "SIFON") + 'Etiketlijn 4 aanpassen. + PartExt04 = PartCalc & "/B/" & CStr(CDbl(PartL.Replace(".", ",")) - 5).Replace(",", ".") & "xH:" & CStr(CDbl(PartW.Replace(".", ",")) - 5).Replace(",", ".") End Sub - Public Sub sifonLadeUpdateEtiketLijnen() - 'bij etiketlijn 2 'kar' vervangen door sifon - PartExt02 = PartExt02.Replace("KAR", "SIFON") - 'bij etiketlijn 4 de nieuwe barcode instellen - PartExt04 = PartCalc & "/B/" & CStr(CDbl(PartL.Replace(".", ",")) - 5).Replace(",", ".") & "xH:" & CStr(CDbl(PartW.Replace(".", ",")) - 5).Replace(",", ".") + ''' + ''' Nieuw zijkantplaatje aanmaken met bepaalde data. + ''' Aanpassingen aan: PartL, PartW, PartMat, PartExt09, Barcode en etiketlijnen 2 en 4. + ''' + ''' + ''' + ''' + ''' + ''' + Public Sub SifonLadeNieuweZijkantData(lengte As String, hoogteRug As String, materiaalOrigineleRug As String, barcodeRug As String, isLinksPlaatje As Boolean) + 'Nieuwe barcode geven. + + 'Kijken of het een linkse of rechtse plaat is + Dim typePlaat As String = PartCalc.Substring(5, 1) + 'De barcode opbouwen met eerste teken uit originele barcode. + Dim nieuweBarcode As String = PartCalc.Substring(0, 1) + 'Tweede teken is tweede teken van barcode rug. + nieuweBarcode &= barcodeRug.Substring(1, 1) + 'Derde teken is opnieuw van originele barcode. + nieuweBarcode &= PartCalc.Substring(2, 1) + 'Teken daarna is de STEMAS B code, opvragen en toevoegen. + nieuweBarcode &= Configs.geefCodeStemasB(lengte) + 'Speciale letter toevoegen, afhankelijk of het links of rechts is. + If typePlaat.ToUpper.Equals("L") Or typePlaat.ToUpper.Equals("C") Then + nieuweBarcode &= "E" + ElseIf typePlaat.ToUpper.Equals("R") Or typePlaat.ToUpper.Equals("D") Then + nieuweBarcode &= "F" + Else + Throw New Exception($"Type {typePlaat} is niet gekend in de barcode voor nieuwe zijkant data") + End If + + 'De barcode vullen met nullen en de uniek nummer dat wordt opgehaald. + Dim nummer As String = CacheMapper.GeefBarcodeNummer + Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length + For teller = 0 To aantalNullen - 2 + nummer &= "0" + Next + 'De letter 'S' in het midden toevoegen. + nieuweBarcode &= nummer.Insert(2, "S") + 'Toewijzen aan PartCalc. + PartCalc = nieuweBarcode + + 'PartL aanpassen. + PartL = lengte + 5 + 'PartW (hoogte) aanpassen. + PartW = CStr(CDbl(hoogteRug.Replace(".", ",")) + 10.0).Replace(",", ".") + 'Materiaal aanpassen. MATERIAAL.KLEUR.DIKTE -> materiaal en kleur uit originele rug, dikte behouden van zijkantplaatje. + PartMat = materiaalOrigineleRug.Substring(0, materiaalOrigineleRug.LastIndexOf(".")) & PartMat.Substring(PartMat.LastIndexOf(".")) + 'PartExt09 updaten afhankelijk van links or rechts. + If isLinksPlaatje Then + 'Is links. + PartExt09 = "A" + Else + 'Is rechts + PartExt09 = "B" + End If + 'Kleur aanpassen. + PasKleurAanSpecial() + 'Updaten etiket. + SifonLadeUpdateEtiketLijnen() End Sub - Public Sub sifonLadeUpdateBarcodeRug(isVerlaagdeRug As Boolean, isLinkseRug As Boolean) - 'nieuwe barcode - Dim nieuweBarcode As String = "" - 'juiste letter als verlaagde rug toevoegen + ''' + ''' Kijken of de rug verlaagd is, aan de hand van het eerste tekens van de PartCalc. + ''' + ''' PartCalc van een originele zijkant + ''' True als de sifonlade verlaagd is + Public Function SifonLadeIsVerlaagdeRug(partCalcOrigineleZijkant As String) As Boolean + Return Not PartCalc.Substring(1, 1).Equals(partCalcOrigineleZijkant.Substring(1, 1)) + End Function + + ''' + ''' Nieuwe data voor een linkse rug. + ''' + ''' + ''' + Public Sub SifonLadeNieuweRug1Data(positieSifon As Double, isVerlaagdeRug As Boolean, partExt01Zijkant As String) + 'PartL updaten. + Dim nieuwePartL = positieSifon - 23.5 + 'Ticketlijnen en PartL updaten. + SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL, isVerlaagdeRug, RugStuk.Links, partExt01Zijkant) + 'Kleur aanpassen. + PasKleurAanSpecial() + End Sub + + + ''' + ''' Nieuwe data voor een rechtse rug van een enkele sifonlade. + ''' + ''' + ''' + Public Sub SifonLadeNieuweRug2Data(rest As Double, isVerlaagdeRug As Boolean, partExt01Zijkant As String) + 'PartL berekenen. + Dim nieuwePartL = rest - 23.5 + 'Ticketlijnen en PartL updaten. + SifonladeUpdatePartLEnEtiketlijnen(nieuwePartL, isVerlaagdeRug, RugStuk.Rechts, partExt01Zijkant) + 'Kleur aanpassen. + PasKleurAanSpecial() + End Sub + + ''' + ''' Nieuwe data voor de middelste rug. + ''' + ''' + 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(nieuwePartL, False, RugStuk.Midden, partExt01Zijkant) + 'Kleur aanpassen. + PasKleurAanSpecial() + End Sub + + ''' + ''' PartExt01 aanpassen. + ''' + 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 + + 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 + Links + Rechts + Midden + End Enum + + ''' + ''' Updaten van partL, etiketlijnen en barcode. PartL wordt aangepast als baliko en PartL kleiner dan 181 -> 600 Vallinge. + ''' Anders als PartL kleiner dan minimum lengte rug -> minimum lengte rug. + ''' Als verlaagde rug en te kort dan PartL - 5.5 + ''' + ''' + ''' + 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 + + 'Controleren of het een verlaagde rug is. If isVerlaagdeRug Then - nieuweBarcode = PartCalc.Substring(0, 2) - If isLinkseRug Then - nieuweBarcode &= "C" + 'Verlaagde rug, PartL aanpassen. + nieuwePartL -= 5.5 + End If + + 'Controleren dat het geen te korte baliko rug is. PartL onder de 181 en derde letter van de originele barcode is 'B'. + If nieuwePartL < 181 Then + If PartCalc.Chars(2) = "B" Then + 'Te korte Baliko. + 'Dit is een vergrootte baliko. + isVergrootteBaliko = True + 'Nooit een verlaagde rug. Uit Vallinge rug maken. + isVerlaagdeRug = False + 'PartL instellen + PartL = 600 + 'Etiket aanpassen. + PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*EKO-{CStr(nieuwePartL).Replace(",", ".")}*" Else - nieuweBarcode &= "D" + 'Te korte Vallinge. + 'Dit is een vergrootte Vallinge. + isVergrootteVallinge = True + 'PartL instellen + PartL = Configs.SifonLadeGeefMinimumLengteRug() + 'Etiket aanpassen. + PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*ROB-{CStr(nieuwePartL).Replace(",", ".")}*" End If + 'Controleren of de PartL minder is dan de minimum lengte van de rug. + ElseIf Not (nieuwePartL + 5) < Configs.SifonLadeGeefMinimumLengteRug() Then + 'Niet te kort. + + PartL = CStr(nieuwePartL + 5).Replace(",", ".") + 'Etiketlijnen updaten. + SifonLadeUpdateEtiketLijnen() Else + 'Te korte rug. + + isteKorteRug = True + 'Etiketlijnen zelf aanpassen. + 'Etiketlijn 4 aanpassen. + PartExt04 = $"{PartExt04.Substring(0, PartExt04.IndexOf("/"))}/*CUT-{CStr(nieuwePartL + 5).Replace(",", ".")}*" + 'PartL overschrijven met minimum lengte rug. + PartL = Configs.SifonLadeGeefMinimumLengteRug() + End If + + SifonLadeUpdateEtiketLijn1Rug(partExt01Zijkant) + 'Bij etiketlijn 2 'kar' vervangen door 'sifon'. + PartExt02 = PartExt02.Replace("KAR", "SIFON") + + 'Barcode updaten. + SifonLadeUpdateBarcodeRug(nieuwePartL, isVerlaagdeRug, rugstuk, isVergrootteBaliko, isVergrootteVallinge, isteKorteRug) + End Sub + + ''' + ''' Barcode voor een rug opbouwen. + ''' + ''' + ''' + Private Sub SifonLadeUpdateBarcodeRug(nieuwePartL As Double, isVerlaagdeRug As Boolean, rugstuk As RugStuk, isVergrootteBaliko As Boolean, isVergrootteVallinge As Boolean, isTeKorteRug As Boolean) + 'Nieuwe barcode + Dim nieuweBarcode As String + If isVergrootteBaliko Then + 'Vergrootte baliko -> Vallinge. + nieuweBarcode = "R" + nieuweBarcode &= PartCalc.Substring(1, 1) + nieuweBarcode &= "X" + ElseIf rugstuk = RugStuk.Midden Then + 'Eerste 2 tekens van originele barcode + X. nieuweBarcode = PartCalc.Substring(0, 2) - If isLinkseRug Then - nieuweBarcode &= "L" + nieuweBarcode &= "X" + Else + 'Eerste twee tekens van originele barcode + nieuweBarcode = PartCalc.Substring(0, 2) + 'Links of rechts of overeenkomstige letter van special lade. + If Not isVerlaagdeRug Then + 'Geen verlaagde rug. + If rugstuk = RugStuk.Links Then + nieuweBarcode &= "L" + Else + nieuweBarcode &= "R" + End If Else - nieuweBarcode &= "R" + 'Is verlaagde rug, juiste letter toevoegen. + If rugstuk = RugStuk.Links Then + nieuweBarcode &= "C" + Else + nieuweBarcode &= "D" + End If End If End If - 'de lengte in de barcode steken + 'De lengte in de barcode steken. + Dim lengte As Double - If isVerlaagdeRug Then - lengte = CDbl(PartL.Replace(".", ",")) - 5 - 5.5 - Else + If isTeKorteRug Then + 'Te korte rug. + lengte = nieuwePartL + ElseIf Not ((Not isVerlaagdeRug) And isVergrootteVallinge) Then + 'Normaal. lengte = CDbl(PartL.Replace(".", ",")) - 5 + Else + 'Geen verlaagde rug maar wel vergrootte Vallinge. + lengte = Configs.SifonLadeGeefMinimumLengteRug() - 5 End If Dim getallenStuk As String = "" If lengte < 1000 Then getallenStuk &= 0 End If - 'de niet kommagetallen toevoegen + 'De niet kommagetallen toevoegen. getallenStuk &= Math.Floor(lengte) - getallenStuk &= CStr(lengte Mod 1).Replace("0,", "") - 'getal gedeelte toevoegen + 'Deel voor de komma eruit halen. + getallenStuk &= CStr(lengte Mod 1).Replace("0,", String.Empty) + 'Getal gedeelte toevoegen. nieuweBarcode &= getallenStuk - 'vaste waarde toevoegen + + 'Vaste waarde toevoegen. nieuweBarcode &= "US" - 'de opgevraagde nummer vullen met nullen en de unieke nummer die we ophalen - Dim nummer As Integer = CacheMapper.geefBarcodeNummer - Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length - 2 'de twee wijst op de vaste waarden die we nog gaan toevoegen - For teller As Integer = 0 To aantalNullen - 1 + + 'De opgevraagde nummer vullen met nullen en de unieke nummer die we ophalen. + Dim nummer As Integer = CacheMapper.GeefBarcodeNummer + Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length - 2 'De twee wijst op de vaste waarden die we nog gaan toevoegen. + For teller = 0 To aantalNullen - 1 nieuweBarcode &= "0" Next nieuweBarcode &= nummer - 'vaste waarde toevoegen + + 'Vaste waarde toevoegen. nieuweBarcode &= "D0" + 'Toewijzen aan variabele. PartCalc = nieuweBarcode + + 'PartExt04 aanpassen met nieuwe barcode. + PartExt04 = PartCalc & PartExt04.Substring(PartExt04.IndexOf("/")) End Sub - Public Sub sifonLadeUpdatePartLEnTicketRug(oorspronkelijkeLengteRug As String, isVerlaagdeRug As Boolean) - 'etiketlijn 4 updaten - PartExt04 = PartCalc & "/B/" & CStr(CDbl(PartL.Replace(".", ",")) - 5).Replace(",", ".") & "xH:" & CStr(CDbl(PartW.Replace(".", ",")) - 5).Replace(",", ".") + Public Function sifonLadeGeefOorspronkelijkeLengteRug() + Dim getal As Double + Dim lengteInBarcode = PartCalc.Substring(3, 5) + Try + getal = PartCalc.Substring(3, 5) + Catch ex As InvalidCastException + Throw New Exception($"Kan oorspronkelijke lengte rug niet uit de barcode '{PartCalc}' halen, huidige resultaat lengte: '{lengteInBarcode}'") + End Try + getal /= 10 + Return getal + End Function - Dim minLengteRugSifonLade As Integer = Configs.sifonLadeGeefMinimumLengteRug() - If PartL < minLengteRugSifonLade Then - PartL = minLengteRugSifonLade - PartExt04 = PartExt04.Substring(0, PartExt04.IndexOf("/")) & "/*CUT-" & CStr(CDbl(oorspronkelijkeLengteRug.Replace(".", ",") + 5)).Replace(",", ".") & "*" - ElseIf isVerlaagdeRug Then 'IS VERLAAGDE RUG? - PartL = CStr(CDbl(PartL.Replace(".", ",")) - 5.5).Replace(",", ".") - End If - End Sub + Function SifonLadeGeefLWBodem() As String + Return PartL - 5 + 31 + End Function Public Shared Function sifonLadeGeefBreedte(lw As Double) As Double Return lw - 31 @@ -191,85 +437,9 @@ Return PartCalc.Substring(5, 1) End Function - Public Sub sifonLadeNieuweZijkantData(lengte As String, hoogteRug As String, barcodeRug As String, isA As Boolean) - 'nieuwe barcode geven - 'kijken of het een linkse of rechtse plaat is - Dim typePlaat As String = PartCalc.Substring(5, 1) - - 'de barcode al vullen met de eerste 3 letters uit de oude, als het een verlaagde rug is de letter uit de rug nemen - Dim nieuweBarcode As String = PartCalc.Substring(0, 1) - nieuweBarcode &= barcodeRug.Substring(1, 1) - 'lengte aanpassen - PartL = lengte + 5 - 'hoogte aanpassen - PartW = CStr(CDbl(hoogteRug.Replace(".", ",")) + 10.0).Replace(",", ".") - - nieuweBarcode &= PartCalc.Substring(2, 1) - 'de STEMAS B code opvragen en toevoegen - nieuweBarcode &= Configs.geefCodeStemasB(PartL - 5) - - 'letter toevoegen - 'nieuweBarcode &= typePlaat - If typePlaat.ToUpper.Equals("L") Or typePlaat.ToUpper.Equals("C") Then - nieuweBarcode &= "E" - ElseIf typePlaat.ToUpper.Equals("R") Or typePlaat.ToUpper.Equals("D") Then - nieuweBarcode &= "F" - Else - Throw New Exception("Type " & typePlaat & " is niet gekend in de barcode voor nieuwe zijkant data") - End If - - 'de barcode vullen met nullen en de unieke nummer die we ophalen - Dim nummer As String = CacheMapper.geefBarcodeNummer - Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length - For teller As Integer = 0 To aantalNullen - 2 - nummer &= "0" - Next - 'de letter S in het midden toevoegen - nummer = nummer.Insert(2, "S") - - nieuweBarcode &= nummer - - PartCalc = nieuweBarcode - - If isA Then - PartExt09 = "A" - Else - PartExt09 = "B" - End If - End Sub - Public Shared Function sifonLadeGeefPositieUitsparing(positionSifon As Double) Return positionSifon + 5 - 21 + 5.5 - 13 End Function - - Public Sub sifonLadeNieuweRug1Data(positieSifon As Double) - PartL = positieSifon - 7.5 - 21 + 5.5 + 5 - End Sub - - Public Sub sifonLadeNieuweRug2Data(breedte As Double, breedteUitsparingSifon As Double, rug1Lengte As Double) - PartL = breedte - (breedteUitsparingSifon - 1) - CDbl(rug1Lengte - 5) + 5 - End Sub - - Public Function sifonLadeGeefOorspronkelijkeLengteRug() - Dim getal As Double - Dim lengteInBarcode = PartCalc.Substring(3, 5) - Try - getal = PartCalc.Substring(3, 5) - Catch ex As InvalidCastException - Throw New Exception($"Kan oorsprongkelijke lengte rug niet uit de barcode '{PartCalc}' halen, huidige resultaat lengte: '{lengteInBarcode}'") - End Try - getal /= 10 - Return getal - End Function - - Function sifonLadeGeefLWBodem() As String - Return PartL - 5 + 31 - End Function - - Public Function sifonLadeIsVerlaagdeRug(PartCalcOrigineleZijkant As String) As Boolean - Return Not PartCalc.Substring(1, 1).Equals(PartCalcOrigineleZijkant.Substring(1, 1)) - End Function - #End Region #Region "spoelbak lade" @@ -336,7 +506,7 @@ nieuweBarcode &= typePlaat 'de barcode vullen met nullen en de unieke nummer die we ophalen - Dim nummer As String = CacheMapper.geefBarcodeNummer + Dim nummer As String = CacheMapper.GeefBarcodeNummer Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length For teller As Integer = 0 To aantalNullen - 2 nummer &= "0" @@ -371,7 +541,7 @@ 'vaste waarde toevoegen nieuweBarcode &= "US" 'de opgevraagde nummer vullen met nullen en de unieke nummer die we ophalen - Dim nummer As Integer = CacheMapper.geefBarcodeNummer + Dim nummer As Integer = CacheMapper.GeefBarcodeNummer Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length - 2 'de twee wijst op de vaste waarden die we nog gaan toevoegen For teller As Integer = 0 To aantalNullen - 1 nieuweBarcode &= "0" @@ -530,7 +700,7 @@ #Region "voorraad" Public Function geefColorDubbelVoorraad(zijkantB As ArdisData, andereZijkantA As ArdisData, andereZijkantB As ArdisData) As String - Return geefKleurBinnen() & "-" & zijkantB.geefKleurBinnen & "-" & andereZijkantA.geefKleurBinnen & "-" & andereZijkantB.geefKleurBinnen + Return GeefKleurBinnen() & "-" & zijkantB.GeefKleurBinnen & "-" & andereZijkantA.GeefKleurBinnen & "-" & andereZijkantB.GeefKleurBinnen End Function Public Sub voorraadStelInitieleWaardenIn(diepte As String, hoogteLetter As String, label As String, kleur As String) @@ -560,7 +730,7 @@ PartExt08 = PartMat.Substring(0, PartMat.IndexOf(".")) End Sub - Public Sub voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts As LinksOfRechts, hoogteLetter As String, barcodeNummer As String) + Public Sub voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts As LinksOfRechts, hoogteLetter As String, barcodeNummer As String, isSifonlade As Boolean) 'barcodenummer opvullen met nullen (0076) Do Until barcodeNummer.Length = 4 barcodeNummer = "0" & barcodeNummer @@ -576,8 +746,14 @@ barcode &= "V" 'cijfer (lengte) barcode &= Configs.voorraadGeefCodeStemasB(Configs.voorraadGeefNettoLengte(PartL)) - 'letter voor rechts of links - barcode &= If(linksOfRechts = TA_OR_rework.LinksOfRechts.links, "L", "R") + 'letter voor rechts of links. Als het over een sifonlade gaat nemen we een andere letter. + If linksOfRechts = LinksOfRechts.Links Then + 'Links + barcode &= If(Not isSifonlade, "L", "E") + Else + 'Rechts + barcode &= If(Not isSifonlade, "R", "F") + End If 'eerste deel barcodeNummer barcode &= barcodeNummer.Substring(0, 2) 'tussenletter (vast) FishEye: Tag 1869 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/formulieren/Specials/FormSifonEnSpoelbakLade.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR rework/TAOR rework/formulieren/FormSpecialMenu.Designer.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormSpecialMenu.Designer.vb (.../FormSpecialMenu.Designer.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormSpecialMenu.Designer.vb (.../FormSpecialMenu.Designer.vb) (revision 1869) @@ -24,6 +24,7 @@ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormSpecialMenu)) Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblVerwerking = New System.Windows.Forms.Label() Me.FlowLayoutPanel1 = New System.Windows.Forms.FlowLayoutPanel() Me.Panel6 = New System.Windows.Forms.Panel() Me.btnStalen = New System.Windows.Forms.Button() @@ -40,17 +41,19 @@ Me.Panel7 = New System.Windows.Forms.Panel() Me.btnVervangKleuren = New System.Windows.Forms.Button() Me.btnTerug = New System.Windows.Forms.Button() - Me.lblVerwerking = New System.Windows.Forms.Label() - Me.Panel1.SuspendLayout() - Me.FlowLayoutPanel1.SuspendLayout() - Me.Panel6.SuspendLayout() - Me.Panel2.SuspendLayout() - Me.Panel5.SuspendLayout() - Me.Panel3.SuspendLayout() - Me.Panel4.SuspendLayout() - Me.Panel8.SuspendLayout() - Me.Panel7.SuspendLayout() - Me.SuspendLayout() + Me.Panel9 = New System.Windows.Forms.Panel() + Me.btnReworkAutomilling = New System.Windows.Forms.Button() + Me.Panel1.SuspendLayout + Me.FlowLayoutPanel1.SuspendLayout + Me.Panel6.SuspendLayout + Me.Panel2.SuspendLayout + Me.Panel5.SuspendLayout + Me.Panel3.SuspendLayout + Me.Panel4.SuspendLayout + Me.Panel8.SuspendLayout + Me.Panel7.SuspendLayout + Me.Panel9.SuspendLayout + Me.SuspendLayout ' 'Panel1 ' @@ -63,6 +66,17 @@ Me.Panel1.Size = New System.Drawing.Size(807, 792) Me.Panel1.TabIndex = 61 ' + 'lblVerwerking + ' + Me.lblVerwerking.AutoSize = true + Me.lblVerwerking.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.lblVerwerking.ForeColor = System.Drawing.Color.DarkRed + Me.lblVerwerking.Location = New System.Drawing.Point(275, 34) + Me.lblVerwerking.Name = "lblVerwerking" + Me.lblVerwerking.Size = New System.Drawing.Size(277, 31) + Me.lblVerwerking.TabIndex = 94 + Me.lblVerwerking.Text = "Er wordt niet verwerkt" + ' 'FlowLayoutPanel1 ' Me.FlowLayoutPanel1.Controls.Add(Me.Panel6) @@ -72,200 +86,212 @@ Me.FlowLayoutPanel1.Controls.Add(Me.Panel4) Me.FlowLayoutPanel1.Controls.Add(Me.Panel8) Me.FlowLayoutPanel1.Controls.Add(Me.Panel7) + Me.FlowLayoutPanel1.Controls.Add(Me.Panel9) Me.FlowLayoutPanel1.Location = New System.Drawing.Point(19, 88) Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1" - Me.FlowLayoutPanel1.Size = New System.Drawing.Size(730, 680) + Me.FlowLayoutPanel1.Size = New System.Drawing.Size(731, 680) Me.FlowLayoutPanel1.TabIndex = 21 ' 'Panel6 ' Me.Panel6.Controls.Add(Me.btnStalen) Me.Panel6.Location = New System.Drawing.Point(3, 3) Me.Panel6.Name = "Panel6" - Me.Panel6.Size = New System.Drawing.Size(378, 90) + Me.Panel6.Size = New System.Drawing.Size(332, 90) Me.Panel6.TabIndex = 19 ' 'btnStalen ' - Me.btnStalen.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnStalen.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnStalen.Location = New System.Drawing.Point(0, 13) Me.btnStalen.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnStalen.Name = "btnStalen" - Me.btnStalen.Size = New System.Drawing.Size(378, 68) + Me.btnStalen.Size = New System.Drawing.Size(332, 68) Me.btnStalen.TabIndex = 12 Me.btnStalen.Text = "Stalen" Me.btnStalen.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnStalen.UseVisualStyleBackColor = True + Me.btnStalen.UseVisualStyleBackColor = true ' 'Panel2 ' Me.Panel2.Controls.Add(Me.btnLades) - Me.Panel2.Location = New System.Drawing.Point(3, 99) + Me.Panel2.Location = New System.Drawing.Point(341, 3) Me.Panel2.Name = "Panel2" - Me.Panel2.Size = New System.Drawing.Size(378, 90) + Me.Panel2.Size = New System.Drawing.Size(332, 90) Me.Panel2.TabIndex = 17 ' 'btnLades ' - Me.btnLades.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnLades.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnLades.Location = New System.Drawing.Point(0, 13) Me.btnLades.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnLades.Name = "btnLades" - Me.btnLades.Size = New System.Drawing.Size(378, 68) + Me.btnLades.Size = New System.Drawing.Size(332, 68) Me.btnLades.TabIndex = 14 Me.btnLades.Text = "Lades" Me.btnLades.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnLades.UseVisualStyleBackColor = True + Me.btnLades.UseVisualStyleBackColor = true ' 'Panel5 ' Me.Panel5.Controls.Add(Me.btnVoorraad) - Me.Panel5.Location = New System.Drawing.Point(3, 195) + Me.Panel5.Location = New System.Drawing.Point(3, 99) Me.Panel5.Name = "Panel5" - Me.Panel5.Size = New System.Drawing.Size(378, 90) + Me.Panel5.Size = New System.Drawing.Size(332, 90) Me.Panel5.TabIndex = 20 ' 'btnVoorraad ' - Me.btnVoorraad.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnVoorraad.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnVoorraad.Location = New System.Drawing.Point(0, 10) Me.btnVoorraad.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnVoorraad.Name = "btnVoorraad" - Me.btnVoorraad.Size = New System.Drawing.Size(378, 68) + Me.btnVoorraad.Size = New System.Drawing.Size(332, 68) Me.btnVoorraad.TabIndex = 13 Me.btnVoorraad.Text = "Voorraad" Me.btnVoorraad.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVoorraad.UseVisualStyleBackColor = True + Me.btnVoorraad.UseVisualStyleBackColor = true ' 'Panel3 ' Me.Panel3.Controls.Add(Me.btnSifonEnSpoelbaklade) - Me.Panel3.Location = New System.Drawing.Point(3, 291) + Me.Panel3.Location = New System.Drawing.Point(341, 99) Me.Panel3.Name = "Panel3" - Me.Panel3.Size = New System.Drawing.Size(378, 90) + Me.Panel3.Size = New System.Drawing.Size(332, 90) Me.Panel3.TabIndex = 18 ' 'btnSifonEnSpoelbaklade ' - Me.btnSifonEnSpoelbaklade.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSifonEnSpoelbaklade.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnSifonEnSpoelbaklade.Location = New System.Drawing.Point(0, 13) Me.btnSifonEnSpoelbaklade.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnSifonEnSpoelbaklade.Name = "btnSifonEnSpoelbaklade" - Me.btnSifonEnSpoelbaklade.Size = New System.Drawing.Size(378, 68) + Me.btnSifonEnSpoelbaklade.Size = New System.Drawing.Size(332, 68) Me.btnSifonEnSpoelbaklade.TabIndex = 15 Me.btnSifonEnSpoelbaklade.Text = "Sifon-/Spoelbaklade" Me.btnSifonEnSpoelbaklade.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnSifonEnSpoelbaklade.UseVisualStyleBackColor = True - Me.btnSifonEnSpoelbaklade.Visible = False + Me.btnSifonEnSpoelbaklade.UseVisualStyleBackColor = true + Me.btnSifonEnSpoelbaklade.Visible = false ' 'Panel4 ' Me.Panel4.Controls.Add(Me.btnDiepteVerschil) - Me.Panel4.Location = New System.Drawing.Point(3, 387) + Me.Panel4.Location = New System.Drawing.Point(3, 195) Me.Panel4.Name = "Panel4" - Me.Panel4.Size = New System.Drawing.Size(378, 90) + Me.Panel4.Size = New System.Drawing.Size(332, 90) Me.Panel4.TabIndex = 21 ' 'btnDiepteVerschil ' - Me.btnDiepteVerschil.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnDiepteVerschil.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnDiepteVerschil.Location = New System.Drawing.Point(0, 13) Me.btnDiepteVerschil.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnDiepteVerschil.Name = "btnDiepteVerschil" - Me.btnDiepteVerschil.Size = New System.Drawing.Size(378, 68) + Me.btnDiepteVerschil.Size = New System.Drawing.Size(332, 68) Me.btnDiepteVerschil.TabIndex = 16 Me.btnDiepteVerschil.Text = "Diepte verschil" Me.btnDiepteVerschil.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnDiepteVerschil.UseVisualStyleBackColor = True - Me.btnDiepteVerschil.Visible = False + Me.btnDiepteVerschil.UseVisualStyleBackColor = true + Me.btnDiepteVerschil.Visible = false ' 'Panel8 ' Me.Panel8.Controls.Add(Me.btnHoogteVerschil) - Me.Panel8.Location = New System.Drawing.Point(3, 483) + Me.Panel8.Location = New System.Drawing.Point(341, 195) Me.Panel8.Name = "Panel8" - Me.Panel8.Size = New System.Drawing.Size(378, 90) + Me.Panel8.Size = New System.Drawing.Size(332, 90) Me.Panel8.TabIndex = 23 ' 'btnHoogteVerschil ' - Me.btnHoogteVerschil.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnHoogteVerschil.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnHoogteVerschil.Location = New System.Drawing.Point(0, 13) Me.btnHoogteVerschil.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnHoogteVerschil.Name = "btnHoogteVerschil" - Me.btnHoogteVerschil.Size = New System.Drawing.Size(378, 68) + Me.btnHoogteVerschil.Size = New System.Drawing.Size(332, 68) Me.btnHoogteVerschil.TabIndex = 16 Me.btnHoogteVerschil.Text = "Hoogte verschil" Me.btnHoogteVerschil.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnHoogteVerschil.UseVisualStyleBackColor = True - Me.btnHoogteVerschil.Visible = False + Me.btnHoogteVerschil.UseVisualStyleBackColor = true + Me.btnHoogteVerschil.Visible = false ' 'Panel7 ' Me.Panel7.Controls.Add(Me.btnVervangKleuren) - Me.Panel7.Location = New System.Drawing.Point(3, 579) + Me.Panel7.Location = New System.Drawing.Point(3, 291) Me.Panel7.Name = "Panel7" - Me.Panel7.Size = New System.Drawing.Size(378, 90) + Me.Panel7.Size = New System.Drawing.Size(332, 90) Me.Panel7.TabIndex = 22 ' 'btnVervangKleuren ' - Me.btnVervangKleuren.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnVervangKleuren.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnVervangKleuren.Location = New System.Drawing.Point(0, 13) Me.btnVervangKleuren.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnVervangKleuren.Name = "btnVervangKleuren" - Me.btnVervangKleuren.Size = New System.Drawing.Size(378, 68) + Me.btnVervangKleuren.Size = New System.Drawing.Size(332, 68) Me.btnVervangKleuren.TabIndex = 16 Me.btnVervangKleuren.Text = "Vervang kleuren" Me.btnVervangKleuren.TextAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.btnVervangKleuren.UseVisualStyleBackColor = True - Me.btnVervangKleuren.Visible = False + Me.btnVervangKleuren.UseVisualStyleBackColor = true + Me.btnVervangKleuren.Visible = false ' 'btnTerug ' - Me.btnTerug.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTerug.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnTerug.Location = New System.Drawing.Point(576, 14) Me.btnTerug.Name = "btnTerug" Me.btnTerug.Size = New System.Drawing.Size(228, 68) Me.btnTerug.TabIndex = 12 Me.btnTerug.Text = "Hoofdscherm" - Me.btnTerug.UseVisualStyleBackColor = True + Me.btnTerug.UseVisualStyleBackColor = true ' - 'lblVerwerking + 'Panel9 ' - Me.lblVerwerking.AutoSize = True - Me.lblVerwerking.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblVerwerking.ForeColor = System.Drawing.Color.DarkRed - Me.lblVerwerking.Location = New System.Drawing.Point(275, 34) - Me.lblVerwerking.Name = "lblVerwerking" - Me.lblVerwerking.Size = New System.Drawing.Size(277, 31) - Me.lblVerwerking.TabIndex = 94 - Me.lblVerwerking.Text = "Er wordt niet verwerkt" + Me.Panel9.Controls.Add(Me.btnReworkAutomilling) + Me.Panel9.Location = New System.Drawing.Point(341, 291) + Me.Panel9.Name = "Panel9" + Me.Panel9.Size = New System.Drawing.Size(332, 90) + Me.Panel9.TabIndex = 23 ' + 'btnReworkAutomilling + ' + Me.btnReworkAutomilling.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.btnReworkAutomilling.Location = New System.Drawing.Point(0, 13) + Me.btnReworkAutomilling.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) + Me.btnReworkAutomilling.Name = "btnReworkAutomilling" + Me.btnReworkAutomilling.Size = New System.Drawing.Size(332, 68) + Me.btnReworkAutomilling.TabIndex = 16 + Me.btnReworkAutomilling.Text = "Rework automilling" + Me.btnReworkAutomilling.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnReworkAutomilling.UseVisualStyleBackColor = true + Me.btnReworkAutomilling.Visible = false + ' 'FormSpecialMenu ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1904, 1042) Me.Controls.Add(Me.Panel1) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) Me.Name = "FormSpecialMenu" Me.Text = "TA'OR rework - Submenu" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized - Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout() - Me.FlowLayoutPanel1.ResumeLayout(False) - Me.Panel6.ResumeLayout(False) - Me.Panel2.ResumeLayout(False) - Me.Panel5.ResumeLayout(False) - Me.Panel3.ResumeLayout(False) - Me.Panel4.ResumeLayout(False) - Me.Panel8.ResumeLayout(False) - Me.Panel7.ResumeLayout(False) - Me.ResumeLayout(False) + Me.Panel1.ResumeLayout(false) + Me.Panel1.PerformLayout + Me.FlowLayoutPanel1.ResumeLayout(false) + Me.Panel6.ResumeLayout(false) + Me.Panel2.ResumeLayout(false) + Me.Panel5.ResumeLayout(false) + Me.Panel3.ResumeLayout(false) + Me.Panel4.ResumeLayout(false) + Me.Panel8.ResumeLayout(false) + Me.Panel7.ResumeLayout(false) + Me.Panel9.ResumeLayout(false) + Me.ResumeLayout(false) - End Sub +End Sub Friend WithEvents Panel1 As System.Windows.Forms.Panel Friend WithEvents btnTerug As System.Windows.Forms.Button Friend WithEvents Panel2 As System.Windows.Forms.Panel @@ -284,4 +310,6 @@ Friend WithEvents Panel8 As System.Windows.Forms.Panel Friend WithEvents btnHoogteVerschil As System.Windows.Forms.Button Friend WithEvents lblVerwerking As System.Windows.Forms.Label + Friend WithEvents Panel9 As Panel + Friend WithEvents btnReworkAutomilling As Button End Class Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb (.../ZijkamerFreesProductieData.vb) (revision 1592) +++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb (.../ZijkamerFreesProductieData.vb) (revision 1869) @@ -1,4 +1,6 @@ -Public Class ZijkamerFreesProductieData +Imports System.Text.RegularExpressions + +Public Class ZijkamerFreesProductieData Public PickSequence As String Public PickPlace As String Public PalletID As String @@ -240,8 +242,6 @@ PrintTextLeft4 = PrintBarcodeLeft.Trim & "/D:" & NettoLength & "xH:" & NettoHeight PrintTextRight4 = PrintBarcodeRight.Trim & "/D:" & NettoLength & "xH:" & NettoHeight - updatePrintTextLeftAndRight1SpoelBakOfSifon("SY") - Dim indexKar As Integer = PrintTextLeft2.ToLower.IndexOf("kar") If indexKar > 0 Then PrintTextLeft2 = PrintTextLeft2.Remove(indexKar) @@ -255,8 +255,7 @@ '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) + 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 @@ -265,6 +264,9 @@ '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 @@ -290,6 +292,30 @@ 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" @@ -558,7 +584,7 @@ PickPlace = "R" PalletID = trayId SlotNbr = slotNr - LeftRight = If(Not barcodeB.Equals(""), "LR", If(linksOfRechts = linksOfRechts.links, "L", "R")) + LeftRight = If(Not barcodeB.Equals(""), "LR", If(linksOfRechts = LinksOfRechts.Links, "L", "R")) FeedbackERP = "3" PickTimeStamp = "" MillingTimeStamp = "" @@ -606,10 +632,10 @@ 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" + 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 Index: TAOR rework/TAOR rework/app.config =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/app.config (.../app.config) (revision 1513) +++ TAOR rework/TAOR rework/app.config (.../app.config) (revision 1869) @@ -38,6 +38,9 @@ \\NOTES01\Shared\Multi media\TAOR rework\Configs + + True + Index: TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb (.../KantenbandData.vb) (revision 1513) +++ TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb (.../KantenbandData.vb) (revision 1869) @@ -80,27 +80,77 @@ 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 = Configs.geefPassProgram1BijKleur(materiaal) + Pass1Tilting180 = "0" + Pass1Turning180 = "1" + Pass2Program = Configs.geefPassProgram2BijKleur(materiaal) + Pass2Tilting180 = "1" + Pass2Turning180 = "0" + Pass2Exit = "D" + Else + Pass1Program = Configs.geefPassProgram1BijKleur(materiaal) + Pass1Tilting180 = "0" + Pass1Turning180 = "1" + Pass2Program = Configs.geefPassProgram2BijKleur(materiaal) + Pass2Tilting180 = "1" + Pass2Turning180 = "1" + Pass2Exit = "" + Pass3Program = "SCHIELE" + Pass3Tilting180 = "0" + Pass3Turning180 = "1" + Pass4Program = "SCHIELE" + Pass4Tilting180 = "0" + Pass4Turning180 = "0" + Pass4Exit = "D" + End If End Sub Public Sub sifonLadeStelLengteRugIn(oorspronkelijkeLengte As String, decor As String) 'lengte instellen - If CDbl(oorspronkelijkeLengte) < Configs.sifonLadeGeefMinimumLengteRug Then + If CDbl(oorspronkelijkeLengte) < Configs.SifonLadeGeefMinimumLengteRug Then 'de lengte instellen - Length = Configs.sifonLadeGeefMinimumLengteRug + Length = Configs.SifonLadeGeefMinimumLengteRug If decor.ToLower.Equals("melamine") Then Pass2Exit = "C" ElseIf decor.ToLower.Equals("fineer") Then Index: TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.vb (.../FormVoorraad.vb) (revision 1869) @@ -41,10 +41,10 @@ lblFoutmeldingToevoegen.Text = "" Try If RadioButtonLinksRechts.Checked Then ' als linksrechts is aangeduid een voorraad item tovoegen met links en eentje met rechts - Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.links, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue) - Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.rechts, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue) + Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Links, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked) + Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, LinksOfRechts.Rechts, ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked) Else - Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, If(radioLinks.Checked, LinksOfRechts.links, LinksOfRechts.rechts), ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue) + Domeincontroller.getInstance.voegVoorraadItemToe(TextBoxLabelTekst.Text, If(radioLinks.Checked, LinksOfRechts.Links, LinksOfRechts.Rechts), ComboBoxDiepte.SelectedValue, ComboBoxHoogte.SelectedValue, ComboBoxKantenband.SelectedValue, ComboBoxKleurBinnen.SelectedValue, ComboBoxKleurBuiten.SelectedValue, CheckBoxSifonlade.Checked) End If refreshVoorraadItemsGrid() Catch ex As Exception @@ -54,17 +54,18 @@ Private Sub genereerKolommenVoorraadItemsGrid() 'de kolommen toevoegen en benoemen - DataGridViewVoorraadItems.ColumnCount = 8 + DataGridViewVoorraadItems.ColumnCount = 9 DataGridViewVoorraadItems.Columns(1).Name = "Label" DataGridViewVoorraadItems.Columns(2).Name = "Links of rechts" DataGridViewVoorraadItems.Columns(3).Name = "Diepte" DataGridViewVoorraadItems.Columns(4).Name = "Hoogte" DataGridViewVoorraadItems.Columns(5).Name = "Kantenband" DataGridViewVoorraadItems.Columns(6).Name = "Kleur binnen" DataGridViewVoorraadItems.Columns(7).Name = "Kleur buiten" + DataGridViewVoorraadItems.Columns(8).Name = "Special lade" 'verwijder kolom achteraan zetten - DataGridViewVoorraadItems.Columns(0).DisplayIndex = 7 + DataGridViewVoorraadItems.Columns(0).DisplayIndex = 8 End Sub Private Sub refreshVoorraadItemsGrid() @@ -75,9 +76,9 @@ Dim voorraadItems As IEnumerable(Of IVoorraadItem) = Domeincontroller.getInstance.geefVoorraadItems Dim index As Integer = 0 For Each voorraadItem As IVoorraadItem In voorraadItems - Dim linksOfRechts = [Enum].GetName(GetType(LinksOfRechts), voorraadItem.linksOfRechts).ToLower + Dim linksOfRechts = [Enum].GetName(GetType(LinksOfRechts), voorraadItem.LinksOfRechts).ToLower linksOfRechts = linksOfRechts.Substring(0, 1).ToUpper + linksOfRechts.Substring(1) - Dim row As String() = New String() {"verwijder", voorraadItem.label, linksOfRechts, voorraadItem.diepte, voorraadItem.hoogte, voorraadItem.kantenband, voorraadItem.kleurBinnen, voorraadItem.kleurBuiten} + Dim row As String() = New String() {"verwijder", voorraadItem.Label, linksOfRechts, voorraadItem.Diepte, voorraadItem.Hoogte, voorraadItem.Kantenband, voorraadItem.KleurBinnen, voorraadItem.KleurBuiten, voorraadItem.IsSifonlade} DataGridViewVoorraadItems.Rows.Add(row) index += 1 FishEye: Tag 1869 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/laden/special laden/Sifonladen/SifonLade.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb (.../HoofdAansturingSifonLade.vb) (revision 1513) +++ TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb (.../HoofdAansturingSifonLade.vb) (revision 1869) @@ -1,4 +1,6 @@ -Public Class HoofdAansturingSifonLade +Imports TA_OR_rework.Rework + +Public Class HoofdAansturingSifonLade Inherits HoofdAansturingSpecialLade Private _reworkTrayRepository As ReworkTrayRepository @@ -15,10 +17,14 @@ 'de special laden komen altijd met minstens 2 sloten die gevuld zijn, deze horen samen Dim slots As List(Of Slot) = reworkTray.geefNietLegeParenSlots() - If slots.Count > 2 Then 'zijn alle paren sloten vol? + If slots.Count = 4 Then 'zijn alle paren sloten vol? 'de eerste twee paren sloten nemen verwerkSamenHorendeSlots(slots(0), slots(1), reworkTray.nummer) verwerkSamenHorendeSlots(slots(2), slots(3), reworkTray.nummer) + ElseIf slots.Count = 3 Then 'zijn alle paren sloten vol? + 'Eerste origineel, twee andere gegenereerd. + verwerkSamenHorendeSlots(slots(0), slots(1), reworkTray.nummer) + verwerkSamenHorendeSlots(slots(0), slots(2), reworkTray.nummer) ElseIf slots.Count > 0 Then verwerkSamenHorendeSlots(slots(0), slots(1), reworkTray.nummer) Else @@ -41,7 +47,7 @@ 'kopie maken van de aangepaste productiedata en de velden verder updaten Dim productieDataGegenereerdeZijkanten As ZijkamerFreesProductieData = productieDataOrigineleZijkanten.ShallowCopy - productieDataGegenereerdeZijkanten.updateDataSifonLadeGegenereerd(trayNummer, slot2.nummer, gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc, gegenereerdeZijkantR.PartCalc) + productieDataGegenereerdeZijkanten.updateDataSifonLadeGegenereerd(trayNummer, slot2.nummer, gegenereerdeZijkantL.PartL, gegenereerdeZijkantL.PartW, gegenereerdeZijkantL.PartCalc, gegenereerdeZijkantR.PartCalc, gegenereerdeZijkantL.GeefKleurBinnen()) 'kijken of het wel moet worden geüpdated If Configs.geefVerwerkStatus Then 'de aangepaste originele productiedata opslaan als nieuw record @@ -67,10 +73,14 @@ Private Sub wijzigAfkanterZijkanten(reworkTray As ReworkTray) Dim slots As List(Of Slot) = reworkTray.geefNietLegeParenSlots() - If slots.Count > 2 Then 'zijn alle paren sloten vol? + If slots.Count = 4 Then 'zijn alle paren sloten vol? 'de eerste twee paren sloten nemen verwerkSamenHorendeSlotenAfkanter(slots(0), slots(1)) verwerkSamenHorendeSlotenAfkanter(slots(2), slots(3)) + ElseIf slots.Count = 3 Then 'zijn alle paren sloten vol? + 'Eerste origineel, twee andere gegenereerd. + verwerkSamenHorendeSlotenAfkanter(slots(0), slots(1)) + verwerkSamenHorendeSlotenAfkanter(slots(0), slots(2)) ElseIf slots.Count > 0 Then verwerkSamenHorendeSlotenAfkanter(slots(0), slots(1)) Else @@ -115,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/TAOR rework/Configuraties/ReworkTraySlotMapperXML.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Configuraties/ReworkTraySlotMapperXML.vb (.../ReworkTraySlotMapperXML.vb) (revision 1513) +++ TAOR rework/TAOR rework/Configuraties/ReworkTraySlotMapperXML.vb (.../ReworkTraySlotMapperXML.vb) (revision 1869) @@ -1,5 +1,6 @@ Imports System.IO Imports System.Xml.Serialization +Imports TA_OR_rework.rework Module ReworkTraySlotMapperXML Public Function getDataFromFile() As List(Of Slot) Index: TAOR rework/TAOR rework/formulieren/FormController.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormController.vb (.../FormController.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormController.vb (.../FormController.vb) (revision 1869) @@ -16,10 +16,11 @@ Private _formTestLade As FormLades Private _formVoorraadAanmaken As FormVoorraad Private _formStaal As FormStalen - Private _formSpecialLade As FormSifonEnSpoelbakLade + Private _formSpecialLade As FormSifonLade Private _formSpecialDiepteVerschil As FormDiepteVerschil Private _formSpecialHoogteVerschil As FormHoogteVerschil Private _formKleurVervangen As FormKleurVervangen + Private _formReworkAutomilling As FormReworkAutomilling Private _sender As Form @@ -101,13 +102,13 @@ Public Sub laadEnRefreshFormGrid(sender As Form) registreerVorigeForm(sender) - _formGrid.laadData(_kolom, _waarde) + _formGrid.LaadData(_kolom, _waarde) _formGrid.Show() _sender.Hide() End Sub - Public Sub laadFormGrid(sender As Form, reden() As String) + Public Sub LaadFormGrid(sender As Form, reden() As String) registreerVorigeForm(sender) _formGrid.voegReworkRedenToe(reden) @@ -116,7 +117,7 @@ _sender.Hide() End Sub - Public Sub laadFormGrid(sender As Form, kolom As Kolommen, waarde As Object, dataReader As Object, Optional labelTekst As String = "") + Public Sub LaadFormGrid(sender As Form, kolom As Kolommen, waarde As Object, dataReader As Object) formGridGeladen = True registreerVorigeForm(sender) @@ -125,7 +126,7 @@ _waarde = waarde _dataReader = dataReader - _formGrid.laadData(_kolom, _waarde, dataReader, labelTekst) + _formGrid.LaadData(_kolom, _waarde, dataReader) _formGrid.Show() _sender.Hide() @@ -154,10 +155,16 @@ End Sub 'LADEN VAN FORMREWORKTRAYPRINTER - Public Sub laadFormReworkTrayPrinter(sender As Form) + Public Sub laadFormReworkTrayPrinter(sender As Form, Optional isNieuwDomeinSifonlade As Boolean = False, Optional isdubbeleSifonlade As Boolean = False) registreerVorigeForm(sender) - _formReworkTrayPrinter = New FormReworkTrayPrinter() + If isNieuwDomeinSifonlade Then + 'Nieuw domein + _formReworkTrayPrinter = New FormReworkTrayPrinter(True, isdubbeleSifonlade) + Else + 'Geen nieuw domein + _formReworkTrayPrinter = New FormReworkTrayPrinter() + End If _formReworkTrayPrinter.Show() _sender.Hide() @@ -207,7 +214,7 @@ Public Sub laadFormSifonEnSpoelbakLade(sender As Form) registreerVorigeForm(sender) - _formSpecialLade = New FormSifonEnSpoelbakLade() + _formSpecialLade = New FormSifonLade() _formSpecialLade.Show() _sender.Hide() @@ -243,4 +250,14 @@ _sender.Hide() End Sub + 'LADEN VAN FORMREWORKAUTOMILLING + Public Sub laadFormReworkAutomilling(sender As Form) + registreerVorigeForm(sender) + + _formReworkAutomilling = New FormReworkAutomilling() + + _formReworkAutomilling.Show() + _sender.Hide() + End Sub + End Class Index: TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb (.../ArdisTextMapper.vb) (revision 1513) +++ TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb (.../ArdisTextMapper.vb) (revision 1869) @@ -13,7 +13,7 @@ End Sub Private Sub startNieuweArdisDataOpslag(pathNaarMap As String) - LogBestandTextMapper.writeToFile("ArdisText", "Starten van nieuwe dataopslag van text bestand") + LogBestandTextMapper.WriteToFile("ArdisText", "Starten van nieuwe dataopslag van text bestand") Dim regDate As Date = Date.Now() @@ -30,15 +30,15 @@ 'header (wordt genegeerd door ardis) writer.WriteLine("Rol" & vbTab & "Aantal" & vbTab & "PlaatMateriaal" & vbTab & "Barcode" & vbTab & "LadeSequentieNr" & vbTab & "DossierCode" & vbTab & "ExtraInfo" & vbTab & "Lengte" & vbTab & "Breedte" & vbTab & "Dikte" & vbTab & "Kleur" & vbTab & "Decor" & vbTab & "EtiketLijn1" & vbTab & "EtiketLijn2" & vbTab & "EtiketLijn3" & vbTab & "EtiketInfo" & vbTab & "EtiketLijn4" & vbTab & "Rework" & vbTab & "Kar" & vbTab & "Banding" & vbTab & "KamerfreesTrayId" & vbTab & "KamerfreesSlotNr") - LogBestandTextMapper.writeToFile("ArdisText", "Starten van nieuwe dataopslag van text bestand", True) + LogBestandTextMapper.WriteToFile("ArdisText", "Starten van nieuwe dataopslag van text bestand", True) Catch ex As Exception Throw New Exception("Ardis text bestand kon niet worden aangemaakt " & ex.Message) End Try End Sub Public Sub opslaan(type As ItemType, ardisdata As ArdisData, Optional trayNummer As String = "", Optional slotNummer As String = "") - Dim typeNaam As String = EnumMapper.geefArdisTextBijItemType(type) - LogBestandTextMapper.writeToFile("ArdisText", "Starten opslag " & typeNaam & " met ardisData") + Dim typeNaam As String = EnumMapper.GeefArdisTextBijItemType(type) + LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag " & typeNaam & " met ardisData") bestandsNaam = "ImportFile_" & typeNaam & "_" @@ -48,38 +48,38 @@ opslaan(ardisdata, trayNummer, slotNummer) - LogBestandTextMapper.writeToFile("ArdisText", "Starten opslag " & typeNaam & " met ardisData", True) + LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag " & typeNaam & " met ardisData", True) End Sub 'opslaan van de sifonladen die verwerkt gaan worden voor ze verwerkt zijn Public Sub opslaanSifonLadeVoorVerwerking(ardisdata As ArdisData, bestandsNaamSifon As String) - LogBestandTextMapper.writeToFile("ArdisText", "Starten opslag sifon lade voor verwerking met barcode: " & ardisdata.PartCalc) + LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag sifon lade voor verwerking met barcode: " & ardisdata.PartCalc) bestandsNaam = bestandsNaamSifon.Replace(".txt", "") & "_Verwerkt_Sifon_" If writer Is Nothing Then startNieuweArdisDataOpslag(Configs.sifonLadeGeefVerplaatsFolderPath) End If opslaan(ardisdata, "", "") - LogBestandTextMapper.writeToFile("ArdisText", "Starten opslag sifon lade voor verwerking met barcode: " & ardisdata.PartCalc, True) + LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag sifon lade voor verwerking met barcode: " & ardisdata.PartCalc, True) End Sub 'opslaan van de spoelbakLaden die verwerkt gaan worden voor ze verwerkt zijn Public Sub opslaanSpoelbakLadeVoorVerwerking(ardisdata As ArdisData, bestandsNaamSpoelbak As String) - LogBestandTextMapper.writeToFile("ArdisText", "Starten opslag spoelbak lade voor verwerking met barcode: " & ardisdata.PartCalc) + LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag spoelbak lade voor verwerking met barcode: " & ardisdata.PartCalc) bestandsNaam = bestandsNaamSpoelbak.Replace(".txt", "") & "_Verwerkte_Spoelbak_" If writer Is Nothing Then startNieuweArdisDataOpslag(Configs.spoelbakLadeGeefVerplaatsFolderPath) End If opslaan(ardisdata, "", "") - LogBestandTextMapper.writeToFile("ArdisText", "Starten opslag spoelbak lade voor verwerking met barcode: " & ardisdata.PartCalc, True) + LogBestandTextMapper.WriteToFile("ArdisText", "Starten opslag spoelbak lade voor verwerking met barcode: " & ardisdata.PartCalc, True) End Sub 'opslaan van de laden die niet voldeden aan de dossiercoden en dus niet verwerkt zijn geweest Public Sub opslaanNietVerwerkteSpecialLaden(lijnen As List(Of String), bestandsNaamSpecial As String) - LogBestandTextMapper.writeToFile("ArdisText", "Opslaan niet verwerkte special laden") + LogBestandTextMapper.WriteToFile("ArdisText", "Opslaan niet verwerkte special laden") Dim nieuweBestandsNaam = "" Dim indexVanUitgelezenInfo As Integer = bestandsNaamSpecial.IndexOf("_Uitgelezen_") @@ -98,7 +98,7 @@ writer.WriteLine(lijn) Next - LogBestandTextMapper.writeToFile("ArdisText", "Opslaan niet verwerkte special laden", True) + LogBestandTextMapper.WriteToFile("ArdisText", "Opslaan niet verwerkte special laden", True) Catch ex As Exception Throw New Exception("Fout bij wegschrijven niet verwerkte special laden" & ex.Message) End Try @@ -119,7 +119,7 @@ End Sub Private Sub opslaan(ByVal ardisdata As ArdisData, trayNummer As String, slotNummer As String) - LogBestandTextMapper.writeToFile("ArdisText", " - Starten opslag van ardisData " & If(trayNummer.Equals(""), "", "met traynummer, slotnummer: " & trayNummer & "," & slotNummer)) + LogBestandTextMapper.WriteToFile("ArdisText", " - Starten opslag van ardisData " & If(trayNummer.Equals(""), "", "met traynummer, slotnummer: " & trayNummer & "," & slotNummer)) ardisdata.updateKommasNaarPunten() Try @@ -148,23 +148,23 @@ writer.WriteLine() - LogBestandTextMapper.writeToFile("ArdisText", " - Starten opslag van ardisData " & If(trayNummer.Equals(""), "", "met traynummer, slotnummer: " & trayNummer & "," & slotNummer), True) + LogBestandTextMapper.WriteToFile("ArdisText", " - Starten opslag van ardisData " & If(trayNummer.Equals(""), "", "met traynummer, slotnummer: " & trayNummer & "," & slotNummer), True) Catch ex As Exception Throw New Exception("Ardis data kon niet worden opgeslagen" & ex.Message) End Try End Sub Public Function geefSpecialLadenMetDossierCode(dossierCode As String) As SpecialLadenOnderdelen - LogBestandTextMapper.writeToFile("ArdisText", "Opvragen sifonLade met dossierCode: " & dossierCode) + LogBestandTextMapper.WriteToFile("ArdisText", "Opvragen sifonLade met dossierCode: " & dossierCode) Dim specialLaden As SpecialLadenOnderdelen = opvragenSpecialLadenOnderdelen(dossierCode, True) - LogBestandTextMapper.writeToFile("ArdisText", "Opvragen sifonLade met dossierCode: " & dossierCode, True) + LogBestandTextMapper.WriteToFile("ArdisText", "Opvragen sifonLade met dossierCode: " & dossierCode, True) Return specialLaden End Function Function geefSpecialLadenMetBatchnummer(batchnummer As String) As SpecialLadenOnderdelen - LogBestandTextMapper.writeToFile("ArdisText", "Opvragen sifonLade met batchnummer: " & batchnummer) + LogBestandTextMapper.WriteToFile("ArdisText", "Opvragen sifonLade met batchnummer: " & batchnummer) Dim specialLaden As SpecialLadenOnderdelen = opvragenSpecialLadenOnderdelen(batchnummer, False) - LogBestandTextMapper.writeToFile("ArdisText", "Opvragen sifonLade met batchnummer: " & batchnummer, True) + LogBestandTextMapper.WriteToFile("ArdisText", "Opvragen sifonLade met batchnummer: " & batchnummer, True) Return specialLaden End Function @@ -214,7 +214,7 @@ 'kijken of de lade de dossiercode bevat If isGeldig Then 'kijken wat voor rol de lijn heeft (aka onderdeel: zijkantplaat, rug,...) - ardisData = maakArdisData(velden) + ardisData = MaakArdisData(velden) Select Case ardisData.PartRef Case "ZijkantPlaat" nieuweSpecialLaden.voegZijkantToe(ardisData) @@ -235,7 +235,85 @@ Return nieuweSpecialLaden End Function - Private Function maakArdisData(velden As String()) As ArdisData + ''' + ''' Opvragen van Ardis data's aan de hand van de lade code. + ''' + ''' De lade code + ''' Lijst van Ardis data's + Public Function GeefArdisDatasMetLadeCode(ladeCode As String) As List(Of ArdisData) + LogBestandTextMapper.WriteToFile("ArdisText", $"Opvragen sifonladen met lade code: {ladeCode}") + Dim ardisDatas As List(Of ArdisData) = OphalenArdisDatasMetCode(ladeCode, True) + LogBestandTextMapper.WriteToFile("ArdisText", $"Opvragen sifonladen met lade code: {ladeCode}", True) + Return ardisDatas + End Function + + ''' + ''' Opvragen van Ardis data's aan de hand van het batch nummer. + ''' + ''' Het batch nummer + ''' Lijst van Ardis datbatchNummera's + Public Function GeefArdisDatasMetBatchNummer(batchNummer As String) As List(Of ArdisData) + LogBestandTextMapper.WriteToFile("ArdisText", $"Opvragen sifonladen met batch nummer: {batchNummer}") + Dim ardisDatas As List(Of ArdisData) = OphalenArdisDatasMetCode(batchNummer, False) + LogBestandTextMapper.WriteToFile("ArdisText", $"Opvragen sifonladen met batch nummer: {batchNummer}", True) + Return ardisDatas + End Function + + Private Function OphalenArdisDatasMetCode(code As String, isLadeCode As Boolean) As List(Of ArdisData) + Try + 'Lijst initialiseren. + Dim ardisDatas As New List(Of ArdisData) + 'Alle bestanden overlopen in de directory met bestanden. + For Each tekstBestandPath As String In Directory.GetFiles(Configs.geefPathArdisSpecialFolder) + 'Alle tekst uit een bestand lezen en spaties vooraan en achteraan verwijderen. + Dim allText As String = My.Computer.FileSystem.ReadAllText(tekstBestandPath).Trim() + 'De verschillende lijnen omzetten in een array. + Dim lijnen As String() = allText.Split(New String() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) + 'De lijnen overlopen. + For Each lijn As String In lijnen + 'Controleren of een lijn de juiste code bevat. Dit gebeurt hier, omdat de conversie naar Ardis data teveel tijd zou kosten. + + 'Bijhouden of lijn de juiste code bevat. + Dim bevatCode As Boolean = False + + 'Alle velden scheiden. + Dim velden = lijn.Split(New String() {vbTab}, StringSplitOptions.None) + + 'Controleren of de lijn wel lang genoeg is. + If velden.Count > 19 Then + 'Genoeg lijnen, controleren welk type code is gebruikt, dossier (lade) code of batchnummer. + If isLadeCode Then + 'Dossier (lade) code controleren. + bevatCode = velden(5).Equals(code) 'PartRemark + Else + 'Batch nummer controleren. De kar bevat dit nummer. + bevatCode = velden(18).Contains(code) 'PartGroup + End If + End If + + 'Als de lijn de correcte code bevat wordt het geconverteerd naar Ardis data en toegevoegd aan de lijst. + If bevatCode Then + 'Aanmaken ardis data. + Dim ardisData As ArdisData = MaakArdisData(velden) + 'Toevoegen bestandsnaam. + ardisData.Bestandsnaam = tekstBestandPath.Substring(tekstBestandPath.LastIndexOf("\", StringComparison.Ordinal) + 1) + 'Toevoegen aan lijst. + ardisDatas.Add(ardisData) + End If + Next + Next + Return ardisDatas + Catch ex As Exception + throw New Exception($"Kon Ardis data niet ophalen uit tekstbestand. {vbNewLine}{ex.Message}") + End Try + End Function + + ''' + ''' Ardis data maken aan de hand van de verschillende velden van 1 lijn. + ''' + ''' Velden van 1 lijn. + ''' Nieuwe Ardis data + Private Function MaakArdisData(velden As String()) As ArdisData Dim ardisData As New ArdisData ardisData.PartRef = velden(0) 'rol ardisData.PartQty = velden(1) 'aantal @@ -261,8 +339,8 @@ ardisData.KamerfreesTrayId = velden(20) ardisData.KamerfreesSlotNr = velden(21) Else - ardisData.KamerfreesTrayId = "" - ardisData.KamerfreesSlotNr = "" + ardisData.KamerfreesTrayId = String.Empty + ardisData.KamerfreesSlotNr = String.Empty End If Return (ardisData) End Function Index: TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1592) +++ TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1869) @@ -1,24 +1,30 @@ Imports System.Text +Imports TA_OR_rework.Rework Public Class FormReworkTrayPrinter Private _aantalTrays As Integer Private _nummerTray As Integer + Private _isNieuweSifonDomein As Boolean + Private _isDubbeleSifonlade As Boolean - Public Sub New() + Public Sub New(Optional isNieuweSifonDomein As Boolean = False, Optional isDubbeleSifonLade As Boolean = False) InitializeComponent() - Try + 'nummer welke special tray er getoond wordt instellen + _nummerTray = 1 + + If isNieuweSifonDomein Then + _aantalTrays = SifonLadeController.GetInstance().GeefAantalTrays() + _isNieuweSifonDomein = isNieuweSifonDomein + _isDubbeleSifonlade = isDubbeleSifonLade + Else 'origineel aantal instellen - If Domeincontroller.getInstance.geefTypeInReworkTray = ItemType.REWORK Then + If Domeincontroller.getInstance.geefTypeInReworkTray = ItemType.Rework Then _aantalTrays = Domeincontroller.getInstance.geefAantalReworkTrays Else _aantalTrays = Domeincontroller.getInstance.geefSpecialAantalReworkTrays End If - 'nummer welke special tray er getoond wordt instellen - _nummerTray = 1 - Catch ex As Exception - Throw ex - End Try + End If End Sub Private Sub FormReworkTrayPrinter_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load @@ -61,36 +67,43 @@ _builder = New StringBuilder Dim typelade As String Dim reworkTrayNummer As String - Select Case Domeincontroller.getInstance.geefTypeInReworkTray - Case ItemType.SIFONLADE - typelade = "sifon lade" - reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) - Case ItemType.SPOELBAKLADE - typelade = "spoelbak lade" - reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) - Case ItemType.VOORRAAD - typelade = "voorraad" - reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) - Case ItemType.TESTLADE - typelade = "test lade" - reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) - Case ItemType.REWORK - typelade = "rework" - reworkTrayNummer = Domeincontroller.getInstance.geefReworkTrayNummer(_nummerTray - 1) - Case Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor tray printer te visualiseren") - End Select + + If _isNieuweSifonDomein Then + typelade = "sifonlade" + reworkTrayNummer = SifonLadeController.GetInstance.GeefSpecialLadeReworkTrayNummer(_nummerTray - 1) + Else + Select Case Domeincontroller.getInstance.geefTypeInReworkTray + Case ItemType.Voorraad + typelade = "voorraad" + reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) + Case ItemType.Testlade + typelade = "test lade" + reworkTrayNummer = Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1) + Case ItemType.Rework + typelade = "rework" + reworkTrayNummer = Domeincontroller.getInstance.geefReworkTrayNummer(_nummerTray - 1) + Case Else + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor tray printer te visualiseren") + End Select + End If + _builder.AppendLine("Rework tray " & reworkTrayNummer & " | " & typelade) _builder.AppendLine() _builder.AppendLine(String.Format("{0,4}{1,13}{2,7}{3,13}{4,8}{5,8}", "Slot", "Barcode", "Batch", "Color", "Length", "Height")) 'elk "slot" overlopen en toevoegen als lijn Dim lijnen As List(Of List(Of String)) - If Domeincontroller.getInstance.geefTypeInReworkTray = ItemType.REWORK Then - lijnen = Domeincontroller.getInstance.geefSlotsReworkTray(_nummerTray - 1) + + If _isNieuweSifonDomein Then + lijnen = SifonLadeController.GetInstance.GeefSlotsSpecialReworkTray(_nummerTray - 1) Else - lijnen = Domeincontroller.getInstance.geefSlotsSpecialReworkTray(_nummerTray - 1) + If Domeincontroller.getInstance.geefTypeInReworkTray = ItemType.Rework Then + lijnen = Domeincontroller.getInstance.geefSlotsReworkTray(_nummerTray - 1) + Else + lijnen = Domeincontroller.getInstance.geefSlotsSpecialReworkTray(_nummerTray - 1) + End If End If + For Each lijn As List(Of String) In lijnen _builder.AppendLine(String.Format("{0,4}{1,13}{2,7}{3,13}{4,8}{5,8}", lijn(0), lijn(1), lijn(2), lijn(3), lijn(4), lijn(5))) Next @@ -106,10 +119,14 @@ gaVerder() ElseIf _nummerTray + 1 <= _aantalTrays Then 'er zijn nog trays te tonen If _nummerTray + 1 = _aantalTrays Then 'er is nog 1 tray - If Domeincontroller.getInstance.geefTypeInReworkTray = ItemType.TESTLADE Then - btnPrintEnToonVolgende.Text = "Ga verder" - Else + If _isNieuweSifonDomein Then btnPrintEnToonVolgende.Text = "Verwerk en ga verder" + Else + If Domeincontroller.getInstance.geefTypeInReworkTray = ItemType.Testlade Then + btnPrintEnToonVolgende.Text = "Ga verder" + Else + btnPrintEnToonVolgende.Text = "Verwerk en ga verder" + End If End If End If 'de index verhogen met 1 @@ -139,30 +156,45 @@ End Sub Private Sub verwerkDeItems() 'verwerken, onderscheid tussen reworks en special laden - Select Case Domeincontroller.getInstance.geefTypeInReworkTray - Case ItemType.SIFONLADE, ItemType.SPOELBAKLADE, ItemType.VOORRAAD - Domeincontroller.getInstance.verwerkSpecialLaden() - Case ItemType.REWORK - Domeincontroller.getInstance.verwerkReworks() - Case ItemType.TESTLADE - Domeincontroller.getInstance.verwerkTestLaden() - Case Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor te verwerken") - End Select + If _isNieuweSifonDomein Then + If _isDubbeleSifonlade Then + SifonLadeController.GetInstance().ProduceerDubbeleSifonladen() + Else + SifonLadeController.GetInstance().ProduceerSifonladen() + End If + Else + Select Case Domeincontroller.getInstance.geefTypeInReworkTray + Case ItemType.Sifonlade, ItemType.DubbeleSifonlade, ItemType.Voorraad + Domeincontroller.getInstance.verwerkSpecialLaden() + Case ItemType.Rework + Domeincontroller.getInstance.verwerkReworks() + Case ItemType.Testlade + Domeincontroller.getInstance.verwerkTestLaden() + Case Else + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor te verwerken") + End Select + End If + End Sub Private Sub opslaanBacklog() 'alle trays overlopen en builder opnieuw vullen For _nummerTray = 1 To _aantalTrays vulBuilderMetInfo(_nummerTray - 1) - Select Case Domeincontroller.getInstance.geefTypeInReworkTray - Case ItemType.SIFONLADE, ItemType.SPOELBAKLADE, ItemType.VOORRAAD, ItemType.TESTLADE - PrinterBacklogDocMapper.addPrinterBacklogDoc(Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1), _builder.ToString(), True) - Case ItemType.REWORK - PrinterBacklogDocMapper.addPrinterBacklogDoc(Domeincontroller.getInstance.geefReworkTrayNummer(_nummerTray - 1), _builder.ToString(), False) - Case Else - Throw New Exception("Het type: " & EnumMapper.geefWaardeBijEnumValue(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor opslag backlog") - End Select + + If _isNieuweSifonDomein Then + PrinterBacklogDocMapper.addPrinterBacklogDoc(SifonLadeController.GetInstance.GeefSpecialLadeReworkTrayNummer(_nummerTray - 1), _builder.ToString(), True) + Else + Select Case Domeincontroller.getInstance.geefTypeInReworkTray + Case ItemType.Sifonlade, ItemType.DubbeleSifonlade, ItemType.Voorraad, ItemType.Testlade + PrinterBacklogDocMapper.addPrinterBacklogDoc(Domeincontroller.getInstance.geefSpecialLadeReworkTrayNummer(_nummerTray - 1), _builder.ToString(), True) + Case ItemType.Rework + PrinterBacklogDocMapper.addPrinterBacklogDoc(Domeincontroller.getInstance.geefReworkTrayNummer(_nummerTray - 1), _builder.ToString(), False) + Case Else + Throw New Exception("Het type: " & EnumMapper.GeefTekstVanEnumOptie(Domeincontroller.getInstance.geefTypeInReworkTray) & " kon niet gebruikt worden voor opslag backlog") + End Select + End If + Next End Sub @@ -176,64 +208,11 @@ 'de tekst printen op het scherm Dim font As New Font("Courier New", 15, FontStyle.Regular) TextBoxReworkTraySlots.CreateGraphics.DrawString(_builder.ToString, font, Brushes.Black, 30, 100) - 'de afbeeldingen tekenen op de textbox - If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SIFONLADE Then - tekenAfbeeldingMetInfoOpSchermSifonLade() - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SPOELBAKLADE Then - tekenAfbeeldingMetInfoOpSchermSpoelbakLade() - End If Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub - Private Sub tekenAfbeeldingMetInfoOpSchermSifonLade() - Dim font As New Font("Courier New", 15, FontStyle.Bold) - Dim posX As Integer = 150 - Dim posY As Integer = 350 - - Dim image As Image = My.Resources.ResourceManager.GetObject("sifonLadeTekening") - TextBoxReworkTraySlots.CreateGraphics.DrawImage(image, posX, posY) - - Dim info As List(Of String) = Domeincontroller.getInstance.geefInformatieSifonLade() - Dim breedte As String = info(5) 'breedte van de lade - Dim breedteUitsparing As String = info(6) - Dim diepteLade As String = info(7) 'diepte van de volledige lade - Dim diepteUitsparing As String = info(8) - Dim positie As String = info(9) - Dim rest As String = info(10) - TextBoxReworkTraySlots.CreateGraphics.DrawString(breedte, font, Brushes.Black, posX + 185, posY + 200) - TextBoxReworkTraySlots.CreateGraphics.DrawString(diepteLade, font, Brushes.Black, posX + 430, posY + 100) - TextBoxReworkTraySlots.CreateGraphics.DrawString(positie, font, Brushes.Black, posX + 300, posY - 15) - TextBoxReworkTraySlots.CreateGraphics.DrawString(breedteUitsparing, font, Brushes.Black, posX + 185, posY - 15) - TextBoxReworkTraySlots.CreateGraphics.DrawString(diepteUitsparing, font, Brushes.Black, posX + 272, posY + 70) - TextBoxReworkTraySlots.CreateGraphics.DrawString(rest, font, Brushes.Black, posX + 60, posY - 15) - End Sub - - Private Sub tekenAfbeeldingMetInfoOpSchermSpoelbakLade() - Dim font As New Font("Courier New", 15, FontStyle.Bold) - Dim posX As Integer = 150 - Dim posY As Integer = 350 - - Dim image As Image = My.Resources.ResourceManager.GetObject("spoelbakLadeTekening") - TextBoxReworkTraySlots.CreateGraphics.DrawImage(image, posX, posY) - - Dim info As List(Of String) = Domeincontroller.getInstance.geefInformatieSpoelbakLade() - Dim breedte As String = info(5) 'breedte van de lade - Dim breedteUitsparing As String = info(6) - Dim diepteLade As String = info(7) 'diepte van de volledige lade - Dim diepteUitsparing As String = info(8) - Dim positie As String = info(9) - Dim restBreedte As String = info(10) - - TextBoxReworkTraySlots.CreateGraphics.DrawString(breedte, font, Brushes.Black, posX + 185, posY + 250) - TextBoxReworkTraySlots.CreateGraphics.DrawString(diepteLade, font, Brushes.Black, posX + 415, posY + 100) - TextBoxReworkTraySlots.CreateGraphics.DrawString(positie, font, Brushes.Black, posX + 330, posY - 15) - TextBoxReworkTraySlots.CreateGraphics.DrawString(breedteUitsparing, font, Brushes.Black, posX + 185, posY - 15) - TextBoxReworkTraySlots.CreateGraphics.DrawString(restBreedte, font, Brushes.Black, posX + 35, posY - 15) - TextBoxReworkTraySlots.CreateGraphics.DrawString(diepteUitsparing, font, Brushes.Black, posX + 397, posY + 70) - End Sub - #End Region #Region "printen" @@ -246,83 +225,23 @@ vulBuilderMetInfo(_nummerTray - 1) 'de tekst "tekenen" op het printerdocument e.Graphics.DrawString(_builder.ToString, font, Brushes.Black, 30, 100) - 'de afbeelding tekenen met waarden tekenen op het document - If Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SIFONLADE Then - tekenAfbeeldingMetInfoVoorPrinterSifonLade(e) - ElseIf Domeincontroller.getInstance.geefTypeSpecialLade = ItemType.SPOELBAKLADE Then - tekenAfbeeldingMetInfoVoorPrinterSpoelbakLade(e) - End If 'e.HasMorePages = _aantalTrays > 1 Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End Sub - Private Sub tekenAfbeeldingMetInfoVoorPrinterSifonLade(e As Printing.PrintPageEventArgs) - Try - Dim font As New Font("Courier New", 15, FontStyle.Bold) - Dim posX As Integer = 150 - Dim posY As Integer = 350 - - Dim image As Image = My.Resources.ResourceManager.GetObject("sifonLadeTekening") - e.Graphics.DrawImage(image, posX, posY) - - Dim info As List(Of String) = Domeincontroller.getInstance.geefInformatieSifonLade() - Dim breedte As String = info(5) 'breedte van de lade - Dim breedteUitsparing As String = info(6) - Dim diepteLade As String = info(7) 'diepte van de volledige lade - Dim diepteUitsparing As String = info(8) - Dim positie As String = info(9) - Dim rest As String = info(10) - - posX += 8 - e.Graphics.DrawString(breedte, font, Brushes.Black, posX + 185, posY + 200) - e.Graphics.DrawString(diepteLade, font, Brushes.Black, posX + 430, posY + 100) - e.Graphics.DrawString(positie, font, Brushes.Black, posX + 300, posY - 15) - e.Graphics.DrawString(breedteUitsparing, font, Brushes.Black, posX + 185, posY - 15) - e.Graphics.DrawString(diepteUitsparing, font, Brushes.Black, posX + 272, posY + 70) - e.Graphics.DrawString(rest, font, Brushes.Black, posX + 53, posY - 15) - Catch ex As Exception - MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) - End Try - End Sub - - Private Sub tekenAfbeeldingMetInfoVoorPrinterSpoelbakLade(e As Printing.PrintPageEventArgs) - Try - Dim font As New Font("Courier New", 15, FontStyle.Bold) - Dim posX As Integer = 150 - Dim posY As Integer = 350 - - Dim image As Image = My.Resources.ResourceManager.GetObject("spoelbakLadeTekening") - e.Graphics.DrawImage(image, posX, posY) - - Dim info As List(Of String) = Domeincontroller.getInstance.geefInformatieSpoelbakLade() - Dim breedte As String = info(5) 'breedte van de lade - Dim breedteUitsparing As String = info(6) - Dim diepteLade As String = info(7) 'diepte van de volledige lade - Dim diepteUitsparing As String = info(8) - Dim positie As String = info(9) - Dim restBreedte As String = info(10) - - posX += 7 - e.Graphics.DrawString(breedte, font, Brushes.Black, posX + 185, posY + 250) - e.Graphics.DrawString(diepteLade, font, Brushes.Black, posX + 415, posY + 100) - e.Graphics.DrawString(positie, font, Brushes.Black, posX + 330, posY - 15) - e.Graphics.DrawString(breedteUitsparing, font, Brushes.Black, posX + 185, posY - 15) - e.Graphics.DrawString(restBreedte, font, Brushes.Black, posX + 35, posY - 15) - e.Graphics.DrawString(diepteUitsparing, font, Brushes.Black, posX + 397, posY + 70) - Catch ex As Exception - MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) - End Try - End Sub - #End Region Private Sub gaVerder() - Domeincontroller.getInstance.verwijderAlleReworks() - Domeincontroller.getInstance.verwijderAlleSpecialLaden() - Domeincontroller.getInstance.verwijderReworkTrays() - Domeincontroller.getInstance.verwijderVolledigeVoorraad() + If Not _isNieuweSifonDomein Then + Domeincontroller.getInstance.verwijderAlleReworks() + Domeincontroller.getInstance.verwijderAlleSpecialLaden() + Domeincontroller.getInstance.verwijderReworkTrays() + Domeincontroller.getInstance.verwijderVolledigeVoorraad() + Else + SifonLadeController.GetInstance().WisSifonladen() + End If FormController.getInstance.laadVorige(Me) End Sub FishEye: Tag 1869 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/formulieren/Specials/FormSifonEnSpoelbakLade.Designer.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR rework/TAOR rework/formulieren/FormDetail.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormDetail.vb (.../FormDetail.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormDetail.vb (.../FormDetail.vb) (revision 1869) @@ -18,14 +18,9 @@ End Sub Private Sub laadGrid() - Dim datareader As OdbcDataReader Try - datareader = CacheMapper.getDetails(barcode) - - Dim dt = New DataTable() - dt.Load(datareader) DataGridViewDetails.AutoGenerateColumns = True - DataGridViewDetails.DataSource = dt + DataGridViewDetails.DataSource = CacheMapper.getDetails(barcode) DataGridViewDetails.Refresh() Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) Index: TAOR rework/TAOR rework/Rework/ReworkTrayRepository.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Rework/ReworkTrayRepository.vb (.../ReworkTrayRepository.vb) (revision 1513) +++ TAOR rework/TAOR rework/Rework/ReworkTrayRepository.vb (.../ReworkTrayRepository.vb) (revision 1869) @@ -1,4 +1,5 @@ -Public Class ReworkTrayRepository + +Public Class ReworkTrayRepository Private _reworkTrays As List(Of ReworkTray) Private _reworkTraysSpecialLade As List(Of ReworkTray) @@ -74,4 +75,4 @@ Return trayEnSlotNummer End Function -End Class +End Class \ No newline at end of file Index: TAOR rework/TAOR rework/Rework/ReworkRedenen.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Rework/ReworkRedenen.vb (.../ReworkRedenen.vb) (revision 1513) +++ TAOR rework/TAOR rework/Rework/ReworkRedenen.vb (.../ReworkRedenen.vb) (revision 1869) @@ -21,7 +21,4 @@ Public Sub New() Machines = New List(Of Machine) End Sub -End Class - - - +End Class \ No newline at end of file Index: TAOR rework/TAOR rework/formulieren/FormSpecialMenu.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormSpecialMenu.vb (.../FormSpecialMenu.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormSpecialMenu.vb (.../FormSpecialMenu.vb) (revision 1869) @@ -10,12 +10,14 @@ btnDiepteVerschil.Visible = False btnHoogteVerschil.Visible = False btnVervangKleuren.Visible = False + btnReworkAutomilling.Visible=true Else btnVoorraad.Visible = True btnSifonEnSpoelbaklade.Visible = True btnDiepteVerschil.Visible = True btnHoogteVerschil.Visible = True btnVervangKleuren.Visible = True + btnReworkAutomilling.Visible = true End If End Sub @@ -62,4 +64,8 @@ FormController.getInstance.laadFormKleurVervangen(Me) End Sub + Private Sub BtnReworkAutomilling_Click(sender As Object, e As EventArgs) Handles btnReworkAutomilling.Click + ' Rework automilling tonen + FormController.getInstance().laadFormReworkAutomilling(Me) + End Sub End Class \ No newline at end of file Index: TAOR rework/TAOR rework/formulieren/FormSelectID.Designer.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormSelectID.Designer.vb (.../FormSelectID.Designer.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormSelectID.Designer.vb (.../FormSelectID.Designer.vb) (revision 1869) @@ -39,91 +39,91 @@ Me.btnSpecialMenu = New System.Windows.Forms.Button() Me.btnPrintLabel = New System.Windows.Forms.Button() Me.MenuStrip1 = New System.Windows.Forms.MenuStrip() + Me.ConfigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.OptiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LogsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HuidigeLogToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.VorigeLogToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.LogMapToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.HelpToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem() - Me.ConfigToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() - Me.FlowLayoutPanel1.SuspendLayout() - Me.FlowLayoutPanel2.SuspendLayout() - Me.Panel3.SuspendLayout() - Me.MenuStrip1.SuspendLayout() - Me.SuspendLayout() + Me.FlowLayoutPanel1.SuspendLayout + Me.FlowLayoutPanel2.SuspendLayout + Me.Panel3.SuspendLayout + Me.MenuStrip1.SuspendLayout + Me.SuspendLayout ' 'btnZoekOp ' Me.btnZoekOp.Anchor = System.Windows.Forms.AnchorStyles.None - Me.btnZoekOp.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnZoekOp.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnZoekOp.Location = New System.Drawing.Point(639, 3) Me.btnZoekOp.Margin = New System.Windows.Forms.Padding(3, 3, 50, 3) Me.btnZoekOp.Name = "btnZoekOp" Me.btnZoekOp.Size = New System.Drawing.Size(256, 68) Me.btnZoekOp.TabIndex = 1 Me.btnZoekOp.Text = "Zoek op" - Me.btnZoekOp.UseVisualStyleBackColor = True + Me.btnZoekOp.UseVisualStyleBackColor = true ' 'radioBarcode ' - Me.radioBarcode.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.radioBarcode.AutoSize = True - Me.radioBarcode.Checked = True - Me.radioBarcode.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.radioBarcode.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.radioBarcode.AutoSize = true + Me.radioBarcode.Checked = true + Me.radioBarcode.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.radioBarcode.Location = New System.Drawing.Point(3, 3) Me.radioBarcode.Name = "radioBarcode" Me.radioBarcode.Size = New System.Drawing.Size(217, 43) Me.radioBarcode.TabIndex = 2 - Me.radioBarcode.TabStop = True + Me.radioBarcode.TabStop = true Me.radioBarcode.Text = "Via barcode" - Me.radioBarcode.UseVisualStyleBackColor = True + Me.radioBarcode.UseVisualStyleBackColor = true ' 'radioBatch ' - Me.radioBatch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.radioBatch.AutoSize = True - Me.radioBatch.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.radioBatch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.radioBatch.AutoSize = true + Me.radioBatch.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.radioBatch.Location = New System.Drawing.Point(226, 3) Me.radioBatch.Name = "radioBatch" Me.radioBatch.Size = New System.Drawing.Size(177, 43) Me.radioBatch.TabIndex = 2 - Me.radioBatch.TabStop = True + Me.radioBatch.TabStop = true Me.radioBatch.Text = "Via batch" - Me.radioBatch.UseVisualStyleBackColor = True + Me.radioBatch.UseVisualStyleBackColor = true ' 'radioToelevering ' - Me.radioToelevering.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.radioToelevering.AutoSize = True - Me.radioToelevering.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.radioToelevering.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.radioToelevering.AutoSize = true + Me.radioToelevering.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.radioToelevering.Location = New System.Drawing.Point(409, 3) Me.radioToelevering.Name = "radioToelevering" Me.radioToelevering.Size = New System.Drawing.Size(261, 43) Me.radioToelevering.TabIndex = 2 - Me.radioToelevering.TabStop = True + Me.radioToelevering.TabStop = true Me.radioToelevering.Text = "Via toelevering" - Me.radioToelevering.UseVisualStyleBackColor = True + Me.radioToelevering.UseVisualStyleBackColor = true ' 'radioKlantnaam ' - Me.radioKlantnaam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.radioKlantnaam.AutoSize = True - Me.radioKlantnaam.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.radioKlantnaam.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.radioKlantnaam.AutoSize = true + Me.radioKlantnaam.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.radioKlantnaam.Location = New System.Drawing.Point(676, 3) Me.radioKlantnaam.Name = "radioKlantnaam" Me.radioKlantnaam.Size = New System.Drawing.Size(251, 43) Me.radioKlantnaam.TabIndex = 2 - Me.radioKlantnaam.TabStop = True + Me.radioKlantnaam.TabStop = true Me.radioKlantnaam.Text = "Via klantnaam" - Me.radioKlantnaam.UseVisualStyleBackColor = True + Me.radioKlantnaam.UseVisualStyleBackColor = true ' 'textBoxInput ' - Me.textBoxInput.Font = New System.Drawing.Font("Microsoft Sans Serif", 40.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.textBoxInput.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.textBoxInput.ForeColor = System.Drawing.Color.Maroon Me.textBoxInput.Location = New System.Drawing.Point(6, 3) Me.textBoxInput.Margin = New System.Windows.Forms.Padding(0, 3, 50, 3) @@ -133,34 +133,34 @@ ' 'btnTerug ' - Me.btnTerug.Enabled = False - Me.FlowLayoutPanel2.SetFlowBreak(Me.btnTerug, True) - Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnTerug.Enabled = false + Me.FlowLayoutPanel2.SetFlowBreak(Me.btnTerug, true) + Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnTerug.Location = New System.Drawing.Point(948, 3) Me.btnTerug.Name = "btnTerug" Me.btnTerug.Size = New System.Drawing.Size(228, 68) Me.btnTerug.TabIndex = 9 Me.btnTerug.Text = "Terug" - Me.btnTerug.UseVisualStyleBackColor = True + Me.btnTerug.UseVisualStyleBackColor = true ' 'radioDossiercode ' - Me.radioDossiercode.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.radioDossiercode.AutoSize = True - Me.radioDossiercode.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.radioDossiercode.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.radioDossiercode.AutoSize = true + Me.radioDossiercode.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.radioDossiercode.Location = New System.Drawing.Point(933, 3) Me.radioDossiercode.Name = "radioDossiercode" Me.radioDossiercode.Size = New System.Drawing.Size(278, 43) Me.radioDossiercode.TabIndex = 2 - Me.radioDossiercode.TabStop = True + Me.radioDossiercode.TabStop = true Me.radioDossiercode.Text = "Via dossiercode" - Me.radioDossiercode.UseVisualStyleBackColor = True + Me.radioDossiercode.UseVisualStyleBackColor = true ' 'FlowLayoutPanel1 ' - Me.FlowLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.FlowLayoutPanel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Me.FlowLayoutPanel1.Controls.Add(Me.radioBarcode) Me.FlowLayoutPanel1.Controls.Add(Me.radioBatch) Me.FlowLayoutPanel1.Controls.Add(Me.radioToelevering) @@ -175,16 +175,16 @@ ' 'FlowLayoutPanel2 ' - Me.FlowLayoutPanel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.FlowLayoutPanel2.AutoSize = True + Me.FlowLayoutPanel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.FlowLayoutPanel2.AutoSize = true Me.FlowLayoutPanel2.BackColor = System.Drawing.SystemColors.Control Me.FlowLayoutPanel2.Controls.Add(Me.Panel2) Me.FlowLayoutPanel2.Controls.Add(Me.textBoxInput) Me.FlowLayoutPanel2.Controls.Add(Me.btnZoekOp) Me.FlowLayoutPanel2.Controls.Add(Me.btnTerug) Me.FlowLayoutPanel2.Controls.Add(Me.lblFoutmeldingOpzoeken) - Me.FlowLayoutPanel1.SetFlowBreak(Me.FlowLayoutPanel2, True) + Me.FlowLayoutPanel1.SetFlowBreak(Me.FlowLayoutPanel2, true) Me.FlowLayoutPanel2.Location = New System.Drawing.Point(3, 89) Me.FlowLayoutPanel2.Margin = New System.Windows.Forms.Padding(3, 40, 3, 3) Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2" @@ -193,17 +193,17 @@ ' 'Panel2 ' - Me.Panel2.AutoSize = True + Me.Panel2.AutoSize = true Me.Panel2.Location = New System.Drawing.Point(3, 3) Me.Panel2.Name = "Panel2" Me.Panel2.Size = New System.Drawing.Size(0, 0) Me.Panel2.TabIndex = 0 ' 'lblFoutmeldingOpzoeken ' - Me.lblFoutmeldingOpzoeken.AutoSize = True - Me.FlowLayoutPanel2.SetFlowBreak(Me.lblFoutmeldingOpzoeken, True) - Me.lblFoutmeldingOpzoeken.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblFoutmeldingOpzoeken.AutoSize = true + Me.FlowLayoutPanel2.SetFlowBreak(Me.lblFoutmeldingOpzoeken, true) + Me.lblFoutmeldingOpzoeken.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.lblFoutmeldingOpzoeken.ForeColor = System.Drawing.Color.Red Me.lblFoutmeldingOpzoeken.Location = New System.Drawing.Point(3, 79) Me.lblFoutmeldingOpzoeken.Margin = New System.Windows.Forms.Padding(3, 5, 3, 15) @@ -213,7 +213,7 @@ ' 'Panel3 ' - Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.Panel3.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Me.Panel3.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D Me.Panel3.Controls.Add(Me.btnSpecialMenu) Me.Panel3.Controls.Add(Me.btnPrintLabel) @@ -224,30 +224,30 @@ ' 'btnSpecialMenu ' - Me.btnSpecialMenu.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSpecialMenu.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnSpecialMenu.Location = New System.Drawing.Point(18, 22) Me.btnSpecialMenu.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnSpecialMenu.Name = "btnSpecialMenu" Me.btnSpecialMenu.Size = New System.Drawing.Size(260, 68) Me.btnSpecialMenu.TabIndex = 13 Me.btnSpecialMenu.Text = "Special menu" - Me.btnSpecialMenu.UseVisualStyleBackColor = True + Me.btnSpecialMenu.UseVisualStyleBackColor = true ' 'btnPrintLabel ' - Me.btnPrintLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnPrintLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.btnPrintLabel.Location = New System.Drawing.Point(299, 22) Me.btnPrintLabel.Margin = New System.Windows.Forms.Padding(3, 3, 150, 3) Me.btnPrintLabel.Name = "btnPrintLabel" Me.btnPrintLabel.Size = New System.Drawing.Size(260, 68) Me.btnPrintLabel.TabIndex = 14 Me.btnPrintLabel.Text = "Print Label" - Me.btnPrintLabel.UseVisualStyleBackColor = True + Me.btnPrintLabel.UseVisualStyleBackColor = true ' 'MenuStrip1 ' Me.MenuStrip1.BackColor = System.Drawing.Color.Silver - Me.MenuStrip1.Font = New System.Drawing.Font("Segoe UI", 15.0!) + Me.MenuStrip1.Font = New System.Drawing.Font("Segoe UI", 15!) Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ConfigToolStripMenuItem, Me.OptiesToolStripMenuItem, Me.LogsToolStripMenuItem, Me.HelpToolStripMenuItem1}) Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) Me.MenuStrip1.Name = "MenuStrip1" @@ -256,17 +256,24 @@ Me.MenuStrip1.TabIndex = 11 Me.MenuStrip1.Text = "MenuStrip1" ' + 'ConfigToolStripMenuItem + ' + Me.ConfigToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 25!) + Me.ConfigToolStripMenuItem.Name = "ConfigToolStripMenuItem" + Me.ConfigToolStripMenuItem.Size = New System.Drawing.Size(131, 50) + Me.ConfigToolStripMenuItem.Text = "Config" + ' 'OptiesToolStripMenuItem ' - Me.OptiesToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 25.0!) + Me.OptiesToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 25!) Me.OptiesToolStripMenuItem.Name = "OptiesToolStripMenuItem" Me.OptiesToolStripMenuItem.Size = New System.Drawing.Size(229, 50) Me.OptiesToolStripMenuItem.Text = "Print backlog" ' 'LogsToolStripMenuItem ' Me.LogsToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.HuidigeLogToolStripMenuItem, Me.VorigeLogToolStripMenuItem, Me.LogMapToolStripMenuItem}) - Me.LogsToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 25.0!) + Me.LogsToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 25!) Me.LogsToolStripMenuItem.Name = "LogsToolStripMenuItem" Me.LogsToolStripMenuItem.Size = New System.Drawing.Size(102, 50) Me.LogsToolStripMenuItem.Text = "Logs" @@ -291,41 +298,34 @@ ' 'HelpToolStripMenuItem1 ' - Me.HelpToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 25.0!) + Me.HelpToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 25!) Me.HelpToolStripMenuItem1.Name = "HelpToolStripMenuItem1" Me.HelpToolStripMenuItem1.Size = New System.Drawing.Size(102, 50) Me.HelpToolStripMenuItem1.Text = "Help" ' - 'ConfigToolStripMenuItem - ' - Me.ConfigToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 25.0!) - Me.ConfigToolStripMenuItem.Name = "ConfigToolStripMenuItem" - Me.ConfigToolStripMenuItem.Size = New System.Drawing.Size(131, 50) - Me.ConfigToolStripMenuItem.Text = "Config" - ' 'FormSelectID ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1904, 1042) Me.Controls.Add(Me.MenuStrip1) Me.Controls.Add(Me.FlowLayoutPanel1) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) Me.MainMenuStrip = Me.MenuStrip1 Me.Name = "FormSelectID" Me.Text = "TA'OR rework - Hoofdscherm." Me.WindowState = System.Windows.Forms.FormWindowState.Maximized - Me.FlowLayoutPanel1.ResumeLayout(False) - Me.FlowLayoutPanel1.PerformLayout() - Me.FlowLayoutPanel2.ResumeLayout(False) - Me.FlowLayoutPanel2.PerformLayout() - Me.Panel3.ResumeLayout(False) - Me.MenuStrip1.ResumeLayout(False) - Me.MenuStrip1.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() + Me.FlowLayoutPanel1.ResumeLayout(false) + Me.FlowLayoutPanel1.PerformLayout + Me.FlowLayoutPanel2.ResumeLayout(false) + Me.FlowLayoutPanel2.PerformLayout + Me.Panel3.ResumeLayout(false) + Me.MenuStrip1.ResumeLayout(false) + Me.MenuStrip1.PerformLayout + Me.ResumeLayout(false) + Me.PerformLayout - End Sub +End Sub Friend WithEvents btnZoekOp As System.Windows.Forms.Button Friend WithEvents radioBarcode As System.Windows.Forms.RadioButton Friend WithEvents radioBatch As System.Windows.Forms.RadioButton Index: TAOR rework/TAOR rework/Rework/Rework.vb =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/Rework/Rework.vb (.../Rework.vb) (revision 1592) +++ TAOR rework/TAOR rework/Rework/Rework.vb (.../Rework.vb) (revision 1869) @@ -1,4 +1,5 @@ -Public Class Rework + +Public Class Rework Private _onderdeel As String Private _barcode As String Private _reden As String @@ -32,13 +33,12 @@ End Sub - Public Sub New(ByVal barcode As String, ByVal reden() As String, ByVal onderdeel As String, ByVal voorVoorraad As Boolean, etiketTekst As String) + Public Sub New(ByVal barcode As String, ByVal reden() As String, ByVal onderdeel As String, ByVal voorVoorraad As Boolean) _barcode = barcode _reden = reden(0) _redenLabel = reden(1) _onderdeel = onderdeel _voorVoorraad = voorVoorraad - _etiketTekst = etiketTekst _opslaanArdis = True End Sub @@ -190,4 +190,4 @@ Return "ONDERDEEL: " & _onderdeel & " --- BARCODE: " & _barcode & " --- BATCH: " & _batch & " " & " --- KAR: " & _kar & " " & " --- OPSLAAN ARDIS: " & _opslaanArdis & " " & " --- COLOR: " & _color & " " & " --- LENGTH: " & _length & " --- HEIGHT: " & _height End Function -End Class +End Class \ No newline at end of file Index: TAOR rework/TAOR rework/Configuraties/ReworkRedenenRepository.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Configuraties/ReworkRedenenRepository.vb (.../ReworkRedenenRepository.vb) (revision 1513) +++ TAOR rework/TAOR rework/Configuraties/ReworkRedenenRepository.vb (.../ReworkRedenenRepository.vb) (revision 1869) @@ -1,4 +1,6 @@ -Public Class ReworkRedenenRepository +Imports TA_OR_rework.rework + +Public Class ReworkRedenenRepository Private _reworkOnderdelen As List(Of ReworkOnderdeel) Public Sub New() Index: TAOR rework/TAOR rework/Enums.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Enums.vb (.../Enums.vb) (revision 1513) +++ TAOR rework/TAOR rework/Enums.vb (.../Enums.vb) (revision 1869) @@ -1,82 +1,94 @@ Public Enum ItemType - GEEN = 0 - REWORK = 1 - SIFONLADE = 2 - SPOELBAKLADE = 3 - TESTLADE = 4 - STAAL = 5 - VOORRAAD = 6 - DIEPEREZIJKANT = 7 - NIEUWEKLEUR = 8 - HOGEREZIJKANT = 9 + Geen = 0 + Rework = 1 + Sifonlade = 2 + DubbeleSifonlade = 3 + Testlade = 4 + Staal = 5 + Voorraad = 6 + DiepereZijkant = 7 + NieuweKleur = 8 + HogereZijkant = 9 End Enum Public Enum Kolommen - barcode = 0 - batch = 1 - toelevering = 2 - sorteerkar = 3 - klantnaam = 4 - dossierCode = 5 - barcodesVoorraad = 6 - barcodeArdis = 7 + Barcode = 0 + Batch = 1 + Toelevering = 2 + Sorteerkar = 3 + Klantnaam = 4 + DossierCode = 5 + BarcodesVoorraad = 6 + BarcodeArdis = 7 End Enum Public Enum LinksOfRechts - links = 0 - rechts = 1 + Links = 0 + Rechts = 1 End Enum Public Module EnumMapper - Public Function geefArdisTextBijItemType(itemType As ItemType) As String +#Region "ItemType" + Public Function GeefArdisTextBijItemType(itemType As ItemType) As String Select Case itemType - Case TA_OR_rework.ItemType.REWORK + Case ItemType.Rework Return "RW_TAORRW" - Case TA_OR_rework.ItemType.SIFONLADE + Case ItemType.Sifonlade, + ItemType.DubbeleSifonlade, + ItemType.DiepereZijkant, + ItemType.HogereZijkant, + ItemType.NieuweKleur Return "SPECIAL" - Case TA_OR_rework.ItemType.SPOELBAKLADE - Return "SPECIAL" - Case TA_OR_rework.ItemType.DIEPEREZIJKANT - Return "SPECIAL" - Case TA_OR_rework.ItemType.HOGEREZIJKANT - Return "SPECIAL" - Case TA_OR_rework.ItemType.NIEUWEKLEUR - Return "SPECIAL" - Case TA_OR_rework.ItemType.TESTLADE + Case ItemType.Testlade Return "TESTLADE" - Case TA_OR_rework.ItemType.STAAL + Case ItemType.Staal Return "STAAL" - Case TA_OR_rework.ItemType.VOORRAAD + Case ItemType.Voorraad Return "VOORRAAD" Case Else - Throw New Exception("Dit itemType: '" & geefWaardeBijEnumValue(itemType) & "' kan niet worden gebruikt om ArdisText op te vragen") + Throw New Exception($"Dit itemType: '{GeefTekstVanEnumOptie(itemType)}' kan niet worden gebruikt om ArdisText op te vragen.") End Select End Function - Public Function geefCacheKolomNaamBijKolom(kolom As Kolommen) + ''' + ''' De letterlijke tekst opvragen van een enum optie. In uppercase. + ''' + ''' De enum optie + ''' De letterlijke tekst + Public Function GeefTekstVanEnumOptie(itemType As ItemType) As String + Return [Enum].GetName(GetType(ItemType), itemType).ToUpper() + End Function + +#End Region + +#Region "Kolommen" + Public Function GeefCacheKolomNaamBijKolom(kolom As Kolommen) Select Case kolom - Case Kolommen.barcode + Case Kolommen.Barcode Return "verwerkingID" - Case Kolommen.batch + Case Kolommen.Batch Return "batchID" - Case Kolommen.toelevering + Case Kolommen.Toelevering Return "toeleveringID" - Case Kolommen.sorteerkar + Case Kolommen.Sorteerkar Return "kar" - Case Kolommen.klantnaam + Case Kolommen.Klantnaam Return "naam" - Case Kolommen.dossierCode + Case Kolommen.DossierCode Return "dossierCode" Case Else - Throw New Exception("Cache kolomnaam kon niet worden opgevraagd met kolom: " & geefWaardeBijEnumValue(kolom)) + Throw New Exception($"Cache kolomnaam kon niet worden opgevraagd met kolom: '{GeefTekstVanEnumOptie(kolom)}'") End Select End Function - Public Function geefWaardeBijEnumValue(itemType As ItemType) As String - Return [Enum].GetName(GetType(ItemType), itemType) + ''' + ''' De letterlijke tekst opvragen van een enum optie. In lowercase. + ''' + ''' De enum optie + ''' De letterlijke tekst + Public Function GeefTekstVanEnumOptie(kolom As Kolommen) As String + Return [Enum].GetName(GetType(Kolommen), kolom).ToLower() End Function +#End Region - Public Function geefWaardeBijEnumValue(kolom As Kolommen) As String - Return [Enum].GetName(GetType(Kolommen), kolom) - End Function End Module \ No newline at end of file Index: TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb =================================================================== diff -u -r1595 -r1869 --- TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1595) +++ TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1869) @@ -4,237 +4,346 @@ Module CacheMapper Private Const CONNECTIE_STRING As String = "DSN=Cache01Admin1; DRIVER={InterSystems ODBC}; SERVER=CACHE01;DATABASE=ADMIN1;UID=_SYSTEM;PWD=SYS" - Private SQLConnection As OdbcConnection + Private _sqlConnection As OdbcConnection - Private Sub connectToCache() +#Region "Hulpfuncties" + ''' + ''' Hulpfunctie om de SQLCOnnectie met Caché te openen. + ''' + Private Sub ConnectToCache() Try - If SQLConnection Is Nothing Then + If _sqlConnection Is Nothing Then 'Connectie initialiseren. - SQLConnection = New OdbcConnection(CONNECTIE_STRING) + _sqlConnection = New OdbcConnection(CONNECTIE_STRING) End If 'Controleer of connectie status al open is. - If Not SQLConnection.State = ConnectionState.Open Then + If Not _sqlConnection.State = ConnectionState.Open Then 'ALs dit nog niet het geval is, open de connectie. - SQLConnection.Open() + _sqlConnection.Open() End If Catch ex As Exception Throw New Exception($"De Caché databank kan niet bereikt worden: {vbNewLine}{ex.Message}") End Try End Sub - Private Sub executeIntoDataReader(query As String) + ''' + ''' Uitvoeren van een query naar een data reader. + ''' + ''' De query + ''' De ODBC data reader + Private Function ExecuteIntoDataReader(query As String) As OdbcDataReader Try - connectToCache() - sluitDataReader() - Dim comm As OdbcCommand = New OdbcCommand(query, SQLConnection) - dr = comm.ExecuteReader() + ConnectToCache() + Return New OdbcCommand(query, _sqlConnection).ExecuteReader() Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opvragen van de DataReader uit de Caché databank" & vbNewLine & ex.Message) + Throw New Exception($"Kon datareader niet opvragen uit Caché datatabank.{vbNewLine}{ex.Message}") End Try - End Sub + End Function - Private Sub executeCommand(query As String) + ''' + ''' Uitvoeren van een commando. + ''' + ''' De query + Private Sub ExecuteCommand(query As String) Try - connectToCache() - Dim comm As OdbcCommand = New OdbcCommand(query, SQLConnection) - comm.ExecuteNonQuery() + ConnectToCache() + Dim command = New OdbcCommand(query, _sqlConnection) + command.ExecuteNonQuery() Catch ex As Exception - Throw New Exception("De caché databank kan niet bereikt worden " & vbNewLine & ex.Message) + Throw New Exception($"Het commando uitvoeren op de Caché databank.{vbNewLine}{ex.Message}") End Try End Sub - Private Function executeIntoListOfString(ByVal query As String) As List(Of String) + ''' + ''' Commando uitvoeren en eerste items per record retourneren als lijst van strings. + ''' + ''' De query + ''' De eerste items van de records. + Private Function ExecuteIntoListOfString(ByVal query As String) As List(Of String) Try - connectToCache() - Dim comm As OdbcCommand = New OdbcCommand(query, SQLConnection) - + 'Initialisatie van de lijst. Dim data As New List(Of String) - dr = comm.ExecuteReader() + 'Opvragen van de data reader. + Dim dr = ExecuteIntoDataReader(query) + 'Overlopen van de resultaten en toevoegen aan de lijst. While (dr.Read()) + 'Eerste veld van een record toevoegen aan de lijst. data.Add(dr.GetValue(0).ToString) End While + 'Connectie met data reader sluiten. + dr.Close() + + 'De lijst retourneren. Return data Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opvragen van data uit de Caché databank" & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het opvragen van een lijst van data uit de Caché databank {vbNewLine}{ex.Message}") End Try End Function +#End Region - Private Function getDataReader(kolom As Kolommen, waarde As String) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met kolom, waarde: " & EnumMapper.geefWaardeBijEnumValue(kolom) & ", " & waarde) - - Dim kolomnaam As String = geefCacheKolomNaamBijKolom(kolom) - Dim keyword As String = " = " - +#Region "Data readers" + ''' + ''' Opvragen van de datareader voor een bepaald kolom type, een waarde en een optionele filter. + ''' + ''' Het type kolom + ''' De waarde + ''' Een optionele filter + ''' + Private Function GetDataReader(kolom As Kolommen, waarde As String, Optional filter As String = Nothing) As OdbcDataReader + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'") Try - 'als het een naam is moeten we "like" gebruiken - If kolomnaam.Equals("naam") Then - keyword = " like " + Dim kolomnaam As String = EnumMapper.geefCacheKolomNaamBijKolom(kolom) + Dim equalsOfLikeSleutelwoord As String + + If Not kolom = Kolommen.klantnaam Then + 'Geen naam, aka gewoon equals. + equalsOfLikeSleutelwoord = "=" + Else + 'Als het een naam is moeten we "like" als sleutelwoord gebruiken. + equalsOfLikeSleutelwoord = "like" + 'Kijken of veld de naam bevat door gebruik te maken van reguliere expressie. waarde = "%" + waarde + "%" End If - Dim query As String = "select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where " & kolomnaam & keyword & "'" & waarde & "'" & "group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar" + 'Als de filter is meegegeven wordt de tekst juist opgebouwd. Anders is deze leeg, zodat het niet in de query wordt ingevuld. + Dim filterTekst = String.Empty + If filter IsNot Nothing Then + 'De filter is gespecifieerd. + filterTekst = $" AND Onderdeel = '{filter}' " + End If - executeIntoDataReader(query) + 'De query wordt opgebouwd met de data en de eventuele filter. + Dim query = $"select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where {kolomnaam} {equalsOfLikeSleutelwoord} '{waarde}'{filterTekst}group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar" + + 'Uitvoeren van query en datareader retourneren. + Dim dr = ExecuteIntoDataReader(query) + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'", True) + Return dr Catch ex As Exception - Throw New Exception("Fout bij opvragen van OdbcDataReader met kolom, waarde: " & EnumMapper.geefWaardeBijEnumValue(kolom) & ", " & waarde & vbNewLine & ex.Message) + Throw New Exception($"Fout bij opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'{vbNewLine}{ex.Message}") End Try - - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met kolom, waarde: " & kolom & ", " & waarde, True) - Return dr End Function - Private Function getDataReaderBarcode(waarde As String) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met barcode: " & waarde) - Dim query As String + ''' + ''' Opvragen van de data reader aan de hand van een barcode. + ''' + ''' + ''' + Private Function GetDataReaderBarcode(barcode As String, Optional filter As String = Nothing) As OdbcDataReader + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van data reader met barcode, filter?: '{barcode}' '{filter}'") + + 'Variable declaratie. + Dim batch, kar + + 'Opvragen batch en kar. Try - Dim dr As OdbcDataReader = getDataReader(Kolommen.barcode, waarde) - 'als er geen entry is gevonden wordt de lege datareader gereturnt - If Not dr.HasRows Then - Return dr + 'Opvragen van de datareader met als type barcode bij de hulpfunctie. + Dim barcodeDataReader = GetDataReader(Kolommen.barcode, barcode) + + If Not barcodeDataReader.Read() Then + 'Als er geen rij is gevonden wordt de lege data reader geretourneert. + Return barcodeDataReader + Else + 'Opvragen en toewijzen van batch en kar. + batch = barcodeDataReader.GetValue(0).ToString + kar = barcodeDataReader.GetValue(4).ToString End If - Dim batch As String = "" - Dim kar As String = "" - Dim uniekeBarcode As Boolean = True - Do While dr.Read - If Not uniekeBarcode Then - Throw New Exception("De barcode is niet uniek") - End If - batch = dr.GetValue(0).ToString - kar = dr.GetValue(4).ToString - uniekeBarcode = False - Loop - query = "select BatchID, ToeleveringID, Klant.naam, log.dossiercode, ISNULL(Kar, '') as Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where (" & "BatchID" & " = " & "'" & batch & "'" & ") group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar having ISNULL(Kar, '')" & " like " & "'" & kar & "'" & " order by BatchID, ToeleveringID, Kar" - - executeIntoDataReader(query) Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opvragen van de batch en kar voor het opvragen van de datareader uit de Caché databank" & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het opvragen van de batch en kar voor het opvragen van de data reader uit de Caché databank {vbNewLine}{ex.Message}") End Try - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met barcode: " & waarde, True) - Return dr - End Function - - Private Function getDataReader(kolom As Kolommen, waarde As String, filter As String) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met kolom, waarde, filter: " & EnumMapper.geefWaardeBijEnumValue(kolom) & ", " & waarde & ", " & filter) - - Dim kolomnaam As String = geefCacheKolomNaamBijKolom(kolom) - Dim keyword As String = " = " + 'Data reader opvragen. Try - 'als het een naam is moeten we "like" gebruiken - If kolomnaam.Equals("naam") Then - keyword = " like " - waarde = "%" + waarde + "%" + 'Als de filter is meegegeven wordt de tekst juist opgebouwd. Anders is deze leeg, zodat het niet in de query wordt ingevuld. + Dim filterTekst = String.Empty + If filter IsNot Nothing Then + 'De filter is gespecifieerd. + filterTekst = $" AND Onderdeel = '{filter}' " End If - Dim query As String = "select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where " & kolomnaam & keyword & "'" & waarde & "'" & " AND Onderdeel = " & "'" & filter & "'" & " group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar" + 'De query wordt opgebouwd met de data en de eventuele filter. + Dim query = $"select BatchID, ToeleveringID, Klant.naam, log.dossiercode, ISNULL(Kar, '') as Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where (BatchID='{batch}' AND Kar = '{kar}'{filterTekst}) group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar" - executeIntoDataReader(query) + 'Uitvoeren van query en datareader retourneren. + Dim dr = ExecuteIntoDataReader(query) + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van data reader met barcode: {barcode}", True) + Return dr Catch ex As Exception - Throw New Exception("Fout bij opvragen van OdbcDataReader met kolom, waarde, filter: " & EnumMapper.geefWaardeBijEnumValue(kolom) & ", " & waarde & ", " & filter & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het vullen van de data reader van een bepaalde batch en kar uit de Caché databank {vbNewLine}{ex.Message}") End Try - - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met kolom, waarde, filter: " & EnumMapper.geefWaardeBijEnumValue(kolom) & ", " & waarde & ", " & filter, True) - Return dr End Function - Private Function getDataReaderBarcode(waarde As String, filter As String) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met waarde, filter: " & waarde & ", " & filter) - Dim query As String + ''' + ''' Opvragen van de data reader aan de hand van een lijst van barcodes. + ''' + ''' De lijst van barcodes + ''' De datareader + Private Function GetDataReader(barcodes As List(Of String)) As OdbcDataReader Try - Dim dr As OdbcDataReader = getDataReader(Kolommen.barcode, waarde) - 'als er geen entry is gevonden wordt de lege datareader gereturnt - If Not dr.HasRows Then - Return dr + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van OdbcDataReader met barcodes: '{String.Join(", ", barcodes.ToArray())}'") + + 'Controleren dat er minstens 2 items in de lijst zitten. + If barcodes Is Nothing OrElse barcodes.Count <= 1 Then + Throw New Exception("De lijst met barcodes om de OdbcDataReader op te vragen mag niet leeg zijn (minstens 2 elementen).") End If - dr.Read() + 'Stringbuilder initialiseren en reeds vullen met de eerste barcode. + Dim builder As New StringBuilder + builder.Append($"'{barcodes.Item(0)}'") - Dim batch As String = dr.GetValue(0).ToString - Dim kar As String = dr.GetValue(4).ToString + 'Lijst omzetten in juiste formaat voor query. + For Each barcode As String In barcodes.GetRange(1, barcodes.Count - 1) + 'Barcodes samenvoegen, gescheiden door een komma. + builder.Append($", '{barcode}'") + Next - query = "select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where (" & geefCacheKolomNaamBijKolom(Kolommen.batch) & " = " & "'" & batch & "'" & " AND " & geefCacheKolomNaamBijKolom(Kolommen.sorteerkar) & " = " & "'" & kar & "'" & " AND Onderdeel = " & "'" & filter & "'" & ") group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar" + 'Opbouwen van de query. + Dim query = "Select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) " + query &= $"where log.VerwerkingID in ({builder.ToString()})" + query &= " group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar" - executeIntoDataReader(query) + 'Uitvoeren van query en datareader retourneren. + Dim dr = ExecuteIntoDataReader(query) + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van OdbcDataReader met barcodes: '{String.Join(", ", barcodes.ToArray())}'", True) + Return dr Catch ex As Exception - Throw New Exception("Fout bij opvragen van OdbcDataReader met waarde, filter: " & waarde & ", " & filter & vbNewLine & ex.Message) + Throw New Exception($"Fout bij opvragen van OdbcDataReader met barcodes: '{String.Join(", ", barcodes.ToArray())}' {vbNewLine}{ex.Message}") End Try - - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met waarde, filter: " & waarde & ", " & filter, True) - Return dr End Function +#End Region - Private dr As OdbcDataReader - Public Sub sluitDataReader() - If Not (dr Is Nothing OrElse dr.IsClosed) Then - dr.Close() - dr = Nothing - End If - End Sub + ''' + ''' Opvragen van details van een item aan de hand van de barcode. + ''' + ''' De barcode + ''' De datareader + Public Function GetDetails(barcode As String) As DataTable + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van data table met details, van barcode: {barcode}") - Public Function getDetails(barcode As String) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met details, van barcode: " & barcode) - - Dim query As String = "select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, machineID, Onderdeel, tijdstipProductie as TijdstipProductie, StapNummer as Productiestap, Case when IsRework=1 THEN 'TRUE' END as rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where " & "verwerkingID = " & "'" & barcode & "'" & " order by StapNummer" + Dim query As String = $"select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, machineID, Onderdeel, tijdstipProductie as TijdstipProductie, StapNummer as Productiestap, Case when IsRework=1 THEN 'TRUE' END as rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where verwerkingID = '{barcode}' order by StapNummer" Try - executeIntoDataReader(query) + 'Uitvoeren van query en datareader bijhouden. + Dim dr = ExecuteIntoDataReader(query) + 'DataTable initialiseren en vullen met resultaat van de datareader. + Dim datatable = New DataTable() + datatable.Load(dr) + 'Connectie van datareader sluiten. + dr.Close() + LogBestandTextMapper.writeToFile("Caché", $"Opvragen van data table met details, van barcode: {barcode}", True) + 'Retourneren van de datatable. + Return datatable Catch ex As Exception - Throw New Exception("Fout bij opvragen van OdbcDataReader met details, van barcode: " & barcode & vbNewLine & ex.Message) + Throw New Exception($"Fout bij opvragen van OdbcDataReader met details, van barcode: '{barcode}'{vbNewLine}{ex.Message}") End Try - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met details, van barcode: " & barcode, True) - Return dr End Function - Public Function geefdatareader(kolom As Kolommen, waarde As Object) As OdbcDataReader - 'als het een barcode is moeten we iets meer laten zien: entry's die in dezelfde batch en kar zitten als de barcode + ''' + ''' Opvragen van de datatable aan de hand van het type kolom en de waarde. + ''' + ''' Het type kolom + ''' De waarde + ''' De data table + Public Function GeefDataTable(kolom As Kolommen, waarde As Object) As DataTable + 'Declaratie van de data reader. + Dim dataReader As OdbcDataReader + + 'Type kolom controleren. If kolom = Kolommen.barcode Then - Return getDataReaderBarcode(waarde) + 'Als het een barcode is moeten we iets meer laten zien: alle items die in dezelfde batch en kar zitten. + dataReader = GetDataReaderBarcode(waarde) ElseIf kolom = Kolommen.barcodesVoorraad Then - Return geefdatareader(TryCast(CObj(waarde), List(Of String))) + 'Barcodes van een voorraad worden met meerdere tegelijk opgevraagd. + dataReader = GetDataReader(TryCast(CObj(waarde), List(Of String))) Else - Return getDataReader(kolom, waarde) + 'Elke andere kolom buiten barcode en barcodesvoorraad. + dataReader = GetDataReader(kolom, waarde) End If + + 'DataTable initialiseren en vullen met resultaat van de datareader. + Dim datatable = New DataTable() + datatable.Load(dataReader) + 'Connectie van datareader sluiten. + dataReader.Close() + 'Retourneren van de datatable. + Return datatable End Function - Public Function geefdatareader(kolom As Kolommen, waarde As String, filter As String) As OdbcDataReader - 'als het een barcode is moeten we iets meer laten zien: entry's die in dezelfde batch en kar zitten als de barcode + ''' + ''' Opvragen van de datareader + ''' + ''' + ''' + ''' + ''' + Public Function GeefdataTable(kolom As Kolommen, waarde As String, filter As String) As DataTable + 'Declaratie van de data reader. + Dim dataReader As OdbcDataReader + + 'Type kolom controleren. If kolom = Kolommen.barcode Then - Return getDataReaderBarcode(waarde, filter) + 'Als het een barcode is moeten we iets meer laten zien: items die in dezelfde batch en kar zitten. + dataReader = GetDataReaderBarcode(waarde, filter) Else - Return getDataReader(kolom, waarde, filter) + dataReader = GetDataReader(kolom, waarde, filter) End If + + 'DataTable initialiseren en vullen met resultaat van de datareader. + Dim datatable = New DataTable() + datatable.Load(dataReader) + 'Connectie van datareader sluiten. + dataReader.Close() + 'Retourneren van de datatable + Return datatable End Function - Public Function geefOnderdelen() As List(Of String) - LogBestandTextMapper.writeToFile("Caché", "Opvragen van onderdelen") - Dim query As String = "select DISTINCT Onderdeel from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem" + ''' + ''' Opvragen lijst van mogelijke onderdelen (rug, bodem, ...) + ''' + ''' Lijst van namen van onderdelen + Public Function GeefOnderdelen() As List(Of String) + LogBestandTextMapper.writeToFile("Caché", "Opvragen van onderdelen.") + Const query = "select DISTINCT Onderdeel from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem" - Dim onderdelen As New List(Of String) - onderdelen = executeIntoListOfString(query) + Dim onderdelen = ExecuteIntoListOfString(query) LogBestandTextMapper.writeToFile("Caché", "Opvragen van onderdelen", True) Return onderdelen End Function - Public Function updateRework(rework As Rework, Optional barcodeOrigineel As String = "") As Rework - LogBestandTextMapper.writeToFile("Caché", "Updaten van rework met informatie uit databank") + ''' + ''' Velden van een rework updaten met informatie uit de databank. + ''' Dit gebeurt aan de hand van de barcode van de rework zelf of een optionele andere barcode. + ''' + ''' De rework om te laten updaten + ''' Optionele barcode van de originele rework + ''' + Public Function UpdateRework(rework As Rework, Optional barcodeOrigineel As String = Nothing) As Rework + LogBestandTextMapper.writeToFile("Caché", "Updaten van rework met informatie uit databank.") + 'Controleren welke barcode gebruikt zal worden Dim barcode As String - If barcodeOrigineel.Equals("") Then + If String.IsNullOrEmpty(barcodeOrigineel) Then + 'Barcode van rework gebruiken. barcode = rework.barcode Else + 'Andere barcode gebruiken. barcode = barcodeOrigineel End If - Dim query As String = "select top 1 BatchID, DossierCode, DueOut, IsRework, Kar, MachineID, Onderdeel, PartijID, ProductID, SequentieNummer, StapNummer, TijdstipCreatie, TijdstipProductie, ToeleveringID, VerwerkingID, ReworkReden from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where " & "verwerkingID = " & "'" & barcode & "'" - Dim hasRead As Boolean = False + + 'Query opbouwen met barcode. + Dim query = $"select top 1 BatchID, DossierCode, DueOut, IsRework, Kar, MachineID, Onderdeel, PartijID, ProductID, SequentieNummer, StapNummer, TijdstipCreatie, TijdstipProductie, ToeleveringID, VerwerkingID, ReworkReden from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) where verwerkingID = '{barcode}'" + Try - connectToCache() - Dim command As OdbcCommand = New OdbcCommand(query, SQLConnection) - dr = command.ExecuteReader - While dr.Read() + 'Query uitvoeren en datareader bijhouden. + Dim dr = ExecuteIntoDataReader(query) + + 'Controleren of er resultaten zijn. + If dr.Read() Then + 'Er is een resultaat, de waarden uitlezen. rework.batch = If(IsDBNull(dr.Item("BatchID")), Nothing, CStr(dr.Item("BatchID"))) rework.dossierCode = If(IsDBNull(dr.Item("DossierCode")), Nothing, CStr(dr.Item("DossierCode"))) rework.DueOut = If(IsDBNull(dr.Item("DueOut")), Nothing, CStr(dr.Item("DueOut"))) @@ -249,210 +358,193 @@ rework.TijdstipCreatie = If(IsDBNull(dr.Item("TijdstipCreatie")), Nothing, CStr(dr.Item("TijdstipCreatie"))) rework.TijdstipProductie = If(IsDBNull(dr.Item("TijdstipProductie")), Nothing, CStr(dr.Item("TijdstipProductie"))) rework.ToeleveringID = If(IsDBNull(dr.Item("ToeleveringID")), Nothing, CStr(dr.Item("ToeleveringID"))) - - hasRead = True - End While - If Not hasRead Then - Throw New Exception("Er is geen record in Caché gevonden voor barcode " & barcode & " om een rework te updaten") + Else + 'Connectie van datareader sluiten. + dr.Close() + 'Er is geen resultaat gevonden. + Throw New Exception($"Er is geen record in Caché gevonden voor barcode '{barcode}' om een rework te updaten") End If + 'Connectie van datareader sluiten. + dr.Close() Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het updaten van een rework met data uit database Caché " & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het updaten van een rework met data uit database Caché {vbNewLine}{ex.Message}") End Try - LogBestandTextMapper.writeToFile("Caché", "Updaten van rework met informatie uit databank", True) + LogBestandTextMapper.writeToFile("Caché", "Updaten van rework met informatie uit databank.", True) Return rework End Function - Public Sub opslaanReworkReden(ByRef rework As Rework) - LogBestandTextMapper.writeToFile("Caché", "Opslaan rework reden met reden: " & rework.reden) + ''' + ''' Opslaan van de rework reden. + ''' + ''' De reden + Public Sub OpslaanReworkReden(ByRef rework As Rework) + LogBestandTextMapper.writeToFile("Caché", $"Opslaan rework reden met reden: {rework.reden}") - updateStapNummer(rework.barcode) + 'Updaten van het stapnummer (op 0 zetten) + UpdateStapNummer(rework.barcode) + 'Opslaan van de reden. + SlaRedenOp(rework) - slaRedenOp(rework) - - LogBestandTextMapper.writeToFile("Caché", "Opslaan rework reden met reden: " & rework.reden, True) + LogBestandTextMapper.writeToFile("Caché", $"Opslaan rework reden met reden: {rework.reden}", True) End Sub - Private Sub updateStapNummer(ByVal verwerkingID As String) - LogBestandTextMapper.writeToFile("Caché", "Updaten stapnummer met verwerkingID: " & verwerkingID) + ''' + ''' Hulpfunctie voor het resetten van het stapnummer (op 0 plaatsen). + ''' + ''' Het verwerking Id + Private Sub UpdateStapNummer(verwerkingId As String) + LogBestandTextMapper.writeToFile("Caché", $"Updaten stapnummer met verwerkingId: {verwerkingId}") Try - Dim query As String = "UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET StapNummer=-StapNummer WHERE VerwerkingID= '" & verwerkingID & "' and StapNummer>0" - - executeCommand(query) + Dim query As String = $"UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET StapNummer=-StapNummer WHERE VerwerkingID= '{verwerkingId}' and StapNummer>0" + 'Commando uitvoeren. + ExecuteCommand(query) Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het updaten van het stapnummer bij het opslaan van een rework reden in de Caché databank" & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het updaten van het stapnummer bij het opslaan van een rework reden in de Caché databank {vbNewLine}{ex.Message}") End Try - LogBestandTextMapper.writeToFile("Caché", "Updaten stapnummer met verwerkingID: " & verwerkingID, True) + LogBestandTextMapper.writeToFile("Caché", $"Updaten stapnummer met verwerkingId: {verwerkingId}", True) End Sub - Private Sub slaRedenOp(ByVal rework As Rework) - LogBestandTextMapper.writeToFile("Caché", "Rework reden wegschrijven naar de databank, reden: " & rework.reden) + ''' + ''' Hulpfunctie voor het opslaan van de rework reden. + ''' + ''' + Private Sub SlaRedenOp(ByVal rework As Rework) + LogBestandTextMapper.writeToFile("Caché", $"Rework reden wegschrijven naar de databank, reden: {rework.reden}") + 'Updaten van de data in de rework. rework.aanpassenData() + + 'Huidige datum registreren. Dim datum As String = Now.ToString("yyyy-MM-dd HH:mm:ss") - Dim query As String = "insert into APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem (BatchID, DossierCode, DueOut, IsRework, Kar, MachineID, Onderdeel, PartijID, ProductID, SequentieNummer, StapNummer, TijdstipCreatie, TijdstipProductie, ToeleveringID, VerwerkingID, ReworkReden) values ('" & rework.batch & "', '" & rework.dossierCode & "', '" & rework.DueOut & "', '" & rework.IsRework & "', '" & rework.kar & "', '" & rework.MachineID & "', '" & rework.OrigineelOnderdeel & "', '" & rework.PartijID & "', '" & rework.ProductID & "', '" & rework.SequentieNummer & "', '" & rework.StapNummer & "', '" & datum & "', '" & datum & "' ,'" & rework.ToeleveringID & "', '" & rework.barcode & "', '" & rework.reden & "')" + 'De query opbouwen. + Dim query As String = "insert into APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem (BatchID, DossierCode, DueOut, IsRework, Kar, MachineID, Onderdeel, PartijID, ProductID, SequentieNummer, StapNummer, TijdstipCreatie, TijdstipProductie, ToeleveringID, VerwerkingID, ReworkReden) values ('" & rework.batch & "', '" & rework.dossierCode & "', '" & rework.DueOut & "', '" & rework.IsRework & "', '" & rework.kar & "', '" & rework.MachineID & "', '" & rework.OrigineelOnderdeel & "', '" & rework.PartijID & "', '" & rework.ProductID & "', '" & rework.SequentieNummer & "', '" & rework.StapNummer & "', '" & datum & "', '" & datum & "' ,'" & rework.ToeleveringID & "', '" & rework.barcode & "', '" & rework.reden & "')" Try - Dim addCommand As New OdbcCommand - addCommand.CommandText = query - addCommand.Connection = SQLConnection - - connectToCache() - addCommand.ExecuteNonQuery() + 'Voer het commando uit. + ExecuteCommand(query) Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het wegschrijven van de rework met reden naar Caché " & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het wegschrijven van de rework met reden naar Caché {vbNewLine}{ex.Message}") End Try - LogBestandTextMapper.writeToFile("Caché", "Rework reden wegschrijven naar de databank, reden: " & rework.reden, True) + LogBestandTextMapper.writeToFile("Caché", $"Rework reden wegschrijven naar de databank, reden: {rework.reden}", True) End Sub - 'Opvragen barcode nummer voor test lade of special lade - Public Function geefBarcodeNummer() As Integer - Dim query As String = "" + ''' + ''' Opvragen nummer voor in de barcode voor test lade of special lade. + ''' + ''' Het nummer voor de barcode. + Public Function GeefBarcodeNummer() As Integer + 'Variablen declareren. + Dim query As String Dim teller, maxteller, minTeller, nieuweTeller As Integer + 'Blijven herhalen indien nodig. + Dim retry = True - Dim retry As Boolean = True - - LogBestandTextMapper.writeToFile("Caché", "- Opvragen van barcode nummer, retry: " & retry) + LogBestandTextMapper.writeToFile("Caché", $"- Opvragen van barcode nummer, retry: {retry}") Do While retry - LogBestandTextMapper.writeToFile("Caché", "Opvragen van alle tellers") + LogBestandTextMapper.writeToFile("Caché", "Opvragen van teller, minimum teller en maximum teller.") + 'Toewijzen query. query = "select * from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers where label='BARCODE'" Try - executeIntoDataReader(query) - - dr.Read() - - teller = CInt(dr.Item("Teller")) - maxteller = CInt(dr.Item("MaxTeller")) - minTeller = CInt(dr.Item("MinTeller")) + 'Query uitvoeren en datareader bijhouden. + Dim dr = ExecuteIntoDataReader(query) + If dr.Read() Then + 'Velden opvragen uit datareader. + teller = CInt(dr.Item("Teller")) + maxteller = CInt(dr.Item("MaxTeller")) + minTeller = CInt(dr.Item("MinTeller")) + Else + 'Connectie van datareader sluiten. + dr.Close() + 'Geen data gevonden. + Throw New Exception("Er werden geen resultaten gevonden bij het opvragen van de tellers uit Caché.") + End If + 'Connectie van datareader sluiten. + dr.Close() Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opvragen van de tellers voor een test lade barcode nummer" & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het opvragen van de tellers voor een test lade barcode nummer uit Caché.{vbNewLine}{ex.Message}") End Try - If teller > maxteller Then - nieuweTeller = minTeller - Else + 'Kijken of maximum waarde van de teller nog niet is overschreden. + If Not (teller > maxteller) Then + 'Zo ja, teller verhogen. nieuweTeller = teller + 1 + Else + 'Maximum is overschreden, teller resetten. + nieuweTeller = minTeller End If + LogBestandTextMapper.writeToFile("Caché", "Opvragen van teller, minimum teller en maximum teller.", True) - 'alleen uitvoeren als de verwerk optie aanstaat - If Configs.geefVerwerkStatus Then + 'UPDATEN MET NIEUWE TELLER + 'Alleen uitvoeren als de verwerk optie aanstaat + If Not Configs.geefVerwerkStatus Then + 'Er wordt niet verwerkt, teller niet updaten en lus verbreken. + retry = False + Else + LogBestandTextMapper.writeToFile("Caché", $"Updaten van de teller met de nieuwe teller: {nieuweTeller}") - LogBestandTextMapper.writeToFile("Caché", "Opvragen van alle tellers", True) + 'Query opbouwen. + query = $"Update APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers set Teller={nieuweTeller} where label='BARCODE'" + 'Commando uitvoeren + ExecuteCommand(query) - LogBestandTextMapper.writeToFile("Caché", "Updaten van de teller met de nieuwe teller: " & nieuweTeller) - query = "Update APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers set Teller=" & nieuweTeller & " where label='BARCODE'" - executeCommand(query) - LogBestandTextMapper.writeToFile("Caché", "Updaten van de teller met de nieuwe teller: " & nieuweTeller, True) + LogBestandTextMapper.writeToFile("Caché", $"Updaten van de teller met de nieuwe teller: {nieuweTeller}", True) + 'Ophalen geüpdate teller, reden hiervoor is dat de tellers op hetzelfde moment verhoogt kunnen worden. LogBestandTextMapper.writeToFile("Caché", "Opvragen van de geüpdate teller") query = "select Teller from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers where label='BARCODE'" Try - executeIntoDataReader(query) + 'Query uitvoeren en datareader bijhouden. + Dim dr = ExecuteIntoDataReader(query) + 'Teller uitlezen. dr.Read() - teller = dr.Item("Teller") + 'Connectie van datareader sluiten. + dr.Close() Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opvragen van de nieuwe teller voor test lade barcode nummer" & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het opvragen van de nieuwe teller voor test lade uit Caché {vbNewLine}{ex.Message}") End Try LogBestandTextMapper.writeToFile("Caché", "Opvragen van de geüpdate teller", True) + + 'De opgehaalde teller in de databank verschilt van de teller die is geproeerd weg te schrijven. + 'Dit betekent dat de teller reeds is overschreven. Daarom zal geprobeerd worden de teller opnieuw te bepalen. If nieuweTeller <> teller Then + 'Kijken of dit niet al eens is gebeurt. Houdt een oneindige loop tegen. If retry Then + 'Eerste keer dat dit voorkomt, updaten van variabele. retry = False Else + 'Kon na herproberen nog steeds geen correcte teller ophalen. Throw New Exception("Kan geen unieke barcode nummer opvragen") End If Else + 'Teller is correct, while-lus verbreken. retry = False End If - - Else 'er wordt niet verwerkt - retry = False End If Loop - LogBestandTextMapper.writeToFile("Caché", "- Opvragen van barcode nummer, retry: " & retry, True) + LogBestandTextMapper.writeToFile("Caché", $"- Opvragen van barcode nummer, retry: {retry}", True) Return nieuweTeller End Function - 'Opvragen barcode nummer voor test lade - Public Function geefTestLadeTrayNummer() As Integer - Dim query As String = "" - Dim teller, maxteller, minTeller, nieuweTeller As Integer + ''' + ''' Opslaan van gegenereerde onderdeel door eerst het origineel op te vragen, bepaalde velden aan te passen, en dan te inserten. + ''' + ''' Het originele onderdeel. + ''' Het nieuwe onderdeel. + ''' Naam voor het nieuwe onderdeel. + Public Sub OpslaanGegenereerdeOnderdelen(origineelOnderdeel As ArdisData, nieuwOnderdeel As ArdisData, nieuwOnderdeelNaam As String) + LogBestandTextMapper.writeToFile("Cache", $"Opslaan van gegenereerde onderdeel aan de hand van oud bestaand onderdeel. Barcode bestaand onderdeel, barcode nieuw onderdeel: '{origineelOnderdeel.PartCalc}' '{nieuwOnderdeel.PartCalc}'") - Dim retry As Boolean = True - - LogBestandTextMapper.writeToFile("Caché", "- Opvragen van tray nummer, retry: " & retry) - Do While retry - LogBestandTextMapper.writeToFile("Caché", "Opvragen van alle tellers") - query = "select * from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers where label='TRAY'" - Try - executeIntoDataReader(query) - - dr.Read() - - teller = CInt(dr.Item("Teller")) - maxteller = CInt(dr.Item("MaxTeller")) - minTeller = CInt(dr.Item("MinTeller")) - Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opvragen van de tellers voor test lade tray nummer") - End Try - If teller > maxteller Then - nieuweTeller = minTeller - Else - nieuweTeller = teller + 1 - End If - - 'alleen uitvoeren als de verwerk optie aanstaat - If Configs.geefVerwerkStatus Then - - LogBestandTextMapper.writeToFile("Caché", "Opvragen van alle tellers", True) - - LogBestandTextMapper.writeToFile("Caché", "Updaten van de teller met de nieuwe teller: " & nieuweTeller) - query = "Update APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers set Teller=" & nieuweTeller & " where label='TRAY'" - executeCommand(query) - LogBestandTextMapper.writeToFile("Caché", "Updaten van de teller met de nieuwe teller: " & nieuweTeller, True) - - LogBestandTextMapper.writeToFile("Caché", "Opvragen van de geüpdate teller") - query = "select Teller from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers where label='TRAY'" - Try - executeIntoDataReader(query) - - dr.Read() - - teller = dr.Item("Teller") - Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opvragen van de nieuwe teller voor test lade tray nummer") - End Try - LogBestandTextMapper.writeToFile("Caché", "Opvragen van de geüpdate teller", True) - If nieuweTeller <> teller Then - If retry Then - retry = False - Else - Throw New Exception("Kan geen unieke tray nummer opvragen") - End If - Else - retry = False - End If - - Else 'er wordt niet verwerkt - retry = False - End If - Loop - - LogBestandTextMapper.writeToFile("Caché", "- Opvragen van tray nummer, retry: " & retry, True) - Return nieuweTeller - End Function - - 'Opslaan van gegenereerde onderdeel door eerst het origineel op te vragen en bepaalde velden aan te passen en dan te inserten - Public Sub opslaanGegenereerdeOnderdelen(origineelOnderdeel As ArdisData, nieuwOnderdeel As ArdisData, nieuwOnderdeelNaam As String) - LogBestandTextMapper.writeToFile("Cache", "Opslaan van gegenereerde onderdeel aan de hand van oud bestaand onderdeel, barcode bestaand onderdeel, barcode nieuw onderdeel: " & origineelOnderdeel.PartCalc & ", " & nieuwOnderdeel.PartCalc) - Dim query As String = "Insert into APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem (BatchID, DossierCode, DueOut, IsRework, Kar, MachineID, Onderdeel, PartijID, ProductID, SequentieNummer, StapNummer, TijdstipCreatie, TijdstipProductie, ToeleveringID, VerwerkingID) " query &= "select top 1 BatchID, DossierCode, DueOut, ?, Kar, MachineID, ?, PartijID, ProductID, SequentieNummer, ?, ?, ?, ToeleveringID, ? from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem where VerwerkingID=?" Try - Dim addCommand As New OdbcCommand - addCommand.CommandText = query - addCommand.Connection = SQLConnection + 'Commando initialiseren. + Dim addCommand As New OdbcCommand With { + .CommandText = query, + .Connection = _sqlConnection + } addCommand.Parameters.AddWithValue("@isReworkNieuw", OdbcType.VarChar).Value = False addCommand.Parameters.AddWithValue("@OnderdeelNieuw", OdbcType.VarChar).Value = nieuwOnderdeelNaam @@ -462,42 +554,15 @@ addCommand.Parameters.AddWithValue("@VerwerkingIDNieuw", OdbcType.VarChar).Value = nieuwOnderdeel.PartCalc addCommand.Parameters.AddWithValue("@VerwerkingIDOrigineel", OdbcType.VarChar).Value = origineelOnderdeel.PartCalc - connectToCache() - addCommand.ExecuteNonQuery() + 'Connecteren met Caché. + ConnectToCache() + 'Query uitvoeren. + Dim teller = addCommand.ExecuteNonQuery() Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het opslaan van de gegenereerde onderdelen in de caché databank" & vbNewLine & ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het opslaan van de gegenereerde onderdelen in de caché databank {vbNewLine}{ex.Message}") End Try - LogBestandTextMapper.writeToFile("Cache", "Opslaan van gegenereerde onderdeel aan de hand van oud bestaand onderdeel, barcode bestaand onderdeel, barcode nieuw onderdeel: " & origineelOnderdeel.PartCalc & ", " & nieuwOnderdeel.PartCalc, True) + LogBestandTextMapper.writeToFile("Cache", $"Opslaan van gegenereerde onderdeel aan de hand van oud bestaand onderdeel. Barcode bestaand onderdeel, barcode nieuw onderdeel: '{origineelOnderdeel.PartCalc}' '{nieuwOnderdeel.PartCalc}'", True) End Sub - 'Opvragen gegevens met barcodes voor voorraad aanvulling - Private Function geefDataReader(barcodes As List(Of String)) As OdbcDataReader - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met barcodes: " & String.Join(", ", barcodes.ToArray())) - - If barcodes Is Nothing OrElse barcodes.Count <= 1 Then - Throw New Exception("De lijst met barcodes om de OdbcDataReader op te vragen mag niet leeg zijn (minstens 2 elementen)") - End If - - Try - Dim builder As New StringBuilder - builder.Append("'").Append(barcodes.Item(0)).Append("'") - 'list omzetten in juiste formaat voor query - For Each barcode As String In barcodes.GetRange(1, barcodes.Count - 1) - builder.Append(", '").Append(barcode).Append("'") - Next - - Dim query As String = "Select BatchID, ToeleveringID, Klant.naam, log.dossiercode, Kar, log.VerwerkingID, Onderdeel, max(StapNummer) as Status, sum(IsRework) as Rework from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log join derde_klant.klant on klant.ID=$Piece(log.PartijID,'||',2) " - query &= "where log.VerwerkingID in (" & builder.ToString & ")" - 'query &= "where log.VerwerkingID in (" & "'RKV01990US02363D0', 'RKV01990US02363D1'" & ")" - query &= " group by BatchID, ToeleveringID,Klant.naam,log.VerwerkingID, log.dossiercode,Onderdeel, Kar order by BatchID, ToeleveringID, Kar" - - executeIntoDataReader(query) - Catch ex As Exception - Throw New Exception("Fout bij opvragen van OdbcDataReader met barcodes: " & String.Join(", ", barcodes.ToArray()) & vbNewLine & ex.Message) - End Try - LogBestandTextMapper.writeToFile("Caché", "Opvragen van OdbcDataReader met barcodes: " & String.Join(", ", barcodes.ToArray()), True) - Return dr - End Function - -End Module +End Module \ No newline at end of file Index: TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.Designer.vb (.../FormConfigsWijzigen.Designer.vb) (revision 1869) @@ -24,6 +24,7 @@ Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormConfigsWijzigen)) Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.ButtonDefaultConfigPath = New System.Windows.Forms.Button() Me.ButtonConfigPath = New System.Windows.Forms.Button() Me.TextBoxConfigPath = New System.Windows.Forms.TextBox() Me.Label3 = New System.Windows.Forms.Label() @@ -53,52 +54,64 @@ Me.TextBoxArdisPath = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.OpenFileDialog = New System.Windows.Forms.OpenFileDialog() - Me.ButtonDefaultConfigPath = New System.Windows.Forms.Button() - Me.GroupBox2.SuspendLayout() - Me.GroupBox1.SuspendLayout() - Me.TabControlHoofdConfigs.SuspendLayout() - Me.TabPage1.SuspendLayout() - Me.TabPage2.SuspendLayout() - Me.GroupBox5.SuspendLayout() - Me.GroupBox4.SuspendLayout() - Me.GroupBox3.SuspendLayout() - Me.SuspendLayout() + Me.GroupBox6 = New System.Windows.Forms.GroupBox() + Me.CheckBoxLogs = New System.Windows.Forms.CheckBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.GroupBox2.SuspendLayout + Me.GroupBox1.SuspendLayout + Me.TabControlHoofdConfigs.SuspendLayout + Me.TabPage1.SuspendLayout + Me.TabPage2.SuspendLayout + Me.GroupBox5.SuspendLayout + Me.GroupBox4.SuspendLayout + Me.GroupBox3.SuspendLayout + Me.GroupBox6.SuspendLayout + Me.SuspendLayout ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.ButtonDefaultConfigPath) Me.GroupBox2.Controls.Add(Me.ButtonConfigPath) Me.GroupBox2.Controls.Add(Me.TextBoxConfigPath) Me.GroupBox2.Controls.Add(Me.Label3) - Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) Me.GroupBox2.Location = New System.Drawing.Point(15, 15) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(797, 115) Me.GroupBox2.TabIndex = 5 - Me.GroupBox2.TabStop = False + Me.GroupBox2.TabStop = false Me.GroupBox2.Text = "Config pad" ' + 'ButtonDefaultConfigPath + ' + Me.ButtonDefaultConfigPath.Location = New System.Drawing.Point(668, 61) + Me.ButtonDefaultConfigPath.Name = "ButtonDefaultConfigPath" + Me.ButtonDefaultConfigPath.Size = New System.Drawing.Size(71, 26) + Me.ButtonDefaultConfigPath.TabIndex = 10 + Me.ButtonDefaultConfigPath.Text = "default" + Me.ButtonDefaultConfigPath.UseVisualStyleBackColor = true + ' 'ButtonConfigPath ' Me.ButtonConfigPath.Location = New System.Drawing.Point(745, 61) Me.ButtonConfigPath.Name = "ButtonConfigPath" Me.ButtonConfigPath.Size = New System.Drawing.Size(37, 26) Me.ButtonConfigPath.TabIndex = 8 Me.ButtonConfigPath.Text = "..." - Me.ButtonConfigPath.UseVisualStyleBackColor = True + Me.ButtonConfigPath.UseVisualStyleBackColor = true ' 'TextBoxConfigPath ' Me.TextBoxConfigPath.Location = New System.Drawing.Point(6, 61) Me.TextBoxConfigPath.Name = "TextBoxConfigPath" - Me.TextBoxConfigPath.ReadOnly = True + Me.TextBoxConfigPath.ReadOnly = true Me.TextBoxConfigPath.Size = New System.Drawing.Size(656, 26) Me.TextBoxConfigPath.TabIndex = 7 ' 'Label3 ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label3.AutoSize = true + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) Me.Label3.Location = New System.Drawing.Point(6, 41) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(112, 17) @@ -107,53 +120,53 @@ ' 'ButtonAnnuleren ' - Me.ButtonAnnuleren.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!) + Me.ButtonAnnuleren.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!) Me.ButtonAnnuleren.Location = New System.Drawing.Point(680, 472) Me.ButtonAnnuleren.Name = "ButtonAnnuleren" Me.ButtonAnnuleren.Size = New System.Drawing.Size(133, 39) Me.ButtonAnnuleren.TabIndex = 8 Me.ButtonAnnuleren.Text = "Annuleren" - Me.ButtonAnnuleren.UseVisualStyleBackColor = True + Me.ButtonAnnuleren.UseVisualStyleBackColor = true ' 'ButtonOpslaanHoofdConfigs ' - Me.ButtonOpslaanHoofdConfigs.Enabled = False - Me.ButtonOpslaanHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!) + Me.ButtonOpslaanHoofdConfigs.Enabled = false + Me.ButtonOpslaanHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!) Me.ButtonOpslaanHoofdConfigs.Location = New System.Drawing.Point(536, 438) Me.ButtonOpslaanHoofdConfigs.Name = "ButtonOpslaanHoofdConfigs" Me.ButtonOpslaanHoofdConfigs.Size = New System.Drawing.Size(133, 39) Me.ButtonOpslaanHoofdConfigs.TabIndex = 7 Me.ButtonOpslaanHoofdConfigs.Text = "Opslaan" - Me.ButtonOpslaanHoofdConfigs.UseVisualStyleBackColor = True + Me.ButtonOpslaanHoofdConfigs.UseVisualStyleBackColor = true ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.CheckBoxVerwerk) Me.GroupBox1.Controls.Add(Me.Label1) - Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.GroupBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) Me.GroupBox1.Location = New System.Drawing.Point(15, 136) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(797, 115) Me.GroupBox1.TabIndex = 9 - Me.GroupBox1.TabStop = False + Me.GroupBox1.TabStop = false Me.GroupBox1.Text = "Verwerk status" ' 'CheckBoxVerwerk ' - Me.CheckBoxVerwerk.AutoSize = True - Me.CheckBoxVerwerk.Checked = True + Me.CheckBoxVerwerk.AutoSize = true + Me.CheckBoxVerwerk.Checked = true Me.CheckBoxVerwerk.CheckState = System.Windows.Forms.CheckState.Checked Me.CheckBoxVerwerk.Location = New System.Drawing.Point(9, 61) Me.CheckBoxVerwerk.Name = "CheckBoxVerwerk" Me.CheckBoxVerwerk.Size = New System.Drawing.Size(86, 24) Me.CheckBoxVerwerk.TabIndex = 3 Me.CheckBoxVerwerk.Text = "Verwerk" - Me.CheckBoxVerwerk.UseVisualStyleBackColor = True + Me.CheckBoxVerwerk.UseVisualStyleBackColor = true ' 'Label1 ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label1.AutoSize = true + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) Me.Label1.Location = New System.Drawing.Point(6, 41) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(444, 17) @@ -162,12 +175,12 @@ ' 'TabControlHoofdConfigs ' - Me.TabControlHoofdConfigs.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.TabControlHoofdConfigs.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) Me.TabControlHoofdConfigs.Controls.Add(Me.TabPage1) Me.TabControlHoofdConfigs.Controls.Add(Me.TabPage2) - Me.TabControlHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!) + Me.TabControlHoofdConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!) Me.TabControlHoofdConfigs.Location = New System.Drawing.Point(1, 0) Me.TabControlHoofdConfigs.Name = "TabControlHoofdConfigs" Me.TabControlHoofdConfigs.SelectedIndex = 0 @@ -178,6 +191,7 @@ 'TabPage1 ' Me.TabPage1.BackColor = System.Drawing.Color.White + Me.TabPage1.Controls.Add(Me.GroupBox6) Me.TabPage1.Controls.Add(Me.GroupBox2) Me.TabPage1.Controls.Add(Me.GroupBox1) Me.TabPage1.Controls.Add(Me.ButtonOpslaanHoofdConfigs) @@ -204,26 +218,26 @@ ' 'ButtonOpslaanAlgemeneConfigs ' - Me.ButtonOpslaanAlgemeneConfigs.Enabled = False - Me.ButtonOpslaanAlgemeneConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!) + Me.ButtonOpslaanAlgemeneConfigs.Enabled = false + Me.ButtonOpslaanAlgemeneConfigs.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!) Me.ButtonOpslaanAlgemeneConfigs.Location = New System.Drawing.Point(536, 438) Me.ButtonOpslaanAlgemeneConfigs.Name = "ButtonOpslaanAlgemeneConfigs" Me.ButtonOpslaanAlgemeneConfigs.Size = New System.Drawing.Size(133, 39) Me.ButtonOpslaanAlgemeneConfigs.TabIndex = 14 Me.ButtonOpslaanAlgemeneConfigs.Text = "Opslaan" - Me.ButtonOpslaanAlgemeneConfigs.UseVisualStyleBackColor = True + Me.ButtonOpslaanAlgemeneConfigs.UseVisualStyleBackColor = true ' 'GroupBox5 ' Me.GroupBox5.Controls.Add(Me.ButtonHulpPDFPath) Me.GroupBox5.Controls.Add(Me.TextBoxHulpPDFPath) Me.GroupBox5.Controls.Add(Me.Label5) - Me.GroupBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.GroupBox5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) Me.GroupBox5.Location = New System.Drawing.Point(15, 310) Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.Size = New System.Drawing.Size(797, 110) Me.GroupBox5.TabIndex = 13 - Me.GroupBox5.TabStop = False + Me.GroupBox5.TabStop = false Me.GroupBox5.Text = "Hulp PDF" ' 'ButtonHulpPDFPath @@ -233,20 +247,20 @@ Me.ButtonHulpPDFPath.Size = New System.Drawing.Size(37, 26) Me.ButtonHulpPDFPath.TabIndex = 8 Me.ButtonHulpPDFPath.Text = "..." - Me.ButtonHulpPDFPath.UseVisualStyleBackColor = True + Me.ButtonHulpPDFPath.UseVisualStyleBackColor = true ' 'TextBoxHulpPDFPath ' Me.TextBoxHulpPDFPath.Location = New System.Drawing.Point(6, 61) Me.TextBoxHulpPDFPath.Name = "TextBoxHulpPDFPath" - Me.TextBoxHulpPDFPath.ReadOnly = True + Me.TextBoxHulpPDFPath.ReadOnly = true Me.TextBoxHulpPDFPath.Size = New System.Drawing.Size(725, 26) Me.TextBoxHulpPDFPath.TabIndex = 7 ' 'Label5 ' - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label5.AutoSize = true + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) Me.Label5.Location = New System.Drawing.Point(6, 41) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(145, 17) @@ -258,12 +272,12 @@ Me.GroupBox4.Controls.Add(Me.ButtonPrinterBacklogPath) Me.GroupBox4.Controls.Add(Me.TextBoxPrinterBacklogPath) Me.GroupBox4.Controls.Add(Me.Label6) - Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.GroupBox4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) Me.GroupBox4.Location = New System.Drawing.Point(16, 194) Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Size = New System.Drawing.Size(797, 110) Me.GroupBox4.TabIndex = 12 - Me.GroupBox4.TabStop = False + Me.GroupBox4.TabStop = false Me.GroupBox4.Text = "Backlog" ' 'ButtonPrinterBacklogPath @@ -273,20 +287,20 @@ Me.ButtonPrinterBacklogPath.Size = New System.Drawing.Size(37, 26) Me.ButtonPrinterBacklogPath.TabIndex = 8 Me.ButtonPrinterBacklogPath.Text = "..." - Me.ButtonPrinterBacklogPath.UseVisualStyleBackColor = True + Me.ButtonPrinterBacklogPath.UseVisualStyleBackColor = true ' 'TextBoxPrinterBacklogPath ' Me.TextBoxPrinterBacklogPath.Location = New System.Drawing.Point(6, 61) Me.TextBoxPrinterBacklogPath.Name = "TextBoxPrinterBacklogPath" - Me.TextBoxPrinterBacklogPath.ReadOnly = True + Me.TextBoxPrinterBacklogPath.ReadOnly = true Me.TextBoxPrinterBacklogPath.Size = New System.Drawing.Size(724, 26) Me.TextBoxPrinterBacklogPath.TabIndex = 7 ' 'Label6 ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label6.AutoSize = true + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) Me.Label6.Location = New System.Drawing.Point(6, 41) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(253, 17) @@ -301,12 +315,12 @@ Me.GroupBox3.Controls.Add(Me.ButtonArdisPath) Me.GroupBox3.Controls.Add(Me.TextBoxArdisPath) Me.GroupBox3.Controls.Add(Me.Label2) - Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!) + Me.GroupBox3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) Me.GroupBox3.Location = New System.Drawing.Point(15, 15) Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.Size = New System.Drawing.Size(797, 173) Me.GroupBox3.TabIndex = 6 - Me.GroupBox3.TabStop = False + Me.GroupBox3.TabStop = false Me.GroupBox3.Text = "Ardis en Bartender" ' 'ButtonBartenderPath @@ -316,20 +330,20 @@ Me.ButtonBartenderPath.Size = New System.Drawing.Size(37, 26) Me.ButtonBartenderPath.TabIndex = 11 Me.ButtonBartenderPath.Text = "..." - Me.ButtonBartenderPath.UseVisualStyleBackColor = True + Me.ButtonBartenderPath.UseVisualStyleBackColor = true ' 'TextBoxBartenderPath ' Me.TextBoxBartenderPath.Location = New System.Drawing.Point(6, 128) Me.TextBoxBartenderPath.Name = "TextBoxBartenderPath" - Me.TextBoxBartenderPath.ReadOnly = True + Me.TextBoxBartenderPath.ReadOnly = true Me.TextBoxBartenderPath.Size = New System.Drawing.Size(724, 26) Me.TextBoxBartenderPath.TabIndex = 10 ' 'Label4 ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label4.AutoSize = true + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) Me.Label4.Location = New System.Drawing.Point(6, 108) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(137, 17) @@ -343,20 +357,20 @@ Me.ButtonArdisPath.Size = New System.Drawing.Size(37, 26) Me.ButtonArdisPath.TabIndex = 8 Me.ButtonArdisPath.Text = "..." - Me.ButtonArdisPath.UseVisualStyleBackColor = True + Me.ButtonArdisPath.UseVisualStyleBackColor = true ' 'TextBoxArdisPath ' Me.TextBoxArdisPath.Location = New System.Drawing.Point(6, 61) Me.TextBoxArdisPath.Name = "TextBoxArdisPath" - Me.TextBoxArdisPath.ReadOnly = True + Me.TextBoxArdisPath.ReadOnly = true Me.TextBoxArdisPath.Size = New System.Drawing.Size(724, 26) Me.TextBoxArdisPath.TabIndex = 7 ' 'Label2 ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label2.AutoSize = true + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) Me.Label2.Location = New System.Drawing.Point(6, 41) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(185, 17) @@ -367,41 +381,68 @@ ' Me.OpenFileDialog.FileName = "OpenFileDialog1" ' - 'ButtonDefault + 'GroupBox6 ' - Me.ButtonDefaultConfigPath.Location = New System.Drawing.Point(668, 61) - Me.ButtonDefaultConfigPath.Name = "ButtonDefault" - Me.ButtonDefaultConfigPath.Size = New System.Drawing.Size(71, 26) - Me.ButtonDefaultConfigPath.TabIndex = 10 - Me.ButtonDefaultConfigPath.Text = "default" - Me.ButtonDefaultConfigPath.UseVisualStyleBackColor = True + Me.GroupBox6.Controls.Add(Me.CheckBoxLogs) + Me.GroupBox6.Controls.Add(Me.Label7) + Me.GroupBox6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12!) + Me.GroupBox6.Location = New System.Drawing.Point(15, 257) + Me.GroupBox6.Name = "GroupBox6" + Me.GroupBox6.Size = New System.Drawing.Size(797, 115) + Me.GroupBox6.TabIndex = 10 + Me.GroupBox6.TabStop = false + Me.GroupBox6.Text = "Logs" ' + 'CheckBoxLogs + ' + Me.CheckBoxLogs.AutoSize = true + Me.CheckBoxLogs.Checked = true + Me.CheckBoxLogs.CheckState = System.Windows.Forms.CheckState.Checked + Me.CheckBoxLogs.Location = New System.Drawing.Point(9, 61) + Me.CheckBoxLogs.Name = "CheckBoxLogs" + Me.CheckBoxLogs.Size = New System.Drawing.Size(123, 24) + Me.CheckBoxLogs.TabIndex = 3 + Me.CheckBoxLogs.Text = "Logs opslaan" + Me.CheckBoxLogs.UseVisualStyleBackColor = true + ' + 'Label7 + ' + Me.Label7.AutoSize = true + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 10!) + Me.Label7.Location = New System.Drawing.Point(6, 41) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(255, 17) + Me.Label7.TabIndex = 2 + Me.Label7.Text = "Bepalen of er logs worden opgeslagen:" + ' 'FormConfigsWijzigen ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(836, 529) Me.Controls.Add(Me.ButtonAnnuleren) Me.Controls.Add(Me.TabControlHoofdConfigs) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) Me.Name = "FormConfigsWijzigen" Me.Text = "TAOR rework - Configs wijzigen" - Me.GroupBox2.ResumeLayout(False) - Me.GroupBox2.PerformLayout() - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - Me.TabControlHoofdConfigs.ResumeLayout(False) - Me.TabPage1.ResumeLayout(False) - Me.TabPage2.ResumeLayout(False) - Me.GroupBox5.ResumeLayout(False) - Me.GroupBox5.PerformLayout() - Me.GroupBox4.ResumeLayout(False) - Me.GroupBox4.PerformLayout() - Me.GroupBox3.ResumeLayout(False) - Me.GroupBox3.PerformLayout() - Me.ResumeLayout(False) + Me.GroupBox2.ResumeLayout(false) + Me.GroupBox2.PerformLayout + Me.GroupBox1.ResumeLayout(false) + Me.GroupBox1.PerformLayout + Me.TabControlHoofdConfigs.ResumeLayout(false) + Me.TabPage1.ResumeLayout(false) + Me.TabPage2.ResumeLayout(false) + Me.GroupBox5.ResumeLayout(false) + Me.GroupBox5.PerformLayout + Me.GroupBox4.ResumeLayout(false) + Me.GroupBox4.PerformLayout + Me.GroupBox3.ResumeLayout(false) + Me.GroupBox3.PerformLayout + Me.GroupBox6.ResumeLayout(false) + Me.GroupBox6.PerformLayout + Me.ResumeLayout(false) - End Sub +End Sub Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents ButtonConfigPath As System.Windows.Forms.Button Friend WithEvents TextBoxConfigPath As System.Windows.Forms.TextBox @@ -433,4 +474,7 @@ Friend WithEvents ButtonOpslaanAlgemeneConfigs As System.Windows.Forms.Button Friend WithEvents OpenFileDialog As System.Windows.Forms.OpenFileDialog Friend WithEvents ButtonDefaultConfigPath As System.Windows.Forms.Button + Friend WithEvents GroupBox6 As GroupBox + Friend WithEvents CheckBoxLogs As CheckBox + Friend WithEvents Label7 As Label End Class Index: TAOR rework/TAOR rework/Rework/HoofdAansturingRework.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Rework/HoofdAansturingRework.vb (.../HoofdAansturingRework.vb) (revision 1513) +++ TAOR rework/TAOR rework/Rework/HoofdAansturingRework.vb (.../HoofdAansturingRework.vb) (revision 1869) @@ -1,133 +1,47 @@ -Public Class HoofdAansturingRework - Private productieDatas As New List(Of ZijkamerFreesProductieData) - Private productieData As ZijkamerFreesProductieData + +Public Class HoofdAansturingRework + Private _productieData As ZijkamerFreesProductieData + Private ReadOnly _productieDatas As New List(Of ZijkamerFreesProductieData) - Private Sub MaakFreesOpdrachtInReworkTray(ByVal barcodeID As String, ByVal linksOfRechts As String, ByVal nieuwTrayNummer As String, ByVal slotNr As String, ByVal voorVoorraad As Boolean, etiketTekst As String, Optional barcodeID2 As String = "", Optional andereZijkantLinksOfRechts As String = "") + 'TODO Code opkuisen voor rework trays (normale reworks) +#Region "Rework tray (normale reworks)" + + Public Sub VerwerkTray(tray As ReworkTray) Try - productieData = AutomillingMapper.OphalenUitProductie(barcodeID) - If productieData Is Nothing Then - productieData = AutomillingMapper.OphalenUitHistoriek(barcodeID) - If productieData Is Nothing Then - Throw New Exception("De productieData kon niet worden opgehaald uit automiling met barcode: " & barcodeID) - End If - End If + For Each slot As Slot In tray.geefNietLegeSlots + If slot.zijkanten.Count > 0 Then - 'als het een uit een paar is updaten met de informatie uit de andere van het paar - If barcodeID2.Equals("") Then - productieData.aanpassenData(linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst) - Else - Dim productieDataAndere As ZijkamerFreesProductieData - productieDataAndere = AutomillingMapper.OphalenUitProductie(barcodeID2) - If productieDataAndere Is Nothing Then - productieDataAndere = AutomillingMapper.OphalenUitHistoriek(barcodeID2) - If productieDataAndere Is Nothing Then - Throw New Exception("De productieData kon niet worden opgehaald uit automiling met barcode: " & barcodeID) - End If + OpslaanInAutomilling() + + For Each zijkant As Rework In slot.zijkanten + 'de opdracht resetten in de afkanter + ResetOpdrachtAfkanter(zijkant.barcode) + Next + + 'als het een paar is de andere van het paar verwijderen + slot.verwijderTweedeVanPaar() + End If - productieData.aanpassenData(linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst, productieDataAndere, andereZijkantLinksOfRechts) - End If - productieDatas.Add(productieData.ShallowCopy) + Next Catch ex As Exception Throw ex End Try End Sub - Private Sub opslaanInAutomilling() - For Each data As ZijkamerFreesProductieData In productieDatas + Private Sub OpslaanInAutomilling() + For Each data As ZijkamerFreesProductieData In _productieDatas If data Is Nothing Then - productieDatas.Clear() + _productieDatas.Clear() Throw New Exception("Automilling data mag niet Nothing zijn om op te slaan") End If 'kijken of het wel moet worden opgeslagen If Configs.geefVerwerkStatus Then AutomillingMapper.opslaan(data) End If Next - productieDatas.Clear() + _productieDatas.Clear() End Sub - Private Sub HerzagenOnderdelen(rework As Rework, Optional trayNummer As String = "", Optional slotNummer As String = "") - Try - If rework.opslaanArdis Then - If rework.onderdeel.ToLower.Contains("zijkant") Then - Dim LinksEnOfRechts As String = rework.onderdeel.ToLower.Replace("zijkant", "").Replace("i", "").Replace("e", "").Trim.ToUpper - If LinksEnOfRechts.Equals("L") Or LinksEnOfRechts.Equals("LR") Then - HerzaagZijkant(rework, "L", trayNummer, slotNummer) - End If - If LinksEnOfRechts.Equals("R") Or LinksEnOfRechts.Equals("LR") Then - HerzaagZijkant(rework, "R", trayNummer, slotNummer) - End If - If LinksEnOfRechts.Equals("") Then - HerzaagZijkant(rework, "", trayNummer, slotNummer) - End If - Else - HerzaagOnderdeel(rework.barcode) - End If - End If - Catch ex As Exception - Throw ex - End Try - End Sub - - Private Sub HerzaagZijkant(rework As Rework, linksOfRechts As String, trayNummer As String, slotNummer As String) - Try - Dim ardisData As ArdisData = ArdisMapper.OphalenData(rework.barcode) - If ardisData Is Nothing Then - Throw New Exception("Ardisdata kon niet worden opgevraagd voor rework met barcode: " & rework.barcode) - End If - 'als het een speciale zijkant is moeten we het corresponderende plankje vinden, aka A of B - Dim barcodes As List(Of String) - If Not (ardisData.isSpecialGegenereerd()) Then - barcodes = ArdisMapper.geefBarcode(ardisData.PartGroup, ardisData.PartExt02, ardisData.PartL, linksOfRechts) - Else - barcodes = ArdisMapper.geefBarcodeGegenereerdePlankjes(ardisData.PartGroup, ardisData.PartExt02, ardisData.PartL) - End If - - If barcodes Is Nothing Then - Throw New Exception("Er is iets foutgelopen bij het ophalen van de barcodes van de zijkanten uit de Ardis databank") - ElseIf barcodes.Count > 2 Then - Throw New Exception("Er zijn teveel barcodes gevonden bij het ophalen van de barcodes van de zijkanten uit de Ardis databank, Partgroup, PartExt02: " & ardisData.PartGroup & ", " & ardisData.PartExt02) - End If - For Each barcode In barcodes - HerzaagOnderdeel(barcode, trayNummer, slotNummer) - Next - Catch ex As Exception - Throw ex - End Try - End Sub - - Private Sub HerzaagOnderdeel(ByVal BarcodeID As String, Optional trayNummer As String = "", Optional slotNummer As String = "") - Try - Dim ardisData As ArdisData = ArdisMapper.OphalenData(BarcodeID) - ardisData.aanpassenDataRework() - 'kijken of het wel moet worden opgeslagen - If Configs.geefVerwerkStatus Then - ArdisTextMapper.opslaan(ItemType.REWORK, ardisData, trayNummer, slotNummer) - End If - Catch ex As Exception - Throw ex - End Try - End Sub - - 'Private Sub ResetOpdrachtStemas(ByVal BarcodeID) - ' Dim controle As Boolean = StemasCMapper.bestaatBarcode(BarcodeID) - ' If Not controle Then - ' Dim stemasData As StemasData = StemasCMapper.OphalenData(BarcodeID) - ' StemasCMapper.Opslaan(stemasData) - ' End If - 'End Sub - - Private Sub resetOpdrachtAfkanter(ByVal barcodeID As String) - Try - 'kijken of het wel moet worden opgeslagen - If Configs.geefVerwerkStatus Then - KantenbandMapper.resetOpdracht(barcodeID) - End If - Catch ex As Exception - Throw ex - End Try - End Sub - Public Sub updateTray(tray As ReworkTray) Try For Each slot As Slot In tray.geefNietLegeSlots @@ -146,72 +60,215 @@ slot.updateReworkOnderdeel() 'waarden in de rework invullen - slot.zijkanten(0).color = If(slot.type = SlotType.dubbel, productieData.colorDubbel, productieData.colorEnkel) - slot.zijkanten(0).length = productieData.length - slot.zijkanten(0).height = productieData.height + slot.zijkanten(0).color = If(slot.type = SlotType.dubbel, _productieData.colorDubbel, _productieData.colorEnkel) + slot.zijkanten(0).length = _productieData.length + slot.zijkanten(0).height = _productieData.height 'In ARDIS per zijkant twee planken zagen (er moet maar 1 zijkant worden meegegeven, onderdeel is naar LR gezet) - HerzagenOnderdelen(slot.zijkanten(0), tray.nummer, slot.nummer) + HerzaagRework(slot.zijkanten(0), tray.nummer, slot.nummer) End If Next Catch ex As Exception Throw ex End Try End Sub - Public Sub verwerkTray(tray As ReworkTray) + Private Sub MaakFreesOpdrachtInReworkTray(ByVal barcodeID As String, ByVal linksOfRechts As String, ByVal nieuwTrayNummer As String, ByVal slotNr As String, ByVal voorVoorraad As Boolean, etiketTekst As String, Optional barcodeID2 As String = "", Optional andereZijkantLinksOfRechts As String = "") Try - For Each slot As Slot In tray.geefNietLegeSlots - If slot.zijkanten.Count > 0 Then + _productieData = AutomillingMapper.OphalenUitProductie(barcodeID) + If _productieData Is Nothing Then + _productieData = AutomillingMapper.OphalenUitHistoriek(barcodeID) + If _productieData Is Nothing Then + Throw New Exception("De productieData kon niet worden opgehaald uit automiling met barcode: " & barcodeID) + End If + End If - opslaanInAutomilling() - - For Each zijkant As Rework In slot.zijkanten - 'de opdracht resetten in de afkanter - resetOpdrachtAfkanter(zijkant.barcode) - Next - - 'als het een paar is de andere van het paar verwijderen - slot.verwijderTweedeVanPaar() - + 'als het een uit een paar is updaten met de informatie uit de andere van het paar + If barcodeID2.Equals("") Then + _productieData.aanpassenData(linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst) + Else + Dim productieDataAndere As ZijkamerFreesProductieData + productieDataAndere = AutomillingMapper.OphalenUitProductie(barcodeID2) + If productieDataAndere Is Nothing Then + productieDataAndere = AutomillingMapper.OphalenUitHistoriek(barcodeID2) + If productieDataAndere Is Nothing Then + Throw New Exception("De productieData kon niet worden opgehaald uit automiling met barcode: " & barcodeID) + End If End If - Next + _productieData.aanpassenData(linksOfRechts, nieuwTrayNummer, slotNr, voorVoorraad, etiketTekst, productieDataAndere, andereZijkantLinksOfRechts) + End If + _productieDatas.Add(_productieData.ShallowCopy) Catch ex As Exception Throw ex End Try End Sub - Public Sub verwerkRug(rug As Rework) +#End Region + +#Region "Special rework" + + Public Sub VerwerkRug(rug As Rework) + 'Naar Ardis sturen. + HerzaagRework(rug) + 'De opdracht resetten in de afkanter. + ResetOpdrachtAfkanter(rug.barcode) + End Sub + + Public Sub VerwerkFront(front As Rework) + 'Naar Ardis sturen. + HerzaagRework(front) + 'De opdracht resetten in de afkanter. + ResetOpdrachtAfkanter(front.barcode) + End Sub + + Public Sub VerwerkBodem(bodem As Rework) + 'Naar Ardis sturen. + HerzaagRework(bodem) + 'Productie tabel wordt nooit gewist op stemasC en insert moet dus niet worden uitgevoerd. + End Sub + +#End Region + + ''' + ''' Herzagen van het de rework. + ''' + ''' De rework die zal herzaagt worden. + Private Shared Sub HerzaagRework(rework As Rework) + 'Andere functie aanroepen met lege tray- en slotnummer. + HerzaagRework(rework, String.Empty, String.Empty) + End Sub + + ''' + ''' Bepalen hoe de rework verwerkt moet worden, afhankelijk of het een zijkant is of niet. + ''' Indien het een zijkant is wordt gekeken of het links of rechts is. + ''' + ''' De rework die zal herzaagt worden. + ''' De traynummer. + ''' Het slotnummer. + Private Shared Sub HerzaagRework(rework As Rework, trayNummer As String, slotNummer As String) + 'Controleer of het wel moet worden opgeslagen in Ardis. + If Not rework.opslaanArdis Then Return + + 'Zo ja, controleer of het onderdeel geen zijkant is. + If Not rework.onderdeel.ToLower.Contains("zijkant") Then + 'Reworks van niet-zijkanten worden herzaagt aan de hand van hun barcode. + HerzaagOnderdeelMetBarcode(rework.barcode) + Else + 'Voor zijkanten wordt gekeken of het links, rechts, beide of gewoon een zijkant is. + 'Waarde ziet er uit als 'ZIJKANT', 'ZIJKANT LI' of 'ZIJKANT LIS' + Dim linksEnOfRechts As String = rework.onderdeel.ToUpper() + + 'Kijk of het een normale zijkant is. + If Not linksEnOfRechts.Contains("L") And Not linksEnOfRechts.Contains("R") Then + 'Gewone zijkant zonder type. + HerzaagZijkant(rework, "", trayNummer, slotNummer) + Else + 'Kijk of het een LR zijkant is. + If linksEnOfRechts.Contains("LR") Then + 'Zo ja, Herzaag zowel voor links als voor rechts. + HerzaagZijkant(rework, "L", trayNummer, slotNummer) + HerzaagZijkant(rework, "R", trayNummer, slotNummer) + ElseIf linksEnOfRechts.Contains("L") Then + 'Herzaag links. + HerzaagZijkant(rework, "L", trayNummer, slotNummer) + ElseIf linksEnOfRechts.Contains("R") Then + 'Herzaag rechts. + HerzaagZijkant(rework, "R", trayNummer, slotNummer) + Else + Throw New Exception($"Kon zijkant niet zagen, onbekende oriëntatie (correct is LR L en R): '{linksEnOfRechts}'.") + End If + End If + End If + End Sub + + ''' + ''' Hulpfunctie voor het herzagen van zijkant reworks. + ''' + ''' De rework. + ''' Type zijkant: L; R; LR + ''' Het traynummer. + ''' Het slotnummer. + Private Shared Sub HerzaagZijkant(rework As Rework, linksOfRechts As String, trayNummer As String, slotNummer As String) Try - 'naar Ardis sturen - HerzagenOnderdelen(rug) - 'de opdracht resetten in de afkanter - resetOpdrachtAfkanter(rug.barcode) + 'Ophalen van de ArdisData met de barcode. + Dim ardisData As ArdisData = ArdisMapper.OphalenData(rework.barcode) + 'Controleren of de Ardisdata niet leeg is. + If ardisData Is Nothing Then + Throw New Exception($"Ardisdata kon niet worden opgevraagd voor zijkant rework met barcode: {rework.barcode}.") + End If + + Dim barcodes As ICollection(Of String) + 'Controleren of het een speciaal gegenereerd plankje is. + If Not (ardisData.isSpecialGegenereerd()) Then + 'Zo neen, de barcodes ophalen aan de hand van de data. + barcodes = ArdisMapper.GeefBarcodes(ardisData.PartGroup, ardisData.PartExt02, ardisData.PartL, linksOfRechts) + Else + 'Als het een speciale zijkant is moeten we het corresponderende plankje vinden, aka A of B + barcodes = ArdisMapper.GeefBarcodesGegenereerdePlankjes(ardisData.PartGroup, ardisData.PartExt02, ardisData.PartL) + End If + + 'Lijst van barcodes controleren. + If barcodes Is Nothing AndAlso Not barcodes.Count = 0 Then + 'Lijst met barcodes mag niet null of leeg zijn. + Throw New Exception("Er is iets foutgelopen bij het ophalen van de barcodes van de zijkanten uit de Ardis databank, Partgroup='{ardisData.PartGroup}', 'PartExt02={ardisData.PartExt02}', PartL='{ardisData.PartL}'.") + ElseIf barcodes.Count > 2 Then + 'Lijst met barcodes mag niet meer dan twee items bevatten. + Throw New Exception($"Er zijn teveel barcodes gevonden bij het ophalen van de barcodes van de zijkanten uit de Ardis databank, Partgroup='{ardisData.PartGroup}', 'PartExt02={ardisData.PartExt02}', PartL='{ardisData.PartL}'.") + End If + + 'Elke barcode overlopen en laten verwerken. + For Each barcode In barcodes + HerzaagOnderdeelMetBarcode(barcode, trayNummer, slotNummer) + Next Catch ex As Exception - Throw ex + Throw New Exception($"Kon rework zijkant niet herzagen.{vbNewLine}{ex.Message}") End Try End Sub - Public Sub verwerkFront(front As Rework) + ''' + ''' De opdracht resetten in de afkanter. + ''' + ''' De barcode van het onderdeel. + Private Shared Sub ResetOpdrachtAfkanter(ByVal barcodeId As String) Try - 'naar Ardis sturen - HerzagenOnderdelen(front) - 'de opdracht resetten in de afkanter - resetOpdrachtAfkanter(front.barcode) + 'Kijken of het wel moet worden verwerkt. + If Configs.geefVerwerkStatus Then + KantenbandMapper.resetOpdracht(barcodeId) + End If Catch ex As Exception - Throw ex + Throw New Exception($"De opdracht van de rework met barcode '{barcodeId}' kon niet gereset worden in de kantenband.") End Try End Sub - Public Sub verwerkBodem(bodem As Rework) + ''' + ''' Herzagen van een onderdeel aan de hand van een barcode. + ''' + ''' De barcode van het onderdeel. + Private Shared Sub HerzaagOnderdeelMetBarcode(ByVal barcodeId As String) + 'Aanroepen functie met lege tray- en slotnummer + HerzaagOnderdeelMetBarcode(barcodeId, String.Empty, String.Empty) + End Sub + + ''' + ''' Herzagen van een onderdeel aan de hand van een barcode. + ''' + ''' De barcode van het onderdeel. + ''' Het traynummer. + ''' Het slotnummer. + Private Shared Sub HerzaagOnderdeelMetBarcode(ByVal barcodeId As String, trayNummer As String, slotNummer As String) Try - 'naar Ardis sturen - HerzagenOnderdelen(bodem) - 'productie tabel wordt nooit gewist op stemasC en insert moet dus niet worden uitgevoerd - ' ResetOpdrachtStemas(bodem.barcode) + 'Opvragen van de ardisdata met de barcode. + Dim ardisData As ArdisData = ArdisMapper.OphalenData(barcodeId) + 'Updaten van de data. + ardisData.aanpassenDataRework() + + 'Kijken of het wel moet worden opgeslagen. + If Configs.geefVerwerkStatus Then + ArdisTextMapper.opslaan(ItemType.REWORK, ardisData, trayNummer, slotNummer) + End If Catch ex As Exception - Throw ex + Throw New Exception($"Kon onderdeel met barcode '{barcodeId}' niet herzagen. {vbNewLine}{ex.Message}") End Try End Sub -End Class +End Class \ No newline at end of file Index: TAOR rework/TAOR rework/Rework/ReworkRepository.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Rework/ReworkRepository.vb (.../ReworkRepository.vb) (revision 1513) +++ TAOR rework/TAOR rework/Rework/ReworkRepository.vb (.../ReworkRepository.vb) (revision 1869) @@ -73,7 +73,7 @@ Throw New Exception("De barcode '" & rework.barcode & "' werd niet gevonden in Ardis") End If If Not (ardisData.isSpecialGegenereerd()) Then - CacheMapper.updateRework(rework) + CacheMapper.UpdateRework(rework) Else 'de rework bestaat uit een gegenereerde plank, dus we moeten de barcode van de buitenste (originele) gebruiken om deze te updaten Dim barcodes As List(Of String) = ArdisMapper.geefBarcodeOrigineleBijGegenereerdePlankjes(ardisData.PartGroup, ardisData.PartExt02, ardisData.PartL) @@ -87,26 +87,24 @@ For index = 0 To barcodes.Count - 1 Dim ardisdataLinksOfRechts As ArdisData = ArdisMapper.OphalenData(barcodes(index)) If ardisdataLinksOfRechts.geefLinksOfRechts().Equals(rework.geefLinksOfRechts()) Then - If CacheMapper.geefdatareader(Kolommen.barcode, barcodes(index)).HasRows() Then - CacheMapper.updateRework(rework, barcodes(index)) + If CacheMapper.GeefDataTable(Kolommen.barcode, barcodes(index)).Rows.Count > 0 Then + CacheMapper.UpdateRework(rework, barcodes(index)) Exit For End If End If Next End If Next - CacheMapper.sluitDataReader() End Sub Public Sub slaAlleReworkRedenenOp() For Each rework As Rework In _reworks Dim ardisData As ArdisData = ArdisMapper.OphalenData(rework.barcode) If Not (ardisData.isSpecialGegenereerd()) Then - CacheMapper.opslaanReworkReden(rework) + CacheMapper.OpslaanReworkReden(rework) End If Next - CacheMapper.sluitDataReader() End Sub -End Class +End Class \ No newline at end of file Index: TAOR rework/TAOR rework/laden/special laden/SpecialLade.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/laden/special laden/SpecialLade.vb (.../SpecialLade.vb) (revision 1513) +++ TAOR rework/TAOR rework/laden/special laden/SpecialLade.vb (.../SpecialLade.vb) (revision 1869) @@ -171,7 +171,7 @@ ' Case GetType(SpecialLadeDiepereZijkant) ' Return ItemType.DIEPEREZIJKANT ' Case GetType(SpecialLadeHogereZijkant) - ' Return ItemType.HOGEREZIJKANT + ' Return ItemType.HogereZijkant ' Case GetType(SpecialLadeNieuweKleur) ' Return ItemType.NIEUWEKLEUR ' Case GetType(SifonLade) Index: TAOR rework/TAOR rework/TAOR rework.vbproj =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1592) +++ TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1869) @@ -30,7 +30,7 @@ Robin De Bock false 1 - 5.0.6.%2a + 6.0.4.%2a false true true @@ -110,6 +110,7 @@ + FormConfigsWijzigen.vb @@ -145,6 +146,12 @@ Form + + FormReworkAutomilling.vb + + + Form + FormStalen.vb @@ -161,12 +168,41 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - + FormLabel.vb @@ -191,10 +227,10 @@ Form - - FormSifonEnSpoelbakLade.vb + + FormSifonLade.vb - + Form @@ -205,7 +241,19 @@ - + + + + + + + + + + + + + Form @@ -237,20 +285,19 @@ - - + + - + - - - + + + - - + - + @@ -260,7 +307,6 @@ Form - @@ -269,6 +315,7 @@ + @@ -308,9 +355,12 @@ FormSelectID.vb - - FormSifonEnSpoelbakLade.vb + + FormReworkAutomilling.vb + + FormSifonLade.vb + FormStalen.vb Index: TAOR rework/TAOR rework/formulieren/FormSelectID.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormSelectID.vb (.../FormSelectID.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormSelectID.vb (.../FormSelectID.vb) (revision 1869) @@ -36,7 +36,6 @@ 'als het form wordt geactiveerd en er is al een instantie van form grid aanwezig, betekent dit dat formgrid dit form heeft getoond Private Sub FormSelectID_VisibleChanged(sender As Object, e As System.EventArgs) Handles Me.VisibleChanged Try - laadLogToolstripMenuStatussen() If FormController.getInstance.formSelectIDKanTerug Then btnTerug.Enabled = True End If @@ -88,7 +87,6 @@ ElseIf radioDossiercode.Checked Then verwerkKeuze(Kolommen.dossierCode, input) End If - laadLogToolstripMenuStatussen() Catch ex As InvalidCastException lblFoutmeldingOpzoeken.Text = "Gelieve de juiste waarden in te voeren" 'de tekst in de textbox selecteren en de textbox focussen @@ -105,24 +103,27 @@ Try Dim gevondenCache As Boolean = False Dim gevondenArdis As Boolean = False - Dim dataReader As Object - 'ODBC dataReader - dataReader = CacheMapper.geefdatareader(tabel, input) - If DirectCast(dataReader, OdbcDataReader).HasRows Then + 'Data table opvragen uit Caché. + Dim dataTable = CacheMapper.GeefDataTable(tabel, input) + + If (dataTable IsNot Nothing) AndAlso (dataTable.Rows.Count > 0) Then + 'Er zijn rijen aanwezig. gevondenCache = True ElseIf tabel = Kolommen.barcode Then - 'datareader opvragen - dataReader = ArdisMapper.geefDataReader(input) - If DirectCast(dataReader, SqlDataReader).HasRows Then + 'Er zijn geen rijen aanwezig en het type is een barcode. + 'Data table opvragen via Ardis. + dataTable = ArdisMapper.GeefDataTable(input) + If (dataTable IsNot Nothing) AndAlso (dataTable.Rows.Count > 0) Then gevondenArdis = True End If End If + If gevondenCache Then 'formgrid laden met ODBC dataReader - FormController.getInstance.laadFormGrid(Me, tabel, input, dataReader) + FormController.getInstance.LaadFormGrid(Me, tabel, input, dataTable) ElseIf gevondenArdis Then - FormController.getInstance.laadFormGrid(Me, Kolommen.barcodeArdis, input, dataReader) + FormController.getInstance.LaadFormGrid(Me, Kolommen.barcodeArdis, input, dataTable) Else 'datareader bestaat niet lblFoutmeldingOpzoeken.Text = "Er zijn geen resultaten" @@ -195,28 +196,28 @@ Process.Start(pad) End Sub - Private Sub laadLogToolstripMenuStatussen() - HuidigeLogToolStripMenuItem.Enabled = Not LogBestandTextMapper.currentLogPath.Equals("") - VorigeLogToolStripMenuItem.Enabled = Not LogBestandTextMapper.geefPathLaatsteLogFile.Equals("") + Private Sub LogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogsToolStripMenuItem.Click + HuidigeLogToolStripMenuItem.Enabled = Not LogBestandTextMapper.HuidigeLogPad.Equals(String.Empty) + VorigeLogToolStripMenuItem.Enabled = Not LogBestandTextMapper.GeefPadVorigeLog.Equals(String.Empty) End Sub Private Sub HuidigeLogToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HuidigeLogToolStripMenuItem.Click - Dim pad As String = ControlChars.Quote & LogBestandTextMapper.currentLogPath & ControlChars.Quote + Dim pad As String = ControlChars.Quote & LogBestandTextMapper.HuidigeLogPad & ControlChars.Quote 'log openen met de default reader Process.Start(pad) End Sub Private Sub VorigeLogToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles VorigeLogToolStripMenuItem.Click - Dim pad As String = ControlChars.Quote & LogBestandTextMapper.geefPathLaatsteLogFile & ControlChars.Quote + Dim pad As String = ControlChars.Quote & LogBestandTextMapper.GeefPadVorigeLog & ControlChars.Quote If Not pad.Equals("") Then 'log openen met de default reader Process.Start(pad) End If End Sub Private Sub LogMapToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles LogMapToolStripMenuItem.Click - Dim pad As String = ControlChars.Quote & LogBestandTextMapper.getPathLogFolder & ControlChars.Quote + Dim pad As String = ControlChars.Quote & LogBestandTextMapper.GetPathLogFolder & ControlChars.Quote If Not pad.Equals("") Then 'log openen met de default reader Process.Start(pad) Index: TAOR rework/TAOR rework/My Project/Settings.Designer.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/My Project/Settings.Designer.vb (.../Settings.Designer.vb) (revision 1513) +++ TAOR rework/TAOR rework/My Project/Settings.Designer.vb (.../Settings.Designer.vb) (revision 1869) @@ -1,7 +1,7 @@ '------------------------------------------------------------------------------ ' ' This code was generated by a tool. -' Runtime Version:4.0.30319.36460 +' Runtime Version:4.0.30319.42000 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. @@ -15,7 +15,7 @@ Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase @@ -29,7 +29,7 @@ Private Shared addedHandlerLockObject As New Object _ - Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If @@ -89,6 +89,18 @@ Me("PathNaarConfigMapDefault") = value End Set End Property + + _ + Public Property LogOpslaanStatus() As Boolean + Get + Return CType(Me("LogOpslaanStatus"),Boolean) + End Get + Set + Me("LogOpslaanStatus") = value + End Set + End Property End Class End Namespace Index: TAOR rework/TAOR rework/Rework/ReworkTraySlotRepository.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Rework/ReworkTraySlotRepository.vb (.../ReworkTraySlotRepository.vb) (revision 1513) +++ TAOR rework/TAOR rework/Rework/ReworkTraySlotRepository.vb (.../ReworkTraySlotRepository.vb) (revision 1869) @@ -1,21 +1,25 @@ Public Class ReworkTraySlotRepository - Private _slots As List(Of Slot) + Private ReadOnly _slots As List(Of Slot) Public Sub New() _slots = ReworkTraySlotMapperXML.getDataFromFile() End Sub - Public Function slots() As List(Of Slot) + ''' + ''' Unieke sloten opvragen als lijst. + ''' + ''' + Public Function Slots() As List(Of Slot) Dim tempList As New List(Of Slot) For Each huidigSlot As Slot In _slots - Dim nieuwSlot As New Slot - nieuwSlot.nummer = huidigSlot.nummer - nieuwSlot.type = huidigSlot.type + 'Nieuw slot aanmaken en waarden invullen. + Dim nieuwSlot As New Slot With { + .nummer = huidigSlot.nummer, + .type = huidigSlot.type + } tempList.Add(nieuwSlot) Next - Return tempList - End Function -End Class +End Class \ No newline at end of file FishEye: Tag 1869 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/Domeincontroller.vb'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR rework/TAOR rework/My Project/Settings.settings =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/My Project/Settings.settings (.../Settings.settings) (revision 1513) +++ TAOR rework/TAOR rework/My Project/Settings.settings (.../Settings.settings) (revision 1869) @@ -11,5 +11,8 @@ \\NOTES01\Shared\Multi media\TAOR rework\Configs + + True + \ No newline at end of file Index: TAOR rework/TAOR rework/formulieren/FormGrid.vb =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/formulieren/FormGrid.vb (.../FormGrid.vb) (revision 1592) +++ TAOR rework/TAOR rework/formulieren/FormGrid.vb (.../FormGrid.vb) (revision 1869) @@ -1,31 +1,63 @@ ' robin de bock 10/08/2017 -Imports System.Data.SqlClient Imports System.Data.Odbc Imports TA_OR_rework.Domeincontroller Public Class FormGrid - Private tabel As Kolommen - Private waarde As Object - Private etiketTekst As String + Private _tabel As Kolommen + Private _waarde As Object - Private gegenereerd As Boolean = False + Private _gegenereerd As Boolean = False Private _barcode As String Private _onderdeel As String - Private initiëleHoogteElementenBuitenDataGridViewCache As Integer + Private _initiëleHoogteElementenBuitenDataGridViewCache As Integer Private _batchViaBarcodeOfToelevering As String - Private _toeleveringIDViaBarcode As String + Private _toeleveringIdViaBarcode As String Public Sub New() InitializeComponent() End Sub + 'Filterbuttons en kolommen in reworkgrid genereren. + Private Sub FormGrid_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load + 'Filter buttons configureren naargelang de resolutie. + configureerGrootteFilterButtons() + 'Genereren van de buttons om te filteren. + genereerFilterButtons() + 'De kolommen in het hoofdgrid genereren. + genereerKolommenReworkGrid() + _gegenereerd = True + 'Tonen of de reworks wel verwerkt worden afhankelijk van de verwerkstatus (debuggen). + lblVerwerking.Visible = Not Configs.geefVerwerkStatus + End Sub + + 'Instellen van de data die door selectID form wordt meegegeven + Public Sub LaadData(tabel As Kolommen, waarde As Object, ByRef datareader As Object) + 'De data opslaan die het grid gaat gebruiken om zelf de data table op te vragen. + Me._tabel = tabel + Me._waarde = waarde + + LaadGridCache(datareader) + + resetFilterButtons() + End Sub + + 'Instellen van de data die door selectID form worden meegegeven. + Public Sub LaadData(tabel As Kolommen, waarde As Object) + 'De data opslaan die het grid gaat gebruiken om zelf de data table op te vragen. + Me._tabel = tabel + Me._waarde = waarde + + 'Caché laden. + LaadGridCache() + End Sub + Public Sub voegReworkRedenToe(reden() As String) Try - toevoegenVanRework(_barcode, reden, _onderdeel, tabel = Kolommen.barcodesVoorraad, etiketTekst) + toevoegenVanRework(_barcode, reden, _onderdeel, _tabel = Kolommen.barcodesVoorraad) Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) Application.Exit() @@ -36,105 +68,75 @@ refreshReworkGrid() End Sub - 'filterbuttons genereren en kolommen in reworkgrid genereren - Private Sub FormGrid_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load - 'filter buttons configureren naargelang de resolutie - configureerGrootteFilterButtons() - 'genereren van de buttons om te filteren - genereerFilterButtons() - 'de kolommen in het hoofdgrid genereren - genereerKolommenReworkGrid() - gegenereerd = True - 'tonen of de reworks wel verwerkt worden - lblVerwerking.Visible = Not Configs.geefVerwerkStatus - End Sub - - 'applicatie afsluiten - Private Sub FormGrid_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing - CacheMapper.sluitDataReader() - ArdisMapper.sluitDataReader() - Application.Exit() - End Sub - Private Sub btnVerwerkRework_VisibleChanged(sender As Object, e As System.EventArgs) Handles btnVerwerkRework.VisibleChanged refreshReworkButtonsGridCache() refreshReworkGrid() End Sub - 'grid laden met kolom en waarde die al aanwezig zijn - Private Sub laadGridCache(Optional reader As Object = Nothing) + ''' + ''' Grid laden met ofwel de meegegeven datatable, ofwel de data zelf ophalen aan de hand van de kolom en de waarde. + ''' + ''' Optionele data table. + Private Sub LaadGridCache(Optional dataTable As DataTable = Nothing) Try - Dim dt = New DataTable() - If IsNothing(reader) Then - If tabel = Kolommen.barcodeArdis Then - Dim datareader As SqlDataReader = ArdisMapper.geefDataReader(waarde) - dt.Load(datareader) - DataGridViewCache.AutoGenerateColumns = True - DataGridViewCache.DataSource = dt - DataGridViewCache.Refresh() - datareader.Close() + 'De gridview vullen + + 'Kolommen laten auto-genereren. + DataGridViewCache.AutoGenerateColumns = True + + 'Controleren of de data table is meegegeven en rijen bevat. + If Not IsNothing(dataTable) AndAlso dataTable.Rows.Count > 0 Then + 'Zo ja, laadt de gridview met de data table. + DataGridViewCache.DataSource = dataTable + Else + 'Zo neen, controleer type kolom. Dit is nodig om te weten van waar de data table zal komen. + If Not _tabel = Kolommen.barcodeArdis Then + 'Ophalen bij Caché. + DataGridViewCache.DataSource = CacheMapper.GeefDataTable(_tabel, _waarde) Else - Dim datareader As OdbcDataReader = CacheMapper.geefdatareader(tabel, waarde) - dt.Load(datareader) - DataGridViewCache.AutoGenerateColumns = True - DataGridViewCache.DataSource = dt - DataGridViewCache.Refresh() - datareader.Close() + 'Ophalen bij Ardis. + DataGridViewCache.DataSource = ArdisMapper.GeefDataTable(_waarde) End If - Else - dt.Load(reader) - DataGridViewCache.AutoGenerateColumns = True - DataGridViewCache.DataSource = dt - DataGridViewCache.Refresh() - reader.Close() End If + + 'Refreshen van de grid view. + DataGridViewCache.Refresh() Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) - Application.Exit() End Try - 'uitbreid buttons disablen als geen barcode gebruikt is + + 'Uitbreid buttons in- of uitschakelen afhankelijk van type kolom (van bij het zoeken). + 'Alle buttons zichtbaar maken. btnToonMeerFilters.Visible = True btnHuidigeFilter.Visible = True btnUitbreidenBatch.Visible = True btnUitbreidenToelevering.Visible = True - If tabel = Kolommen.barcode Then + 'Controleren welk type kolom is gebruikt om te zoeken. + If _tabel = Kolommen.barcode Then + 'Barcode kan uitbreiden op batch en toelevering. btnUitbreidenBatch.Enabled = True btnUitbreidenToelevering.Enabled = True - ElseIf tabel = Kolommen.toelevering Then + ElseIf _tabel = Kolommen.toelevering Then + 'Toelevering kan uitbreiden op batch. btnUitbreidenBatch.Enabled = True - ElseIf tabel = Kolommen.barcodeArdis Then + ElseIf _tabel = Kolommen.barcodeArdis Then + 'Barcode Ardis verbergt meer filters en huidige filter knoppen. btnToonMeerFilters.Visible = False btnHuidigeFilter.Visible = False Else + 'Standaard staan de opties uitbreiden met batch en toelevering op uitgeschakelt. btnUitbreidenBatch.Enabled = False btnUitbreidenToelevering.Enabled = False End If - If gegenereerd Then + 'Code die het rework grid pas refreshed als hoofdgrid gegenereerd is. + 'Don't ask why it's necessary. + 'Pls don't touch. + If _gegenereerd Then refreshReworkGrid() End If End Sub - 'instellen van de data die door selectID form worden meegegeven - Public Sub laadData(tabel As Kolommen, waarde As Object) - 'de data die het grid gaat gebruiken toevoegen - Me.tabel = tabel - Me.waarde = waarde - 'het grid laden met default instelling - laadGridCache() - End Sub - 'instellen van de data die door selectID form worden meegegeven - Public Sub laadData(tabel As Kolommen, waarde As Object, ByRef datareader As Object, etiketTekst As String) - 'de data die het grid gaat gebruiken toevoegen - Me.tabel = tabel - Me.waarde = waarde - Me.etiketTekst = etiketTekst - - laadGridCache(datareader) - - resetFilterButtons() - End Sub - 'selectie van veld afzetten voor beide grids Private Sub DataGridViewCache_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles DataGridViewCache.SelectionChanged DataGridViewCache.ClearSelection() @@ -185,14 +187,14 @@ Application.Exit() End Try - If tabel = Kolommen.barcode AndAlso Me.DataGridViewCache.Rows(i).Cells("VerwerkingID").Value = waarde Then + If _tabel = Kolommen.barcode AndAlso Me.DataGridViewCache.Rows(i).Cells("VerwerkingID").Value = _waarde Then _batchViaBarcodeOfToelevering = Me.DataGridViewCache.Rows(i).Cells("batchID").Value - _toeleveringIDViaBarcode = Me.DataGridViewCache.Rows(i).Cells("toeleveringID").Value + _toeleveringIdViaBarcode = Me.DataGridViewCache.Rows(i).Cells("toeleveringID").Value End If Next 'als er wordt opgezocht met toelevering het batchID opslaan - If tabel = Kolommen.toelevering Then + If _tabel = Kolommen.toelevering Then If DataGridViewCache.RowCount > 0 Then _batchViaBarcodeOfToelevering = Me.DataGridViewCache.Rows(0).Cells("batchID").Value End If @@ -229,10 +231,10 @@ If Not Configs.geefVerwerkStatus Then Dim reden() As String = {"RedenCode", "RedenLabel"} voegReworkRedenToe(reden) - ElseIf tabel = Kolommen.barcodesVoorraad Then 'als het om voorraad in te vullen is meegeven als default reden - Dim reden() As String = {etiketTekst, etiketTekst} + ElseIf _tabel = Kolommen.barcodesVoorraad Then 'Als het om voorraad in te vullen is wordt niks meegegeven als reden. + Dim reden() As String = {String.Empty, String.Empty} voegReworkRedenToe(reden) - ElseIf tabel = Kolommen.barcodeArdis Then + ElseIf _tabel = Kolommen.barcodeArdis Then Dim reden() As String = {"Code", "Special zijkant"} voegReworkRedenToe(reden) Else @@ -253,17 +255,17 @@ klapToeOpen() End Sub - Private Sub laadGridCacheMetFilter(filter As String) + ''' + ''' Datagrid laden aan de hand van een filter. De data wordt zelf opgehaald. + ''' + ''' De filter + Private Sub LaadGridCacheMetFilter(filter As String) Try - Dim datareader As OdbcDataReader = CacheMapper.geefdatareader(tabel, waarde, filter) - - Dim dt = New DataTable() - dt.Load(datareader) DataGridViewCache.AutoGenerateColumns = True - DataGridViewCache.DataSource = dt + 'Data table opvragen en toewijzen aan grid view. + DataGridViewCache.DataSource = CacheMapper.GeefdataTable(_tabel, _waarde, filter) DataGridViewCache.Refresh() - datareader.Close() - + 'Rework knoppen per rij een keer laten updaten. refreshReworkButtonsGridCache() Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) @@ -275,12 +277,12 @@ FormController.getInstance.laadFormDetail(Me, barcode) End Sub - Private Sub toevoegenVanRework(barcode As String, reden() As String, onderdeel As String, voorVoorraad As Boolean, etiketTekst As String) + Private Sub toevoegenVanRework(barcode As String, reden() As String, onderdeel As String, voorVoorraad As Boolean) Try If getInstance.bestaatRework(barcode) Then getInstance.verwijderRework(barcode) Else - getInstance.addRework(barcode, reden, onderdeel, voorVoorraad, etiketTekst) + getInstance.addRework(barcode, reden, onderdeel, voorVoorraad) End If Catch ex As Exception MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error) @@ -375,10 +377,10 @@ Me.DataGridViewCache.Rows(i).Cells("toevoegenRework").Value = "Verwijder rework" Else 'als barcode is gebruikt om op te vragen, laten zien welke rij correspondeerd met de barcode (barcode geeft meer dan 1 resultaat) - If (tabel = Kolommen.barcode Or tabel = Kolommen.barcodeArdis) AndAlso CStr(Me.DataGridViewCache.Rows(i).Cells("VerwerkingID").Value).ToUpper = CStr(waarde).ToUpper Then + If (_tabel = Kolommen.barcode Or _tabel = Kolommen.barcodeArdis) AndAlso CStr(Me.DataGridViewCache.Rows(i).Cells("VerwerkingID").Value).ToUpper = CStr(_waarde).ToUpper Then Me.DataGridViewCache.Rows(i).Cells("toevoegenRework").Style.BackColor = ConfiguratieKleuren.geefReworkKleur(1) _batchViaBarcodeOfToelevering = Me.DataGridViewCache.Rows(0).Cells("batchID").Value - _toeleveringIDViaBarcode = Me.DataGridViewCache.Rows(0).Cells("toeleveringID").Value + _toeleveringIdViaBarcode = Me.DataGridViewCache.Rows(0).Cells("toeleveringID").Value Else Me.DataGridViewCache.Rows(i).Cells("toevoegenRework").Style.BackColor = DefaultBackColor End If @@ -473,7 +475,7 @@ End Sub Private Sub btnToonAlles_Click(sender As System.Object, e As System.EventArgs) Handles btnToonAlles.Click - laadGridCache() + LaadGridCache() klapToeOpen() resetFilterButtons() @@ -488,7 +490,7 @@ gedrukteKnop = Nothing End If 'knop verbergen als er werd gezocht via iets dat niet gefilterd mag worden - If tabel = Kolommen.barcodesVoorraad Then + If _tabel = Kolommen.barcodesVoorraad Then btnToonMeerFilters.Enabled = False Else btnToonMeerFilters.Enabled = True @@ -502,24 +504,24 @@ 'uitbreiden tot batch/levering Private Sub btnUitbreidenBatch_Click_1(sender As System.Object, e As System.EventArgs) Handles btnUitbreidenBatch.Click - tabel = Kolommen.batch - waarde = _batchViaBarcodeOfToelevering + _tabel = Kolommen.batch + _waarde = _batchViaBarcodeOfToelevering btnUitbreidenBatch.Enabled = False btnUitbreidenToelevering.Enabled = False - laadGridCache() + LaadGridCache() resetFilterButtons() End Sub Private Sub btnUitbreidenToelevering_Click(sender As System.Object, e As System.EventArgs) Handles btnUitbreidenToelevering.Click - tabel = Kolommen.toelevering - waarde = _toeleveringIDViaBarcode + _tabel = Kolommen.toelevering + _waarde = _toeleveringIdViaBarcode btnUitbreidenToelevering.Enabled = False - laadGridCache() + LaadGridCache() resetFilterButtons() End Sub @@ -551,15 +553,15 @@ DataGridViewReworks.ColumnHeadersDefaultCellStyle.Font = New Font("Microsoft Sans Serif", grootte) Dim standaardHoogte As Integer = DataGridViewCache.RowTemplate.Height - Dim hoogte As Integer = (If(Me.Size.Height > 1080, 1080, Me.Size.Height) - initiëleHoogteElementenBuitenDataGridViewCache) + Dim hoogte As Integer = (If(Me.Size.Height > 1080, 1080, Me.Size.Height) - _initiëleHoogteElementenBuitenDataGridViewCache) hoogte -= hoogte Mod DataGridViewCache.ColumnHeadersHeight DataGridViewCache.Height = hoogte End Sub Private Sub stelInitieleSizeWaardenIn() - If initiëleHoogteElementenBuitenDataGridViewCache <= 0 Then + If _initiëleHoogteElementenBuitenDataGridViewCache <= 0 Then 'hoogte van alle elementen buiten datagridview cache opslaan - initiëleHoogteElementenBuitenDataGridViewCache = 1080 - DataGridViewCache.Size.Height + _initiëleHoogteElementenBuitenDataGridViewCache = 1080 - DataGridViewCache.Size.Height End If End Sub End Class \ No newline at end of file Index: TAOR rework/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb (.../HoofdAansturingVoorraad.vb) (revision 1513) +++ TAOR rework/TAOR rework/Voorraad/HoofdAansturingVoorraad.vb (.../HoofdAansturingVoorraad.vb) (revision 1869) @@ -1,35 +1,41 @@ Module HoofdAansturingVoorraad - Public Sub opslaanVoorraadItem(voorraad As VoorraadItem) - slaOpInAutomilling(voorraad.zijkantAutomillingData) - + ''' + ''' Opslaan van voorraad item in de verschillende databanken. + ''' + ''' + Public Sub OpslaanVoorraadItem(voorraad As VoorraadItem) + 'Enkel eerste plaatje. If Not voorraad.isTweedeVanPaar Then + 'Automilling. + slaOpInAutomilling(voorraad.zijkantAutomillingData) + 'Kantenband For Each zijkantKantenbandData In voorraad.zijkantKantenbandDatas If Not zijkantKantenbandData Is Nothing Then slaOpInKantenband(zijkantKantenbandData) End If Next End If - 'opslaan in Ardis + 'Alles opslaan in Ardis (als laatste, want dit eet de $$$). For Each zijkant As ArdisData In voorraad.zijkantArdisDatas slaOpInArdis(zijkant) Next End Sub - Private Sub slaOpInAutomilling(zijkamerFreesProductieData As ZijkamerFreesProductieData) + Private Sub SlaOpInAutomilling(zijkamerFreesProductieData As ZijkamerFreesProductieData) If Configs.geefVerwerkStatus Then AutomillingMapper.opslaan(zijkamerFreesProductieData) End If End Sub - Private Sub slaOpInKantenband(zijkantKantenbandData As KantenbandData) + Private Sub SlaOpInKantenband(zijkantKantenbandData As KantenbandData) If Configs.geefVerwerkStatus Then KantenbandMapper.Opslaan(zijkantKantenbandData) End If End Sub - Private Sub slaOpInArdis(onderdeel As ArdisData) + Private Sub SlaOpInArdis(onderdeel As ArdisData) If Configs.geefVerwerkStatus Then ArdisTextMapper.opslaan(ItemType.VOORRAAD, onderdeel, "", "") End If Index: TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.Designer.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.Designer.vb (.../FormVoorraad.Designer.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/Specials/FormVoorraad.Designer.vb (.../FormVoorraad.Designer.vb) (revision 1869) @@ -53,94 +53,90 @@ Me.ComboBoxKantenband = New System.Windows.Forms.ComboBox() Me.TextBoxLabelTekst = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() - Me.Panel1.SuspendLayout() - CType(Me.DataGridViewVoorraadItems, System.ComponentModel.ISupportInitialize).BeginInit() - Me.SuspendLayout() + Me.CheckBoxSifonlade = New System.Windows.Forms.CheckBox() + Me.Panel1.SuspendLayout + CType(Me.DataGridViewVoorraadItems,System.ComponentModel.ISupportInitialize).BeginInit + Me.SuspendLayout ' 'btnTerug ' - Me.btnTerug.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnTerug.Location = New System.Drawing.Point(1692, 5) - Me.btnTerug.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.btnTerug.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.btnTerug.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.btnTerug.Location = New System.Drawing.Point(1269, 4) Me.btnTerug.Name = "btnTerug" - Me.btnTerug.Size = New System.Drawing.Size(304, 84) + Me.btnTerug.Size = New System.Drawing.Size(228, 68) Me.btnTerug.TabIndex = 66 Me.btnTerug.Text = "Terug" - Me.btnTerug.UseVisualStyleBackColor = True + Me.btnTerug.UseVisualStyleBackColor = true ' 'ComboBoxDiepte ' Me.ComboBoxDiepte.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBoxDiepte.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!) + Me.ComboBoxDiepte.Font = New System.Drawing.Font("Microsoft Sans Serif", 30!) Me.ComboBoxDiepte.ForeColor = System.Drawing.SystemColors.ControlText - Me.ComboBoxDiepte.FormattingEnabled = True - Me.ComboBoxDiepte.Location = New System.Drawing.Point(256, 191) - Me.ComboBoxDiepte.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.ComboBoxDiepte.FormattingEnabled = true + Me.ComboBoxDiepte.Location = New System.Drawing.Point(192, 155) Me.ComboBoxDiepte.MaxDropDownItems = 15 Me.ComboBoxDiepte.Name = "ComboBoxDiepte" - Me.ComboBoxDiepte.Size = New System.Drawing.Size(457, 66) + Me.ComboBoxDiepte.Size = New System.Drawing.Size(344, 54) Me.ComboBoxDiepte.TabIndex = 63 ' 'ComboBoxHoogte ' Me.ComboBoxHoogte.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBoxHoogte.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!) + Me.ComboBoxHoogte.Font = New System.Drawing.Font("Microsoft Sans Serif", 30!) Me.ComboBoxHoogte.ForeColor = System.Drawing.SystemColors.ControlText - Me.ComboBoxHoogte.FormattingEnabled = True - Me.ComboBoxHoogte.Location = New System.Drawing.Point(256, 278) - Me.ComboBoxHoogte.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.ComboBoxHoogte.FormattingEnabled = true + Me.ComboBoxHoogte.Location = New System.Drawing.Point(192, 226) Me.ComboBoxHoogte.MaxDropDownItems = 15 Me.ComboBoxHoogte.Name = "ComboBoxHoogte" - Me.ComboBoxHoogte.Size = New System.Drawing.Size(457, 66) + Me.ComboBoxHoogte.Size = New System.Drawing.Size(344, 54) Me.ComboBoxHoogte.TabIndex = 64 ' 'LblComboBoxDiepte ' - Me.LblComboBoxDiepte.AutoSize = True - Me.LblComboBoxDiepte.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.LblComboBoxDiepte.Location = New System.Drawing.Point(1, 208) - Me.LblComboBoxDiepte.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.LblComboBoxDiepte.AutoSize = true + Me.LblComboBoxDiepte.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.LblComboBoxDiepte.Location = New System.Drawing.Point(1, 169) Me.LblComboBoxDiepte.Name = "LblComboBoxDiepte" - Me.LblComboBoxDiepte.Size = New System.Drawing.Size(125, 39) + Me.LblComboBoxDiepte.Size = New System.Drawing.Size(101, 31) Me.LblComboBoxDiepte.TabIndex = 53 Me.LblComboBoxDiepte.Text = "Diepte:" ' 'Label1 ' - Me.Label1.AutoSize = True - Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label1.Location = New System.Drawing.Point(1, 295) - Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label1.AutoSize = true + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label1.Location = New System.Drawing.Point(1, 240) Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(136, 39) + Me.Label1.Size = New System.Drawing.Size(110, 31) Me.Label1.TabIndex = 52 Me.Label1.Text = "Hoogte:" ' 'btnToevoegen ' - Me.btnToevoegen.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnToevoegen.Location = New System.Drawing.Point(9, 459) - Me.btnToevoegen.Margin = New System.Windows.Forms.Padding(4, 4, 167, 4) + Me.btnToevoegen.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.btnToevoegen.Location = New System.Drawing.Point(7, 373) + Me.btnToevoegen.Margin = New System.Windows.Forms.Padding(3, 3, 125, 3) Me.btnToevoegen.Name = "btnToevoegen" - Me.btnToevoegen.Size = New System.Drawing.Size(1435, 84) + Me.btnToevoegen.Size = New System.Drawing.Size(1076, 68) Me.btnToevoegen.TabIndex = 65 Me.btnToevoegen.Text = "Voeg toe" - Me.btnToevoegen.UseVisualStyleBackColor = True + Me.btnToevoegen.UseVisualStyleBackColor = true ' 'lblFoutmeldingToevoegen ' - Me.lblFoutmeldingToevoegen.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!) + Me.lblFoutmeldingToevoegen.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!) Me.lblFoutmeldingToevoegen.ForeColor = System.Drawing.Color.Red - Me.lblFoutmeldingToevoegen.Location = New System.Drawing.Point(13, 546) - Me.lblFoutmeldingToevoegen.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblFoutmeldingToevoegen.Location = New System.Drawing.Point(10, 444) Me.lblFoutmeldingToevoegen.Name = "lblFoutmeldingToevoegen" - Me.lblFoutmeldingToevoegen.Size = New System.Drawing.Size(1283, 123) + Me.lblFoutmeldingToevoegen.Size = New System.Drawing.Size(962, 100) Me.lblFoutmeldingToevoegen.TabIndex = 59 ' 'Panel1 ' Me.Panel1.Anchor = System.Windows.Forms.AnchorStyles.Top + Me.Panel1.Controls.Add(Me.CheckBoxSifonlade) Me.Panel1.Controls.Add(Me.btnWisAlle) Me.Panel1.Controls.Add(Me.CheckBoxUnicolor) Me.Panel1.Controls.Add(Me.RadioButtonLinksRechts) @@ -166,150 +162,141 @@ Me.Panel1.Controls.Add(Me.LblComboBoxDiepte) Me.Panel1.Controls.Add(Me.ComboBoxHoogte) Me.Panel1.Controls.Add(Me.ComboBoxDiepte) - Me.Panel1.Location = New System.Drawing.Point(280, 36) - Me.Panel1.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.Panel1.Location = New System.Drawing.Point(203, 26) Me.Panel1.Name = "Panel1" - Me.Panel1.Size = New System.Drawing.Size(2000, 1169) + Me.Panel1.Size = New System.Drawing.Size(1500, 950) Me.Panel1.TabIndex = 60 ' 'btnWisAlle ' - Me.btnWisAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!) - Me.btnWisAlle.Location = New System.Drawing.Point(1304, 604) - Me.btnWisAlle.Margin = New System.Windows.Forms.Padding(4, 4, 167, 4) + Me.btnWisAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!) + Me.btnWisAlle.Location = New System.Drawing.Point(978, 491) + Me.btnWisAlle.Margin = New System.Windows.Forms.Padding(3, 3, 125, 3) Me.btnWisAlle.Name = "btnWisAlle" - Me.btnWisAlle.Size = New System.Drawing.Size(317, 65) + Me.btnWisAlle.Size = New System.Drawing.Size(238, 53) Me.btnWisAlle.TabIndex = 83 Me.btnWisAlle.Text = "Wis alle" - Me.btnWisAlle.UseVisualStyleBackColor = True + Me.btnWisAlle.UseVisualStyleBackColor = true ' 'CheckBoxUnicolor ' - Me.CheckBoxUnicolor.AutoSize = True - Me.CheckBoxUnicolor.Checked = True + Me.CheckBoxUnicolor.AutoSize = true + Me.CheckBoxUnicolor.Checked = true Me.CheckBoxUnicolor.CheckState = System.Windows.Forms.CheckState.Checked - Me.CheckBoxUnicolor.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!) - Me.CheckBoxUnicolor.Location = New System.Drawing.Point(985, 377) - Me.CheckBoxUnicolor.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.CheckBoxUnicolor.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!) + Me.CheckBoxUnicolor.Location = New System.Drawing.Point(739, 306) Me.CheckBoxUnicolor.Name = "CheckBoxUnicolor" - Me.CheckBoxUnicolor.Size = New System.Drawing.Size(196, 52) + Me.CheckBoxUnicolor.Size = New System.Drawing.Size(162, 43) Me.CheckBoxUnicolor.TabIndex = 82 Me.CheckBoxUnicolor.Text = "Unicolor" - Me.CheckBoxUnicolor.UseVisualStyleBackColor = True + Me.CheckBoxUnicolor.UseVisualStyleBackColor = true ' 'RadioButtonLinksRechts ' - Me.RadioButtonLinksRechts.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.RadioButtonLinksRechts.AutoSize = True - Me.RadioButtonLinksRechts.Checked = True - Me.RadioButtonLinksRechts.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.RadioButtonLinksRechts.Location = New System.Drawing.Point(256, 108) - Me.RadioButtonLinksRechts.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.RadioButtonLinksRechts.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.RadioButtonLinksRechts.AutoSize = true + Me.RadioButtonLinksRechts.Checked = true + Me.RadioButtonLinksRechts.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.RadioButtonLinksRechts.Location = New System.Drawing.Point(192, 88) Me.RadioButtonLinksRechts.Name = "RadioButtonLinksRechts" - Me.RadioButtonLinksRechts.Size = New System.Drawing.Size(96, 52) + Me.RadioButtonLinksRechts.Size = New System.Drawing.Size(81, 43) Me.RadioButtonLinksRechts.TabIndex = 81 - Me.RadioButtonLinksRechts.TabStop = True + Me.RadioButtonLinksRechts.TabStop = true Me.RadioButtonLinksRechts.Text = "LR" - Me.RadioButtonLinksRechts.UseVisualStyleBackColor = True + Me.RadioButtonLinksRechts.UseVisualStyleBackColor = true ' 'lblAantalVoorraadItems ' - Me.lblAantalVoorraadItems.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblAantalVoorraadItems.AutoSize = True - Me.lblAantalVoorraadItems.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.lblAantalVoorraadItems.Location = New System.Drawing.Point(1895, 705) - Me.lblAantalVoorraadItems.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblAantalVoorraadItems.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.lblAantalVoorraadItems.AutoSize = true + Me.lblAantalVoorraadItems.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.lblAantalVoorraadItems.Location = New System.Drawing.Point(1421, 573) Me.lblAantalVoorraadItems.Name = "lblAantalVoorraadItems" - Me.lblAantalVoorraadItems.Size = New System.Drawing.Size(27, 29) + Me.lblAantalVoorraadItems.Size = New System.Drawing.Size(23, 25) Me.lblAantalVoorraadItems.TabIndex = 79 Me.lblAantalVoorraadItems.Text = "0" ' 'lblVerwerking ' - Me.lblVerwerking.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.lblVerwerking.AutoSize = True - Me.lblVerwerking.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.lblVerwerking.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.lblVerwerking.AutoSize = true + Me.lblVerwerking.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.lblVerwerking.ForeColor = System.Drawing.Color.DarkRed - Me.lblVerwerking.Location = New System.Drawing.Point(1703, 950) - Me.lblVerwerking.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.lblVerwerking.Location = New System.Drawing.Point(1277, 772) Me.lblVerwerking.Name = "lblVerwerking" - Me.lblVerwerking.Size = New System.Drawing.Size(256, 29) + Me.lblVerwerking.Size = New System.Drawing.Size(197, 25) Me.lblVerwerking.TabIndex = 80 Me.lblVerwerking.Text = "Er wordt niet verwerkt" ' 'Label5 ' - Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.Label5.AutoSize = True - Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label5.Location = New System.Drawing.Point(1703, 705) - Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.Label5.AutoSize = true + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label5.Location = New System.Drawing.Point(1277, 573) Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(168, 29) + Me.Label5.Size = New System.Drawing.Size(130, 25) Me.Label5.TabIndex = 78 Me.Label5.Text = "Aantal items: " ' 'btnVerwerk ' - Me.btnVerwerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.btnVerwerk.Location = New System.Drawing.Point(1709, 754) - Me.btnVerwerk.Margin = New System.Windows.Forms.Padding(4, 4, 167, 4) + Me.btnVerwerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.btnVerwerk.Location = New System.Drawing.Point(1282, 613) + Me.btnVerwerk.Margin = New System.Windows.Forms.Padding(3, 3, 125, 3) Me.btnVerwerk.Name = "btnVerwerk" - Me.btnVerwerk.Size = New System.Drawing.Size(216, 158) + Me.btnVerwerk.Size = New System.Drawing.Size(162, 128) Me.btnVerwerk.TabIndex = 76 Me.btnVerwerk.Text = "Verwerk" - Me.btnVerwerk.UseVisualStyleBackColor = True + Me.btnVerwerk.UseVisualStyleBackColor = true ' 'Label6 ' - Me.Label6.AutoSize = True - Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label6.Location = New System.Drawing.Point(731, 295) - Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label6.AutoSize = true + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label6.Location = New System.Drawing.Point(548, 240) Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(208, 39) + Me.Label6.Size = New System.Drawing.Size(166, 31) Me.Label6.TabIndex = 73 Me.Label6.Text = "Kleur buiten:" ' 'ComboBoxKleurBuiten ' Me.ComboBoxKleurBuiten.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBoxKleurBuiten.Enabled = False - Me.ComboBoxKleurBuiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!) + Me.ComboBoxKleurBuiten.Enabled = false + Me.ComboBoxKleurBuiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 30!) Me.ComboBoxKleurBuiten.ForeColor = System.Drawing.SystemColors.ControlText - Me.ComboBoxKleurBuiten.FormattingEnabled = True - Me.ComboBoxKleurBuiten.Location = New System.Drawing.Point(985, 278) - Me.ComboBoxKleurBuiten.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.ComboBoxKleurBuiten.FormattingEnabled = true + Me.ComboBoxKleurBuiten.Location = New System.Drawing.Point(739, 226) Me.ComboBoxKleurBuiten.MaxDropDownItems = 15 Me.ComboBoxKleurBuiten.Name = "ComboBoxKleurBuiten" - Me.ComboBoxKleurBuiten.Size = New System.Drawing.Size(457, 66) + Me.ComboBoxKleurBuiten.Size = New System.Drawing.Size(344, 54) Me.ComboBoxKleurBuiten.TabIndex = 74 ' 'radioLinks ' - Me.radioLinks.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.radioLinks.AutoSize = True - Me.radioLinks.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.radioLinks.Location = New System.Drawing.Point(431, 108) - Me.radioLinks.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.radioLinks.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.radioLinks.AutoSize = true + Me.radioLinks.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.radioLinks.Location = New System.Drawing.Point(323, 88) Me.radioLinks.Name = "radioLinks" - Me.radioLinks.Size = New System.Drawing.Size(144, 52) + Me.radioLinks.Size = New System.Drawing.Size(120, 43) Me.radioLinks.TabIndex = 72 Me.radioLinks.Text = "Links" - Me.radioLinks.UseVisualStyleBackColor = True + Me.radioLinks.UseVisualStyleBackColor = true ' 'DataGridViewVoorraadItems ' - Me.DataGridViewVoorraadItems.AllowUserToAddRows = False - Me.DataGridViewVoorraadItems.AllowUserToDeleteRows = False - Me.DataGridViewVoorraadItems.AllowUserToResizeRows = False - Me.DataGridViewVoorraadItems.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.DataGridViewVoorraadItems.AllowUserToAddRows = false + Me.DataGridViewVoorraadItems.AllowUserToDeleteRows = false + Me.DataGridViewVoorraadItems.AllowUserToResizeRows = false + Me.DataGridViewVoorraadItems.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left),System.Windows.Forms.AnchorStyles) Me.DataGridViewVoorraadItems.AutoSizeColumnsMode = System.Windows.Forms.DataGridViewAutoSizeColumnsMode.AllCells DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText @@ -320,141 +307,144 @@ Me.DataGridViewVoorraadItems.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.verwijderVoorraadItem}) DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] Me.DataGridViewVoorraadItems.DefaultCellStyle = DataGridViewCellStyle2 - Me.DataGridViewVoorraadItems.Location = New System.Drawing.Point(9, 673) - Me.DataGridViewVoorraadItems.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.DataGridViewVoorraadItems.Location = New System.Drawing.Point(7, 547) Me.DataGridViewVoorraadItems.Name = "DataGridViewVoorraadItems" - Me.DataGridViewVoorraadItems.ReadOnly = True + Me.DataGridViewVoorraadItems.ReadOnly = true DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control - DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 15.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 15!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] Me.DataGridViewVoorraadItems.RowHeadersDefaultCellStyle = DataGridViewCellStyle3 Me.DataGridViewVoorraadItems.RowHeadersWidthSizeMode = System.Windows.Forms.DataGridViewRowHeadersWidthSizeMode.DisableResizing Me.DataGridViewVoorraadItems.RowTemplate.Height = 50 - Me.DataGridViewVoorraadItems.RowTemplate.ReadOnly = True - Me.DataGridViewVoorraadItems.Size = New System.Drawing.Size(1612, 437) + Me.DataGridViewVoorraadItems.RowTemplate.ReadOnly = true + Me.DataGridViewVoorraadItems.Size = New System.Drawing.Size(1209, 355) Me.DataGridViewVoorraadItems.TabIndex = 77 ' 'verwijderVoorraadItem ' Me.verwijderVoorraadItem.HeaderText = "verwijder" Me.verwijderVoorraadItem.Name = "verwijderVoorraadItem" - Me.verwijderVoorraadItem.ReadOnly = True - Me.verwijderVoorraadItem.Width = 120 + Me.verwijderVoorraadItem.ReadOnly = true + Me.verwijderVoorraadItem.Width = 95 ' 'radioRechts ' - Me.radioRechts.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) - Me.radioRechts.AutoSize = True - Me.radioRechts.Font = New System.Drawing.Font("Microsoft Sans Serif", 25.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.radioRechts.Location = New System.Drawing.Point(659, 108) - Me.radioRechts.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.radioRechts.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right),System.Windows.Forms.AnchorStyles) + Me.radioRechts.AutoSize = true + Me.radioRechts.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.radioRechts.Location = New System.Drawing.Point(494, 88) Me.radioRechts.Name = "radioRechts" - Me.radioRechts.Size = New System.Drawing.Size(177, 52) + Me.radioRechts.Size = New System.Drawing.Size(147, 43) Me.radioRechts.TabIndex = 71 Me.radioRechts.Text = "Rechts" - Me.radioRechts.UseVisualStyleBackColor = True + Me.radioRechts.UseVisualStyleBackColor = true ' 'Label4 ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(731, 208) - Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label4.AutoSize = true + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label4.Location = New System.Drawing.Point(548, 169) Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(218, 39) + Me.Label4.Size = New System.Drawing.Size(173, 31) Me.Label4.TabIndex = 69 Me.Label4.Text = "Kleur binnen:" ' 'ComboBoxKleurBinnen ' Me.ComboBoxKleurBinnen.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBoxKleurBinnen.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!) + Me.ComboBoxKleurBinnen.Font = New System.Drawing.Font("Microsoft Sans Serif", 30!) Me.ComboBoxKleurBinnen.ForeColor = System.Drawing.SystemColors.ControlText - Me.ComboBoxKleurBinnen.FormattingEnabled = True - Me.ComboBoxKleurBinnen.Location = New System.Drawing.Point(985, 191) - Me.ComboBoxKleurBinnen.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.ComboBoxKleurBinnen.FormattingEnabled = true + Me.ComboBoxKleurBinnen.Location = New System.Drawing.Point(739, 155) Me.ComboBoxKleurBinnen.MaxDropDownItems = 15 Me.ComboBoxKleurBinnen.Name = "ComboBoxKleurBinnen" - Me.ComboBoxKleurBinnen.Size = New System.Drawing.Size(457, 66) + Me.ComboBoxKleurBinnen.Size = New System.Drawing.Size(344, 54) Me.ComboBoxKleurBinnen.TabIndex = 70 ' 'Label3 ' - Me.Label3.AutoSize = True - Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label3.Location = New System.Drawing.Point(1, 384) - Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label3.AutoSize = true + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label3.Location = New System.Drawing.Point(1, 312) Me.Label3.Name = "Label3" - Me.Label3.Size = New System.Drawing.Size(210, 39) + Me.Label3.Size = New System.Drawing.Size(168, 31) Me.Label3.TabIndex = 67 Me.Label3.Text = "Kantenband:" ' 'ComboBoxKantenband ' Me.ComboBoxKantenband.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.ComboBoxKantenband.Enabled = False - Me.ComboBoxKantenband.Font = New System.Drawing.Font("Microsoft Sans Serif", 30.0!) + Me.ComboBoxKantenband.Enabled = false + Me.ComboBoxKantenband.Font = New System.Drawing.Font("Microsoft Sans Serif", 30!) Me.ComboBoxKantenband.ForeColor = System.Drawing.SystemColors.ControlText - Me.ComboBoxKantenband.FormattingEnabled = True - Me.ComboBoxKantenband.ItemHeight = 58 - Me.ComboBoxKantenband.Location = New System.Drawing.Point(256, 367) - Me.ComboBoxKantenband.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.ComboBoxKantenband.FormattingEnabled = true + Me.ComboBoxKantenband.ItemHeight = 46 + Me.ComboBoxKantenband.Location = New System.Drawing.Point(192, 298) Me.ComboBoxKantenband.MaxDropDownItems = 30 Me.ComboBoxKantenband.Name = "ComboBoxKantenband" - Me.ComboBoxKantenband.Size = New System.Drawing.Size(457, 66) + Me.ComboBoxKantenband.Size = New System.Drawing.Size(344, 54) Me.ComboBoxKantenband.TabIndex = 68 ' 'TextBoxLabelTekst ' - Me.TextBoxLabelTekst.Font = New System.Drawing.Font("Microsoft Sans Serif", 40.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TextBoxLabelTekst.Font = New System.Drawing.Font("Microsoft Sans Serif", 40!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) Me.TextBoxLabelTekst.ForeColor = System.Drawing.SystemColors.ControlText - Me.TextBoxLabelTekst.Location = New System.Drawing.Point(256, 5) - Me.TextBoxLabelTekst.Margin = New System.Windows.Forms.Padding(0, 4, 133, 4) + Me.TextBoxLabelTekst.Location = New System.Drawing.Point(192, 4) + Me.TextBoxLabelTekst.Margin = New System.Windows.Forms.Padding(0, 3, 100, 3) Me.TextBoxLabelTekst.Name = "TextBoxLabelTekst" - Me.TextBoxLabelTekst.Size = New System.Drawing.Size(597, 83) + Me.TextBoxLabelTekst.Size = New System.Drawing.Size(449, 68) Me.TextBoxLabelTekst.TabIndex = 61 - Me.TextBoxLabelTekst.TabStop = False + Me.TextBoxLabelTekst.TabStop = false Me.TextBoxLabelTekst.Text = "Stock" ' 'Label2 ' - Me.Label2.AutoSize = True - Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label2.Location = New System.Drawing.Point(1, 37) - Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0) + Me.Label2.AutoSize = true + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 20!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte)) + Me.Label2.Location = New System.Drawing.Point(1, 30) Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(190, 39) + Me.Label2.Size = New System.Drawing.Size(154, 31) Me.Label2.TabIndex = 60 Me.Label2.Text = "Label tekst:" ' + 'CheckBoxSifonlade + ' + Me.CheckBoxSifonlade.AutoSize = true + Me.CheckBoxSifonlade.Font = New System.Drawing.Font("Microsoft Sans Serif", 25!) + Me.CheckBoxSifonlade.Location = New System.Drawing.Point(921, 306) + Me.CheckBoxSifonlade.Name = "CheckBoxSifonlade" + Me.CheckBoxSifonlade.Size = New System.Drawing.Size(179, 43) + Me.CheckBoxSifonlade.TabIndex = 84 + Me.CheckBoxSifonlade.Text = "Sifonlade" + Me.CheckBoxSifonlade.UseVisualStyleBackColor = true + ' 'FormVoorraad ' - Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!) + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1924, 1057) + Me.ClientSize = New System.Drawing.Size(1904, 1042) Me.Controls.Add(Me.Panel1) - Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) - Me.Margin = New System.Windows.Forms.Padding(4, 4, 4, 4) + Me.Icon = CType(resources.GetObject("$this.Icon"),System.Drawing.Icon) Me.Name = "FormVoorraad" Me.Text = "TA'OR rework - Voorraad" Me.WindowState = System.Windows.Forms.FormWindowState.Maximized - Me.Panel1.ResumeLayout(False) - Me.Panel1.PerformLayout() - CType(Me.DataGridViewVoorraadItems, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) + Me.Panel1.ResumeLayout(false) + Me.Panel1.PerformLayout + CType(Me.DataGridViewVoorraadItems,System.ComponentModel.ISupportInitialize).EndInit + Me.ResumeLayout(false) - End Sub +End Sub Friend WithEvents btnTerug As System.Windows.Forms.Button Friend WithEvents ComboBoxDiepte As System.Windows.Forms.ComboBox Friend WithEvents ComboBoxHoogte As System.Windows.Forms.ComboBox @@ -482,4 +472,5 @@ Friend WithEvents RadioButtonLinksRechts As System.Windows.Forms.RadioButton Friend WithEvents CheckBoxUnicolor As System.Windows.Forms.CheckBox Friend WithEvents btnWisAlle As System.Windows.Forms.Button + Friend WithEvents CheckBoxSifonlade As CheckBox End Class FishEye: Tag 1869 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/formulieren/Specials/FormSifonEnSpoelbakLade.resx'. FishEye: No comparison available. Pass `N' to diff? Index: TAOR rework/TAOR rework/Configuraties/ReworkRedenenMapperXML.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Configuraties/ReworkRedenenMapperXML.vb (.../ReworkRedenenMapperXML.vb) (revision 1513) +++ TAOR rework/TAOR rework/Configuraties/ReworkRedenenMapperXML.vb (.../ReworkRedenenMapperXML.vb) (revision 1869) @@ -1,5 +1,6 @@ Imports System.IO Imports System.Xml.Serialization +Imports TA_OR_rework.rework Public Module ReworkRedenenMapperXML Public Sub writeToFile(reworkonderdelen As List(Of ReworkOnderdeel)) Index: TAOR rework/TAOR rework/LogBestandTextMapper.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/LogBestandTextMapper.vb (.../LogBestandTextMapper.vb) (revision 1513) +++ TAOR rework/TAOR rework/LogBestandTextMapper.vb (.../LogBestandTextMapper.vb) (revision 1869) @@ -1,164 +1,203 @@ Imports System.IO +Imports System.Text.RegularExpressions Module LogBestandTextMapper - Const aantalLogs As Integer = 5 - Dim busy As Boolean + Const MaximumAantalLogs As Integer = 5 + Dim _busy As Boolean - Private _currentLogPath As String = "" - Public ReadOnly Property currentLogPath() As String + Private _huidigeLogPad = String.Empty + Public ReadOnly Property HuidigeLogPad() As String Get - Return _currentLogPath + Return _huidigeLogPad End Get End Property + ''' + ''' Wegschrijven van entry in het logbestand. + ''' + ''' De naam van de databank + ''' Het bericht + ''' Ofdat het stuk code is voltooid + Public Sub WriteToFile(databank As String, logMessage As String, Optional voltooid As Boolean = False) + 'Kijken of de log wel moet worden weggeschreven. + if Not Configs.GeefLogOpslaanStatus() Then + 'Logs moeten niet worden opgeslagen. + Return + End If - Sub writeToFile(databank As String, logMessage As String, Optional voltooid As Boolean = False) - If Not busy Then - startNewLog() + 'Controleren of er nog geen log bestand was gemaakt. + If Not _busy Then + 'Geen log bestand was reeds aanwezig, aanmaken. + StartNewLog() + 'Bijhouden dat nieuw log bestand is aangemaakt. + _busy = True End If + Try - Dim file As System.IO.StreamWriter + 'Stream writer initialiseren met pad naar het log bestand. Tekst wordt niet overschreven, maar toegevoegd. + Dim streamWriter = My.Computer.FileSystem.OpenTextFileWriter(_huidigeLogPad, True) + 'De tekst die wordt weggeschreven opbouwen: datum databank naam status bericht. + Dim logText = String.Format("{0,-23}{1,-10}{3,-13}{2}", Now.ToString("yyyy-MM-dd HH:mm:ss"), databank, logMessage, If(voltooid, "VOLTOOID!", "")) + 'Wegschrijven. + streamWriter.WriteLine(logText) + 'De stream writer sluiten. + streamWriter.Close() + Catch ex As Exception + Throw New Exception($"Log bestand kon niet worden gevuld.{vbNewLine}{ex.Message}") + End Try + End Sub - file = My.Computer.FileSystem.OpenTextFileWriter(_currentLogPath, True) - - Dim logText As String = String.Format("{0,-15}{1}{2}", databank, logMessage, If(voltooid, " VOLTOOID!", "")) - file.WriteLine(logText) - - file.Close() + Private Sub StartNewLog() + Try + 'Hoofding opbouwen. + Dim hoofding = String.Format("{0,-23}{1,-10}{3,-13}{2}", "Datum", "Databank", "Bericht", "Status") + 'Nieuw log bestand aanmaken en pad er naartoe opslaan. + _huidigeLogPad = MaakNieuweLogFile() + 'Streamwriter initialiseren. + Dim streamWriter = My.Computer.FileSystem.OpenTextFileWriter(_huidigeLogPad, False) + 'Hoofding wegschrijven. + streamWriter.WriteLine(hoofding) + 'Stream sluiten. + streamWriter.Close() Catch ex As Exception - Throw New Exception("Log bestand kon niet worden gevuld " & vbNewLine & ex.Message) + Throw New Exception($"Log bestand kon niet worden aangemaakt.{vbNewLine}{ex.Message}") End Try End Sub - Private Sub startNewLog() + 'Vorige pad maar eenmalig bepalen en dan bijhouden. + Private _vorigeLogPad = String.Empty + + ''' + ''' Naam van de vorige log. + ''' Als het nieuwe log bestand nog niet is aangemaakt is dit het meest recente. Indien dit wel het geval is, wordt het tweede meest recente log bestand gekozen. + ''' + ''' Pad + Public Function GeefPadVorigeLog() As String + 'Als het vorige log pad al is bepaald retourneren we dit. + if Not String.IsNullOrEmpty(_vorigeLogPad) Then + Return _vorigeLogPad + End If + Try - Dim regDate As Date = Now.ToString("yyyy-MM-dd HH:mm:ss") + 'Nummers en paden opvragen. + Dim nummersEnPadenDict = GeefLogNummersEnPaden() - Dim file As System.IO.StreamWriter + 'Controleren of er wel logs beschikbaar zijn, anders lege string retourneren. + If nummersEnPadenDict.Count = 0 Then + 'Nog geen logs aanwezig. + Return String.Empty + ElseIf nummersEnPadenDict.Count = 1 And (Not String.IsNullOrEmpty(_huidigeLogPad)) Then + 'Er is een log aanwezig, maar dit is de huidige log. + Return String.Empty + End If - _currentLogPath = maakNieuweLogFile() - busy = True + 'Nummers uit dictionary halen. + Dim nummers = nummersEnPadenDict.Keys.ToList() - file = My.Computer.FileSystem.OpenTextFileWriter(_currentLogPath, False) + 'Log nummers sorteren oud -> nieuw. + nummers.Sort() - file.WriteLine(regDate) + 'Nummer van de juiste log. + Dim nummerLog As Integer - file.Close() + 'Kijken of het nieuwe log bestand al is aangemaakt. + If Not String.IsNullOrEmpty(_huidigeLogPad) Then + 'Zo ja, retourneer het voorlaatste pad. + nummerLog = nummers.Item(nummers.Count - 2) + Else + 'Zo neen, retourneer laatste pad. + nummerLog = nummers.Item(nummers.Count -1) + End If + + 'Pad opvragen uit dictionary en toewijzen aan variabele. + _vorigeLogPad = nummersEnPadenDict.Item(nummerLog) + 'Retourneren. + Return _vorigeLogPad Catch ex As Exception - Throw New Exception("Log bestand kon niet worden aangemaakt." & vbNewLine & ex.Message) + Throw New Exception($"Kon pad naar vorige log niet opvragen.{vbNewLine}{ex.Message}") End Try - End Sub + End Function - Public Function getPathLogFolder() As String - 'opvragen van het path naar het bureaublad - Dim logFolderPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) - Dim logfolder As String = "TAOR REWORK LOGS" - logFolderPath = Path.Combine(logFolderPath, logfolder) - 'als de folder nog niet bestaat, aanmaken - If (Not System.IO.Directory.Exists(logFolderPath)) Then - System.IO.Directory.CreateDirectory(logFolderPath) - End If - Return logFolderPath + Private Function MaakNieuweLogFile() As String + Try + 'Opvragen map met logs. + Dim logFolderPath As String = GetPathLogFolder() + + 'Nummers en paden opvragen. + Dim nummersEnPadenDict = GeefLogNummersEnPaden() + + 'Controleren of er nog geen logs aanwezig zijn, anders pad naar initiële log retourneren. + If nummersEnPadenDict.Count = 0 Then + Return Path.Combine(logFolderPath, "1.txt") + End If + + 'Nummers uit dictionary halen. + Dim nummers = nummersEnPadenDict.Keys.ToList() + + 'Log nummers sorteren oud -> nieuw. + nummers.Sort() + + 'Controleren of het aantal logs het maximum heeft overschreden. + If nummers.Count >= MaximumAantalLogs Then + 'Aan de hand van het nummer van de oudste log, het pad opvragen. + Dim pad = nummersEnPadenDict.Item(nummers.Item(0)) + 'De log verwijderen aan de hand van het pad. + My.Computer.FileSystem.DeleteFile(pad) + End If + + 'Nummer van de laatste log opvragen, verhogen en bijhouden. + Dim nieuweLogNummer = nummers.Item(nummers.Count -1) + 1 + + 'Nieuw log pad opbouwen en retourneren. + Return Path.Combine(logFolderPath, $"{nieuweLogNummer}.txt") + Catch ex As Exception + Throw New Exception($"Er is iets fout gelopen bij het maken van het nieuwe log bestand.{vbNewLine}{ex.Message}") + End Try End Function - Private _pathLaatsteLogFile As String - Public Function geefPathLaatsteLogFile() As String - If _pathLaatsteLogFile Is Nothing OrElse Not System.IO.File.Exists(_pathLaatsteLogFile) Then - Dim logFolderPath As String = getPathLogFolder() - 'kijken of er niks is misgelopen, max-1 aantal bestanden moeten er zijn plus 1'tje met een dubbel cijfer - controleerEnFixBestanden(logFolderPath) + Private Function GeefLogNummersEnPaden() As Dictionary(Of Integer, String) + 'Dictionary initialiseren met als sleutel de nummer en value het pad van de log. + Dim nummersEnPadenDict = New Dictionary(Of Integer, String) - Dim volledigPadMogelijkeLogFile As String - For teller As Integer = 1 To aantalLogs - volledigPadMogelijkeLogFile = Path.Combine(logFolderPath, "log" & teller & teller & ".txt") - If System.IO.File.Exists(volledigPadMogelijkeLogFile) Then - 'als er nog geen nieuwe log is aangemaakt kunnen we kijken naar de huidige log met 2 cijfers, anders moeten we die ervoor nemen - If busy Then - 'als de huidige log '11' is, moeten we kijken of 'aantalLogs' bestaat - Dim padNaarVorigeLog As String - If teller = 1 Then - padNaarVorigeLog = Path.Combine(logFolderPath, "log" & aantalLogs & ".txt") - Else - padNaarVorigeLog = Path.Combine(logFolderPath, "log" & teller - 1 & ".txt") - End If - If System.IO.File.Exists(padNaarVorigeLog) Then - _pathLaatsteLogFile = padNaarVorigeLog - Return _pathLaatsteLogFile - Else - _pathLaatsteLogFile = "" - Return _pathLaatsteLogFile - End If - End If - _pathLaatsteLogFile = volledigPadMogelijkeLogFile - Return _pathLaatsteLogFile - End If - Next - _pathLaatsteLogFile = "" - Return _pathLaatsteLogFile + 'Log map opvragen. + Dim pathLogFolder = GetPathLogFolder() + 'Alle bestanden hierin overlopen en opslaan in lijst. + Dim logBestandspaden = Directory.EnumerateFiles(pathLogFolder).ToList() + + 'Controleren of er wel logs beschikbaar zijn, anders lege dictionary retourneren. + If logBestandspaden.Count = 0 Then + 'Nog geen logs aanwezig. + Return nummersEnPadenDict End If - Return _pathLaatsteLogFile - End Function - Private Function maakNieuweLogFile() As String - Dim logFolderPath As String = getPathLogFolder() - 'kijken of er niks is misgelopen, max-1 aantal bestanden moeten er zijn plus 1'tje met een dubbel cijfer - controleerEnFixBestanden(logFolderPath) + 'Log nummer uit het pad halen. - Dim vorigeLogFileAanwezig As Boolean - Dim volledigPadVorigeLogFile As String - For teller As Integer = 1 To aantalLogs - volledigPadVorigeLogFile = Path.Combine(logFolderPath, "log" & teller & teller & ".txt") - If System.IO.File.Exists(volledigPadVorigeLogFile) Then - vorigeLogFileAanwezig = True - 'als er al een log bestaat, hernoemen en een nieuwe aanmaken - My.Computer.FileSystem.RenameFile(volledigPadVorigeLogFile, "log" & teller & ".txt") - Dim logIndex As Integer = ((teller Mod 5) + 1) - Dim padNieuweLogFile As String = Path.Combine(logFolderPath, "log" & logIndex & ".txt") - 'kijken of de volgende log al bestaat, indien wel, verwijderen en nieuwe aanmaken - If System.IO.File.Exists(padNieuweLogFile) Then - My.Computer.FileSystem.DeleteFile(padNieuweLogFile) - End If - Return Path.Combine(logFolderPath, "log" & logIndex & logIndex & ".txt") - End If + 'Dictionary vullen. + For Each pad In logBestandspaden + 'Laatste nummer nemen, dat nadien niet wordt gevolgd door een nummer. + Dim nummer = Regex.Match(pad, "(\d+)(?!.*\d)").Value + 'Toevoegen aan dictionary. + nummersEnPadenDict.Add(nummer, pad) Next - If Not vorigeLogFileAanwezig Then - Return Path.Combine(logFolderPath, "log" & 1 & 1 & ".txt") - End If - Throw New Exception("Er is iets fout gelopen bij het opvragen van het Path voor de log bestanden") + + 'Opgevulde dictionary retourneren. + Return nummersEnPadenDict End Function - Private Sub controleerEnFixBestanden(strPath As String) - Dim aantalGevonden As Integer = 0 - For teller As Integer = 1 To aantalLogs - Dim volledigPath As String = Path.Combine(strPath, "log" & teller & teller & ".txt") - If System.IO.File.Exists(volledigPath) Then - aantalGevonden += 1 + Public Function GetPathLogFolder() As String + Try + 'Opvragen van het pad naar het bureaublad. + Dim desktopPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + 'Pad naar log folder opbouwen. + Dim logFolderPath = Path.Combine(desktopPath, "TAOR REWORK LOGS") + 'Als de folder nog niet bestaat, aanmaken. + If (Not Directory.Exists(logFolderPath)) Then + Directory.CreateDirectory(logFolderPath) End If - Next - If aantalGevonden <> 1 Then - fixbestanden(strPath, aantalGevonden) - End If - End Sub + Return logFolderPath + Catch ex As Exception + Throw New Exception($"Kon pad van de map met logs niet opvragen of kon map niet aanmaken.{vbNewLine}{ex.Message}") + End Try + End Function - Private Sub fixbestanden(strPath As String, aantalGevonden As Integer) - If aantalGevonden > 1 Then - Dim teller As Integer = 1 - While aantalGevonden > 1 And teller <= aantalLogs - Dim volledigPath As String = Path.Combine(strPath, "log" & teller & teller & ".txt") - If System.IO.File.Exists(volledigPath) Then - My.Computer.FileSystem.RenameFile(volledigPath, "log" & teller & ".txt") - aantalGevonden -= 1 - End If - teller += 1 - End While - Else - 'terug beginnen tellen vanaf 1 - Dim volledigPath As String = Path.Combine(strPath, "log" & 1 & ".txt") - 'als er nog geen enkele log file aanwezig is, moeten we niks doen - If System.IO.File.Exists(volledigPath) Then - My.Computer.FileSystem.DeleteFile(volledigPath) - End If - End If - End Sub - End Module \ No newline at end of file Index: TAOR rework/TAOR rework/Voorraad/VoorraadItem.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Voorraad/VoorraadItem.vb (.../VoorraadItem.vb) (revision 1513) +++ TAOR rework/TAOR rework/Voorraad/VoorraadItem.vb (.../VoorraadItem.vb) (revision 1869) @@ -1,187 +1,92 @@ Public Class VoorraadItem Implements IVoorraadItem - Public Sub New(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String) - Me.labelProp = label - Me.linksOfRechtsProp = linksOfRechts - Me.diepteProp = diepte - Me.hoogteProp = hoogte - Me.kantenbandProp = kantenband - Me.kleurBinnenProp = kleurBinnen - Me.kleurBuitenProp = kleurBuiten + Public Sub New(label As String, linksOfRechts As LinksOfRechts, diepte As String, hoogte As String, kantenband As String, kleurBinnen As String, kleurBuiten As String, isSifonlade As Boolean) + Me.Label = label + Me.LinksOfRechts = linksOfRechts + Me.Diepte = diepte + Me.Hoogte = hoogte + Me.Kantenband = kantenband + Me.KleurBinnen = kleurBinnen + Me.KleurBuiten = kleurBuiten + Me.IsSifonlade = isSifonlade End Sub #Region "properties" - Public ReadOnly Property label As String Implements IVoorraadItem.label - Get - Return _label - End Get - End Property + Public Property PartnerInSlot() As VoorraadItem - Public ReadOnly Property linksOfRechts As LinksOfRechts Implements IVoorraadItem.linksOfRechts + Private _zijkantArdisDatas As ArdisData() + Public ReadOnly Property ZijkantArdisDatas() As ArdisData() Get - Return _linksOfRechts + If _zijkantArdisDatas Is Nothing Then + Throw New Exception("De zijkant Ardis datas zijn nog niet gegenereerd.") + End If + Return _zijkantArdisDatas End Get End Property - Public ReadOnly Property diepte As String Implements IVoorraadItem.diepte + Private _zijkantAutomillingData As ZijkamerFreesProductieData + Public ReadOnly Property ZijkantAutomillingData() As ZijkamerFreesProductieData Get - Return _diepte + If _zijkantAutomillingData Is Nothing Then + Throw New Exception("De zijkant zijkantAutomillingData data is nog niet gegenereerd.") + End If + Return _zijkantAutomillingData End Get End Property - Public ReadOnly Property hoogte As String Implements IVoorraadItem.hoogte + Private _zijkantKantenbandDatas As KantenbandData() + Public ReadOnly Property ZijkantKantenbandDatas() As KantenbandData() Get - Return _hoogte + If _zijkantKantenbandDatas Is Nothing Then + Throw New Exception("De zijkant KantenbandData data is nog niet gegenereerd.") + End If + Return _zijkantKantenbandDatas End Get End Property - Public ReadOnly Property kantenband As String Implements IVoorraadItem.kantenband - Get - Return _kantenband - End Get - End Property - - Public ReadOnly Property kleurBinnen As String Implements IVoorraadItem.kleurBinnen - Get - Return _kleurBinnen - End Get - End Property - - Public ReadOnly Property kleurBuiten As String Implements IVoorraadItem.kleurBuiten - Get - Return _kleurBuiten - End Get - End Property - Private _label As String - Public Property labelProp() As String + Public Property Label() As String Implements IVoorraadItem.Label Get Return _label End Get - Set(ByVal value As String) - If value Is Nothing OrElse value.Trim().Equals("") Then - Throw New Exception("Label tekst mag niet leeg zijn") + Set + If String.IsNullOrEmpty(Value) OrElse String.IsNullOrEmpty(Value.Trim) Then + Throw New Exception("Label tekst mag niet leeg zijn.") End If - _label = value.Trim + _label = Value.Trim End Set End Property - Private _linksOfRechts As LinksOfRechts - Public Property linksOfRechtsProp() As LinksOfRechts - Get - Return _linksOfRechts - End Get - Set(ByVal value As LinksOfRechts) - _linksOfRechts = value - End Set - End Property + Public Property LinksOfRechts As LinksOfRechts Implements IVoorraadItem.LinksOfRechts - Private _diepte As String - Public Property diepteProp() As String - Get - Return _diepte - End Get - Set(ByVal value As String) - _diepte = value - End Set - End Property + Public Property Diepte As String Implements IVoorraadItem.Diepte - Private _hoogte As String - Public Property hoogteProp() As String - Get - Return _hoogte - End Get - Set(ByVal value As String) - _hoogte = value - End Set - End Property + Public Property Hoogte As String Implements IVoorraadItem.Hoogte - Private _kantenband As String - Public Property kantenbandProp() As String - Get - Return _kantenband - End Get - Set(ByVal value As String) - _kantenband = value - End Set - End Property + Public Property Kantenband As String Implements IVoorraadItem.Kantenband - Private _kleurBinnen As String - Public Property kleurBinnenProp() As String - Get - Return _kleurBinnen - End Get - Set(ByVal value As String) - _kleurBinnen = value - End Set - End Property + Public Property KleurBinnen As String Implements IVoorraadItem.KleurBinnen - Private _kleurBuiten As String - Public Property kleurBuitenProp() As String - Get - Return _kleurBuiten - End Get - Set(ByVal value As String) - _kleurBuiten = value - End Set - End Property + Public Property KleurBuiten As String Implements IVoorraadItem.KleurBuiten - Private _partnerInSlot As VoorraadItem - Public Property partnerInSlot() As VoorraadItem - Get - Return _partnerInSlot - End Get - Set(ByVal value As VoorraadItem) - _partnerInSlot = value - End Set - End Property + Public Property IsSifonlade As Boolean Implements IVoorraadItem.IsSifonlade - Private _zijkantArdisDatas As ArdisData() - Public ReadOnly Property zijkantArdisDatas() As ArdisData() - Get - If _zijkantArdisDatas Is Nothing Then - Throw New Exception("De zijkant Ardis datas zijn nog niet gegenereerd") - End If - Return _zijkantArdisDatas - End Get - End Property + Property IsTweedeVanPaar As Boolean - Private _zijkantAutomillingData As ZijkamerFreesProductieData - Public ReadOnly Property zijkantAutomillingData() As ZijkamerFreesProductieData - Get - If _zijkantAutomillingData Is Nothing Then - Throw New Exception("De zijkant zijkantAutomillingData data is nog niet gegenereerd") - End If - Return _zijkantAutomillingData - End Get - End Property - - Private _zijkantKantenbandDatas As KantenbandData() - Public ReadOnly Property zijkantKantenbandDatas() As KantenbandData() - Get - If _zijkantKantenbandDatas Is Nothing Then - Throw New Exception("De zijkant KantenbandData data is nog niet gegenereerd") - End If - Return _zijkantKantenbandDatas - End Get - End Property - #End Region - Property isTweedeVanPaar As Boolean - - Public Sub genereerZijkantArdisData() + Public Sub GenereerZijkantArdisData() If _zijkantArdisDatas Is Nothing Then Dim ardisDataBinnen As New ArdisData Dim ardisDataBuiten As New ArdisData - ardisDataBinnen.voorraadStelInitieleWaardenIn(diepte, hoogte, label, kleurBinnen) - ardisDataBinnen.voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts, hoogte, CacheMapper.geefBarcodeNummer()) + ardisDataBinnen.voorraadStelInitieleWaardenIn(Diepte, Hoogte, Label, KleurBinnen) + ardisDataBinnen.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade) - ardisDataBuiten.voorraadStelInitieleWaardenIn(diepte, hoogte, label, kleurBuiten) - ardisDataBuiten.voorraadGenereerBarcodeEnStelEtiketlijnIn(linksOfRechts, hoogte, CacheMapper.geefBarcodeNummer()) + ardisDataBuiten.voorraadStelInitieleWaardenIn(Diepte, Hoogte, Label, KleurBuiten) + ardisDataBuiten.voorraadGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade) ardisDataBinnen.updateKommasNaarPunten() ardisDataBuiten.updateKommasNaarPunten() @@ -190,35 +95,34 @@ End If End Sub - Public Sub genereerZijkantAutomillingData() + Public Sub GenereerZijkantAutomillingData() If _zijkantAutomillingData Is Nothing Then - Dim zijkantA As ArdisData = zijkantArdisDatas(0) + Dim zijkantA As ArdisData = ZijkantArdisDatas(0) Dim zijkamerfreesProductieData As New ZijkamerFreesProductieData - If _partnerInSlot Is Nothing Then - zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, linksOfRechts, kleurBinnen, diepte, hoogte, label, zijkantA.PartCalc) - zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(hoogte) + If PartnerInSlot Is Nothing Then + zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, LinksOfRechts, KleurBinnen, Diepte, Hoogte, Label, zijkantA.PartCalc) + zijkamerfreesProductieData.voorraadStelProgrammasInZonderPartner(Hoogte) Else - zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, linksOfRechts, kleurBinnen, diepte, hoogte, label, zijkantA.PartCalc, _partnerInSlot.zijkantArdisDatas(0).PartCalc) - zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(linksOfRechts, partnerInSlot.linksOfRechts, hoogte) + zijkamerfreesProductieData.voorraadStelInitieleWaardenIn(zijkantA.KamerfreesTrayId, zijkantA.KamerfreesSlotNr, LinksOfRechts, KleurBinnen, Diepte, Hoogte, Label, zijkantA.PartCalc, PartnerInSlot.ZijkantArdisDatas(0).PartCalc) + zijkamerfreesProductieData.voorraadStelProgrammasInMetPartner(LinksOfRechts, PartnerInSlot.LinksOfRechts, Hoogte) End If _zijkantAutomillingData = zijkamerfreesProductieData End If End Sub - Public Sub genereerZijkantKantenbandDatas() - If _zijkantKantenbandDatas Is Nothing And Not isTweedeVanPaar Then ' de kantenbanddata's wordt door 1 van de twee van het paar afgehandeld - Dim zijkantA As ArdisData = zijkantArdisDatas(0) + Public Sub GenereerZijkantKantenbandDatas() + If _zijkantKantenbandDatas Is Nothing And Not IsTweedeVanPaar Then ' de kantenbanddata's wordt door 1 van de twee van het paar afgehandeld + Dim zijkantA = ZijkantArdisDatas(0) Dim kantenbandDataA As New KantenbandData - kantenbandDataA.voorraadStelInitieleWaardenIn(zijkantA.PartMat, zijkantA.PartCalc, diepte, hoogte, kantenband) + kantenbandDataA.voorraadStelInitieleWaardenIn(zijkantA.PartMat, zijkantA.PartCalc, Diepte, Hoogte, Kantenband) - Dim zijkantB As New ArdisData Dim kantenbandDataB As KantenbandData - If Not _partnerInSlot Is Nothing Then - zijkantB = _partnerInSlot.zijkantArdisDatas(0) + If Not PartnerInSlot Is Nothing Then + Dim zijkantB = PartnerInSlot.ZijkantArdisDatas(0) kantenbandDataB = New KantenbandData - kantenbandDataB.voorraadStelInitieleWaardenIn(zijkantB.PartMat, zijkantB.PartCalc, diepte, hoogte, kantenband) + kantenbandDataB.voorraadStelInitieleWaardenIn(zijkantB.PartMat, zijkantB.PartCalc, Diepte, Hoogte, Kantenband) Else kantenbandDataB = Nothing End If @@ -228,13 +132,3 @@ End Sub End Class - -Public Interface IVoorraadItem - ReadOnly Property label() As String - ReadOnly Property linksOfRechts() As LinksOfRechts - ReadOnly Property diepte As String - ReadOnly Property hoogte As String - ReadOnly Property kantenband As String - ReadOnly Property kleurBinnen As String - ReadOnly Property kleurBuiten As String -End Interface Index: TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 1513) +++ TAOR rework/TAOR rework/formulieren/FormConfigsWijzigen.vb (.../FormConfigsWijzigen.vb) (revision 1869) @@ -24,8 +24,10 @@ Private Sub laadBasisConfigs() TextBoxConfigPath.Text = My.Settings.PathNaarConfigMap CheckBoxVerwerk.Checked = My.Settings.VerwerkStatus + CheckBoxLogs.Checked = My.Settings.LogOpslaanStatus End Sub + 'Config pad. Private Sub ButtonConfigPath_Click(sender As System.Object, e As System.EventArgs) Handles ButtonConfigPath.Click FolderBrowserDialog.SelectedPath = My.Settings.PathNaarConfigMap Dim result As DialogResult = FolderBrowserDialog.ShowDialog() @@ -38,14 +40,16 @@ TextBoxConfigPath.Text = My.Settings.PathNaarConfigMapDefault End Sub - Private Sub ButtonOpslaanHoofdConfigs_Enabler(sender As System.Object, e As System.EventArgs) Handles TextBoxConfigPath.TextChanged, CheckBoxVerwerk.CheckedChanged + 'Opslaan button enablen bij wijziging aan een setting. + Private Sub ButtonOpslaanHoofdConfigs_Enabler(sender As System.Object, e As System.EventArgs) Handles TextBoxConfigPath.TextChanged, CheckBoxVerwerk.CheckedChanged, CheckBoxLogs.CheckedChanged ButtonOpslaanHoofdConfigs.Enabled = True End Sub Private Sub ButtonOpslaanHoofdConfigs_Click(sender As System.Object, e As System.EventArgs) Handles ButtonOpslaanHoofdConfigs.Click If vraagOpslaanAanGebruiker() Then My.Settings.PathNaarConfigMap = TextBoxConfigPath.Text My.Settings.VerwerkStatus = CheckBoxVerwerk.Checked + My.Settings.LogOpslaanStatus = CheckBoxLogs.Checked Application.Restart() End If End Sub Index: TAOR rework/TAOR rework/laden/special laden/SpecialLadenRepository.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/laden/special laden/SpecialLadenRepository.vb (.../SpecialLadenRepository.vb) (revision 1513) +++ TAOR rework/TAOR rework/laden/special laden/SpecialLadenRepository.vb (.../SpecialLadenRepository.vb) (revision 1869) @@ -3,8 +3,6 @@ Public Sub New() _specialLaden = New List(Of SpecialLade) - _sifonLaden = New List(Of SifonLade) - _spoelbakLaden = New List(Of SpoelbakLade) _specialLadenDiepereZijkant = New List(Of SpecialLadeDiepereZijkant) _specialLadenHogereZijkant = New List(Of SpecialLadeHogereZijkant) _specialLadenNieuweKleur = New List(Of SpecialLadeNieuweKleur) @@ -73,58 +71,6 @@ End Get End Property -#Region "sifon laden" - - Private _sifonLaden As List(Of SifonLade) - Public ReadOnly Property sifonLaden As List(Of SifonLade) - Get - controleerSifonLaden() - Return New List(Of SifonLade)(_sifonLaden) - End Get - End Property - - Public Function geefSifonLade(index As Integer) As SifonLade - controleerSifonLaden() - Return _sifonLaden(index) - End Function - - Public ReadOnly Property zijnErSifonLaden() As Boolean - Get - If _sifonLaden Is Nothing OrElse _sifonLaden.Count <= 0 Then - Return False - End If - Return True - End Get - End Property - -#End Region - -#Region "spoelbak laden" - - Private _spoelbakLaden As List(Of SpoelbakLade) - Public ReadOnly Property spoelbakLaden As List(Of SpoelbakLade) - Get - controleerSpoelbakLaden() - Return New List(Of SpoelbakLade)(_spoelbakLaden) - End Get - End Property - - Public Function geefSpoelbakLade(index As Integer) As SpoelbakLade - controleerSpoelbakLaden() - Return _spoelbakLaden(index) - End Function - - Public ReadOnly Property zijnErSpoelbakLaden() As Boolean - Get - If _spoelbakLaden Is Nothing OrElse _spoelbakLaden.Count <= 0 Then - Return False - End If - Return True - End Get - End Property - -#End Region - #Region "special laden diepere zijkant" Private _specialLadenDiepereZijkant As List(Of SpecialLadeDiepereZijkant) @@ -218,18 +164,6 @@ End If End Sub - Private Sub controleerSifonLaden() - If Not zijnErSifonLaden Then - Throw New Exception("Er is/zijn nog geen sifon lade(n) geselecteerd") - End If - End Sub - - Private Sub controleerSpoelbakLaden() - If Not zijnErSpoelbakLaden Then - Throw New Exception("Er is/zijn nog geen spoelbak lade(n) geselecteerd") - End If - End Sub - Private Sub controleerSpecialLadeDiepereZijkant() If Not zijnErSpecialLadenDiepereZijkant Then Throw New Exception("Er is/zijn nog geen special lade(n) diepere zijkant geselecteerd") @@ -267,14 +201,10 @@ Public Sub verwijderSpecialLaden() _typeLade = ItemType.GEEN _specialLadenOnderdelen = Nothing - _sifonLaden = Nothing - _spoelbakLaden = Nothing _specialLadenDiepereZijkant = Nothing _specialLadenHogereZijkant = Nothing _specialLadenNieuweKleur = Nothing _specialLaden = New List(Of SpecialLade) - _sifonLaden = New List(Of SifonLade) - _spoelbakLaden = New List(Of SpoelbakLade) _specialLadenDiepereZijkant = New List(Of SpecialLadeDiepereZijkant) _specialLadenHogereZijkant = New List(Of SpecialLadeHogereZijkant) _specialLadenNieuweKleur = New List(Of SpecialLadeNieuweKleur) @@ -294,12 +224,6 @@ Dim specialLade As SpecialLade Select Case type - Case ItemType.SIFONLADE - specialLade = New SifonLade - _sifonLaden.Add(specialLade) - Case ItemType.SPOELBAKLADE - specialLade = New SpoelbakLade - _spoelbakLaden.Add(specialLade) Case ItemType.DIEPEREZIJKANT specialLade = New SpecialLadeDiepereZijkant _specialLadenDiepereZijkant.Add(specialLade) @@ -334,125 +258,6 @@ Next End Sub -#Region "sifonLade" - - 'waarden sifonlade instellen - Public Sub sifonLadeStelPositieIn(positie As Double) - controleerSifonLaden() - For Each sifonLade In _sifonLaden - sifonLade.positionSifon = positie - Next - End Sub - Public Sub sifonLadeStelBreedteIn(breedte As Double) - controleerSifonLaden() - For Each sifonLade In _sifonLaden - sifonLade.breedteSifon = breedte - Next - End Sub - Public Sub sifonLadeStelDiepteIn(diepte As Double) - controleerSifonLaden() - For Each sifonLade In _sifonLaden - sifonLade.diepteSifon = diepte - Next - End Sub - - Public Function geefRestSifonVanSifonLaden() As Double - controleerSifonLaden() - Dim rest As Double = -1 - For Each sifonLade As SifonLade In _sifonLaden - If rest = -1 Or rest = sifonLade.geefRest Then - rest = sifonLade.geefRest - Else - Throw New Exception("Rest sifon is niet dezelfde in elke sifon lade") - End If - Next - Return rest - End Function - - Public Sub updateEtiketLijnSifonLaden() - controleerSifonLaden() - For Each sifonLade As SifonLade In _sifonLaden - sifonLade.updateEtiketLijn() - Next - End Sub - - Public Sub maakExtraOnderdelenSifonLaden() - controleerSifonLaden() - Dim lengte As String = Configs.geefNettoLengte(_sifonLaden(0).diepteSifon) - For Each sifonLade As SifonLade In _sifonLaden - sifonLade.maakZijkantenBij(lengte) - 'de ene rug => twee ruggen met andere lengte en barcode - sifonLade.maakExtraRuggen() - Next - End Sub - -#End Region - -#Region "spoelbakLade" - - 'waarden spoelbaklade instellen - Public Sub spoelbakLadeStelPositieIn(positie As Double) - controleerSpoelbakLaden() - For Each spoelbakLade In _spoelbakLaden - spoelbakLade.positieSpoelbak = positie - Next - End Sub - Public Sub spoelbakLadeStelBreedteIn(breedte As Double) - controleerSpoelbakLaden() - For Each spoelbakLade In _spoelbakLaden - spoelbakLade.breedteSpoelbak = breedte - Next - End Sub - Public Sub spoelbakLadeStelInitiëlePositieIn() - controleerSpoelbakLaden() - For Each spoelbakLade In _spoelbakLaden - spoelbakLade.stelInitiëlePositieIn() - Next - End Sub - - Function geefNuttigeRuimteZijvakkenSpoelbakVanSpoelbakLaden() As Double - controleerSpoelbakLaden() - Dim nuttigeRuimteZijvakken As Double = -1 - For Each spoelbakLade As SpoelbakLade In _spoelbakLaden - If nuttigeRuimteZijvakken = -1 Or nuttigeRuimteZijvakken = spoelbakLade.geefNuttigeRuimteZijvakken Then - nuttigeRuimteZijvakken = spoelbakLade.geefNuttigeRuimteZijvakken - Else - Throw New Exception("Nuttige ruimte zijvakken is niet dezelfde in elke spoelbak lade") - End If - Next - Return nuttigeRuimteZijvakken - End Function - - Public Function geefPositieSpoelbakVanSpoelbakLaden() As Double - controleerSpoelbakLaden() - Dim positieSpoelbak As Double = -1 - For Each spoelbakLade As SpoelbakLade In _spoelbakLaden - If positieSpoelbak = -1 Or positieSpoelbak = spoelbakLade.positieSpoelbak Then - positieSpoelbak = spoelbakLade.positieSpoelbak - Else - Throw New Exception("Positie spoelbak is niet dezelfde in elke spoelbak lade") - End If - Next - Return positieSpoelbak - End Function - - Public Sub updateEtiketLijnSpoelbakLaden() - controleerSpoelbakLaden() - For Each spoelbakLade As SpoelbakLade In _spoelbakLaden - spoelbakLade.updateEtiketLijn() - Next - End Sub - - Public Sub maakExtraOnderdelenSpoelbakLaden() - controleerSpoelbakLaden() - Dim lengte As String = _spoelbakLaden(0).geefDiepteSpoelbak - For Each spoelbakLade As SpoelbakLade In _spoelbakLaden - spoelbakLade.maakZijkantenBij(lengte) - Next - End Sub - -#End Region - #Region "specialLadeDiepereZijkant" 'waarden specialLadeDiepereZijkant instellen Index: TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb =================================================================== diff -u -r1592 -r1869 --- TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb (.../ArdisMapper.vb) (revision 1592) +++ TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb (.../ArdisMapper.vb) (revision 1869) @@ -1,180 +1,229 @@ Imports System.Data.SqlClient -Imports System.Data.Odbc Public Module ArdisMapper - Public SQLConnection As New SqlConnection With {.ConnectionString = "Server=Ardisserver\SQLEXPRESS; database=VH_Ardis_TST; user=VH_write; Pwd=SQLwr!t3"} - Public command As SqlCommand + Private ReadOnly SqlConnection As New SqlConnection With {.ConnectionString = "Server=Ardisserver\SQLEXPRESS; database=VH_Ardis_TST; user=VH_write; Pwd=SQLwr!t3"} + Private _command As SqlCommand - Private Sub connectToArdis() - If Not SQLConnection.State = ConnectionState.Open Then - testConnection() - SQLConnection.Open() + ''' + ''' Hulpfunctie voor te connecteren met Ardis. + ''' + Private Sub ConnectToArdis() + If Not SqlConnection.State = ConnectionState.Open Then + Try + SqlConnection.Open() + Catch ex As Exception + Throw New Exception($"De Ardis databank kan niet bereikt worden {vbNewLine}{ex.Message}") + End Try End If End Sub - Private Sub testConnection() + ''' + ''' Uitvoeren van een query naar een data reader. + ''' + ''' De query + ''' De ODBC data reader + Private Function ExecuteIntoDataReader(query As String) As SqlDataReader Try - SQLConnection.Open() - SQLConnection.Close() + ConnectToArdis() + Return New SqlCommand(query, SqlConnection).ExecuteReader() Catch ex As Exception - Throw New Exception("De Ardis databank kan niet bereikt worden " & vbNewLine & vbNewLine & ex.Message) + Throw New Exception($"Kon datareader niet opvragen uit Ardis datatabank.{vbNewLine}{ex.Message}") End Try - End Sub + End Function - Private Function getList(Query As String) As List(Of String) - Dim result As New List(Of String) - Dim dr As SqlDataReader = Nothing + ''' + ''' Commando uitvoeren en eerste items per record retourneren als lijst van strings. + ''' + ''' De query + ''' De eerste items van de records. + Private Function ExecuteIntoListOfString(query As String) As List(Of String) Try - connectToArdis() - command = New SqlCommand(Query, SQLConnection) - dr = command.ExecuteReader - While dr.Read - result.Add(dr(0)) + 'Initialisatie van de lijst. + Dim data As New List(Of String) + + 'Opvragen van de data reader. + Dim dr = ExecuteIntoDataReader(query) + + 'Overlopen van de resultaten en toevoegen aan de lijst. + While (dr.Read()) + 'Eerste veld van een record toevoegen aan de lijst. + data.Add(dr.GetValue(0).ToString) End While + + 'Connectie met data reader sluiten. + dr.Close() + + 'De lijst retourneren. + Return data Catch ex As Exception - Throw New Exception("De Ardis databank kan niet bereikt worden " + ex.Message) - Finally - If Not (dr Is Nothing OrElse dr.IsClosed) Then - dr.Close() - End If + Throw New Exception($"Er is een fout opgetreden bij het opvragen van een lijst van data uit de Ardis databank {vbNewLine}{ex.Message}") End Try - Return result End Function - Private Function executeIntoResultset(Query As String) As ArdisData - Dim ardisData As ArdisData = Nothing - Dim dr As SqlDataReader = Nothing - Try - connectToArdis() - command = New SqlCommand(Query, SQLConnection) - dr = command.ExecuteReader - While dr.Read() - ardisData = New ArdisData - ardisData.PartId = CStr(dr.Item("PartId")) - ardisData.OrderId = CStr(dr.Item("OrderId")) - ardisData.PartRef = CStr(dr.Item("PartRef")) - ardisData.PartQty = CStr(dr.Item("PartQty")) - ardisData.PartMat = CStr(dr.Item("PartMat")) - ardisData.PartL = CStr(dr.Item("PartL")) - ardisData.PartW = CStr(dr.Item("PartW")) - ardisData.PartCalc = CStr(dr.Item("PartCalc")) - ardisData.PartRemark = CStr(dr.Item("PartRemark")) - ardisData.PartRemark2 = CStr(dr.Item("PartRemark2")) - ardisData.PartRemark3 = CStr(dr.Item("PartRemark3")) - ardisData.PartGroup = CStr(dr.Item("PartGroup")) - ardisData.PartLevel = CStr(dr.Item("PartLevel")) - ardisData.PartExt01 = CStr(dr.Item("PartExt01")) - ardisData.PartExt02 = CStr(dr.Item("PartExt02")) - ardisData.PartExt03 = CStr(dr.Item("PartExt03")) - ardisData.PartExt04 = CStr(dr.Item("PartExt04")) - ardisData.PartExt05 = If(IsDBNull(dr.Item("PartExt05")), Nothing, CStr(dr.Item("PartExt05"))) - ardisData.PartExt06 = CStr(dr.Item("PartExt06")) - ardisData.PartExt07 = CStr(dr.Item("PartExt07")) - ardisData.PartExt08 = CStr(dr.Item("PartExt08")) - ardisData.PartExt09 = CStr(dr.Item("PartExt09")) - ardisData.PartD = CStr(dr.Item("PartD")) - ardisData.PartProd = CStr(dr.Item("PartProd")) - ardisData.GroupCode = If(IsDBNull(dr.Item("GroupCode")), Nothing, CStr(dr.Item("GroupCode"))) - ardisData.Status = CStr(dr.Item("Status")) - ardisData.Inserted = CStr(dr.Item("Inserted")) - ardisData.LastChanged = CStr(dr.Item("LastChanged")) - ardisData.PartQtyCut = If(IsDBNull(dr.Item("PartQtyCut")), Nothing, CStr(dr.Item("PartQtyCut"))) - ardisData.PartExt10 = If(IsDBNull(dr.Item("PartExt10")), Nothing, CStr(dr.Item("PartExt10"))) - ardisData.PartExt11 = If(IsDBNull(dr.Item("PartExt11")), Nothing, CStr(dr.Item("PartExt11"))) - End While - Catch ex As Exception - Throw New Exception("Er is een fout opgetreden bij het ophalen van data uit de Ardis databank " + ex.Message) - Finally - If Not (dr Is Nothing OrElse dr.IsClosed) Then - dr.Close() - End If - End Try + ''' + ''' Hulpfunctie voor een query uit te voeren en het resultaat + ''' + ''' te converteren naar 'ArdisData'. + ''' De gevulde ArdisData + Private Function ExecuteIntoResultset(query As String) As ArdisData + 'Data reader opvragen. + Dim dr = ExecuteIntoDataReader(query) + 'Datareader lezen, eerste record ophalen en retourneren als Ardis data. + dr.Read() + Dim ardisData = New ArdisData With { + .PartId = CStr(dr.Item("PartId")), + .OrderId = CStr(dr.Item("OrderId")), + .PartRef = CStr(dr.Item("PartRef")), + .PartQty = CStr(dr.Item("PartQty")), + .PartMat = CStr(dr.Item("PartMat")), + .PartL = CStr(dr.Item("PartL")), + .PartW = CStr(dr.Item("PartW")), + .PartCalc = CStr(dr.Item("PartCalc")), + .PartRemark = CStr(dr.Item("PartRemark")), + .PartRemark2 = CStr(dr.Item("PartRemark2")), + .PartRemark3 = CStr(dr.Item("PartRemark3")), + .PartGroup = CStr(dr.Item("PartGroup")), + .PartLevel = CStr(dr.Item("PartLevel")), + .PartExt01 = CStr(dr.Item("PartExt01")), + .PartExt02 = CStr(dr.Item("PartExt02")), + .PartExt03 = CStr(dr.Item("PartExt03")), + .PartExt04 = CStr(dr.Item("PartExt04")), + .PartExt05 = If(IsDBNull(dr.Item("PartExt05")), Nothing, CStr(dr.Item("PartExt05"))), + .PartExt06 = CStr(dr.Item("PartExt06")), + .PartExt07 = CStr(dr.Item("PartExt07")), + .PartExt08 = CStr(dr.Item("PartExt08")), + .PartExt09 = CStr(dr.Item("PartExt09")), + .PartD = CStr(dr.Item("PartD")), + .PartProd = CStr(dr.Item("PartProd")), + .GroupCode = If(IsDBNull(dr.Item("GroupCode")), Nothing, CStr(dr.Item("GroupCode"))), + .Status = CStr(dr.Item("Status")), + .Inserted = CStr(dr.Item("Inserted")), + .LastChanged = CStr(dr.Item("LastChanged")), + .PartQtyCut = If(IsDBNull(dr.Item("PartQtyCut")), Nothing, CStr(dr.Item("PartQtyCut"))), + .PartExt10 = If(IsDBNull(dr.Item("PartExt10")), Nothing, CStr(dr.Item("PartExt10"))), + .PartExt11 = If(IsDBNull(dr.Item("PartExt11")), Nothing, CStr(dr.Item("PartExt11"))) + } + + 'Connectie met data reader sluiten. + dr.Close() + Return ardisData End Function - Public Function OphalenData(BarcodeID As String) As ArdisData + ''' + ''' Ophalen van ArdisData aan de hand van een barcodeId. + ''' + ''' Het barcodeId + ''' De ArdisData + Public Function OphalenData(barcodeId As String) As ArdisData Try - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van Ardisdata met barcode " & BarcodeID) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van Ardisdata met barcode '{barcodeId}'") - Dim result As ArdisData - - Dim lijstKolommen As String = "PartId, OrderId, PartRef, PartQty, PartMat, PartL, PartW, PartCalc, PartRemark, PartRemark2, PartRemark3, PartGroup, PartLevel, PartExt01, PartExt02, PartExt03, PartExt04, PartExt05, PartExt06, PartExt07, PartExt08, PartExt09, PartD, PartProd, GroupCode, Status, Inserted, LastChanged, PartQtyCut, PartExt10, PartExt11" - Dim query As String = "Select top 1 " & lijstKolommen & " From [VH_Ardis_TST].[dbo].[Parts] where PartCalc= " & "'" & BarcodeID & "'" - result = executeIntoResultset(query) - - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van Ardisdata met barcode " & BarcodeID, True) - Return result + 'Opbouwen query. + Const lijstKolommen = "PartId, OrderId, PartRef, PartQty, PartMat, PartL, PartW, PartCalc, PartRemark, PartRemark2, PartRemark3, PartGroup, PartLevel, PartExt01, PartExt02, PartExt03, PartExt04, PartExt05, PartExt06, PartExt07, PartExt08, PartExt09, PartD, PartProd, GroupCode, Status, Inserted, LastChanged, PartQtyCut, PartExt10, PartExt11" + Dim query As String = $"Select top 1 {lijstKolommen} From [VH_Ardis_TST].[dbo].[Parts] where PartCalc='{barcodeId}' order by Inserted desc" + 'Query uitvoeren en resultaat retourneren. + Dim resultaat = ExecuteIntoResultset(query) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van Ardisdata met barcode '{barcodeId}'", True) + Return resultaat Catch ex As Exception - Throw ex + Throw New Exception($"Kon ArdisData niet ophalen uit Ardis met barcode '{barcodeId}'{vbNewLine}{ex.Message}") End Try End Function - Public Function geefBarcode(ByVal Partgroup As String, ByVal PartExt02 As String, ByVal PartL As String, ByVal LinksOfRechts As String) As List(Of String) + ''' + ''' Opvragen van barcodes aan de hand van parameters. + ''' + ''' De PartGroup + ''' De PartExt02 + ''' De PartL + ''' L of R + ''' Lijst van barcodes + Public Function GeefBarcodes(ByVal partgroup As String, ByVal partExt02 As String, ByVal partL As String, ByVal linksOfRechts As String) As List(Of String) Try - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van barcodes met info " & " Partgroup, PartExt02, LinksOfRechts: " & Partgroup & ", " & PartExt02 & ", " & LinksOfRechts) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes met info Partgroup, PartExt02, LinksOfRechts: {partgroup}{partExt02}{linksOfRechts}") - Dim result As List(Of String) - Dim query As String = "select distinct PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup=" & "'" & Partgroup & "'" & " and partext02=" & "'" & PartExt02 & "'" & " and partl=" & "'" & PartL & "'" & " and partext01 like 'ZIJ-" & LinksOfRechts & "%'" - result = getList(query) + 'Query opbouwen. + Dim query As String = $"select distinct PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup='{partgroup}' and partext02='{partExt02}' and partl='{partL}' and partext01 like 'ZIJ-{linksOfRechts}%'" - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van barcodes met info " & " Partgroup, PartExt02, LinksOfRechts: " & Partgroup & ", " & PartExt02 & ", " & LinksOfRechts, True) + 'Query uitvoeren en resultaat retourneren. + Dim result = ExecuteIntoListOfString(query) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes met info Partgroup, PartExt02, LinksOfRechts: {partgroup}{partExt02}{linksOfRechts}", True) Return result Catch ex As Exception - Throw ex + Throw New Exception($"Kon barcodes niet ophalen uit Ardis met Partgroup, PartExt02, LinksOfRechts: {partgroup}{partExt02}{linksOfRechts}{vbNewLine}{ex.Message}") End Try End Function - Public Function geefBarcodeGegenereerdePlankjes(ByVal Partgroup As String, ByVal PartExt02 As String, ByVal PartL As String) As List(Of String) + ''' + ''' Opvragen van barcodes aan de hand van parameters voor gegenereerde plankjes. + ''' + ''' De PartGroup + ''' De PartExt02 + ''' De PartL + ''' Lijst van barcodes + Public Function GeefBarcodesGegenereerdePlankjes(partgroup As String, partExt02 As String, partL As String) As List(Of String) Try - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van barcodes gegenereerde plankjes met info " & " Partgroup, PartExt02: " & Partgroup & ", " & PartExt02) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes gegenereerde plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'") - Dim result As List(Of String) - Dim query As String = "select top 2 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup=" & "'" & Partgroup & "'" & " and partext02=" & "'" & PartExt02 & "'" & " and partl=" & "'" & PartL & "'" & " and partext01 like '%ZIJ-%' and (partext09 ='A' or partext09='B') order by partid desc" - result = getList(query) - - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van barcodes gegenereerde plankjes met info " & " Partgroup, PartExt02: " & Partgroup & ", " & PartExt02, True) + 'Query opbouwen. + Dim query = $"select top 2 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup='{partgroup}' and partext02='{partExt02}' and partl='{partL}' and partext01 like '%ZIJ-%' and (partext09 ='A' or partext09='B') order by partid desc" + 'Query uitvoeren en resultaat retourneren. + Dim result = ExecuteIntoListOfString(query) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes gegenereerde plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'", True) Return result Catch ex As Exception - Throw ex + Throw New Exception($"Kon barcodes voor gegenereerde plankjes niet ophalen uit Ardis met Partgroup, PartExt02, LinksOfRechts: '{partgroup}' '{partExt02}' '{partL}' {vbNewLine}{ex.Message}") End Try End Function - Public Function geefBarcodeOrigineleBijGegenereerdePlankjes(ByVal Partgroup As String, ByVal PartExt02 As String, ByVal PartL As String) As List(Of String) + ''' + ''' Opvragen van de originele barcodes bij gegenereerde plankjes. + ''' + ''' De PartGroup + ''' De PartExt02 + ''' De PartL + ''' Lijst van barcodes + Public Function GeefBarcodeOrigineleBijGegenereerdePlankjes(ByVal partgroup As String, ByVal partExt02 As String, ByVal partL As String) As List(Of String) Try - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van barcodes originele voor gegenereerde plankjes met info " & " Partgroup, PartExt02: " & Partgroup & ", " & PartExt02) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes originele plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'") - Dim result As List(Of String) - Dim query As String = "select top 4 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup=" & "'" & Partgroup & "'" & " and partext02=" & "'" & PartExt02 & "'" & " and partext01 like '%ZIJ-%' and not (partext09 ='A' or partext09='B') order by partid desc" - result = getList(query) - - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van barcodes originele voor gegenereerde plankjes met info " & " Partgroup, PartExt02: " & Partgroup & ", " & PartExt02, True) + 'Query opbouwen. + Dim query = $"select top 4 PartCalc from [VH_Ardis_TST].[dbo].[Parts] where partgroup='{partgroup}' and partext02='{partExt02}' and partl='{partL}' and partext01 like '%ZIJ-%' and (partext09 ='A' or partext09='B') order by partid desc" + 'Query uitvoeren en resultaat retourneren. + Dim result = ExecuteIntoListOfString(query) + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van barcodes originele plankjes met info Partgroup, PartExt02, PartL: '{partgroup}' '{partExt02}' '{partL}'", True) Return result Catch ex As Exception - Throw ex + Throw New Exception($"Kon barcodes voor originele plankjes niet ophalen uit Ardis met Partgroup, PartExt02, LinksOfRechts: '{partgroup}' '{partExt02}' '{partL}' {vbNewLine}{ex.Message}") End Try End Function - Private dr As SqlDataReader - Public Sub sluitDataReader() - If Not (dr Is Nothing OrElse dr.IsClosed) Then - dr.Close() - End If - End Sub - - Public Function geefDataReader(waarde As String) As SqlDataReader - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van DataReader met waarde: " & ", " & waarde) - Dim query As String = "select SUBSTRING(PartGroup, 0, 6) as BatchID, 'ToeleveringID' as ToeleveringID, substring(substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)), CHARINDEX('/',substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)))+1, CHARINDEX('/', substring(substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)), CHARINDEX('/',substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)))+1, len(partext03)))-1) as Naam, PartRemark as DossierCode, substring(substring(PartExt02, CHARINDEX('/',PartExt02)+1, len(partext02)), CHARINDEX('/',substring(PartExt02, CHARINDEX('/',PartExt02)+1, len(partext02)))+1,len(partext02)) as Kar, PartCalc as VerwerkingID, case PartRef when 'ZijkantPlaat' then 'Zijkant' else Partref end as Onderdeel, -1 as Status, 0 as Rework FROM [VH_Ardis_TST].[dbo].[Parts] where Partcalc = '" & waarde & "'" & " and PartRemark3='NoRework'" + ''' + ''' Opvragen van de datatable aan de hand van de PartCalc. + ''' + ''' De PartCalc + ''' De data table + Public Function GeefDataTable(partCalc As String) As DataTable Try - sluitDataReader() - connectToArdis() - command = New SqlCommand(query, SQLConnection) - dr = command.ExecuteReader + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van data table met partCalc: '{partCalc}'") + 'Query opbouwen. + Dim query As String = $"select SUBSTRING(PartGroup, 0, 6) as BatchID, 'ToeleveringID' as ToeleveringID, substring(substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)), CHARINDEX('/',substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)))+1, CHARINDEX('/', substring(substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)), CHARINDEX('/',substring(PartExt03, CHARINDEX('/',PartExt03)+1, len(partext03)))+1, len(partext03)))-1) as Naam, PartRemark as DossierCode, substring(substring(PartExt02, CHARINDEX('/',PartExt02)+1, len(partext02)), CHARINDEX('/',substring(PartExt02, CHARINDEX('/',PartExt02)+1, len(partext02)))+1,len(partext02)) as Kar, PartCalc as VerwerkingID, case PartRef when 'ZijkantPlaat' then 'Zijkant' else Partref end as Onderdeel, -1 as Status, 0 as Rework FROM [VH_Ardis_TST].[dbo].[Parts] where Partcalc ='{partCalc}' and PartRemark3='NoRework'" + + 'Datareader opvragen en bijhouden. + Dim dataReader = ExecuteIntoDataReader(query) + 'DataTable initialiseren en vullen met resultaat van de datareader. + Dim datatable = New DataTable() + datatable.Load(dataReader) + 'Connectie van datareader sluiten. + dataReader.Close() + 'Log + LogBestandTextMapper.writeToFile("Ardis", $"Opvragen van data table met partCalc: '{partCalc}'", True) + 'Retourneren van de datatable + Return datatable Catch ex As Exception - sluitDataReader() - Throw New Exception("Er is een fout opgetreden bij het ophalen van de reader data uit de Ardis databank " + ex.Message) + Throw New Exception($"Er is een fout opgetreden bij het ophalen van de data table uit de Ardis databank {vbNewLine}{ex.Message}") End Try - LogBestandTextMapper.writeToFile("Ardis", "Opvragen van DataReader met waarde: " & ", " & waarde, True) - Return dr End Function End Module Index: TAOR rework/TAOR rework/Rework/PrinterBacklogDocMapper.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Rework/PrinterBacklogDocMapper.vb (.../PrinterBacklogDocMapper.vb) (revision 1513) +++ TAOR rework/TAOR rework/Rework/PrinterBacklogDocMapper.vb (.../PrinterBacklogDocMapper.vb) (revision 1869) @@ -1,8 +1,10 @@ Imports System.IO -Imports Microsoft.Office.Interop.Word -Imports Microsoft.Office.Interop Imports System.Runtime.InteropServices +Imports Microsoft.Office.Interop +Imports Microsoft.Office.Interop.Word + + Module PrinterBacklogDocMapper Public Sub addPrinterBacklogDoc(trayNummer As Integer, text As String, isSpecial As Boolean) Dim bestandsPath As String = Configs.printerBacklogPath @@ -43,4 +45,4 @@ End Try End Sub -End Module +End Module \ No newline at end of file Index: TAOR rework/TAOR rework/Rework/ReworkTray.vb =================================================================== diff -u -r1513 -r1869 --- TAOR rework/TAOR rework/Rework/ReworkTray.vb (.../ReworkTray.vb) (revision 1513) +++ TAOR rework/TAOR rework/Rework/ReworkTray.vb (.../ReworkTray.vb) (revision 1869) @@ -1,4 +1,5 @@ 'robin de bock 04/08/2017 + Public Class ReworkTray Private _nummer As String Private _slots As List(Of Slot) @@ -143,5 +144,4 @@ Return Nothing End Function -End Class - +End Class \ No newline at end of file FishEye: Tag 1869 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/laden/special laden/Spoelbakladen/HoofdAansturingSpoelbakLade.vb'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 1869 refers to a dead (removed) revision in file `TAOR rework/TAOR rework/laden/special laden/Spoelbakladen/SpoelbakLade.vb'. FishEye: No comparison available. Pass `N' to diff?