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