Index: TAOR rework/TAOR rework/controllers/Domeincontroller.vb
===================================================================
diff -u -r1870 -r1879
--- TAOR rework/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1870)
+++ TAOR rework/TAOR rework/controllers/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1879)
@@ -270,7 +270,6 @@
verdeelParenEnEnkeleOverTrays(paren, enkelen)
End Sub
- Dim traynummer As Integer = 0
Private Sub verdeelParenEnEnkeleOverTrays(ByVal paren As List(Of Rework()), ByVal enkel As List(Of Rework))
Do While paren.Count > 0 Or enkel.Count > 0
@@ -602,11 +601,6 @@
Return specialLadenRep.aantalSpecialLaden
End Function
- 'kijken of er special laden er in het bestand zitten
- Public Function heeftNogExtraSpecialLaden() As Boolean
- Return specialLadenRep.zijnErNogExtraSpecialLaden()
- End Function
-
'verdelen van de special laden over de rework trays, waar mogelijk
Public Sub verdeelOverReworkTrays()
Dim typeLade As ItemType = specialLadenRep.typeLade
@@ -792,18 +786,6 @@
Loop
End Sub
- Public Sub verwijderSpecialLadenBestand()
- Dim bestandsNaam As String = specialLadenRep.bestandsNaam
- ArdisTextMapper.verwijderSpecialLadenBestand(bestandsNaam)
- ArdisTextMapper.stopArdisTextOpslag()
- End Sub
-
- Public Sub opslaanNietVerwerkteSpecialLaden()
- Dim bestandsNaam As String = specialLadenRep.bestandsNaam
- ArdisTextMapper.opslaanNietVerwerkteSpecialLaden(specialLadenRep.nietVerwerkteSpecialLadenLijnen, bestandsNaam)
- ArdisTextMapper.stopArdisTextOpslag()
- End Sub
-
#End Region
#Region "voorraad"
Index: TAOR rework/TAOR rework/Configuraties/ReworkTraySlotMapperXML.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/Configuraties/ReworkTraySlotMapperXML.vb (.../ReworkTraySlotMapperXML.vb) (revision 1869)
+++ TAOR rework/TAOR rework/Configuraties/ReworkTraySlotMapperXML.vb (.../ReworkTraySlotMapperXML.vb) (revision 1879)
@@ -15,10 +15,11 @@
Return Nothing
End Function
- Public Sub writeToFile(slots As List(Of Slot))
- Dim serializer As New Xml.Serialization.XmlSerializer(slots.GetType)
- serializer.Serialize(New FileStream(getPath(), FileMode.OpenOrCreate), slots)
- End Sub
+ 'XML bestand aanmaken (was om juiste layout te krijgen)
+ 'Public Sub writeToFile(slots As List(Of Slot))
+ ' Dim serializer As New Xml.Serialization.XmlSerializer(slots.GetType)
+ ' serializer.Serialize(New FileStream(getPath(), FileMode.OpenOrCreate), slots)
+ 'End Sub
Private Function getPath() As String
Dim strPath As String = My.Settings.PathNaarConfigMap
Index: TAOR rework/TAOR rework/Configuraties/ReworkRedenenMapperXML.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/Configuraties/ReworkRedenenMapperXML.vb (.../ReworkRedenenMapperXML.vb) (revision 1869)
+++ TAOR rework/TAOR rework/Configuraties/ReworkRedenenMapperXML.vb (.../ReworkRedenenMapperXML.vb) (revision 1879)
@@ -3,10 +3,10 @@
Imports TA_OR_rework.rework
Public Module ReworkRedenenMapperXML
- Public Sub writeToFile(reworkonderdelen As List(Of ReworkOnderdeel))
- Dim serializer As New Xml.Serialization.XmlSerializer(reworkonderdelen.GetType)
- serializer.Serialize(New FileStream(getPath(), FileMode.OpenOrCreate), reworkonderdelen)
- End Sub
+ 'Public Sub writeToFile(reworkonderdelen As List(Of ReworkOnderdeel))
+ ' Dim serializer As New Xml.Serialization.XmlSerializer(reworkonderdelen.GetType)
+ ' serializer.Serialize(New FileStream(getPath(), FileMode.OpenOrCreate), reworkonderdelen)
+ 'End Sub
Public Function getDataFromFile() As List(Of ReworkOnderdeel)
Try
Index: TAOR rework/TAOR rework/formulieren/Specials/FormLades.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/formulieren/Specials/FormLades.vb (.../FormLades.vb) (revision 1513)
+++ TAOR rework/TAOR rework/formulieren/Specials/FormLades.vb (.../FormLades.vb) (revision 1879)
@@ -1,5 +1,4 @@
Public Class FormLades
- Private aantalTestOnderdeelNamen As Integer
Private onderdeelSelecties() As OnderdeelSelectie
Private onderdeelKleurHashMap As Hashtable
Index: TAOR rework/TAOR rework/Configuraties/ReworkRedenenRepository.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/Configuraties/ReworkRedenenRepository.vb (.../ReworkRedenenRepository.vb) (revision 1869)
+++ TAOR rework/TAOR rework/Configuraties/ReworkRedenenRepository.vb (.../ReworkRedenenRepository.vb) (revision 1879)
@@ -7,12 +7,6 @@
_reworkOnderdelen = ReworkRedenenMapperXML.getDataFromFile
End Sub
- Public ReadOnly Property reworkOnderdelen
- Get
- Return New List(Of ReworkOnderdeel)(_reworkOnderdelen)
- End Get
- End Property
-
Public Function geefReworkOnderdeel(ByVal onderdeelNaam As String) As ReworkOnderdeel
For Each reworkOnderdeel As ReworkOnderdeel In _reworkOnderdelen
If reworkOnderdeel.Label.ToLower.Equals(onderdeelNaam.ToLower) Then
Index: TAOR rework/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb (.../SpecialLadeMapperUtil.vb) (revision 1869)
+++ TAOR rework/TAOR rework/nieuwdomein/mappers/SpecialLadeMapperUtil.vb (.../SpecialLadeMapperUtil.vb) (revision 1879)
@@ -82,9 +82,6 @@
''' Aantal laden
Public Function GeefAantalLaden(onderdelen As List(Of IOnderdeel), vereisteOnderdelen As Dictionary(Of Type, Integer)) As Integer
Try
- 'Aantal laden bijhouden.
- Dim aantalLaden = 0
-
'De types van de onderdelen overlopen.
Dim onderdeelType = vereisteOnderdelen.Keys.First()
'Aantal onderdelen van dat type tellen.
Index: TAOR rework/TAOR rework/laden/special laden/HogereZijkant/SpecialLadeHogereZijkant.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/laden/special laden/HogereZijkant/SpecialLadeHogereZijkant.vb (.../SpecialLadeHogereZijkant.vb) (revision 1513)
+++ TAOR rework/TAOR rework/laden/special laden/HogereZijkant/SpecialLadeHogereZijkant.vb (.../SpecialLadeHogereZijkant.vb) (revision 1879)
@@ -31,10 +31,6 @@
End Get
End Property
- Public Function geefOrigineleBarcodeDeel() As String
- Return _zijkanten(0).geefBarcodeDeelDiepereZijkant()
- End Function
-
Public Overrides Sub updateData()
_zijkantenMetOrigineleWaarden = New List(Of ArdisData)
'updaten zijkanten
Index: TAOR rework/TAOR rework/laden/Testladen/Sleutel.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/laden/Testladen/Sleutel.vb (.../Sleutel.vb) (revision 1513)
+++ TAOR rework/TAOR rework/laden/Testladen/Sleutel.vb (.../Sleutel.vb) (revision 1879)
@@ -1,14 +1,4 @@
Public Class Sleutel
Public Label As String
Public Waarde As String
-
- Public Sub New()
-
- End Sub
-
- Public Sub New(label As String, waarde As String)
- Me.Label = label
- Me.Waarde = waarde
- End Sub
-
End Class
Index: TAOR rework/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1869)
+++ TAOR rework/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLadeDubbel.vb (.../SifonLadeDubbel.vb) (revision 1879)
@@ -111,8 +111,6 @@
'Barcode van een zijkant ophalen.
Dim isVerlaagdeRug = OrigineleRug.ArdisData.SifonLadeIsVerlaagdeRug(BuitenzijkantL.ArdisDataL.PartCalc)
- 'Lengte van de originele rug ophalen.
- Dim oorspronkelijkeLengteRug = OrigineleRug.ArdisData.PartL
'Data en ticket updaten.
rugLArdisData.SifonLadeNieuweRug1Data(PositieSifonuitsparingL, isVerlaagdeRug, BuitenzijkantL.ArdisDataL.PartExt01)
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb (.../ArdisMapper.vb) (revision 1869)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisMapper.vb (.../ArdisMapper.vb) (revision 1879)
@@ -2,7 +2,6 @@
Public Module ArdisMapper
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
'''
''' Hulpfunctie voor te connecteren met Ardis.
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb (.../ArdisTextMapper.vb) (revision 1869)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisTextMapper.vb (.../ArdisTextMapper.vb) (revision 1879)
@@ -51,73 +51,6 @@
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)
- 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)
- 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)
- 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)
- 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")
-
- Dim nieuweBestandsNaam = ""
- Dim indexVanUitgelezenInfo As Integer = bestandsNaamSpecial.IndexOf("_Uitgelezen_")
- If indexVanUitgelezenInfo > 0 Then
- Dim aantalKeerUitgelezen As Integer = bestandsNaamSpecial.Substring(bestandsNaamSpecial.LastIndexOf("_") + 1).Replace(".txt", "")
- nieuweBestandsNaam = bestandsNaamSpecial.Remove(bestandsNaamSpecial.LastIndexOf("_") + 1) & (aantalKeerUitgelezen + 1) & ".txt"
- Else
- nieuweBestandsNaam = bestandsNaamSpecial.Replace(".txt", "") & "_Uitgelezen_1" & ".txt"
- End If
-
- Dim fullPath As String = Path.Combine(Configs.geefPathArdisSpecialFolder, nieuweBestandsNaam)
- writer = My.Computer.FileSystem.OpenTextFileWriter(fullPath, True)
-
- Try
- For Each lijn As String In lijnen
- writer.WriteLine(lijn)
- Next
-
- 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
- End Sub
-
- Public Sub verwijderSpecialLadenBestand(bestandsNaamSpecial As String)
- Dim padNaarBestand As String = Configs.geefPathArdisSpecialFolder
- Dim fullPath As String = Path.Combine(padNaarBestand, bestandsNaamSpecial)
- Try
- File.Delete(fullPath)
- Catch ex As ReadOnlyException
- Throw New Exception("Het special laden bestand " & bestandsNaamSpecial & " is readonly")
- Catch ex As PathTooLongException
- Throw New Exception("Het path naar het special laden bestand " & bestandsNaamSpecial & " is te lang")
- Catch ex As IOException
- Throw New Exception("Het special laden bestand " & bestandsNaamSpecial & " is niet bereikbaar")
- End Try
- 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))
Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb
===================================================================
diff -u -r1878 -r1879
--- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1878)
+++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1879)
@@ -420,149 +420,11 @@
Return PartL - 5 + 31
End Function
- Public Shared Function sifonLadeGeefBreedte(lw As Double) As Double
- Return lw - 31
- End Function
-
- Public Shared Function sifonLadeGeefDiepte(nlLade As String) As String
- Return nlLade - 20
- End Function
-
- Public Shared Function sifonLadeGeefDiepteSifonUitsparing(lengte As String) As String
- Return CDbl(lengte) - 8
- End Function
-
Public Function sifonLadeGeefOnderdeelLetter() As String
Return PartCalc.Substring(5, 1)
End Function
-
- Public Shared Function sifonLadeGeefPositieUitsparing(positionSifon As Double)
- Return positionSifon + 5 - 21 + 5.5 - 13
- End Function
#End Region
-#Region "spoelbak lade"
-
- Function spoelbakLadeGeefLWBodem() As String
- Return PartL - 5 + 31
- End Function
-
- Public Shared Function spoelbakgeefNLSpoelbakUitsparing(nlLade As Double)
- Return nlLade - 100
- End Function
-
- Public Shared Function spoelbakgeefDiepteUitsparing(nlSpoelbakUitsparing As Double)
- Return nlSpoelbakUitsparing - 20 - 7
- End Function
-
- Public Shared Function spoelbakLadeGeefDiepte(nlLade As String) As Double
- Return nlLade - 20
- End Function
-
- Public Shared Function spoelbakLadeGeefBreedte(lw As String) As Double
- Return lw - 31
- End Function
-
- Public Shared Function spoelbakLadegeefNuttigeRuimteZijvakken(lw As Double, breedteUitsparing As Double)
- Return ((lw - 42) - breedteUitsparing) / 2
- End Function
-
- Public Shared Function spoelbakLadegeefInitiëlePositieUitsparing(nuttigeRuimteZijvakken As Double) As Double
- Return nuttigeRuimteZijvakken + 10.5
- End Function
-
- Public Shared Function spoelbakLadegeefRestBreedte(nuttigeRuimteZijvakken As Double, positieUitsparing As Double) As Double
- Return nuttigeRuimteZijvakken * 2 - (positieUitsparing - 10.5) + 10.5
- End Function
-
- Public Sub spoelbakLadeUpdateEtiketLijnen()
- 'bij etiketlijn 1 'SP' van spoelbak toevoegen achteraan de lijn
- PartExt01 &= "SP"
- 'bij etiketlijn 2 'kar' vervangen door sifon
- PartExt02 = PartExt02.Replace("KAR", "SPOELBAK")
- End Sub
-
- Public Shared Function spoelbakLadeGeefLengteNieuweZijkantAfgewerkt(nominaleLengteNieuweZijkant As Double) As Double
- Return nominaleLengteNieuweZijkant - 14 - 5
- End Function
-
- Public Sub spoelbakLadeNieuweZijkantData(lengte As String, lengteNieuweZijkantAfgewerkt As Double, hoogteRug As String, barcodeRug As String)
- 'lengte aanpassen
- PartL = lengte + 8 + 5
- 'hoogte aanpassen
- PartW = CStr(CDbl(hoogteRug.Replace(".", ",")) + 10.0).Replace(",", ".")
-
- '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)
- nieuweBarcode &= "V"
- 'de STEMAS B code opvragen en toevoegen
- nieuweBarcode &= Configs.spoelbakLadeGeefCodeStemasB(lengteNieuweZijkantAfgewerkt)
-
- nieuweBarcode &= typePlaat
-
- '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
- End Sub
-
- Public Sub spoelbakLadeStelLengteRugIn(nuttigeRuimteZijvakken As Double, vasteWaardeRugBerekening As Double)
- PartL = (nuttigeRuimteZijvakken + 11) * 2 + vasteWaardeRugBerekening + 5
- End Sub
-
- Public Sub spoelbakLadeUpdateBarcodeRug()
- 'nieuwe barcode met vast gedeelte oude barcode
- Dim nieuweBarcode As String = PartCalc.Substring(0, 2)
- nieuweBarcode &= "V"
- 'de lengte in de barcode steken
- Dim lengte As Double = PartL - 5
- Dim getallenStuk As String = ""
- If lengte < 1000 Then
- getallenStuk &= 0
- End If
- 'de niet kommagetallen toevoegen
- getallenStuk &= Math.Floor(lengte)
- getallenStuk &= CStr(lengte Mod 1).Replace("0,", "")
- 'getal gedeelte toevoegen
- nieuweBarcode &= getallenStuk
- '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
- nieuweBarcode &= "0"
- Next
- nieuweBarcode &= nummer
- 'vaste waarde toevoegen
- nieuweBarcode &= "D0"
-
- PartCalc = nieuweBarcode
- End Sub
-
-#End Region
-
-#Region "test lade"
-
- Public Sub testLadeUpdateTrayEnSlotNummer(trayNummer As String, Optional slotNummer As String = "")
- KamerfreesTrayId = trayNummer
- KamerfreesSlotNr = slotNummer
- End Sub
-
-#End Region
-
#Region "special lade diepere zijkant"
Public Function geefBarcodeDeelDiepereZijkant() As String
Index: TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb (.../HoofdAansturingSifonLade.vb) (revision 1869)
+++ TAOR rework/TAOR rework/laden/special laden/Sifonladen/HoofdAansturingSifonLade.vb (.../HoofdAansturingSifonLade.vb) (revision 1879)
@@ -36,7 +36,6 @@
Private Sub verwerkSamenHorendeSlots(slot1 As Slot, slot2 As Slot, trayNummer As String)
Dim origineleZijkantL As ArdisData = slot1.zijkantenSpeciaal(0)
- Dim origineleZijkantR As ArdisData = slot1.zijkantenSpeciaal(1)
Dim gegenereerdeZijkantL As ArdisData = slot2.zijkantenSpeciaal(0)
Dim gegenereerdeZijkantR As ArdisData = slot2.zijkantenSpeciaal(1)
Index: TAOR rework/TAOR rework/formulieren/FormGrid.vb
===================================================================
diff -u -r1872 -r1879
--- TAOR rework/TAOR rework/formulieren/FormGrid.vb (.../FormGrid.vb) (revision 1872)
+++ TAOR rework/TAOR rework/formulieren/FormGrid.vb (.../FormGrid.vb) (revision 1879)
@@ -45,16 +45,6 @@
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)
@@ -554,7 +544,6 @@
DataGridViewReworks.ColumnHeadersDefaultCellStyle.Font = New Font("Microsoft Sans Serif", grootte)
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)
hoogte -= hoogte Mod DataGridViewCache.ColumnHeadersHeight
DataGridViewCache.Height = hoogte
Index: TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb (.../KantenbandData.vb) (revision 1869)
+++ TAOR rework/TAOR rework/databases/Kantenband/KantenbandData.vb (.../KantenbandData.vb) (revision 1879)
@@ -64,15 +64,6 @@
End If
End Sub
-#Region "spoelbak lade"
-
- Public Sub spoelbakLadeUpdateVeldenRug(nuttigeRuimteZijvakken As Double, vasteWaardeRugBerekening As Double, barcode As String)
- Length = (nuttigeRuimteZijvakken + 11) * 2 + vasteWaardeRugBerekening
- ID = barcode
- End Sub
-
-#End Region
-
#Region "sifon lade"
'id instellen met ID van de gegenereerde ruggen
Index: TAOR rework/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb (.../SifonLade.vb) (revision 1869)
+++ TAOR rework/TAOR rework/laden/special laden/Sifonladen/implementaties/SifonLade.vb (.../SifonLade.vb) (revision 1879)
@@ -2,84 +2,84 @@
Inherits SpecialLade
#Region "properties"
- Private _positionSifon As Double
- Public Property positionSifon() As Double
- Get
- Return _positionSifon
- End Get
- Set(ByVal value As Double)
- _positionSifon = value
- End Set
- End Property
+ 'Private _positionSifon As Double
+ 'Public Property positionSifon() As Double
+ ' Get
+ ' Return _positionSifon
+ ' End Get
+ ' Set(ByVal value As Double)
+ ' _positionSifon = value
+ ' End Set
+ 'End Property
- Private _breedteSifon As Double
- Public Property breedteSifon() As Double
- Get
- Return _breedteSifon
- End Get
- Set(ByVal value As Double)
- _breedteSifon = value
- End Set
- End Property
+ 'Private _breedteSifon As Double
+ 'Public Property breedteSifon() As Double
+ ' Get
+ ' Return _breedteSifon
+ ' End Get
+ ' Set(ByVal value As Double)
+ ' _breedteSifon = value
+ ' End Set
+ 'End Property
- Private _diepte As Double
- Public Property diepteSifon As Double
- Get
- Return _diepte
- End Get
- Set(value As Double)
- _diepte = value
- End Set
- End Property
+ 'Private _diepte As Double
+ 'Public Property diepteSifon As Double
+ ' Get
+ ' Return _diepte
+ ' End Get
+ ' Set(value As Double)
+ ' _diepte = value
+ ' End Set
+ 'End Property
#End Region
- Function geefLW() As String
- Return _bodem.sifonLadeGeefLWBodem
- End Function
+ 'Function geefLW() As String
+ ' Return _bodem.sifonLadeGeefLWBodem
+ 'End Function
- Function geefNLLade() As String
- Return _zijkanten(0).PartL
- End Function
+ 'Function geefNLLade() As String
+ ' Return _zijkanten(0).PartL
+ 'End Function
- Function geefKleurBinnen() As String
- Return _origineleRug.geefKleurBinnen
- End Function
+ 'Function geefKleurBinnen() As String
+ ' Return _origineleRug.geefKleurBinnen
+ 'End Function
- Public Function geefPositieUitsparingSifon() As Double
- Return ArdisData.sifonLadeGeefPositieUitsparing(_positionSifon)
- End Function
+ 'Public Function geefPositieUitsparingSifon() As Double
+ ' Return ArdisData.sifonLadeGeefPositieUitsparing(_positionSifon)
+ 'End Function
- Public Function geefBreedteSifonUitsparing() As Double
- Return _breedteSifon - 10
- End Function
+ 'Public Function geefBreedteSifonUitsparing() As Double
+ ' Return _breedteSifon - 10
+ 'End Function
- Public Function geefBreedte() As Double
- Return ArdisData.sifonLadeGeefBreedte(geefLW)
- End Function
+ 'Public Function geefBreedte() As Double
+ ' Return ArdisData.sifonLadeGeefBreedte(geefLW)
+ 'End Function
- Function geefDiepte() As String
- Return ArdisData.sifonLadeGeefDiepte(geefNLLade)
- End Function
+ 'Function geefDiepte() As String
+ ' Return ArdisData.sifonLadeGeefDiepte(geefNLLade)
+ 'End Function
- Public Function geefDiepteSifon() As String
- Return ArdisData.sifonLadeGeefDiepteSifonUitsparing(Configs.geefNettoLengte(_diepte))
- End Function
+ 'Public Function geefDiepteSifon() As String
+ ' Return ArdisData.sifonLadeGeefDiepteSifonUitsparing(Configs.geefNettoLengte(_diepte))
+ 'End Function
- Function geefRestTekening() As Double
- 'breedte
- Dim breedte As Double = ArdisData.sifonLadeGeefBreedte(geefLW)
- 'positie uitsparing
- Dim position As Double = positionSifon + 5 - 21 + 5.5 - 13
- Return breedte - position - geefBreedteSifonUitsparing()
- End Function
+ 'Function geefRestTekening() As Double
+ ' 'breedte
+ ' Dim breedte As Double = ArdisData.sifonLadeGeefBreedte(geefLW)
+ ' 'positie uitsparing
+ ' Dim position As Double = positionSifon + 5 - 21 + 5.5 - 13
+ ' Return breedte - position - geefBreedteSifonUitsparing()
+ 'End Function
- Function geefRest() As Double
- 'breedte
- Dim breedte As Double = ArdisData.sifonLadeGeefBreedte(geefLW)
- 'positie uitsparing
- Dim position As Double = positionSifon + 5 - 21 + 5.5 - 13
- Return breedte - position - geefBreedteSifonUitsparing() + 23.5
- End Function
+ 'Function geefRest() As Double
+ ' 'breedte
+ ' Dim breedte As Double = ArdisData.sifonLadeGeefBreedte(geefLW)
+ ' 'positie uitsparing
+ ' Dim position As Double = positionSifon + 5 - 21 + 5.5 - 13
+ ' Return breedte - position - geefBreedteSifonUitsparing() + 23.5
+ 'End Function
'waarden aanpassen van bepaalde velden
Public Overrides Sub updateData()
@@ -92,75 +92,75 @@
End Sub
'4 extra zijkanten maken en ze toevoegen aan de lijst met zijkanten
- Public Sub maakZijkantenBij(lengte As String)
- Dim isEerstePlaatje As Boolean = True
- Dim nieuweZijkanten as New List(Of ArdisData)
- For teller As Integer = 0 To _zijkanten.Count - 1
- Dim nieuweZijkant As ArdisData = _zijkanten(teller).ShallowCopy()
- 'nieuweZijkant.sifonLadeNieuweZijkantData(lengte, _origineleRug.PartW, _origineleRug.PartCalc, isEerstePlaatje)
- isEerstePlaatje = Not isEerstePlaatje
- 'opslaan in caché
- opslaanGegenereerdOnderdeel(_zijkanten(teller), nieuweZijkant, Configs.specialLadeGeefOnderdeelNaamGegenereerdeZijkant(nieuweZijkant.sifonLadeGeefOnderdeelLetter))
- nieuweZijkanten.Add(nieuweZijkant)
- Next
- 'Nieuwe zijkanten toevoegen aan lijst met alle zijkanten.
- _zijkanten.AddRange(nieuweZijkanten)
- End Sub
+ 'Public Sub maakZijkantenBij(lengte As String)
+ ' Dim isEerstePlaatje As Boolean = True
+ ' Dim nieuweZijkanten as New List(Of ArdisData)
+ ' For teller As Integer = 0 To _zijkanten.Count - 1
+ ' Dim nieuweZijkant As ArdisData = _zijkanten(teller).ShallowCopy()
+ ' 'nieuweZijkant.sifonLadeNieuweZijkantData(lengte, _origineleRug.PartW, _origineleRug.PartCalc, isEerstePlaatje)
+ ' isEerstePlaatje = Not isEerstePlaatje
+ ' 'opslaan in caché
+ ' opslaanGegenereerdOnderdeel(_zijkanten(teller), nieuweZijkant, Configs.specialLadeGeefOnderdeelNaamGegenereerdeZijkant(nieuweZijkant.sifonLadeGeefOnderdeelLetter))
+ ' nieuweZijkanten.Add(nieuweZijkant)
+ ' Next
+ ' 'Nieuwe zijkanten toevoegen aan lijst met alle zijkanten.
+ ' _zijkanten.AddRange(nieuweZijkanten)
+ 'End Sub
'de etiket lijn aanpassen
- Public Sub updateEtiketLijn()
- For Each rug As ArdisData In _ruggen
+ 'Public Sub updateEtiketLijn()
+ 'For Each rug As ArdisData In _ruggen
'rug.sifonLadeUpdateEtiketLijnenRug(rug.sifonLadeGeefOorspronkelijkeLengteRug)
- Next
+ 'Next
'_rug.sifonLadeUpdateEtiketLijnenRug(_rug.sifonLadeGeefOorspronkelijkeLengteRug)
'_rug.sifonLadeUpdatePartLEnTicketRug(_rug.sifonLadeGeefOorspronkelijkeLengteRug)
- _bodem.sifonLadeUpdateEtiketLijnen()
- For Each zijkant As ArdisData In _zijkanten
- zijkant.sifonLadeUpdateEtiketLijnen()
- Next
- End Sub
+ '_bodem.sifonLadeUpdateEtiketLijnen()
+ 'For Each zijkant As ArdisData In _zijkanten
+ 'zijkant.sifonLadeUpdateEtiketLijnen()
+ 'Next
+ 'End Sub
- Public Sub maakExtraRuggen()
- 'de twee ruggen maken met de juiste lengte en andere data overgenomen
- Dim rug1 As ArdisData = maakRug1()
- Dim rug2 As ArdisData = maakRug2(rug1.PartL)
+ 'Public Sub maakExtraRuggen()
+ ' 'de twee ruggen maken met de juiste lengte en andere data overgenomen
+ ' Dim rug1 As ArdisData = maakRug1()
+ ' Dim rug2 As ArdisData = maakRug2(rug1.PartL)
- 'barcoden instellen
- 'rug1.sifonLadeUpdateBarcodeRug(rug1.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc), False)
- 'rug2.sifonLadeUpdateBarcodeRug(rug2.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc), True)
+ ' 'barcoden instellen
+ ' 'rug1.sifonLadeUpdateBarcodeRug(rug1.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc), False)
+ ' 'rug2.sifonLadeUpdateBarcodeRug(rug2.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc), True)
- 'lengte rug instellen en ticket updaten
- 'rug1.sifonLadeUpdatePartLEnTicketRug(rug1.sifonLadeGeefOorspronkelijkeLengteRug, rug1.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc))
- 'rug2.sifonLadeUpdatePartLEnTicketRug(rug2.sifonLadeGeefOorspronkelijkeLengteRug, rug2.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc))
+ ' 'lengte rug instellen en ticket updaten
+ ' 'rug1.sifonLadeUpdatePartLEnTicketRug(rug1.sifonLadeGeefOorspronkelijkeLengteRug, rug1.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc))
+ ' 'rug2.sifonLadeUpdatePartLEnTicketRug(rug2.sifonLadeGeefOorspronkelijkeLengteRug, rug2.sifonLadeIsVerlaagdeRug(_zijkanten(0).PartCalc))
- 'nieuwe ruggen opslaan
- opslaanGegenereerdOnderdeel(_origineleRug, rug1, Configs.sifonLadeGeefOnderdeelNaamGegenereerdeRug)
- opslaanGegenereerdOnderdeel(_origineleRug, rug2, Configs.sifonLadeGeefOnderdeelNaamGegenereerdeRug)
+ ' 'nieuwe ruggen opslaan
+ ' opslaanGegenereerdOnderdeel(_origineleRug, rug1, Configs.sifonLadeGeefOnderdeelNaamGegenereerdeRug)
+ ' opslaanGegenereerdOnderdeel(_origineleRug, rug2, Configs.sifonLadeGeefOnderdeelNaamGegenereerdeRug)
- 'ruggen toevoegen aan de lijst met ruggen
- _ruggen.Add(rug1)
- _ruggen.Add(rug2)
- End Sub
+ ' 'ruggen toevoegen aan de lijst met ruggen
+ ' _ruggen.Add(rug1)
+ ' _ruggen.Add(rug2)
+ 'End Sub
- Private Function maakRug1() As ArdisData
- Dim rug1 As ArdisData = _origineleRug.ShallowCopy
- 'rug1.sifonLadeNieuweRug1Data(_positionSifon)
- Return rug1
- End Function
+ 'Private Function maakRug1() As ArdisData
+ ' Dim rug1 As ArdisData = _origineleRug.ShallowCopy
+ ' 'rug1.sifonLadeNieuweRug1Data(_positionSifon)
+ ' Return rug1
+ 'End Function
- Private Function maakRug2(rug1Lengte As Double) As ArdisData
- Dim rug2 As ArdisData = _origineleRug.ShallowCopy
- 'rug2.sifonLadeNieuweRug2Data(geefLW, geefBreedteSifonUitsparing, rug1Lengte)
- Return rug2
- End Function
+ 'Private Function maakRug2(rug1Lengte As Double) As ArdisData
+ ' Dim rug2 As ArdisData = _origineleRug.ShallowCopy
+ ' 'rug2.sifonLadeNieuweRug2Data(geefLW, geefBreedteSifonUitsparing, rug1Lengte)
+ ' Return rug2
+ 'End Function
'opslaan van de gegenereerde onderdelen in caché
- Private Sub opslaanGegenereerdOnderdeel(origineelOnderdeel As ArdisData, nieuwOnderdeel As ArdisData, nieuwOnderdeelNaam As String)
- If Configs.geefVerwerkStatus Then
- CacheMapper.opslaanGegenereerdeOnderdelen(origineelOnderdeel, nieuwOnderdeel, nieuwOnderdeelNaam)
- End If
- End Sub
+ 'Private Sub opslaanGegenereerdOnderdeel(origineelOnderdeel As ArdisData, nieuwOnderdeel As ArdisData, nieuwOnderdeelNaam As String)
+ ' If Configs.geefVerwerkStatus Then
+ ' CacheMapper.opslaanGegenereerdeOnderdelen(origineelOnderdeel, nieuwOnderdeel, nieuwOnderdeelNaam)
+ ' End If
+ 'End Sub
Public Overrides Function heeftOrigineleRug() As Boolean
Return True
Index: TAOR rework/TAOR rework/Rework/Slot.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/Rework/Slot.vb (.../Slot.vb) (revision 1513)
+++ TAOR rework/TAOR rework/Rework/Slot.vb (.../Slot.vb) (revision 1879)
@@ -9,13 +9,6 @@
_zijkantenSpecial = New List(Of ArdisData)
End Sub
- Public Sub New(nummer As Integer)
- _zijkanten = New List(Of Rework)
- _zijkantenSpecial = New List(Of ArdisData)
- controleerNummer(nummer)
- _nummer = nummer
- End Sub
-
Public Property type As SlotType
Get
Return _type
Index: TAOR rework/TAOR rework/Rework/ReworkTray.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/Rework/ReworkTray.vb (.../ReworkTray.vb) (revision 1869)
+++ TAOR rework/TAOR rework/Rework/ReworkTray.vb (.../ReworkTray.vb) (revision 1879)
@@ -3,7 +3,6 @@
Public Class ReworkTray
Private _nummer As String
Private _slots As List(Of Slot)
- Private reworktrayslotRep As ReworkTraySlotRepository
Public Sub New(ByVal slots As List(Of Slot))
_slots = slots
_nummer = AutomillingMapper.GeefNieuwTrayNummer
Index: TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb (.../ZijkamerFreesProductieData.vb) (revision 1869)
+++ TAOR rework/TAOR rework/databases/Automilling/ZijkamerFreesProductieData.vb (.../ZijkamerFreesProductieData.vb) (revision 1879)
@@ -318,93 +318,6 @@
#End Region
-#Region "spoelbak lade"
-
- Public Sub updateDataSpoelbakLadeOrigineel(trayNummer As String, slotNummer As Integer)
- 'de spaties in de barcodes verwijderen
- PrintBarcodeLeft = PrintBarcodeLeft.Trim
- PrintBarcodeRight = PrintBarcodeRight.Trim
- 'waarden instellen
- PalletID = trayNummer
- PickSequence = slotNummer
- SlotNbr = slotNummer
- 'feedback ERP op 3 zetten
- FeedbackERP = "3"
- 'velden die leeg zijn op "" zetten
- PickTimeStamp = ""
- MillingTimeStamp = ""
- DropTimeStamp = ""
- InsertTimeStamp = ""
- 'de etiketLijnen aanpassen
- PrintTextLeft4 = PrintBarcodeLeft.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
- PrintTextRight4 = PrintBarcodeRight.Trim & "/D:" & NettoLength & "xH:" & NettoHeight
-
- updatePrintTextLeftAndRight1SpoelBakOfSifon("SP")
-
- Dim indexKar As Integer = PrintTextLeft2.ToLower.IndexOf("kar")
- If indexKar > 0 Then
- PrintTextLeft2 = PrintTextLeft2.Remove(indexKar)
- PrintTextLeft2 &= "SPOELBAK"
- End If
- indexKar = PrintTextRight2.ToLower.IndexOf("kar")
- If indexKar > 0 Then
- PrintTextRight2 = PrintTextRight2.Remove(indexKar)
- PrintTextRight2 &= "SPOELBAK"
- End If
- 'pickplace op rework zetten
- PickPlace = "R"
- End Sub
-
- Public Sub updateDataSpoelbakLadeGegenereerd(trayNummer As String, slotNummer As Integer, nettoLengte As String, nettoHoogte As String, barcodeLeft As String, barcodeRight As String)
- PalletID = trayNummer
- PickSequence = slotNummer
- SlotNbr = slotNummer
- 'de lengte aanpassen
- NettoLength = CDbl(nettoLengte.Replace(".", ",")) - 5.0
- 'de hoogte aanpassen
- NettoHeight = CDbl(nettoHoogte.Replace(".", ",")) - 5.0
- 'de lengte aanpassen
- NettoLength = CDbl(nettoLengte.Replace(".", ",")) - 5.0
- Dim NettoLengthMetKomma As String = NettoLength.Replace(",", ".")
- 'de etiketLijnen aanpassen
- PrintTextLeft4 = barcodeLeft.Trim & "/D:" & NettoLengthMetKomma & "xH:" & NettoHeight
- PrintTextRight4 = barcodeRight.Trim & "/D:" & NettoLengthMetKomma & "xH:" & NettoHeight
-
- updatePrintTextLeftAndRight1SpoelBakOfSifon("SP")
-
- Dim indexKar As Integer = PrintTextLeft2.ToLower.IndexOf("kar")
- If indexKar > 0 Then
- PrintTextLeft2 = PrintTextLeft2.Remove(indexKar)
- PrintTextLeft2 &= "SPOELBAK"
- End If
- indexKar = PrintTextRight2.ToLower.IndexOf("kar")
- If indexKar > 0 Then
- PrintTextRight2 = PrintTextRight2.Remove(indexKar)
- PrintTextRight2 &= "SPOELBAK"
- End If
-
- 'programma's aanpassen
- If PrintBarcodeLeft.Substring(5, 1).Equals("C") Or PrintBarcodeLeft.Substring(5, 1).Equals("D") Then
- Dim letterProgramma As String = barcodeLeft.Substring(1, 1)
- Dim programmas As List(Of String) = Configs.sifonLadeGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug(letterProgramma)
-
- ProgramLeftInner = programmas(0)
- ProgramLeftOuter = programmas(1)
- ProgramRightInner = programmas(2)
- ProgramRightOuter = programmas(3)
- End If
-
- 'barcodeLeft
- PrintBarcodeLeft = barcodeLeft
- 'barcodeRight
- PrintBarcodeRight = barcodeRight
-
- 'pickplace op rework zetten
- PickPlace = "R"
- End Sub
-
-#End Region
-
#Region "test lade"
Public Sub testLadeUpdateData(sleutelBarcodeBarcodeLeft As String, sleutelBarcodeBarcodeRight As String)
Index: TAOR rework/TAOR rework/laden/SpecialLadenOnderdelen.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/laden/SpecialLadenOnderdelen.vb (.../SpecialLadenOnderdelen.vb) (revision 1513)
+++ TAOR rework/TAOR rework/laden/SpecialLadenOnderdelen.vb (.../SpecialLadenOnderdelen.vb) (revision 1879)
@@ -25,30 +25,6 @@
End Set
End Property
- Public ReadOnly Property Zijkanten() As List(Of ArdisData)
- Get
- Return New List(Of ArdisData)(_zijkanten)
- End Get
- End Property
-
- Public ReadOnly Property Ruggen() As List(Of ArdisData)
- Get
- Return New List(Of ArdisData)(_ruggen)
- End Get
- End Property
-
- Public ReadOnly Property Bodems() As List(Of ArdisData)
- Get
- Return New List(Of ArdisData)(_bodems)
- End Get
- End Property
-
- Public ReadOnly Property Fronten() As List(Of ArdisData)
- Get
- Return New List(Of ArdisData)(_fronten)
- End Get
- End Property
-
Public ReadOnly Property nietVerwerkteLaden As List(Of String)
Get
Return New List(Of String)(_overigeLaden)
Index: TAOR rework/TAOR rework/formulieren/FormLabel.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/formulieren/FormLabel.vb (.../FormLabel.vb) (revision 1513)
+++ TAOR rework/TAOR rework/formulieren/FormLabel.vb (.../FormLabel.vb) (revision 1879)
@@ -1,7 +1,5 @@
Public Class FormLabel
- Private barcode As String
-
Private Sub FormLabel_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'zorgen dat formbuttons rechtsboven niet zichtbaar worden
Me.ControlBox = False
Index: TAOR rework/TAOR rework/Voorraad/VoorraadItemRepository.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/Voorraad/VoorraadItemRepository.vb (.../VoorraadItemRepository.vb) (revision 1513)
+++ TAOR rework/TAOR rework/Voorraad/VoorraadItemRepository.vb (.../VoorraadItemRepository.vb) (revision 1879)
@@ -4,7 +4,6 @@
Private _kleuren As List(Of String)
Private _voorraadItems As List(Of VoorraadItem)
- Private _maxIDVoorraad As Integer
Public Sub New()
_dieptes = Configs.voorraadDieptes
Index: TAOR rework/TAOR rework/TAOR rework.vbproj
===================================================================
diff -u -r1876 -r1879
--- TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1876)
+++ TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1879)
@@ -45,6 +45,7 @@
bin\Debug\
TAOR rework.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022
+ MyRuleSet.ruleset
x86
@@ -249,7 +250,6 @@
-
@@ -320,7 +320,6 @@
-
@@ -419,6 +418,7 @@
+
Index: TAOR rework/TAOR rework/laden/Testladen/TestLadenRepository.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/laden/Testladen/TestLadenRepository.vb (.../TestLadenRepository.vb) (revision 1513)
+++ TAOR rework/TAOR rework/laden/Testladen/TestLadenRepository.vb (.../TestLadenRepository.vb) (revision 1879)
@@ -1,6 +1,6 @@
Public Class TestLadenRepository
- Private _testLaden As List(Of TestLade)
- Private _aanwezigeOnderdelen As List(Of String)
+ Private ReadOnly _testLaden As List(Of TestLade)
+ Private ReadOnly _aanwezigeOnderdelen As List(Of String)
Private _testLade As TestLade
Public Sub New()
@@ -12,12 +12,6 @@
_aanwezigeOnderdelen.Add("Bodem")
End Sub
- Public ReadOnly Property testLaden As List(Of TestLade)
- Get
- Return New List(Of TestLade)(_testLaden)
- End Get
- End Property
-
Public Function geefTestLadeNamen() As List(Of String)
Dim testLadeNamen As New List(Of String)
For Each testLade As TestLade In _testLaden
Index: TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb
===================================================================
diff -u -r1869 -r1879
--- TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1869)
+++ TAOR rework/TAOR rework/formulieren/FormReworkTrayPrinter.vb (.../FormReworkTrayPrinter.vb) (revision 1879)
@@ -62,7 +62,7 @@
End Sub
Private _builder As StringBuilder
- Private Sub vulBuilderMetInfo(indexSpecialTray As Integer)
+ Private Sub vulBuilderMetInfo()
Try
_builder = New StringBuilder
Dim typelade As String
@@ -180,7 +180,7 @@
Private Sub opslaanBacklog()
'alle trays overlopen en builder opnieuw vullen
For _nummerTray = 1 To _aantalTrays
- vulBuilderMetInfo(_nummerTray - 1)
+ vulBuilderMetInfo()
If _isNieuweSifonDomein Then
PrinterBacklogDocMapper.addPrinterBacklogDoc(SifonLadeController.GetInstance.GeefSpecialLadeReworkTrayNummer(_nummerTray - 1), _builder.ToString(), True)
@@ -202,7 +202,7 @@
Private Sub vulTextboxMetReworkTray()
Try
- vulBuilderMetInfo(_nummerTray - 1)
+ vulBuilderMetInfo()
'scherm terug leeg maken
TextBoxReworkTraySlots.CreateGraphics.Clear(DefaultBackColor)
'de tekst printen op het scherm
@@ -222,7 +222,7 @@
Dim font As New Font("Courier New", 15, FontStyle.Regular)
Try
'builder opnieuw vullen
- vulBuilderMetInfo(_nummerTray - 1)
+ vulBuilderMetInfo()
'de tekst "tekenen" op het printerdocument
e.Graphics.DrawString(_builder.ToString, font, Brushes.Black, 30, 100)
'e.HasMorePages = _aantalTrays > 1
Index: TAOR rework/TAOR rework/databases/StemasC/StemasCMapper.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/databases/StemasC/StemasCMapper.vb (.../StemasCMapper.vb) (revision 1513)
+++ TAOR rework/TAOR rework/databases/StemasC/StemasCMapper.vb (.../StemasCMapper.vb) (revision 1879)
@@ -20,15 +20,15 @@
End Try
End Sub
- Private Sub executeCommand(query As String)
- Try
- connectToStemas()
- command = New SqlCommand(query, SQLConnection)
- command.ExecuteNonQuery()
- Catch ex As Exception
- Throw New Exception("Er is een fout opgetreden bij het executen van de query voor de StemasC databank")
- End Try
- End Sub
+ 'Private Sub executeCommand(query As String)
+ ' Try
+ ' connectToStemas()
+ ' command = New SqlCommand(query, SQLConnection)
+ ' command.ExecuteNonQuery()
+ ' Catch ex As Exception
+ ' Throw New Exception("Er is een fout opgetreden bij het executen van de query voor de StemasC databank")
+ ' End Try
+ 'End Sub
Private Function executeIntoResultset(Query As String) As StemasData
Dim stemasData As StemasData = Nothing
@@ -145,25 +145,25 @@
End Try
End Sub
- Private Function getResult(Query As String) As String
- Dim result As String = ""
- Dim dr As SqlDataReader = command.ExecuteReader
- Try
- connectToStemas()
- command = New SqlCommand(Query, SQLConnection)
- dr = command.ExecuteReader
- While dr.Read
- result = dr(0)
- End While
- Catch ex As Exception
- Throw New Exception("Er is een fout opgetreden bij het opvragen van data uit de Stemas databank " + ex.Message)
- Finally
- If Not (dr Is Nothing OrElse dr.IsClosed) Then
- dr.Close()
- End If
- End Try
- Return result
- End Function
+ 'Private Function getResult(Query As String) As String
+ ' Dim result As String = ""
+ ' Dim dr As SqlDataReader = command.ExecuteReader
+ ' Try
+ ' connectToStemas()
+ ' command = New SqlCommand(Query, SQLConnection)
+ ' dr = command.ExecuteReader
+ ' While dr.Read
+ ' result = dr(0)
+ ' End While
+ ' Catch ex As Exception
+ ' Throw New Exception("Er is een fout opgetreden bij het opvragen van data uit de Stemas databank " + ex.Message)
+ ' Finally
+ ' If Not (dr Is Nothing OrElse dr.IsClosed) Then
+ ' dr.Close()
+ ' End If
+ ' End Try
+ ' Return result
+ 'End Function
Public Function OphalenData(BarcodeID As String) As StemasData
LogBestandTextMapper.writeToFile("Stemas C", "Ophalen van stemasData met barcodeID: " & BarcodeID)
@@ -179,19 +179,19 @@
Return result
End Function
- Function bestaatBarcode(BarcodeID As String) As Boolean
- LogBestandTextMapper.writeToFile("Stemas C", "Kijken of barcode bestaat" & BarcodeID)
+ 'Function bestaatBarcode(BarcodeID As String) As Boolean
+ ' LogBestandTextMapper.writeToFile("Stemas C", "Kijken of barcode bestaat" & BarcodeID)
- Dim query As String = "Select Barcode from [StemasC].[dbo].[Production] where Barcode = " & "'" & BarcodeID & "'"
- Dim result As String = getResult(query)
+ ' Dim query As String = "Select Barcode from [StemasC].[dbo].[Production] where Barcode = " & "'" & BarcodeID & "'"
+ ' Dim result As String = getResult(query)
- LogBestandTextMapper.writeToFile("Stemas C", "Kijken of barcode bestaat" & BarcodeID, True)
- If result.Equals("") Then
- Return False
- Else
- Return True
- End If
- End Function
+ ' LogBestandTextMapper.writeToFile("Stemas C", "Kijken of barcode bestaat" & BarcodeID, True)
+ ' If result.Equals("") Then
+ ' Return False
+ ' Else
+ ' Return True
+ ' End If
+ 'End Function
Public Sub update(stemasdata As StemasData)
LogBestandTextMapper.writeToFile("Stemas C", "Updaten van zijkamerFreesProductieData met barcode: " & stemasdata.Barcode)
Index: TAOR rework/TAOR rework/formulieren/FormController.vb
===================================================================
diff -u -r1872 -r1879
--- TAOR rework/TAOR rework/formulieren/FormController.vb (.../FormController.vb) (revision 1872)
+++ TAOR rework/TAOR rework/formulieren/FormController.vb (.../FormController.vb) (revision 1879)
@@ -90,7 +90,6 @@
'LADEN VAN FORMGRID
Private _kolom As Kolommen
Private _waarde As Object
- Private _dataReader As Object
Public Sub laadFormGrid(sender As Form)
registreerVorigeForm(sender)
@@ -99,32 +98,13 @@
_sender.Hide()
End Sub
- Public Sub laadEnRefreshFormGrid(sender As Form)
- registreerVorigeForm(sender)
-
- _formGrid.LaadData(_kolom, _waarde)
-
- _formGrid.Show()
- _sender.Hide()
- End Sub
-
- Public Sub LaadFormGrid(sender As Form, reden() As String)
- registreerVorigeForm(sender)
-
- _formGrid.voegReworkRedenToe(reden)
-
- _formGrid.Show()
- _sender.Hide()
- End Sub
-
Public Sub LaadFormGrid(sender As Form, kolom As Kolommen, waarde As Object, dataReader As Object)
formGridGeladen = True
registreerVorigeForm(sender)
_kolom = kolom
_waarde = waarde
- _dataReader = dataReader
_formGrid.LaadData(_kolom, _waarde, dataReader)
Index: TAOR rework/TAOR rework/Configuraties/Configs.vb
===================================================================
diff -u -r1878 -r1879
--- TAOR rework/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1878)
+++ TAOR rework/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1879)
@@ -6,7 +6,6 @@
Private _algemeneConfigs As List(Of String)
Private _specialsConfigs As List(Of String)
Private _sifonLadeWaarden As List(Of String)
- Private _spoelbakLadeWaarden As List(Of String)
Private _voorraadWaarden As List(Of String)
Private _kleurVervangenWaarden As List(Of String)
Private _hoogteVerschilWaarden As List(Of String)
@@ -17,7 +16,6 @@
_algemeneConfigs = ConfigsTextMapper.getAllValues
_specialsConfigs = WaardenSpecialsTextMapper.getAllValues
_sifonLadeWaarden = WaardenSifonLadeTextMapper.getAllValues
- _spoelbakLadeWaarden = WaardenSpoelbakLadenTextMapper.getAllValues
_voorraadWaarden = WaardenVoorraadTextMapper.getAllValues
_kleurVervangenWaarden = WaardenKleurVervangenTextMapper.getAllValues
_hoogteVerschilWaarden = WaardenHoogteVerschilTextMapper.getAllValues
@@ -42,20 +40,11 @@
laadSifonWaardenMinWaardePositie()
laadSifonWaardenMinWaardeRestPositie()
laadSifonWaardenBreedteUitsparing()
- laadSifonWaardenKleurLaden()
laadSifonWaardenCorrectieFactorLinks()
laadSifonWaardenCorrectieFactorMidden()
laadSifonWaardenCorrectieFactorRechts()
laadSifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()
- 'spoelbak lade waarden
- laadSpoelbakWaardenVerplaatsFolderPath()
- laadSpoelbakWaardenMinWaardeNuttigeRuimteZijvakken()
- laadSpoelbakVasteWaardeRugBerekening()
- laadSpoelbakWaardenBreedteUitsparing()
- laadSpoelbakWaardenKleurLaden()
- laadSpoelbakWaardenLengteEnCodeStemasB()
-
'kleur vervangen waarden
laadNieuweKleuren()
laadKantenbandNieuweKleuren()
@@ -82,9 +71,6 @@
If _sifonLadeWaarden.Count > 0 Then
MessageBox.Show("Het sifon lade config bestand bevat instellingen/tekst die geen nut hebben. Dit kan wijzen op foutieve instellingen, gelieve dit zo snel mogelijk na te kijken.", "Fout in bestand...", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
- If _spoelbakLadeWaarden.Count > 0 Then
- MessageBox.Show("Het spoelbak lade config bestand bevat instellingen/tekst die geen nut hebben. Dit kan wijzen op foutieve instellingen, gelieve dit zo snel mogelijk na te kijken.", "Fout in bestand...", MessageBoxButtons.OK, MessageBoxIcon.Error)
- End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Er is een fout opgetreden...", MessageBoxButtons.OK, MessageBoxIcon.Error)
Application.Exit()
@@ -643,9 +629,6 @@
End If
End Sub
- Public Function sifonLadeGeefVerplaatsFolderPath() As String
- Return _sifonLadeVerplaatsFolderPath & "\"
- End Function
#End Region
#Region "drempelwaarde rug"
@@ -712,9 +695,6 @@
End If
End Sub
- Public Function sifonLadeGeefMinWaardeRestPositie()
- Return _sifonLadeMinWaardeRestPositie
- End Function
#End Region
#Region "breedte uitsparing"
@@ -743,33 +723,6 @@
End Property
#End Region
-#Region "kleur lade"
- Private _sifonLadeKleurLade As New List(Of String)
- Private Sub laadSifonWaardenKleurLaden()
- Dim overigeWaarden As New List(Of String)
- For Each lijn As String In _sifonLadeWaarden
- If lijn.ToLower.StartsWith("klade") Then
- _sifonLadeKleurLade.Add(lijn.Replace("klade", "").Replace("KLADE", "").Trim)
- Else
- overigeWaarden.Add(lijn)
- End If
- Next
-
- _sifonLadeWaarden = overigeWaarden
-
- If _sifonLadeKleurLade.Count <= 0 Then
- Throw New Exception("De waarden kleurLade van de sifonLade zijn foutief of niet aanwezig, gelieve deze na te kijken.")
- End If
- End Sub
-
- Public ReadOnly Property sifonLadeKleurLade As List(Of String)
- Get
- Return New List(Of String)(_sifonLadeKleurLade)
- End Get
- End Property
-
-#End Region
-
#Region "correctie factoren"
#Region "correctie factor links"
@@ -865,7 +818,6 @@
Private _sifonLadeAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug As New List(Of String(,))
Private Sub laadSifonWaardenGeefAutoMillingProgrammasGegenereerdeZijkantenVerlaagdeRug()
Dim overigeWaarden As New List(Of String)
- Dim huidigeLetter As String = ""
For teller As Integer = 0 To _sifonLadeWaarden.Count - 1
Dim lijn As String = _sifonLadeWaarden(teller)
@@ -923,176 +875,6 @@
#End Region
-#Region "waarden spoelbak lade"
-
-#Region "path om uitgelezen bestand naar te verplaatsen"
- Private _spoelbakLadeVerplaatsFolderPath As String
- Private Sub laadSpoelbakWaardenVerplaatsFolderPath()
- For teller As Integer = 0 To _spoelbakLadeWaarden.Count - 1
- Dim lijn As String = _spoelbakLadeWaarden(teller)
-
- If lijn.ToLower.StartsWith("verplaatspath") Then
- _spoelbakLadeVerplaatsFolderPath = lijn.Remove(0, 13).Trim
- _spoelbakLadeWaarden.RemoveAt(teller)
- Exit For
- End If
- Next
-
- If _spoelbakLadeVerplaatsFolderPath Is Nothing OrElse _spoelbakLadeVerplaatsFolderPath.Equals("") Then
- Throw New Exception("SpoelbakLadeVerplaatsFolderPath is niet geconfigureerd.")
- End If
- End Sub
-
- Public Function spoelbakLadeGeefVerplaatsFolderPath() As String
- Return _spoelbakLadeVerplaatsFolderPath
- End Function
-#End Region
-
-#Region "minimum waarde nuttige ruimte zijvakken"
- Private _spoelbakLadeMinWaardeNuttigeRuimteZijvakken As String
- Private Sub laadSpoelbakWaardenMinWaardeNuttigeRuimteZijvakken()
- For teller As Integer = 0 To _spoelbakLadeWaarden.Count - 1
- Dim lijn As String = _spoelbakLadeWaarden(teller)
-
- If lijn.ToLower.StartsWith("minnuttigeruimtezijvakken") Then
- _spoelbakLadeMinWaardeNuttigeRuimteZijvakken = lijn.Remove(0, 25).Trim
- _spoelbakLadeWaarden.RemoveAt(teller)
- Exit For
- End If
- Next
-
- If _spoelbakLadeMinWaardeNuttigeRuimteZijvakken Is Nothing OrElse _spoelbakLadeMinWaardeNuttigeRuimteZijvakken.Equals("") Then
- Throw New Exception("SpoelbakLadeMinWaardeNuttigeRuimteZijvakken is niet geconfigureerd.")
- End If
- End Sub
-
- Public Function spoelbakLadeGeefMinWaardeNuttigeRuimteZijvakken() As String
- Return _spoelbakLadeMinWaardeNuttigeRuimteZijvakken
- End Function
-#End Region
-
-#Region "vaste waarde rug berekening"
- Private _spoelbakLadeVasteWaardeRugBerekening As Integer
- Private Sub laadSpoelbakVasteWaardeRugBerekening()
- _spoelbakLadeVasteWaardeRugBerekening = 0
- For teller As Integer = 0 To _spoelbakLadeWaarden.Count - 1
- Dim lijn As String = _spoelbakLadeWaarden(teller)
- If lijn.ToLower.StartsWith("vastewaarderugberekening") Then
- Try
- _spoelbakLadeVasteWaardeRugBerekening = CInt(lijn.Remove(0, 24).Trim)
- Catch ex As Exception
- Throw New Exception("Onjuiste vaste waarde voor de rug van de spoelbak te berekenen")
- End Try
- _spoelbakLadeWaarden.RemoveAt(teller)
- Exit For
- End If
- Next
-
- If _spoelbakLadeVasteWaardeRugBerekening = 0 Then
- Throw New Exception("De vaste waarde voor de rug van de spoelbak te berekenen is niet gedefinieerd, gelieve deze na te kijken.")
- End If
- End Sub
-
- Public ReadOnly Property spoelbakLadeVasteWaardeRugBerekening As Integer
- Get
- Return _spoelbakLadeVasteWaardeRugBerekening
- End Get
- End Property
-#End Region
-
-#Region "breedte uitsparing"
- Private _spoelbakLadeBreedteUitsparing As New List(Of String)
- Private Sub laadSpoelbakWaardenBreedteUitsparing()
- Dim overigeWaarden As New List(Of String)
- For Each lijn As String In _spoelbakLadeWaarden
- If lijn.ToLower.StartsWith("buit") Then
- _spoelbakLadeBreedteUitsparing.Add(lijn.Replace("buit", "").Replace("BUIT", "").Trim)
- Else
- overigeWaarden.Add(lijn)
- End If
- Next
-
- _spoelbakLadeWaarden = overigeWaarden
-
- If _spoelbakLadeBreedteUitsparing.Count <= 0 Then
- Throw New Exception("De waarden breedteUitsparing van de spoelbak lade zijn foutief of niet aanwezig, gelieve deze na te kijken.")
- End If
- End Sub
-
- Public ReadOnly Property spoelbakLadeBreedteUitsparing
- Get
- Return New List(Of String)(_spoelbakLadeBreedteUitsparing)
- End Get
- End Property
-#End Region
-
-#Region "kleur lade"
- Private _spoelbakLadeKleurLade As New List(Of String)
- Private Sub laadSpoelbakWaardenKleurLaden()
- Dim overigeWaarden As New List(Of String)
- For Each lijn As String In _spoelbakLadeWaarden
- If lijn.ToLower.StartsWith("klade") Then
- _spoelbakLadeKleurLade.Add(lijn.Replace("klade", "").Replace("KLADE", "").Trim)
- Else
- overigeWaarden.Add(lijn)
- End If
- Next
-
- _spoelbakLadeWaarden = overigeWaarden
-
- If _spoelbakLadeKleurLade.Count <= 0 Then
- Throw New Exception("De waarden kleurLade van de spoelbak lade zijn foutief of niet aanwezig, gelieve deze na te kijken.")
- End If
- End Sub
-
- Public ReadOnly Property spoelbakLadeKleurLade As List(Of String)
- Get
- Return New List(Of String)(_spoelbakLadeKleurLade)
- End Get
- End Property
-#End Region
-
-#Region "lengten en code stemas b"
- Private _spoelbakLadeNominaleLengte As New List(Of String)
- Private _spoelbakLadeCodeStemasB As New List(Of String)
- Private Sub laadSpoelbakWaardenLengteEnCodeStemasB()
- Dim overigeConfigs As New List(Of String)
- For Each lijn As String In _spoelbakLadeWaarden
- If lijn.ToLower.StartsWith("lengtecodestemb") Then
- _spoelbakLadeNominaleLengte.Add(lijn.Split("|")(0).Replace("lengtecodestemb", "").Replace("LENGTECODESTEMB", "").Trim)
- _spoelbakLadeCodeStemasB.Add(lijn.Split("|")(1).Trim)
- Else
- overigeConfigs.Add(lijn)
- End If
- Next
-
- _spoelbakLadeWaarden = overigeConfigs
-
- If _spoelbakLadeNominaleLengte.Count <= 0 Then
- Throw New Exception("De waarde nominale lengte van de spoelbak lade is foutief of niet aanwezig, gelieve deze na te kijken.")
- ElseIf _spoelbakLadeCodeStemasB.Count <= 0 Then
- Throw New Exception("De waarde code stemas B van de spoelbak lade is foutief of niet aanwezig, gelieve deze na te kijken.")
- End If
- End Sub
-
- Public ReadOnly Property spoelbakLadeNettoLengte
- Get
- Return New List(Of String)(_spoelbakLadeNominaleLengte)
- End Get
- End Property
-
- Public Function spoelbakLadeGeefCodeStemasB(nominaleLengte As String) As String
- For teller As Integer = 0 To _spoelbakLadeNominaleLengte.Count - 1
- If nominaleLengte.Equals(_spoelbakLadeNominaleLengte(teller)) Then
- Return _spoelbakLadeCodeStemasB(teller)
- End If
- Next
- Throw New Exception("Ongeldige spoelbakLadeNettoLengte bij opvragen CodeStemasB")
- End Function
-#End Region
-
-#End Region
-
#Region "waarden kleur vervangen"
#Region "nieuwe kleuren"
Index: TAOR rework/TAOR rework/databases/StemasC/StemasData.vb
===================================================================
diff -u -r1513 -r1879
--- TAOR rework/TAOR rework/databases/StemasC/StemasData.vb (.../StemasData.vb) (revision 1513)
+++ TAOR rework/TAOR rework/databases/StemasC/StemasData.vb (.../StemasData.vb) (revision 1879)
@@ -40,44 +40,44 @@
Return DirectCast(Me.MemberwiseClone(), StemasData)
End Function
- Public Sub updateWaardenSpecial(PartCalc As String, PartL As String, PartW As String, PartMat As String, PartGroup As String, PartRemark As String)
- Barcode = PartCalc
- BasePanelLenght = PartL - 5
- BasePanelWidth = PartW - 5
- SliceWidth = BasePanelWidth - 5
- ProfilingWidth = 0
- NbrOfSlices = 1
- Alignment = "S"
- SliceType = "E"
- ProgLeft1 = Configs.geefProgLeft1Stemas(PartMat.Substring(0, 1))
- ProgRight1 = Configs.geefProgRight1Stemas(PartMat.Substring(0, 1))
- SliceWidth1 = SliceWidth
- PrintBegin1 = "PrintBegin1"
- PrintEnd1 = "PrintEnd1"
- ProgLeft2 = ""
- ProgRight2 = ""
- SliceWidth2 = Nothing
- PrintBegin2 = ""
- PrintEnd2 = ""
- ProgLeft3 = ""
- ProgRight3 = ""
- SliceWidth3 = Nothing
- PrintBegin3 = ""
- PrintEnd3 = ""
- ProgLeft4 = ""
- ProgRight4 = ""
- SliceWidth4 = Nothing
- PrintBegin4 = ""
- PrintEnd4 = ""
- ProgLeft5 = ""
- ProgRight5 = ""
- SliceWidth5 = Nothing
- PrintBegin5 = ""
- PrintEnd5 = ""
- BatchID = PartGroup.Substring(0, 5)
- Toelevering = 0
- Dossiercode = PartRemark
- End Sub
+ 'Public Sub updateWaardenSpecial(PartCalc As String, PartL As String, PartW As String, PartMat As String, PartGroup As String, PartRemark As String)
+ ' Barcode = PartCalc
+ ' BasePanelLenght = PartL - 5
+ ' BasePanelWidth = PartW - 5
+ ' SliceWidth = BasePanelWidth - 5
+ ' ProfilingWidth = 0
+ ' NbrOfSlices = 1
+ ' Alignment = "S"
+ ' SliceType = "E"
+ ' ProgLeft1 = Configs.geefProgLeft1Stemas(PartMat.Substring(0, 1))
+ ' ProgRight1 = Configs.geefProgRight1Stemas(PartMat.Substring(0, 1))
+ ' SliceWidth1 = SliceWidth
+ ' PrintBegin1 = "PrintBegin1"
+ ' PrintEnd1 = "PrintEnd1"
+ ' ProgLeft2 = ""
+ ' ProgRight2 = ""
+ ' SliceWidth2 = Nothing
+ ' PrintBegin2 = ""
+ ' PrintEnd2 = ""
+ ' ProgLeft3 = ""
+ ' ProgRight3 = ""
+ ' SliceWidth3 = Nothing
+ ' PrintBegin3 = ""
+ ' PrintEnd3 = ""
+ ' ProgLeft4 = ""
+ ' ProgRight4 = ""
+ ' SliceWidth4 = Nothing
+ ' PrintBegin4 = ""
+ ' PrintEnd4 = ""
+ ' ProgLeft5 = ""
+ ' ProgRight5 = ""
+ ' SliceWidth5 = Nothing
+ ' PrintBegin5 = ""
+ ' PrintEnd5 = ""
+ ' BatchID = PartGroup.Substring(0, 5)
+ ' Toelevering = 0
+ ' Dossiercode = PartRemark
+ 'End Sub
Public Sub updateSpecialLadeDiepereZijkant(diepteVerschil As Integer)
BasePanelWidth += diepteVerschil