Index: APPS/common/KlantKost/impl/KlantKostService.cls.xml
===================================================================
diff -u -r29059 -r66885
--- APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 29059)
+++ APPS/common/KlantKost/impl/KlantKostService.cls.xml	(.../KlantKostService.cls.xml)	(revision 66885)
@@ -78,7 +78,7 @@
 <Method name="BerekenTransportKlantKosten">
 <FormalSpec>Jaar:%Integer,Maand:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	Set Calculator = ..GeefTransportKostCalculator()
+	Set Calculator = ##class(APPS.common.KlantKost.impl.TransportKostCalculator).%New()
 	Do Calculator.BerekenKostenPerKlant(Jaar,Maand)
 	
 	Do ..MaandKostAggregator.AggregeerVoorMaandEnType(Jaar,Maand,##class(APPS.common.KlantKost.enu.KostType).LosTransport())
@@ -110,21 +110,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefTransportKostCalculator">
-<Private>1</Private>
-<ReturnType>APPS.common.KlantKost.impl.TransportKostCalculator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.common.KlantKost.impl.TransportKostCalculator).%New()
-]]></Implementation>
-</Method>
-
-<Method name="InitSubscriptions">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("CommercieleOverdrachtKlantEvent","APPS.common.KlantKost.impl.KlantKostService","CommercieleOverdrachtKlant")
-	Do Subscription.%Save()
-]]></Implementation>
-</Method>
-
 <Method name="CommercieleOverdrachtKlant">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>CommercieleOverdachtKlant:DOM.CRM.event.CommercieleOverdrachtKlant</FormalSpec>
@@ -139,25 +124,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CommercielOverdrachtenInitieren">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set KlantKostService = ..%New()
-	
-	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
-	#dim KlantIt As TECH.Iterator = VerkoopAPI.GeefKlantIterator()
-	While KlantIt.HasNext()
-	{
-		#dim Klant As DOM.VKP.VanHoeckeKlant = KlantIt.Next()
-		Set NieuwKlantID = Klant.GeefCommericeelOverdrachtKlantID()
-		If (NieuwKlantID '= ""){
-			#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Klant.GeefID())
-			Do KlantKostService.CommercieleOverdracht(KlantNr,NieuwKlantID)
-		}
-	}
-]]></Implementation>
-</Method>
-
 <Method name="CommercieleOverdracht">
 <FormalSpec>VorigKlantID:DOM.VKP.VanHoeckeKlantID,NieuwKlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Implementation><![CDATA[
@@ -185,244 +151,6 @@
 	Set Status = ResultSet.Execute(NieuwKlantID,VorigKlantID)
 ]]></Implementation>
 </Method>
-
-<Method name="InitFactoren">
-<Description>
-Maak factoren éénmalig aan in cache databank voor het berekenen van kosten.
-Dit moet slechts éénmalig worden uitgevoerd</Description>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set GeldigVanaf = 1 /// $h , eerste dag
-	/// ContactFactor => Totale kostprijs vertegenwoordiging  per uur
-	#dim ContactFactor As APPS.common.KlantKost.impl.data.MeervoudigeFactor = ..FactorGateway.MaakMeervoudigeFactor("Contact")
-	
-	/// KostprijsRestTijdFactor => ( Totale kostprijs v d vertegenwoordiging x (resterende tijd / totale werktijd ) ) / totaal aantal bezoeken in referentieperiode
-	#dim KostprijsRestTijdFactor As APPS.common.KlantKost.impl.data.MeervoudigeFactor = ..FactorGateway.MaakMeervoudigeFactor("KostprijsResterendeTijd")
-
-	/// IP	
-	Set Waarde = 53.05 
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,##class(DOM.VKP.enu.KlantenPool).Industrie(),Waarde,GeldigVanaf)
-	Do Factor.Save()
-		
-	Set Waarde = 133.7315328791
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,##class(DOM.VKP.enu.KlantenPool).Industrie(),Waarde,GeldigVanaf)
-	Do Factor.Save()
-	
-	/// KS BE
-	Set Waarde = 36.52
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,##class(DOM.VKP.enu.KlantenPool).KlantenServiceBelgie(),Waarde,GeldigVanaf)
-	Do Factor.Save()
-	
-	Set Waarde = 57.6405793977
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,##class(DOM.VKP.enu.KlantenPool).KlantenServiceBelgie(),Waarde,GeldigVanaf)
-	Do Factor.Save()
-
-	/// KS NL
-	Set Waarde = 32.38
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,##class(DOM.VKP.enu.KlantenPool).KlantenServiceNederland(),Waarde,GeldigVanaf)
-	Do Factor.Save()
-		
-	Set Waarde = 43.3604735424
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,##class(DOM.VKP.enu.KlantenPool).KlantenServiceNederland(),Waarde,GeldigVanaf)
-	Do Factor.Save()
-	
-	/// ARCH
-	Set Waarde = 39.88
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(ContactFactor,##class(DOM.VKP.enu.KlantenPool).Architect(),Waarde,GeldigVanaf)
-	Do Factor.Save()
-		
-	Set Waarde = 255.7984623719
-	Set Factor = ##class(APPS.common.KlantKost.impl.data.Factor).%New(KostprijsRestTijdFactor,##class(DOM.VKP.enu.KlantenPool).Architect(),Waarde,GeldigVanaf)
-	Do Factor.%Save()
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="InitTransportFactoren">
-<Implementation><![CDATA[
-	set TransportFactorenInitiator = ##class(APPS.common.KlantKost.impl.KlantKostService.TransportFactorenInitiator).%New()
-	do TransportFactorenInitiator.InitTransportFactoren()
-]]></Implementation>
-</Method>
-
-<Method name="InitPostFactoren">
-<Implementation><![CDATA[
-	#dim GeldigVanaf As %Date = 1
-	#dim Naam As %String = "Post"
-	
-	do ..FactorGateway.VerwijderFactorMetIDGelijkAan(Naam)
-	do ..FactorGateway.VerwijderMeervoudigeFactorMetNaamGelijkAan(Naam)
-	
-	#dim PostFactor As APPS.common.KlantKost.impl.data.MeervoudigeFactor = ..FactorGateway.MaakMeervoudigeFactor(Naam)
-	
-	#dim LocatieAPI As DOM.common.LocatieAPI = ##class(DOM.DomeinContext).Instance().GeefLocatieAPI()	
-	#dim Belgie As DOM.common.Land = LocatieAPI.GeefBelgie()
-	#dim Nederland As DOM.common.Land = LocatieAPI.GeefNederland()
-			
-	#dim PostBelgie As DOM.VKP.enu.VerzendWijze = ##class(DOM.VKP.enu.VerzendWijze).PostBelgie()
-	#dim PostNederland As DOM.VKP.enu.VerzendWijze = ##class(DOM.VKP.enu.VerzendWijze).PostNederland()
-	#dim TaxipostOnzeKost As DOM.VKP.enu.VerzendWijze = ##class(DOM.VKP.enu.VerzendWijze).TaxipostOnzeKost()
-	#dim TaxipostConsument As DOM.VKP.enu.VerzendWijze = ##class(DOM.VKP.enu.VerzendWijze).TaxipostConsument()
-	#dim TaxipostViaNederland As DOM.VKP.enu.VerzendWijze = ##class(DOM.VKP.enu.VerzendWijze).TaxipostViaNederland()
-	
-	/// POST
-	
-	/// Gewicht <= 100 gram
-	#dim Gewicht As %Double = 100
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Belgie,PostBelgie,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,1.29,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,PostNederland,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,2.64,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,PostBelgie,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,2.64,GeldigVanaf)
-	
-	/// Gewicht > 100 gram
-	Set Gewicht = 101
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Belgie,PostBelgie,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,1.86,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,PostNederland,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,5.13,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,PostBelgie,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,5.13,GeldigVanaf)
-	
-	/// TaxiPost
-	
-	/// Gewicht <= 2000 gram
-	Set Gewicht = 2000
-	Set Kost = 6.40
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Belgie,TaxipostOnzeKost,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Belgie,TaxipostConsument,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	
-	Set Kost = 8.79
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,TaxipostOnzeKost,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,TaxipostConsument,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,TaxipostViaNederland,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	
-	/// Gewicht > 2000 gram
-	Set Gewicht = 2001
-	Set Kost = 8.40
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Belgie,TaxipostOnzeKost,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Belgie,TaxipostConsument,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	
-	Set Kost = 9.97
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,TaxipostOnzeKost,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,TaxipostConsument,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-	Set FactorNaam = ##class(APPS.common.KlantKost.impl.data.PostKostItem).GeefFactorNaam(Nederland,TaxipostViaNederland,Gewicht)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(PostFactor,FactorNaam,Kost,GeldigVanaf)
-]]></Implementation>
-</Method>
-
-<Method name="InitOrderIngaveLoonKosten">
-<Implementation><![CDATA[
-	Do ..InitEDIOrderIngaveLoonKosten()
-	Do ..InitEDIOrderLijnIngaveLoonKosten()
-	Do ..InitNonEDIOrderIngaveLoonKosten()
-	Do ..InitNonEDIOrderLijnIngaveLoonKosten()
-]]></Implementation>
-</Method>
-
-<Method name="InitNonEDIOrderIngaveLoonKosten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim GeldigVanaf As %Date = 1
-	
-	#define NonEDIOrderIngaveLoonKost "NonEDIOrderIngaveLoonKost"
-	
-	do ..FactorGateway.VerwijderMeervoudigeFactorMetNaamGelijkAan($$$NonEDIOrderIngaveLoonKost)
-	do ..FactorGateway.VerwijderFactorMetIDGelijkAan($$$NonEDIOrderIngaveLoonKost)
-	
-	#dim OrderIngaveLoonKost As APPS.common.KlantKost.impl.data.MeervoudigeFactor =..FactorGateway.MaakMeervoudigeFactor($$$NonEDIOrderIngaveLoonKost)
-	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Onbekend(),2.67,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Blum(),1.78,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Halux(),3.56,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Orgalux(),1.78,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Rest(),1.78,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Tandembox(),3.56,GeldigVanaf)
-	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORIndeling(),1.78,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(OrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORBOX(),3.56,GeldigVanaf)
-]]></Implementation>
-</Method>
-
-<Method name="InitEDIOrderIngaveLoonKosten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim GeldigVanaf As %Date = 1
-	#define EDIOrderIngaveLoonKost "EDIOrderIngaveLoonKost"
-	
-	do ..FactorGateway.VerwijderFactorMetIDGelijkAan($$$EDIOrderIngaveLoonKost)
-	do ..FactorGateway.VerwijderMeervoudigeFactorMetNaamGelijkAan($$$EDIOrderIngaveLoonKost)
-	
-	#dim EDIOrderIngaveLoonKost As  APPS.common.KlantKost.impl.data.MeervoudigeFactor = ..FactorGateway.MaakMeervoudigeFactor($$$EDIOrderIngaveLoonKost)
-	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Onbekend(),1.78,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Blum(),0.89,GeldigVanaf)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Halux(),2.67,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Orgalux(),0.89,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Rest(),0.89,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Tandembox(),2.67,GeldigVanaf)
-	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORIndeling(),0.89,GeldigVanaf)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORBOX(),2.67,GeldigVanaf)
-]]></Implementation>
-</Method>
-
-<Method name="InitNonEDIOrderLijnIngaveLoonKosten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim GeldigVanaf As %Date = 1
-	#define NonEDIOrderLijnIngaveLoonKost "NonEDIOrderLijnIngaveLoonKost"
-	
-	do ..FactorGateway.VerwijderFactorMetIDGelijkAan($$$NonEDIOrderLijnIngaveLoonKost)
-	do ..FactorGateway.VerwijderMeervoudigeFactorMetNaamGelijkAan($$$NonEDIOrderLijnIngaveLoonKost)
-
-	#dim NonEDIOrderLijnIngaveLoonKost As  APPS.common.KlantKost.impl.data.MeervoudigeFactor = ..FactorGateway.MaakMeervoudigeFactor($$$EDIOrderIngaveLoonKost)
-	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Onbekend(),0.3,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Blum(),0.15,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Halux(),0.44,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Orgalux(),0.15,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Rest(),0.22,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Tandembox(),0.37,GeldigVanaf)
-	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORIndeling(),0.15,GeldigVanaf)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(NonEDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORBOX(),0.37,GeldigVanaf)
-]]></Implementation>
-</Method>
-
-<Method name="InitEDIOrderLijnIngaveLoonKosten">
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim GeldigVanaf As %Date = 1
-	#dim Naam As %String = "EDIOrderLijnIngaveLoonKost"
-	
-	do ..FactorGateway.VerwijderFactorMetIDGelijkAan(Naam)
-	do ..FactorGateway.VerwijderMeervoudigeFactorMetNaamGelijkAan(Naam)
-	
-	#dim EDIOrderLijnIngaveLoonKost As APPS.common.KlantKost.impl.data.MeervoudigeFactor = ..FactorGateway.MaakMeervoudigeFactor(Naam)
-		
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Onbekend(),0.03,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Blum(),0.03,GeldigVanaf)		
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Halux(),0.15,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Orgalux(),0.03,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Rest(),0.03,GeldigVanaf)	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).Tandembox(),0.03,GeldigVanaf)
-	
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORIndeling(),0.03,GeldigVanaf)
-	Do ..FactorGateway.ZetFactorMetNaamEnWaarde(EDIOrderLijnIngaveLoonKost,##class(APPS.PM.enu.ProductGroep).TAORBOX(),0.03,GeldigVanaf)
-]]></Implementation>
-</Method>
 </Class>