Index: TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb =================================================================== diff -u -r1883 -r1909 --- TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1883) +++ TAOR rework/TAOR rework/databases/Cache/CacheMapper.vb (.../CacheMapper.vb) (revision 1909) @@ -93,12 +93,12 @@ ''' 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}'") + LogBestandTextMapper.WriteToFile("Caché", $"Opvragen van DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'") Try - Dim kolomnaam As String = EnumMapper.geefCacheKolomNaamBijKolom(kolom) + Dim kolomnaam As String = EnumMapper.GeefCacheKolomNaamBijKolom(kolom) Dim equalsOfLikeSleutelwoord As String - If Not kolom = Kolommen.klantnaam Then + If Not kolom = Kolommen.Klantnaam Then 'Geen naam, aka gewoon equals. equalsOfLikeSleutelwoord = "=" Else @@ -120,7 +120,7 @@ '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) + 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 DataReader met kolom, waarde, filter?: '{EnumMapper.GeefTekstVanEnumOptie(kolom)}' '{waarde}' '{filter}'{vbNewLine}{ex.Message}") @@ -133,15 +133,15 @@ ''' ''' 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}'") + LogBestandTextMapper.WriteToFile("Caché", $"Opvragen van data reader met barcode, filter?: '{barcode}' '{filter}'") 'Variable declaratie. Dim batch, kar 'Opvragen batch en kar. Try 'Opvragen van de datareader met als type barcode bij de hulpfunctie. - Dim barcodeDataReader = GetDataReader(Kolommen.barcode, barcode) + Dim barcodeDataReader = GetDataReader(Kolommen.Barcode, barcode) If Not barcodeDataReader.Read() Then 'Als er geen rij is gevonden wordt de lege data reader geretourneert. @@ -170,7 +170,7 @@ 'Uitvoeren van query en datareader retourneren. Dim dr = ExecuteIntoDataReader(query) - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van data reader met barcode: {barcode}", True) + LogBestandTextMapper.WriteToFile("Caché", $"Opvragen van data reader met barcode: {barcode}", True) Return dr Catch ex As Exception 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}") @@ -184,7 +184,7 @@ ''' De datareader Private Function GetDataReader(barcodes As List(Of String)) As OdbcDataReader Try - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van OdbcDataReader met barcodes: '{String.Join(", ", barcodes.ToArray())}'") + 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 @@ -208,7 +208,7 @@ 'Uitvoeren van query en datareader retourneren. Dim dr = ExecuteIntoDataReader(query) - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van OdbcDataReader met barcodes: '{String.Join(", ", barcodes.ToArray())}'", True) + 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 barcodes: '{String.Join(", ", barcodes.ToArray())}' {vbNewLine}{ex.Message}") @@ -222,7 +222,7 @@ ''' De barcode ''' De datareader Public Function GetDetails(barcode As String) As DataTable - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van data table met details, van barcode: {barcode}") + LogBestandTextMapper.WriteToFile("Caché", $"Opvragen van data table 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" Try @@ -233,7 +233,7 @@ datatable.Load(dr) 'Connectie van datareader sluiten. dr.Close() - LogBestandTextMapper.writeToFile("Caché", $"Opvragen van data table met details, van barcode: {barcode}", True) + LogBestandTextMapper.WriteToFile("Caché", $"Opvragen van data table met details, van barcode: {barcode}", True) 'Retourneren van de datatable. Return datatable Catch ex As Exception @@ -252,10 +252,10 @@ Dim dataReader As OdbcDataReader 'Type kolom controleren. - If kolom = Kolommen.barcode Then + If kolom = Kolommen.Barcode Then '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 + ElseIf kolom = Kolommen.BarcodesVoorraad Then 'Barcodes van een voorraad worden met meerdere tegelijk opgevraagd. dataReader = GetDataReader(TryCast(CObj(waarde), List(Of String))) Else @@ -284,7 +284,7 @@ Dim dataReader As OdbcDataReader 'Type kolom controleren. - If kolom = Kolommen.barcode Then + If kolom = Kolommen.Barcode Then 'Als het een barcode is moeten we iets meer laten zien: items die in dezelfde batch en kar zitten. dataReader = GetDataReaderBarcode(waarde, filter) Else @@ -305,12 +305,12 @@ ''' ''' Lijst van namen van onderdelen Public Function GeefOnderdelen() As List(Of String) - LogBestandTextMapper.writeToFile("Caché", "Opvragen van onderdelen.") + LogBestandTextMapper.WriteToFile("Caché", "Opvragen van onderdelen.") Const query = "select DISTINCT Onderdeel from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem" Dim onderdelen = ExecuteIntoListOfString(query) - LogBestandTextMapper.writeToFile("Caché", "Opvragen van onderdelen", True) + LogBestandTextMapper.WriteToFile("Caché", "Opvragen van onderdelen", True) Return onderdelen End Function @@ -322,7 +322,7 @@ ''' 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.") + LogBestandTextMapper.WriteToFile("Caché", "Updaten van rework met informatie uit databank.") 'Controleren welke barcode gebruikt zal worden Dim barcode As String @@ -369,7 +369,7 @@ 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}") 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 @@ -378,38 +378,38 @@ ''' ''' De reden Public Sub OpslaanReworkReden(ByRef rework As Rework) - LogBestandTextMapper.writeToFile("Caché", $"Opslaan rework reden met reden: {rework.reden}") + LogBestandTextMapper.WriteToFile("Caché", $"Opslaan rework reden met reden: {rework.reden}") 'Updaten van het stapnummer (op 0 zetten) UpdateStapNummer(rework.barcode) 'Opslaan van de reden. 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 ''' ''' 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}") + 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" '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}") End Try - LogBestandTextMapper.writeToFile("Caché", $"Updaten stapnummer met verwerkingId: {verwerkingId}", True) + LogBestandTextMapper.WriteToFile("Caché", $"Updaten stapnummer met verwerkingId: {verwerkingId}", True) End Sub ''' ''' 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}") + LogBestandTextMapper.WriteToFile("Caché", $"Rework reden wegschrijven naar de databank, reden: {rework.reden}") 'Updaten van de data in de rework. rework.aanpassenData() @@ -424,25 +424,30 @@ 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}") 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 + Public Enum barcodeLengte + vier + vijf + End Enum ''' ''' Opvragen nummer voor in de barcode voor test lade of special lade. ''' ''' Het nummer voor de barcode. - Public Function GeefBarcodeNummer() As Integer - 'Variablen declareren. + Public Function GeefBarcodeNummer(lengte As barcodeLengte) As Integer + 'Variabelen declareren. Dim query As String + Dim label = If(lengte=barcodeLengte.vier,"BARCODE","BARCODE5") Dim teller, maxteller, minTeller, nieuweTeller As Integer 'Blijven herhalen indien nodig. Dim retry = 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 teller, minimum teller en maximum teller.") + 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'" + query = $"select * from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers where label='{label}'" Try 'Query uitvoeren en datareader bijhouden. Dim dr = ExecuteIntoDataReader(query) @@ -472,26 +477,26 @@ nieuweTeller = minTeller End If - LogBestandTextMapper.writeToFile("Caché", "Opvragen van teller, minimum teller en maximum teller.", True) + LogBestandTextMapper.WriteToFile("Caché", "Opvragen van teller, minimum teller en maximum teller.", True) '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é", $"Updaten van de teller met de nieuwe teller: {nieuweTeller}") 'Query opbouwen. - query = $"Update APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers set Teller={nieuweTeller} where label='BARCODE'" + query = $"Update APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers set Teller={nieuweTeller} where label='{label}'" 'Commando uitvoeren 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'" + LogBestandTextMapper.WriteToFile("Caché", "Opvragen van de geüpdate teller") + query = $"select Teller from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.Tellers where label='{label}'" Try 'Query uitvoeren en datareader bijhouden. Dim dr = ExecuteIntoDataReader(query) @@ -504,7 +509,7 @@ Catch ex As Exception 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) + 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. @@ -524,7 +529,7 @@ 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 Index: TAOR rework/TAOR rework/laden/Testladen/TestLaden.vb =================================================================== diff -u -r1513 -r1909 --- TAOR rework/TAOR rework/laden/Testladen/TestLaden.vb (.../TestLaden.vb) (revision 1513) +++ TAOR rework/TAOR rework/laden/Testladen/TestLaden.vb (.../TestLaden.vb) (revision 1909) @@ -100,7 +100,7 @@ For Each sleutel As Sleutel In Sleutels Dim nieuweSleutel As New Sleutel nieuweSleutel.Label = sleutel.Label - nieuweSleutel.Waarde = genereerBarcode(CacheMapper.geefBarcodeNummer, sleutel.Waarde) + nieuweSleutel.Waarde = genereerBarcode(CacheMapper.geefBarcodeNummer(barcodeLengte.vier), sleutel.Waarde) nieuweSleutels.Add(nieuweSleutel) Next Index: TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb =================================================================== diff -u -r1906 -r1909 --- TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb (.../ZijkantVoorraadItem.vb) (revision 1906) +++ TAOR rework/TAOR rework/Voorraad/zijkanten/ZijkantVoorraadItem.vb (.../ZijkantVoorraadItem.vb) (revision 1909) @@ -83,10 +83,10 @@ Dim ardisDataBuiten As New ArdisData ardisDataBinnen.voorraadZijkantStelInitieleWaardenIn(Me, true) - ardisDataBinnen.voorraadZijkantGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade) + ardisDataBinnen.voorraadZijkantGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(barcodeLengte.vier), IsSifonlade) ardisDataBuiten.voorraadZijkantStelInitieleWaardenIn(Me,false) - ardisDataBuiten.voorraadZijkantGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(), IsSifonlade) + ardisDataBuiten.voorraadZijkantGenereerBarcodeEnStelEtiketlijnIn(LinksOfRechts, Hoogte, CacheMapper.GeefBarcodeNummer(barcodeLengte.vier), IsSifonlade) ardisDataBinnen.updateKommasNaarPunten() ardisDataBuiten.updateKommasNaarPunten() Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb =================================================================== diff -u -r1905 -r1909 --- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1905) +++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1909) @@ -145,7 +145,7 @@ End If 'De barcode vullen met nullen en de uniek nummer dat wordt opgehaald. - Dim nummer As String = CacheMapper.GeefBarcodeNummer + Dim nummer As String = CacheMapper.GeefBarcodeNummer(barcodeLengte.vier) Dim aantalNullen As Integer = PartCalc.Length - nieuweBarcode.Length - CStr(nummer).Length For teller = 0 To aantalNullen - 2 nummer &= "0" @@ -389,7 +389,7 @@ 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(barcodeLengte.vier) 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" @@ -654,7 +654,7 @@ PartExt02 = "" 'etiketlijn2 PartExt03 = "" 'etiketlijn3 PartExt04 = "WORDT VERVANGEN" 'etiketlijn4 - PartExt05 = "NoLabel" 'etiketinfo + PartExt05 = "" 'etiketinfo PartRemark3 = "NoRework" 'rework PartGroup = "88888000" 'kar PartLevel = DateTime.Now.ToString("yyyyMMdd") 'banding @@ -685,7 +685,7 @@ 'getal (lengte), altijd 5 lang barcode &= breedte '02500 -> 18000 'vast deel barcode - barcode &= $"VS{barcodeNummer}" 'VS00000 -> VS09999 + barcode &= $"VX{barcodeNummer}" 'VX00000 -> VX09999 'aantal boringen barcode &= $"D{vItem.Boringen}" 'D0 -> D9 Index: TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb =================================================================== diff -u -r1906 -r1909 --- TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb (.../FrontVoorraadItem.vb) (revision 1906) +++ TAOR rework/TAOR rework/Voorraad/fronten/FrontVoorraadItem.vb (.../FrontVoorraadItem.vb) (revision 1909) @@ -71,7 +71,7 @@ Dim frontArdisData As New ArdisData frontArdisData.voorraadFrontStelInitieleWaardenIn(Me) - frontArdisData.voorraadFrontGenereerBarcodeEnStelEtiketlijnIn(Me, CacheMapper.GeefBarcodeNummer()) + frontArdisData.voorraadFrontGenereerBarcodeEnStelEtiketlijnIn(Me, CacheMapper.GeefBarcodeNummer(barcodeLengte.vijf)) frontArdisData.updateKommasNaarPunten()