Index: APPS/Halux/Component/impl/ImportBSKey.cls.xml
===================================================================
diff -u -r57128 -r57547
--- APPS/Halux/Component/impl/ImportBSKey.cls.xml	(.../ImportBSKey.cls.xml)	(revision 57128)
+++ APPS/Halux/Component/impl/ImportBSKey.cls.xml	(.../ImportBSKey.cls.xml)	(revision 57547)
@@ -24,21 +24,29 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="WerkpostAlsSpecial">
+<Type>%String</Type>
+</Property>
+
+<Index name="iBSKey">
+<Properties>Familie,BSKey</Properties>
+</Index>
+
 <Method name="Import">
 <Description>
 d ##class(APPS.Halux.Component.impl.ImportBSKey).Import()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Do ..%DeleteExtent()
 	Set reader=##class(TECH.FileReader).%New("\\notes01\shared\P V\Maatwerk bouwstenen.txt")
-	;Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
 	While reader.Next()
 	{
 		w "*"
 		Set BS=..%New()
 		Set BS.Familie=reader.Column(1)
-		Set BS.BSKey=reader.Column(2)
-		Set BS.Werkpost=reader.Column(3)
+		Set:BS.Familie="TA.B" BS.Familie="TAX"
+		Set BS.BSKey=$P(reader.Column(2),".",1)
+		Set BS.Werkpost=$tr(reader.Column(3),"""")
 		Set BS.WerkpostAlsBinnenlade=reader.Column(4)
 		Set BS.WerkpostAlsSpoelbak=reader.Column(5)
 		Do BS.Save()
@@ -72,6 +80,9 @@
 <Value name="6">
 <Value>WerkpostAlsSpoelbak</Value>
 </Value>
+<Value name="7">
+<Value>WerkpostAlsSpecial</Value>
+</Value>
 </Data>
 </Storage>
 </Class>