Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormGrid.vb
===================================================================
diff -u -r1603 -r1604
--- TAOR-rework-bugfixing/TAOR rework/formulieren/FormGrid.vb (.../FormGrid.vb) (revision 1603)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormGrid.vb (.../FormGrid.vb) (revision 1604)
@@ -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,101 +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
- dt.Load( CacheMapper.GeefDataTable(tabel, waarde))
- DataGridViewCache.AutoGenerateColumns = True
- DataGridViewCache.DataSource = dt
- DataGridViewCache.Refresh()
+ 'Ophalen bij Ardis.
+ DataGridViewCache.DataSource = ArdisMapper.geefDataReader(_waarde)
End If
- Else
- DataGridViewCache.AutoGenerateColumns = True
- DataGridViewCache.DataSource = reader
- DataGridViewCache.Refresh()
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()
@@ -181,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
@@ -225,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
@@ -251,7 +257,7 @@
Private Sub laadGridCacheMetFilter(filter As String)
Try
- Dim datareader As OdbcDataReader = CacheMapper.geefdatareader(tabel, waarde, filter)
+ Dim datareader As OdbcDataReader = CacheMapper.geefdatareader(_tabel, _waarde, filter)
Dim dt = New DataTable()
dt.Load(datareader)
@@ -271,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)
@@ -371,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
@@ -469,7 +475,7 @@
End Sub
Private Sub btnToonAlles_Click(sender As System.Object, e As System.EventArgs) Handles btnToonAlles.Click
- laadGridCache()
+ LaadGridCache()
klapToeOpen()
resetFilterButtons()
@@ -484,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
@@ -498,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
@@ -547,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-bugfixing/TAOR rework/Rework/Rework.vb
===================================================================
diff -u -r1597 -r1604
--- TAOR-rework-bugfixing/TAOR rework/Rework/Rework.vb (.../Rework.vb) (revision 1597)
+++ TAOR-rework-bugfixing/TAOR rework/Rework/Rework.vb (.../Rework.vb) (revision 1604)
@@ -33,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
Index: TAOR-rework-bugfixing/TAOR rework/formulieren/FormController.vb
===================================================================
diff -u -r1596 -r1604
--- TAOR-rework-bugfixing/TAOR rework/formulieren/FormController.vb (.../FormController.vb) (revision 1596)
+++ TAOR-rework-bugfixing/TAOR rework/formulieren/FormController.vb (.../FormController.vb) (revision 1604)
@@ -107,7 +107,7 @@
_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 +116,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 +125,7 @@
_waarde = waarde
_dataReader = dataReader
- _formGrid.laadData(_kolom, _waarde, dataReader, labelTekst)
+ _formGrid.laadData(_kolom, _waarde, dataReader)
_formGrid.Show()
_sender.Hide()
Index: TAOR-rework-bugfixing/TAOR rework/Domeincontroller.vb
===================================================================
diff -u -r1599 -r1604
--- TAOR-rework-bugfixing/TAOR rework/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1599)
+++ TAOR-rework-bugfixing/TAOR rework/Domeincontroller.vb (.../Domeincontroller.vb) (revision 1604)
@@ -67,8 +67,8 @@
Return redenen
End Function
- Public Sub addRework(ByVal barcode As String, ByVal reden() As String, ByVal onderdeel As String, ByVal voorVoorraad As String, ByVal etiketTekst As String)
- reworkRep.addRework(New Rework.Rework(barcode, reden, onderdeel, voorVoorraad, etiketTekst))
+ Public Sub addRework(ByVal barcode As String, ByVal reden() As String, ByVal onderdeel As String, ByVal voorVoorraad As String)
+ reworkRep.addRework(New Rework.Rework(barcode, reden, onderdeel, voorVoorraad))
End Sub
Public Sub verwijderRework(ByVal barcode As String)