Index: TAOR rework/TAOR rework/Configuraties/Configs.vb =================================================================== diff -u -r1879 -r1886 --- TAOR rework/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1879) +++ TAOR rework/TAOR rework/Configuraties/Configs.vb (.../Configs.vb) (revision 1886) @@ -35,7 +35,8 @@ laadWaardenDieptesEnLengtenEnCodeStemasB() 'sifon lade waarden - laadsifonWaardenVerplaatsFolderPath() + laadSifonWaardenVerplaatsFolderPath() + laadSifonWaardenEtiketlijnGegenereerdeOnderdelen() laadSifonWaardenMinimumLengteRug() laadSifonWaardenMinWaardePositie() laadSifonWaardenMinWaardeRestPositie() @@ -613,7 +614,7 @@ #Region "path om uitgelezen bestand naar te verplaatsen" Private _sifonLadeVerplaatsFolderPath As String - Private Sub laadsifonWaardenVerplaatsFolderPath() + Private Sub laadSifonWaardenVerplaatsFolderPath() For teller As Integer = 0 To _sifonLadeWaarden.Count - 1 Dim lijn As String = _sifonLadeWaarden(teller) @@ -631,6 +632,68 @@ #End Region + Private _sifonLadePartExt09ZijkantLinks as String + Private _sifonLadePartExt09ZijkantRechts as String + Private _sifonLadePartExt09Rug as String +#Region "PartExt09 waarde voor gegenereerde onderderdelen" + private sub laadSifonWaardenEtiketlijnGegenereerdeOnderdelen() + 'ZIJKANT LINKS + For teller = 0 To _sifonLadeWaarden.Count - 1 + Dim lijn As String = _sifonLadeWaarden(teller) + + If lijn.ToLower.StartsWith("ticketlijngegenereerdezijkantl") Then + _sifonLadePartExt09ZijkantLinks = lijn.Remove(0, "ticketlijngegenereerdezijkantl".Length).Trim + _sifonLadeWaarden.RemoveAt(teller) + Exit For + End If + Next + 'ZIJKANT RECHTS + For teller = 0 To _sifonLadeWaarden.Count - 1 + Dim lijn As String = _sifonLadeWaarden(teller) + + If lijn.ToLower.StartsWith("ticketlijngegenereerdezijkantr") Then + _sifonLadePartExt09ZijkantRechts = lijn.Remove(0, "ticketlijngegenereerdezijkantr".Length).Trim + _sifonLadeWaarden.RemoveAt(teller) + Exit For + End If + Next + 'RUG + For teller = 0 To _sifonLadeWaarden.Count - 1 + Dim lijn As String = _sifonLadeWaarden(teller) + + If lijn.ToLower.StartsWith("ticketlijngegenereerderug") Then + _sifonLadePartExt09Rug = lijn.Remove(0, "ticketlijngegenereerderug".Length).Trim + _sifonLadeWaarden.RemoveAt(teller) + Exit For + End If + Next + + If _sifonLadePartExt09ZijkantLinks Is Nothing OrElse _sifonLadeVerplaatsFolderPath.Equals("") Then + Throw New Exception("TICKETLIJNGEGENEREERDEZIJKANTL is niet geconfigureerd in het SifonLadeWaarden bestand.") + End If + + If _sifonLadePartExt09ZijkantRechts Is Nothing OrElse _sifonLadeVerplaatsFolderPath.Equals("") Then + Throw New Exception("TICKETLIJNGEGENEREERDEZIJKANTR is niet geconfigureerd in het SifonLadeWaarden bestand.") + End If + + If _sifonLadePartExt09Rug Is Nothing OrElse _sifonLadeVerplaatsFolderPath.Equals("") Then + Throw New Exception("TICKETLIJNGEGENEREERDERUG is niet geconfigureerd in het SifonLadeWaarden bestand.") + End If + End sub + + Public Function sifonLadeGeefPartExt09GegenereerdeZijkantLinks() As String + Return _sifonLadePartExt09ZijkantLinks + End Function + + Public Function sifonLadeGeefPartExt09GegenereerdeZijkantRechts() As String + Return _sifonLadePartExt09ZijkantRechts + End Function + + Public Function sifonLadeGeefPartExt09GegenereerdeRug() As String + Return _sifonLadePartExt09Rug + End Function +#End Region + #Region "drempelwaarde rug" Private _sifonLadeMinimumLengteRug As String Private Sub laadSifonWaardenMinimumLengteRug() Index: TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenSifonLadeTextMapper.vb =================================================================== diff -u -r1877 -r1886 --- TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenSifonLadeTextMapper.vb (.../WaardenSifonLadeTextMapper.vb) (revision 1877) +++ TAOR rework/TAOR rework/Configuraties/config text mappers/WaardenSifonLadeTextMapper.vb (.../WaardenSifonLadeTextMapper.vb) (revision 1886) @@ -54,6 +54,12 @@ file.WriteLine("%VOORBEELD") file.WriteLine("%VERPLAATSPATH \\Ardisclient\special\Sifonlade") file.WriteLine() + file.WriteLine("%PartExt09 waarde voor gegenereerde zijkanten") + file.WriteLine("%VOORBEELD") + file.WriteLine("%TICKETLIJNGEGENEREERDEZIJKANTL SPA") + file.WriteLine("%TICKETLIJNGEGENEREERDEZIJKANTR SPA") + file.WriteLine("%TICKETLIJNGEGENEREERDERUG SPA") + file.WriteLine() file.WriteLine("%MINIMUM LENGTE RUG, voor de minimum waarde dat de lengte van een rug moet zijn") file.WriteLine("%VOORBEELD") file.WriteLine("%MINLENGTERUG 250")