Index: TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb =================================================================== diff -u -r1909 -r1959 --- TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1909) +++ TAOR rework/TAOR rework/databases/Ardis/ArdisData.vb (.../ArdisData.vb) (revision 1959) @@ -63,7 +63,11 @@ End Sub Public Function geefLinksOfRechts() As String - Return PartCalc.Substring(5).Substring(0, 1).ToUpper() + Dim letter = PartCalc.Substring(5).Substring(0, 1).ToUpper() + 'Letters van gegenereerde zijkanten mappen (sifonlade) + If letter = "E" then Return "L" + if letter = "F" then Return "R" + Return letter End Function Public Function geefColorEnkel(andereKant As ArdisData) As String @@ -98,7 +102,9 @@ ''' ''' Function IsSpecialGegenereerd() As Boolean - Return PartExt09.Equals(Configs.sifonLadeGeefPartExt09GegenereerdeZijkantLinks()) Or PartExt09.ToUpper.Equals(Configs.sifonLadeGeefPartExt09GegenereerdeZijkantRechts()) + Dim gegLinks = Configs.sifonLadeGeefPartExt09GegenereerdeZijkantLinks() + Dim gegRechts = Configs.sifonLadeGeefPartExt09GegenereerdeZijkantRechts() + Return PartExt09.Equals(gegLinks.ToUpper()) Or PartExt09.ToUpper.Equals(gegRechts.ToUpper()) End Function #Region "sifon laden" Index: TAOR rework/TAOR rework/TAOR rework.vbproj =================================================================== diff -u -r1956 -r1959 --- TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1956) +++ TAOR rework/TAOR rework/TAOR rework.vbproj (.../TAOR rework.vbproj) (revision 1959) @@ -29,7 +29,7 @@ TAOR rework Robin De Bock false - 6 + 7 6.1.6.%2a false true