Index: vhDeploy/D20180723xBeslagteknikkPersonalityAanmaken.cls.xml
===================================================================
diff -u
--- vhDeploy/D20180723xBeslagteknikkPersonalityAanmaken.cls.xml	(revision 0)
+++ vhDeploy/D20180723xBeslagteknikkPersonalityAanmaken.cls.xml	(revision 57660)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20180723xBeslagteknikkPersonalityAanmaken">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="PersonalityID">
+<Type>%String</Type>
+<Default>20</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Aanmaken van Personality voor Beslagteknikk (ID=20)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ##class(DOM.common.impl.PersonalityCreator).%New().StelInNieuwePersonality(	..#PersonalityID, 
+																					##class(DOM.common.BeslagteknikkPersonality).%ClassName($$$True), 
+																					##class(DOM.VKP.enu.Klant).Beslagteknikk()
+																				 )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml
===================================================================
diff -u -r55353 -r57660
--- APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 55353)
+++ APPS/EC/enu/WebShopVerwerker/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57660)
@@ -16,6 +16,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Beslagteknikk">
+<Type>%String</Type>
+<InitialExpression>"BETE"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"DARO"</InitialExpression>
Index: DOM/VKP/impl/BeslagteknikkKlantData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/BeslagteknikkKlantData.cls.xml	(revision 0)
+++ DOM/VKP/impl/BeslagteknikkKlantData.cls.xml	(revision 57660)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.BeslagteknikkKlantData">
+<Super>DOM.VKP.impl.HandelKlantData</Super>
+
+<Property name="EmailAdres">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: DOM/common/BeslagteknikkPersonality.cls.xml
===================================================================
diff -u
--- DOM/common/BeslagteknikkPersonality.cls.xml	(revision 0)
+++ DOM/common/BeslagteknikkPersonality.cls.xml	(revision 57660)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.BeslagteknikkPersonality">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.common.impl.HandelPersonality</Super>
+
+<Method name="Instance">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.impl.Personality</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(##class(DOM.common.enu.Personality).Beslagteknikk())
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.common.PersonalityVisitor</FormalSpec>
+<Implementation><![CDATA[
+	w !,Visitor,!
+	Do Visitor.VerwerkBeslagteknikk($this)
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>DOM.enu.Taal</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.enu.Taal).Engels()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierData">
+<ReturnType>DOM.common.LeverancierPersonalityData</ReturnType>
+<Implementation><![CDATA[	quit ##class(DOM.common.LeverancierPersonalityData).%New(##class(DOM.common.enu.Personality).VanHoecke(),##class(DOM.VKP.enu.Klant).Beslagteknikk())
+]]></Implementation>
+</Method>
+
+<Method name="IsHandel">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+
+<Method name="GeefNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Beslagteknikk"
+]]></Implementation>
+</Method>
+
+<Method name="GeefPrefix">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "Bete_"
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/EC/Transport/impl/Factory.cls.xml
===================================================================
diff -u -r46605 -r57660
--- vhTest/Mock/APPS/EC/Transport/impl/Factory.cls.xml	(.../Factory.cls.xml)	(revision 46605)
+++ vhTest/Mock/APPS/EC/Transport/impl/Factory.cls.xml	(.../Factory.cls.xml)	(revision 57660)
@@ -8,6 +8,13 @@
 <Super>APPS.EC.Transport.impl.Factory,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
+<Method name="%OnNew">
+<FormalSpec>PersonalityService:DOM.common.PersonalityService,PersonalityRepo:DOM.common.impl.PersonalityRepository</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefLandenBepaler">
 <FormalSpec>Sessie:APPS.EC.Transport.dto.KlantIdentificatie</FormalSpec>
 <ReturnType>APPS.EC.Transport.LandenBepaler</ReturnType>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml
===================================================================
diff -u -r55414 -r57660
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55414)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefTransportFirmaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
@@ -63,6 +63,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Galimberti())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Pavanello())
 	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Ferexpert())
+	Do VerwachteBepalers.SetAt(..VanHoeckeTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
 	
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinTransportFirmaBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml
===================================================================
diff -u -r52251 -r57660
--- vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 52251)
+++ vhUnitTest/DOM/common/Personality/GeefLeverancierData/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
@@ -38,6 +38,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestBeslagteknikk">
+<Implementation><![CDATA[	do ..AssertGeefLeverancierData(..Enum.Personality.Beslagteknikk,..Enum.Personality.VanHoecke,..Enum.Klant.Beslagteknikk)
+]]></Implementation>
+</Method>
+
 <Method name="AssertGeefLeverancierData">
 <FormalSpec>PersonalityID:DOM.common.enu.Personality,VerwachtePersonalityId:DOM.common.enu.Personality,VerwachteId:%String</FormalSpec>
 <Private>1</Private>
Index: DOM/common/enu/Personality/AutoComplete.cls.xml
===================================================================
diff -u -r55401 -r57660
--- DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 55401)
+++ DOM/common/enu/Personality/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 57660)
@@ -16,6 +16,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="Beslagteknikk">
+<Type>%String</Type>
+<InitialExpression>"20"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="Daro">
 <Type>%String</Type>
 <InitialExpression>"10"</InitialExpression>
Index: DOM/common/enu/Personality.cls.xml
===================================================================
diff -u -r57141 -r57660
--- DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 57141)
+++ DOM/common/enu/Personality.cls.xml	(.../Personality.cls.xml)	(revision 57660)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="DISPLAYLIST">
-<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert</Default>
+<Default>,VanHoecke,VanHoeckeVoorHalux,SFS,Dupont,Kisch,Destil,HaefeleBE,VanRaemdonck,Noteborn,Daro,Hein,HaefeleNL,Seefelder,BeslagDesign,Demo,Zweygart,Galimberti,Pavanello,Ferexpert,Beslagteknikk</Default>
 </Parameter>
 
 <Parameter name="VALUELIST">
-<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19</Default>
+<Default>,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20</Default>
 </Parameter>
 
 <Method name="VanHoecke">
@@ -146,15 +146,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Beslagteknikk">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.enu.Personality</ReturnType>
+<Implementation><![CDATA[	quit 20
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*
 Voorlopige toekenning van de nummerkes, nog te vervolledigen bij de implemetatie van de personalities.
-ClassMethod Beslagteknikk() As DOM.common.enu.Personality
-{
-	quit 20
-}
-
 ClassMethod BiemarBois() As DOM.common.enu.Personality
 {
 	quit 21
Index: APPS/EC/enu/WebShopVerwerker.cls.xml
===================================================================
diff -u -r55353 -r57660
--- APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 55353)
+++ APPS/EC/enu/WebShopVerwerker.cls.xml	(.../WebShopVerwerker.cls.xml)	(revision 57660)
@@ -6,11 +6,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE</Default>
+<Default>;VHEPN;SFS;LMC;MBHO;HFLB;DUPO;KISCH;HELMY;HEIN;HFLE;RAEM;DARO;SEEF;BEDE;ZWEY;GALI;PAVA;FERE;BETE</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert</Default>
+<Default>;VHEPN;SFS;OptimaPack;MeubelBeslagHolland;HaefeleBelgie;Dupont;Kisch;Destil;Hein;HaefeleNederland;VanRaemdonck;Daro;Seefelder;BeslagDesign;Zweygart;Galimberti;Pavanello;Ferexpert;Beslagteknikk</Default>
 </Parameter>
 
 <Method name="VHEPN">
@@ -139,6 +139,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Beslagteknikk">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.EC.enu.WebShopVerwerker</ReturnType>
+<Implementation><![CDATA[	Quit "BETE"
+]]></Implementation>
+</Method>
+
 <Method name="RandomValue">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ValueToBeIgnored...:TECH.String</FormalSpec>
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml
===================================================================
diff -u -r55414 -r57660
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 55414)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefVerkoopprijsBerekenaar/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
@@ -64,6 +64,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Galimberti())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Pavanello())
 	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Ferexpert())
+	Do VerwachteBepalers.SetAt(..VanHoeckeVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
 
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinVerkoopprijsBerekenaarClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml
===================================================================
diff -u -r55353 -r57660
--- APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 55353)
+++ APPS/EC/enu/WebShopVerwerker/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57660)
@@ -14,6 +14,8 @@
 <Implementation><![CDATA[
 	If WebShopVerwerker = "BEDE" {
 		Do ..VerwerkBeslagDesign()
+	} ElseIf WebShopVerwerker = "BETE" {
+		Do ..VerwerkBeslagteknikk()
 	} ElseIf WebShopVerwerker = "DARO" {
 		Do ..VerwerkDaro()
 	} ElseIf WebShopVerwerker = "HELMY" {
@@ -61,6 +63,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBeslagteknikk">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/common/PersonalityVisitor.cls.xml
===================================================================
diff -u -r55406 -r57660
--- DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 55406)
+++ DOM/common/PersonalityVisitor.cls.xml	(.../PersonalityVisitor.cls.xml)	(revision 57660)
@@ -93,6 +93,11 @@
 <Abstract>1</Abstract>
 <FormalSpec>FerexpertPersonality:DOM.common.FerexpertPersonality</FormalSpec>
 </Method>
+
+<Method name="VerwerkBeslagteknikk">
+<Abstract>1</Abstract>
+<FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
+</Method>
 </Class>
 
 
Index: DOM/common/enu/Personality/Verwerker.cls.xml
===================================================================
diff -u -r55401 -r57660
--- DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 55401)
+++ DOM/common/enu/Personality/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 57660)
@@ -14,6 +14,8 @@
 <Implementation><![CDATA[
 	If Personality = "14" {
 		Do ..VerwerkBeslagDesign()
+	} ElseIf Personality = "20" {
+		Do ..VerwerkBeslagteknikk()
 	} ElseIf Personality = "10" {
 		Do ..VerwerkDaro()
 	} ElseIf Personality = "15" {
@@ -63,6 +65,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkBeslagteknikk">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkDaro">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml
===================================================================
diff -u -r55404 -r57660
--- DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 55404)
+++ DOM/common/VanHoeckeOfAnderePersonalityVisitor.cls.xml	(.../VanHoeckeOfAnderePersonalityVisitor.cls.xml)	(revision 57660)
@@ -115,6 +115,12 @@
 <Implementation><![CDATA[	Do ..VerwerkAnderePersonality(FerexpertPersonality)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkBeslagteknikk">
+<FormalSpec>BeslagteknikkPersonality:DOM.common.BeslagteknikkPersonality</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwerkAnderePersonality(BeslagteknikkPersonality)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml
===================================================================
diff -u -r55414 -r57660
--- vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55414)
+++ vhUnitTest/APPS/EC/Transport/impl/Factory/GeefLandenBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57660)
@@ -61,6 +61,7 @@
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Galimberti())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Pavanello())
 	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Ferexpert())
+	Do VerwachteBepalers.SetAt(..VanHoeckeLandenBepalerClassName,##class(DOM.common.enu.Personality).Beslagteknikk())
 	
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Hein())
 	Do VerwachteBepalers.SetAt(..HeinLandenBepalerClassName,##class(DOM.common.enu.Personality).Seefelder())
Index: vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml
===================================================================
diff -u -r55430 -r57660
--- vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml	(.../WebserverKlantenPerPersonalityTemplate.cls.xml)	(revision 55430)
+++ vhTest/Integratie/WebserverKlantenPerPersonalityTemplate.cls.xml	(.../WebserverKlantenPerPersonalityTemplate.cls.xml)	(revision 57660)
@@ -106,15 +106,17 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit:(PersonalityID = ..Personality.Noteborn) $$$False
-	Quit:(PersonalityID = ..Personality.VanHoeckeVoorHalux) $$$False
-	Quit:(PersonalityID = ..Personality.Seefelder) $$$False
-	Quit:(PersonalityID = ..Personality.Zweygart) $$$False
-	Quit:(PersonalityID = ..Personality.Hein) $$$False
-	Quit:(PersonalityID = ..Personality.Galimberti) $$$False
-	Quit:(PersonalityID = ..Personality.Pavanello) $$$False
-	Quit:(PersonalityID = ..Personality.Ferexpert) $$$False
-	Quit $$$True
+	Quit:(PersonalityID = ..Personality.Daro) $$$True
+	Quit:(PersonalityID = ..Personality.Demo) $$$True
+	Quit:(PersonalityID = ..Personality.Destil) $$$True
+	Quit:(PersonalityID = ..Personality.Dupont) $$$True
+	Quit:(PersonalityID = ..Personality.HaefeleBE) $$$True
+	Quit:(PersonalityID = ..Personality.HaefeleNL) $$$True
+	Quit:(PersonalityID = ..Personality.Kisch) $$$True
+	Quit:(PersonalityID = ..Personality.SFS) $$$True
+	Quit:(PersonalityID = ..Personality.VanHoecke) $$$True
+	Quit:(PersonalityID = ..Personality.VanRaemdonck) $$$True
+	Quit $$$False
 ]]></Implementation>
 </Method>