Index: APPS/Halux/Planning/Activiteit/impl/ImportMedewerkerMetRolFromXLS.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Activiteit/impl/ImportMedewerkerMetRolFromXLS.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Activiteit/impl/ImportMedewerkerMetRolFromXLS.cls.xml	(revision 62511)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Activiteit.impl.ImportMedewerkerMetRolFromXLS">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Reader">
+<Type>TECH.FileReader</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UpdateTijdstip">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+d ##class(APPS.Halux.Planning.Activiteit.impl.ImportMedewerkerMetRolFromXLS).%New().ImportXLS()</Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Do ..InitialiseReader()
+	Set ..UpdateTijdstip=$$$CurrentTimeStamp
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="InitialiseReader">
+<Implementation><![CDATA[
+	Set ..Reader=##class(TECH.FileReader).%New("\\qlik-prod\PROD Storage\3. Export\Medewerker PRODUCTIE met ROL.txt")
+	/// Do reader.SetDelimiter($C(9)) ; optioneel, default is TAB
+	Do ..Reader.SetHeaderRow(1)
+	Do ..Reader.SetFirstDataRow(2)
+	/// Do reader.SetTranslateHeader2UpperCase() ; optioneel, default=0
+	/// Do reader.AddHeaderTranslation(From, To, DataType) ; optioneel, 1 per translatie
+]]></Implementation>
+</Method>
+
+<Method name="ImportXLS">
+<Implementation><![CDATA[
+	#dim KeyMedewerker as %String
+	#dim Familienaam as %String
+	#dim Voornaam as %String
+	#dim Initialen as %String
+	#dim Foto as Foto
+	#dim Activiteit as %String
+	#dim Bekwaamheidsniveau as %Decimal
+	#dim Medewerker as APPS.Halux.Planning.Activiteit.dto.Medewerker
+
+	
+	While ..Reader.Next()
+	{
+		Set KeyMedewerker=..Reader.Data("%Key_Medewerker")
+		Set Activiteit=..Reader.Data("Activiteit")
+		
+		If (KeyMedewerker'="") && (Activiteit'="") && (..Reader.Data("Familienaam")'="")
+		{
+			If ##class(APPS.Halux.Planning.Activiteit.dto.Medewerker).%ExistsId(KeyMedewerker_"||"_Activiteit)
+			{
+				Set Medewerker=##class(APPS.Halux.Planning.Activiteit.dto.Medewerker).%OpenId(KeyMedewerker_"||"_Activiteit)
+			}
+			Else
+			{
+				Set Medewerker=##class(APPS.Halux.Planning.Activiteit.dto.Medewerker).%New()
+				Set Medewerker.MedewerkerID=KeyMedewerker
+				Set Medewerker.Activiteit=Activiteit
+			}
+			Set Medewerker.Bekwaamheidsniveau=..Reader.Data("Uitvoeringsniveau")
+			Set Medewerker.Foto=..Reader.Data("Foto")
+			Set Medewerker.Familienaam=..Reader.Data("Familienaam")
+			Set Medewerker.Voornaam=..Reader.Data("Voornaam")
+			Set Medewerker.Initialen=..Reader.Data("Initialen")
+			Do Medewerker.InternePersoonSetObjectId(..Reader.Data("AdminInternePersoonID"))
+			Set Medewerker.ProTimeID=..Reader.Data("ProTimeID")
+			Set Medewerker.UpdateTijdstip=..UpdateTijdstip
+			Do Medewerker.Save()
+		}
+	}
+    Do ..VerwijderOude()
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderOude">
+<Implementation><![CDATA[
+	Set Tijdstip=..UpdateTijdstip
+
+	&SQL( delete APPS_HaLux_Planning_Activiteit_dto.Medewerker where UpdateTijdstip<>:Tijdstip )
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/impl/BatchService.cls.xml
===================================================================
diff -u -r59610 -r62511
--- APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 59610)
+++ APPS/Halux/Planning/impl/BatchService.cls.xml	(.../BatchService.cls.xml)	(revision 62511)
@@ -61,7 +61,6 @@
 <ReturnTypeParams>ELEMENTTYPE="APPS.Halux.Planning.dto.MaatwerkBatch"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim MaatwerkBatches As %ListOfObjects = ##class(%ListOfObjects).%New()
-	
 	#dim BatchIterator As TECH.Iterator = ..BatchService.GeefBatchesGeplandOpIterator(Datum)
 	
 	while (BatchIterator.HasNext()) {
Index: APPS/Halux/Planning/enu/Activiteit.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/enu/Activiteit.cls.xml	(.../Activiteit.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/enu/Activiteit.cls.xml	(.../Activiteit.cls.xml)	(revision 62511)
@@ -6,7 +6,7 @@
 <Super>%String</Super>
 
 <Parameter name="VALUELIST">
-<Default>,Front,Syncro,ZijStab,DwarsVerd,Intern,Klantorder,OL,Finaal prod,Lade,Zijkant,X,Ompak,Inkorten,Set,V1,ProBox,Huls</Default>
+<Default>,Front,Syncro,ZijStab,DwarsVerd,Intern,Klantorder,OL,Finaal prod,Lade,Zijkant,X,Ompak,Inkorten,Set,V1,ProBox,Huls,Rest,Glazen inschuifelement,Reling wisseladapter,Inschuifelement</Default>
 </Parameter>
 
 <Method name="Front">
Index: APPS/HR/WieIsWie/Facade.cls.xml
===================================================================
diff -u -r58807 -r62511
--- APPS/HR/WieIsWie/Facade.cls.xml	(.../Facade.cls.xml)	(revision 58807)
+++ APPS/HR/WieIsWie/Facade.cls.xml	(.../Facade.cls.xml)	(revision 62511)
@@ -28,8 +28,20 @@
 </Method>
 
 <Method name="GeefWerknemers">
+<FormalSpec>Activiteit:%String</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
+	set qHandler = ##class(%XML.DataSet).%New("%DynamicQuery:SQL")
+	#Dim Query As %String = "SELECT DISTINCT ProTimeID as PersNr,isnull(Foto,'') as Foto,isnull(FamilieNaam,'') as Achternaam,isnull(Voornaam,'') as Voornaam,isnull(Initialen,'') as Initialen "
+	do qHandler.Prepare(Query_" FROM APPS_HaLux_Planning_Activiteit_dto.Medewerker WHERE ProTimeID<>'' and (Activiteit=? or 'ALLEN'=?) and Bekwaamheidsniveau>2")
+	do qHandler.Execute(Activiteit,Activiteit)
+	quit qHandler
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerknemersold">
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
 	set qHandler = ##class(%XML.DataSet).%New("%DynamicQueryGW:SQLGW")
 	#Dim Query As %String = "SELECT [PersNr],isnull(Foto,'') as Foto,isnull(Achternaam,'') as Achternaam,isnull(Voornaam,'') as Voornaam,isnull(Initialen,'') as Initialen FROM "
 	Set Query = Query _"[WieIsWie].[dbo].[tmpWieisWie] WHERE Bedrijf='Halux nv'"
Index: APPS/Halux/Planning/Resource/dto/ResourceGebruikLogging.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/dto/ResourceGebruikLogging.cls.xml	(.../ResourceGebruikLogging.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/dto/ResourceGebruikLogging.cls.xml	(.../ResourceGebruikLogging.cls.xml)	(revision 62511)
@@ -53,6 +53,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="LeverenAan">
+<Type>%String</Type>
+</Property>
+
 <Index name="iToeLev">
 <Properties>ToeleveringNr,UniekLijnNr,Product</Properties>
 </Index>
@@ -104,6 +108,9 @@
 <Value name="13">
 <Value>TijdIsDefaulted</Value>
 </Value>
+<Value name="14">
+<Value>LeverenAan</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Planning/impl/PKG
===================================================================
diff -u
--- APPS/Halux/Planning/impl/PKG	(revision 0)
+++ APPS/Halux/Planning/impl/PKG	(revision 62511)
@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Package name="APPS.Halux.Planning.impl" sqlname="APPS_Halux_Planning_impl"/>
+</Export>
Index: APPS/Halux/Planning/Resource/impl/GebruikLogger.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/impl/GebruikLogger.cls.xml	(.../GebruikLogger.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/GebruikLogger.cls.xml	(.../GebruikLogger.cls.xml)	(revision 62511)
@@ -10,13 +10,17 @@
 	Set ToeleveringNr=ResourceLijn.ToeleveringNr
 	Set UniekLijnNr=ResourceLijn.UniekLijnNr
 	Set Product=ResourceLijn.ProductGetObjectId()
+	Set Resource=ResourceLijn.Resource
+	Set Activiteit=ResourceLijn.Activiteit
 	
 	Set ID=""
 	&SQL( Select ID into :ID 
 		from APPS_Halux_Planning_Resource_dto.ResourceGebruikLogging 
 		where ToeleveringNr=:ToeleveringNr
 		and UniekLijnNr=:UniekLijnNr
 		and Product=:Product
+		and Resource=:Resource
+		and Activiteit=:Activiteit
 		)
 	
 	If ID="" {
@@ -33,6 +37,8 @@
 		Set GebruikLogging.CreatieTijdstip = ResourceLijn.CreatieTijdstip
 		Set GebruikLogging.TijdPerStuk = ResourceLijn.TijdPerStuk
 		Set GebruikLogging.TijdIsDefaulted = ResourceLijn.TijdIsDefaulted
+		Set GebruikLogging.LeverenAan = ResourceLijn.LeverenAan
+
 		Do GebruikLogging.Save()
 	}
 ]]></Implementation>
Index: APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml
===================================================================
diff -u -r57566 -r62511
--- APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57566)
+++ APPS/Halux/Planning/Activiteit/impl/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 62511)
@@ -81,7 +81,10 @@
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
 	Set WieIsWieFacade = ##class(APPS.HR.WieIsWie.Facade).%New()
-	Quit WieIsWieFacade.GeefWerknemers()
+	Set Activiteit="ALLEN"
+	Set:AppNaam="Matten werkpost" Activiteit="Mattenpost"
+	Set:AppNaam="Voormontage" Activiteit="Voormont"
+	Quit WieIsWieFacade.GeefWerknemers(Activiteit)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml
===================================================================
diff -u -r62361 -r62511
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 62361)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 62511)
@@ -115,7 +115,9 @@
 
 <Method name="BepaalRework">
 <Private>1</Private>
-<Implementation><![CDATA[	Quit $S((..Status=2)||(..Status=4): ..Rework="Rework",1:0)
+<Implementation><![CDATA[
+	Quit 0 ; aangepast omdat het rework programma de rework status invult 
+	;$S((..Status=2)||(..Status=4): ..Rework="Rework",1:0)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertDIV.cls.xml	(.../ConvertDIV.cls.xml)	(revision 62511)
@@ -3,42 +3,69 @@
 <Class name="APPS.Halux.Planning.Resource.impl.ConvertDIV">
 <Super>ConvertProductAbstract</Super>
 
-<Property name="ToepassingCode">
+<Property name="Productgroep">
 <Type>%String</Type>
 </Property>
 
 <Property name="Activiteit">
 <Type>%String</Type>
 </Property>
 
+<Property name="Selector">
+<Type>%String</Type>
+</Property>
+
+<Property name="Resource">
+<Type>%String</Type>
+</Property>
+
 <Method name="BuildResourceCodes">
 <Implementation><![CDATA[
+	
+	Set ..Productgroep="REST",..Resource="Ompak",..Activiteit="Rest",..Selector=""
+
 	Set KortTekst= $P(^KPR(..PRNr,0),"\")
-	Set ..ToepassingCode="Rest"
-	Set:$E(KortTekst,1,3)="INP" ..ToepassingCode="Ompak",..Activiteit="Ompak"
-	Set:$E(KortTekst,1,6)="INP.SD" ..ToepassingCode="SD",..Activiteit="Set"
-	Set:$E(KortTekst,1,3)="Z37" ..ToepassingCode="Ompak",..Activiteit="Set"
-	Set:$E(KortTekst,1,3)="Z31" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
-	Set:$E(KortTekst,1,3)="ZRG" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
-	Set:$E(KortTekst,1,3)="ZW7" ..ToepassingCode="Front",..Activiteit="Set"
-	Set:$E(KortTekst,1,3)="ZR7" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
-	Set:$E(KortTekst,1,3)="ZE7" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
-	Set:$E(KortTekst,2,3)="20" ..ToepassingCode="Aventos",..Activiteit="Set"
-	Set:$E(KortTekst,1,3)="Z40" ..ToepassingCode="Inkorten",..Activiteit="Inkorten"
-    Set:$E(KortTekst,1,3)="Z10" ..ToepassingCode="Ompak",..Activiteit="Ompak"
-	Set ..AantalCode=$S(..ProductieOrderLijn.Aantal<10:1,..ProductieOrderLijn.Aantal<50:2,1:3)
+	Do ..BepaalDiverse(KortTekst,..ProductieOrderLijn.Aantal)
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalDiverse">
+<FormalSpec>KortTekst:%String,Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set (Resource,Activiteit,Productgroep,Selector)=""
+	&SQL( select Resource,Activiteit,Productgroep,Selector into :Resource,:Activiteit,:Productgroep,:Selector 
+		from APPS_Halux_Planning_Resource_dto.ResourceTijd 
+		where resourcegroep='DIV'
+			and left(:KortTekst,length(KortTekstMatch))=KortTekstMatch and isnull(MinAantal,0)<:Aantal
+		order by isnull(MinAantal,0) desc
+	)
+	
+	If $L(Resource),$L(Selector)
+	{
+		Set ..Resource=Resource
+		Set ..Activiteit=Activiteit
+		Set ..Productgroep=Productgroep
+		Set ..Selector=Selector
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CreateResources">
 <Implementation><![CDATA[	Do ..CreateResource()
 ]]></Implementation>
 </Method>
 
 <Method name="CreateResource">
 <Implementation><![CDATA[
-	;Quit:..MatCode=""
-	Do ..CreateOneResource("DIV","Div",..Activiteit,"","",,1)
+	If ..Productgroep="DEKPLAAT"
+	{
+		;Do ..CreateOneResource("DIV",..Resource,..Activiteit,..Productgroep,..Selector,,1)
+		Do ..CreateOneResource("MAT","Mat","Klantorder",..Productgroep,,,1)
+	}
+	Else
+	{
+		Do ..CreateOneResource("DIV",..Resource,..Activiteit,..Productgroep,..Selector,,1)
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatchArchief.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatchArchief.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Activiteit/dto/ActiviteitPerBatchArchief.cls.xml	(revision 62511)
@@ -0,0 +1,155 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatchArchief">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.impl.BatchImpl</Type>
+</Property>
+
+<Property name="Toeleveringen">
+<Description>
+lijst van toeleveringen, 5 laatste cijfers</Description>
+<Type>%String</Type>
+</Property>
+
+<Property name="Resourcegroep">
+<Type>APPS.Halux.Planning.enu.Resourcegroep</Type>
+</Property>
+
+<Property name="Resource">
+<Type>APPS.Halux.Planning.enu.Resource</Type>
+</Property>
+
+<Property name="Activiteit">
+<Type>APPS.Halux.Planning.enu.Activiteit</Type>
+</Property>
+
+<Property name="Productgroep">
+<Type>APPS.Halux.Planning.enu.Productgroep</Type>
+</Property>
+
+<Property name="Opmerking">
+<Type>%String</Type>
+</Property>
+
+<Property name="LeverenAanResource">
+<Description>
+Indien IsLeading=0 dan moet de activiteit aanleveren aan de hoofdlijn (IsLeading=1)</Description>
+<Type>APPS.Halux.Planning.enu.Resource</Type>
+</Property>
+
+<Property name="DuurTijd">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="IsLeading">
+<Description>
+IsLeading = 0 : Not leading
+            1 : Leading (non pitched)
+            2 : Leading and must be pitched</Description>
+<Type>%Integer</Type>
+</Property>
+
+<Property name="StartVoorafTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="StartBijnaTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="StartTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="EindTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="RecalcTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="iBaReAc">
+<Properties>Batch,Resource,Activiteit</Properties>
+</Index>
+
+<UDLText name="T">
+<Content><![CDATA[
+// [ Unique ];
+
+]]></Content>
+</UDLText>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux618D.ActiviteitPA898D</DataLocation>
+<DefaultData>ActiviteitPerBatchArchiefDefaultData</DefaultData>
+<IdLocation>^APPS.Halux618D.ActiviteitPA898D</IdLocation>
+<IndexLocation>^APPS.Halux618D.ActiviteitPA898I</IndexLocation>
+<StreamLocation>^APPS.Halux618D.ActiviteitPA898S</StreamLocation>
+<Data name="ActiviteitPerBatchArchiefDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Batch</Value>
+</Value>
+<Value name="3">
+<Value>Toeleveringen</Value>
+</Value>
+<Value name="4">
+<Value>Resourcegroep</Value>
+</Value>
+<Value name="5">
+<Value>Resource</Value>
+</Value>
+<Value name="6">
+<Value>Activiteit</Value>
+</Value>
+<Value name="7">
+<Value>Productgroep</Value>
+</Value>
+<Value name="8">
+<Value>Opmerking</Value>
+</Value>
+<Value name="9">
+<Value>LeverenAanResource</Value>
+</Value>
+<Value name="10">
+<Value>DuurTijd</Value>
+</Value>
+<Value name="11">
+<Value>Aantal</Value>
+</Value>
+<Value name="12">
+<Value>IsLeading</Value>
+</Value>
+<Value name="13">
+<Value>StartVoorafTijdstip</Value>
+</Value>
+<Value name="14">
+<Value>StartBijnaTijdstip</Value>
+</Value>
+<Value name="15">
+<Value>StartTijdstip</Value>
+</Value>
+<Value name="16">
+<Value>EindTijdstip</Value>
+</Value>
+<Value name="17">
+<Value>RecalcTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Planning/Resource/dto/ResourceTijd.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/dto/ResourceTijd.cls.xml	(.../ResourceTijd.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/dto/ResourceTijd.cls.xml	(.../ResourceTijd.cls.xml)	(revision 62511)
@@ -21,6 +21,14 @@
 <Type>APPS.Halux.Planning.enu.Productgroep</Type>
 </Property>
 
+<Property name="KortTekstMatch">
+<Type>%String</Type>
+</Property>
+
+<Property name="MinAantal">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Selector">
 <Type>%String</Type>
 </Property>
@@ -41,8 +49,6 @@
 <IndexLocation>^APPS.Halux.Pl41A1.ResourceTijdI</IndexLocation>
 <StreamLocation>^APPS.Halux.Pl41A1.ResourceTijdS</StreamLocation>
 <Data name="ResourceTijdDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
@@ -64,6 +70,12 @@
 <Value name="7">
 <Value>Tijd</Value>
 </Value>
+<Value name="8">
+<Value>KortTekstMatch</Value>
+</Value>
+<Value name="9">
+<Value>MinAantal</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml	(.../ConvertASM.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertASM.cls.xml	(.../ConvertASM.cls.xml)	(revision 62511)
@@ -26,10 +26,33 @@
 <Implementation><![CDATA[
 	Set SnijCode=..GeefMatAantalKeerSnijden()
 	Set:SnijCode="" SnijCode="STOCK"
+	
+	Set NaarCode=..GeefNaarSleutel()
+	
+	Set Selector="SN:"_SnijCode_";NAAR:"_NaarCode
 
-	Do ..CreateOneResource("MAT","Mat","Klantorder",$S(..MatCode="CV":"VILT",1:"ASM"),"SN:"_SnijCode,,1)
+	Do ..CreateOneResource("MAT","Mat","Klantorder","ASM",Selector,,1)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefNaarSleutel">
+<Implementation><![CDATA[
+	Set LeverenAan=..GeefLeverenAan()
+	If LeverenAan="OL" 
+	{ 
+		Set Naar="ORGALUX"
+	}
+	ElseIf LeverenAan="KLANT"
+	{
+		Set Naar="KLANT"
+	}
+	Else
+	{
+		Set Naar="ORGALUX"
+	}
+	Quit Naar
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Planning/Activiteit/dto/Medewerker.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Activiteit/dto/Medewerker.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Activiteit/dto/Medewerker.cls.xml	(revision 62511)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Activiteit.dto.Medewerker">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="MedewerkerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Familienaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Voornaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Initialen">
+<Type>%String</Type>
+</Property>
+
+<Property name="Foto">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="200"/>
+</Property>
+
+<Property name="Activiteit">
+<Type>%String</Type>
+</Property>
+
+<Property name="Bekwaamheidsniveau">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="UpdateTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="InternePersoon">
+<Type>Res.InternePersoon</Type>
+</Property>
+
+<Property name="ProTimeID">
+<Type>%String</Type>
+</Property>
+
+<Index name="iKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>MedewerkerID,Activiteit</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.Plan618D.MedewerkerD</DataLocation>
+<DefaultData>MedewerkerDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.Plan618D.MedewerkerD</IdLocation>
+<IndexLocation>^APPS.Halux.Plan618D.MedewerkerI</IndexLocation>
+<StreamLocation>^APPS.Halux.Plan618D.MedewerkerS</StreamLocation>
+<Data name="MedewerkerDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Familienaam</Value>
+</Value>
+<Value name="3">
+<Value>Voornaam</Value>
+</Value>
+<Value name="4">
+<Value>Initialen</Value>
+</Value>
+<Value name="5">
+<Value>Foto</Value>
+</Value>
+<Value name="6">
+<Value>Activiteit</Value>
+</Value>
+<Value name="7">
+<Value>Bekwaamheidsniveau</Value>
+</Value>
+<Value name="8">
+<Value>RegistratieTijdstip</Value>
+</Value>
+<Value name="9">
+<Value>CreatieTijdstip</Value>
+</Value>
+<Value name="10">
+<Value>UpdateTijdstip</Value>
+</Value>
+<Value name="11">
+<Value>InternePersoon</Value>
+</Value>
+<Value name="12">
+<Value>ProTimeID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: WS/Halux/Planning/ActiviteitPerBatchService.cls.xml
===================================================================
diff -u -r57566 -r62511
--- WS/Halux/Planning/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 57566)
+++ WS/Halux/Planning/ActiviteitPerBatchService.cls.xml	(.../ActiviteitPerBatchService.cls.xml)	(revision 62511)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="WS.Halux.Planning.ActiviteitPerBatchService">
-<Description><![CDATA[
-Registratie van de een unieke lade code voor een lade, te gebruiken om later de lade te herkennen voor Orgalux
-<br/>De method RegistreerViaQueueID wordt opgeroepen vanaf Halux ladepers (.NET application welke draait op de Beckoff PLC van de ladepers)]]></Description>
+<Description>
+Op de werkvloer staan PC's die de activeiten tonen die uitgevoerd moeten worden op een resource(werkpost).
+De gebruiker kan dan een activitiet starten en stoppen.</Description>
 <ClassType/>
 <IncludeCode>BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.Resources,TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
Index: AXimpl/PM/Kenmerk/ConvertAll.cls.xml
===================================================================
diff -u -r60424 -r62511
--- AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 60424)
+++ AXimpl/PM/Kenmerk/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 62511)
@@ -25,7 +25,7 @@
 
 <Method name="VerwijderAlles">
 <Description>
-D ##class(AXimpl.PM.Kenmerk.ConvertAll).%New(0).Verwerk()
+D ##class(AXimpl.PM.Kenmerk.ConvertAll).%New(1).Verwerk()
 D ##class(AXimpl.PM.Kenmerk.ConvertAll).VerwijderAlles()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
Index: APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml	(.../ImportTijdenFromXLS.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ImportTijdenFromXLS.cls.xml	(.../ImportTijdenFromXLS.cls.xml)	(revision 62511)
@@ -66,14 +66,26 @@
 		Set:Selector="" Selector="*" ; indien geen selector in XLS dan als default gebruiken voor Resource, Activiteit en Productgroep
 
 		Set Tijd=..Reader.Data("Tijd")
-		Do ..OpslaanRecord(Resourcegroep, Resource, Activiteit,Productgroep, Selector,Tijd)
+		
+		Set (KortTekstMatch,MinAantal)=""
+		; Kortekst match nodig voor DIVERSE
+		Set:..Reader.Data("K1")="KT" KortTekstMatch=..Reader.Data("V1")
+		Set:$E($G(KortTekstMatch))="""" KortTekstMatch=$P(KortTekstMatch,"""",2)
+
+		; MinAantal nodig voor DIVERSE
+		Set:..Reader.Data("K2")="QTY" MinAantal=..Reader.Data("V2")
+		
+		Do ..OpslaanRecord(Resourcegroep, Resource, Activiteit,Productgroep, Selector,Tijd,$G(KortTekstMatch),$G(MinAantal))
+
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="OpslaanRecord">
-<FormalSpec>Resourcegroep:%String,Resource:%String,Activiteit:%String,Productgroep:%String,Selector:%String,Tijd:%Decimal</FormalSpec>
+<FormalSpec>Resourcegroep:%String,Resource:%String,Activiteit:%String,Productgroep:%String,Selector:%String,Tijd:%Decimal,KortTekstMatch:%String,MinAantal:%Decimal</FormalSpec>
 <Implementation><![CDATA[
+	Quit:Productgroep=""
+
 	#dim ResourceTijd as APPS.Halux.Planning.Resource.dto.ResourceTijd
 	Set ResourceTijd=##class(APPS.Halux.Planning.Resource.dto.ResourceTijd).%New()
 	Set ResourceTijd.Resourcegroep=Resourcegroep
@@ -82,6 +94,8 @@
 	Set ResourceTijd.Productgroep=Productgroep
 	Set ResourceTijd.Selector=Selector
 	Set ResourceTijd.Tijd=Tijd
+	Set ResourceTijd.KortTekstMatch=KortTekstMatch
+	Set ResourceTijd.MinAantal=MinAantal
 	set sc=ResourceTijd.%Save()
 	w $$ParseStatus^vhLib(sc)
 ]]></Implementation>
Index: APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml
===================================================================
diff -u -r57548 -r62511
--- APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml	(.../BerekenActiviteitPerBatch.cls.xml)	(revision 57548)
+++ APPS/Halux/Planning/Activiteit/impl/BerekenActiviteitPerBatch.cls.xml	(.../BerekenActiviteitPerBatch.cls.xml)	(revision 62511)
@@ -54,7 +54,7 @@
 	}
 	
 	/* TIJDELIJK PV*/
-	Do ##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitStartStop).%DeleteExtent()
+	;Do ##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitStartStop).%DeleteExtent()
 ]]></Implementation>
 </Method>
 
@@ -72,7 +72,7 @@
 	{
 		Set rs=itActiviteit.Next()
 		Set ActiviteitPerBatch=..CreateActiviteitPerBatch(rs)
-		Do ..TestAddStatus(ActiviteitPerBatch) /* TIJDELIJK PV*/
+		;Do ..TestAddStatus(ActiviteitPerBatch) /* TIJDELIJK PV*/
 		Do ..AutoStatus(ActiviteitPerBatch)
 	}
 	Do ..NaBerekenen()
@@ -145,6 +145,7 @@
 	Set ActiviteitPerBatch.StartTijdstip=rs.Data("StartTijdstip")
 	Set ActiviteitPerBatch.EindTijdstip=rs.Data("EindTijdstip")
 	Do ..ToevoegenVoorafTijdstippen(ActiviteitPerBatch)
+	Do ..ToevoegenToeleveringen(ActiviteitPerBatch)
 	Set ActiviteitPerBatch.RecalcTijdstip=..RecalcTijdstip
 	Do ..ToevoegenStartStop(ActiviteitPerBatch)
 	;w rs.Data("Batch")," ", rs.Data("Resource") ," ",rs.Data("Activiteit"),!
@@ -199,9 +200,98 @@
 	 	Set ActiviteitPerBatch.Status=LaatsteActie.Status
 	 	Set ActiviteitPerBatch.Gebruiker=LaatsteActie.Gebruiker
 	}
+	if ActiviteitPerBatch.Status="S" ;Gestart dus archiveren
+	{
+		try
+		{
+		Do ..ArchiveerActiviteit(ActiviteitPerBatch)
+		} catch {}
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="Test">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	//d ##class(APPS.Halux.Planning.Activiteit.impl.BerekenActiviteitPerBatch).Test()
+	set bl=..%New()
+	Set Act=##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch).%OpenId(4737399)
+	D DumpObject^%apiOBJ(Act)
+	Write !,bl.BestaatArchief(Act),!
+	Do bl.ArchiveerActiviteit(Act)
+]]></Implementation>
+</Method>
+
+<Method name="ArchiveerActiviteit">
+<FormalSpec>ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch</FormalSpec>
+<Implementation><![CDATA[
+	Quit:..BestaatArchief(ActiviteitPerBatch)	
+	
+	Set Archief=##class(APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatchArchief).%New()
+	
+	Set Archief.Batch=ActiviteitPerBatch.Batch
+	Set Archief.Resourcegroep=ActiviteitPerBatch.Resourcegroep
+	Set Archief.Resource=ActiviteitPerBatch.Resource
+	Set Archief.Activiteit=ActiviteitPerBatch.Activiteit
+	Set Archief.Productgroep=ActiviteitPerBatch.Productgroep
+	Set Archief.IsLeading=ActiviteitPerBatch.IsLeading
+	Set Archief.LeverenAanResource=ActiviteitPerBatch.LeverenAanResource
+	Set Archief.DuurTijd=ActiviteitPerBatch.DuurTijd
+	Set Archief.Aantal=ActiviteitPerBatch.Aantal
+	Set Archief.StartTijdstip=ActiviteitPerBatch.StartTijdstip
+	Set Archief.EindTijdstip=ActiviteitPerBatch.EindTijdstip
+	Set Archief.StartVoorafTijdstip=ActiviteitPerBatch.StartVoorafTijdstip
+	Set Archief.StartBijnaTijdstip=ActiviteitPerBatch.StartBijnaTijdstip
+	Set Archief.RecalcTijdstip=ActiviteitPerBatch.RecalcTijdstip
+	Set Archief.Toeleveringen=ActiviteitPerBatch.Toeleveringen
+
+	Do Archief.Save()
+]]></Implementation>
+</Method>
+
+<Method name="BestaatArchief">
+<FormalSpec>ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Set SQL="Select ID "
+		_" from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatchArchief"
+		_" where Batch=? and Resource=? and Activiteit=?"
+	Do rs.Prepare(SQL)
+	Set sc=rs.Execute(ActiviteitPerBatch.BatchGetObjectId(), ActiviteitPerBatch.Resource, ActiviteitPerBatch.Activiteit)
+	If rs.Next(.sc)
+ 	{ 
+	 	If $$$ISERR(sc) Quit
+	 	Set ID=rs.Data("ID")
+ 	}
+	Quit $G(ID)'="" ; bestaat reeds
+]]></Implementation>
+</Method>
+
+<Method name="ToevoegenToeleveringen">
+<FormalSpec>ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Set SQL="Select distinct ToeleveringNr"
+	_" from APPS_Halux_Planning_Pitching_dto.ResourcePitched "
+	_" where Batch=?"
+	Do rs.Prepare(SQL)
+	Set sc=rs.Execute(ActiviteitPerBatch.BatchGetObjectId())
+
+	Set Toeleveringen=""
+	While rs.Next(.sc)
+	{
+		If $$$ISERR(sc) Quit
+		If (rs.Data("ToeleveringNr")?1.N)
+		{
+			Set:(Toeleveringen<42) Toeleveringen=Toeleveringen_", "_$E(rs.Data("ToeleveringNr"),3,6)
+		}
+	}
+	Set ActiviteitPerBatch.Toeleveringen=$E(Toeleveringen,2,50)
+]]></Implementation>
+</Method>
+
 <Method name="ToevoegenVoorafTijdstippen">
 <FormalSpec>ActiviteitPerBatch:APPS.Halux.Planning.Activiteit.dto.ActiviteitPerBatch</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml
===================================================================
diff -u -r58807 -r62511
--- APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml	(.../BerekenTijdenLeadingNotPitched.cls.xml)	(revision 58807)
+++ APPS/Halux/Planning/Pitching/impl/BerekenTijdenLeadingNotPitched.cls.xml	(.../BerekenTijdenLeadingNotPitched.cls.xml)	(revision 62511)
@@ -73,7 +73,7 @@
 	Set ResourcePitched.Activiteit=rsLijn.Data("Activiteit")
 	Set ResourcePitched.Productgroep=rsLijn.Data("Productgroep")
 	Set ResourcePitched.IsLeading=1
-	Set ResourcePitched.LeverenAanResource=""
+	Set ResourcePitched.LeverenAanResource=rsLijn.Data("LeverenAan")
 	;
 	Set ResourcePitched.DuurTijd=rsLijn.Data("Tijd")
 	Set ResourcePitched.EindTijdstip=..RefTijd
@@ -92,7 +92,7 @@
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	Set SQL="Select RL.Resourcegroep,RL.Resource, RL.Activiteit, RL.Productgroep,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr, min(IsLeading) IsLeading, sum(RL.TijdPerStuk*TL.Aantal) Tijd, sum(TL.Aantal) Aantal "
+	Set SQL="Select RL.Resourcegroep,RL.Resource, RL.Activiteit, RL.Productgroep,RL.ID ResourceLijnId,RL.ToeleveringNr, RL.UniekLijnNr ,RL.LeverenAan, min(IsLeading) IsLeading, sum(RL.TijdPerStuk*TL.Aantal) Tijd, sum(TL.Aantal) Aantal "
 	_" From  APPS_Halux_Planning_Resource_dto.Resourcelijn RL"
 	_" join Flow_Toelev.Lijn TL on RL.ToeleveringNr=TL.ToeleveringNr and RL.UniekLijnNr=(TL.UniekLijnNr\100*100) "
 	_" where isleading=1 and rl.ToeleveringNr=? and TL.Leverancier=6332"
@@ -138,7 +138,7 @@
 	; Indien DueOutTijdstip voor VANDAAG (of vroeger) dan DueOutTijdstip is vandaag om 10:30 anders is het vandaag om 14:30
 	If +$zdth(DueOutTijdstip,3)>+$H
 	{
-		Set DueOutTijdstip=$zd(+$H,3)_" 14:30"
+		Set DueOutTijdstip=$zd(+$zdth(DueOutTijdstip,3),3)_" 14:30"
 	} Else {
 		Set DueOutTijdstip=$zd(+$H,3)_" 10:30"
 	}
Index: APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml
===================================================================
diff -u -r57446 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 57446)
+++ APPS/Halux/Planning/Resource/impl/ConvertTAX.cls.xml	(.../ConvertTAX.cls.xml)	(revision 62511)
@@ -91,9 +91,9 @@
 	Set SnijCode=..GeefMatAantalKeerSnijden()
 	Set:SnijCode="" SnijCode="STD"
 	Set:..SpoelbakCode SnijCode="SPOEL"
-	
-	Set Selector="SN:"_SnijCode
-	Do ..CreateOneResource("MAT","Mat","Intern",$S(..MatCode="CV":"VILT",1:"ASM"),Selector)
+	Set Selector="SN:"_SnijCode_";NAAR:INTERN"
+
+	Do ..CreateOneResource("MAT","Mat","Intern","ASM",Selector)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml
===================================================================
diff -u -r57548 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 57548)
+++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 62511)
@@ -95,8 +95,8 @@
 	Set SnijCode=..GeefMatAantalKeerSnijden()
 	Set:SnijCode="" SnijCode="STD"
 	Set:..SpoelbakCode SnijCode="SPOEL"
-	Set Selector="SN:"_SnijCode
-	Do ..CreateOneResource("MAT","Mat","Intern",$S(..MatCode="CV":"VILT",1:"ASM"),Selector)
+	Set Selector="SN:"_SnijCode_";NAAR:INTERN"
+	Do ..CreateOneResource("MAT","Mat","Intern","ASM",Selector)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml
===================================================================
diff -u -r58984 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 58984)
+++ APPS/Halux/Planning/Resource/impl/ConvertProductAbstract.cls.xml	(.../ConvertProductAbstract.cls.xml)	(revision 62511)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.Planning.Resource.impl.ConvertProductAbstract">
-<IncludeCode>Prod.Product</IncludeCode>
+<IncludeCode>Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
 <Super>%RegisteredObject</Super>
 
 <Property name="BreedteCode">
@@ -157,11 +157,19 @@
 	Set ..ResourceLijn.Selector=Selector
 	Set ..ResourceLijn.IsLeading=IsLeading
 	Do ..VoegtoeTijd(DefaultTijd)
-	set sc=..ResourceLijn.%Save()
+	Do ..BepaalNaar()
 	
-	if sc'=1 W $$ParseStatus^vhLib(sc) r k
-	;Write "  ",Hoofdgroep, " ",Groep, " ",Selector,!
-	;Do DumpObject^%apiOBJ(..ResourceLijn)
+	/*If ..ProductieOrderLijn.ToeleveringNr=278009
+	{
+		Do DumpObject^%apiOBJ(..ResourceLijn)
+		r k
+	}*/
+
+	If ..ResourceLijn.TijdPerStuk>0 ;sommige tijden worden bewust op 0 gezet, zoals SPOELBAK/SYFON matten omdat deze door de werkpost van SPOELBAK/SyFON worden gemaakt.
+	{
+		Do ..ResourceLijn.Save()
+	}
+
 	
 	Do ##class(APPS.Halux.Planning.Resource.impl.GebruikLogger).LogGebruik(..ResourceLijn)
 ]]></Implementation>
@@ -173,6 +181,54 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalNaar">
+<Implementation><![CDATA[
+	Quit:(..ResourceLijn.Resourcegroep'="DIV")&&(..ResourceLijn.Resourcegroep'="MAT")
+		
+	Set LeverenAan=..GeefLeverenAan()
+	
+	Set:LeverenAan="OL" ..ResourceLijn.LeverenAan="Orgalux"
+	Set:LeverenAan="KLANT" ..ResourceLijn.LeverenAan="Commissie"
+	Set:LeverenAan="STOCK" ..ResourceLijn.LeverenAan="Voorraad"
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverenAan">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TOENr=..ProductieOrderLijn.ToeleveringNr
+	Set TLNr=..ProductieOrderLijn.LijnNr
+	Set Rec=$G(^KTO($$$LevHalux,TOENr,TLNr))
+	Set ORDNr=$P(Rec,"\",27)
+	Set OLNr=$P(Rec,"\",28)
+	
+	If ORDNr, OLNr ; KOM link
+	{
+		Set KLNr=+$G(^KO1(ORDNr,"F"))
+		If KLNr 
+		{
+			Set PRNr=$P($G(^KOD(KLNr,"F",ORDNr,OLNr)),"\",2)
+			If PRNr
+			{
+				If $$$PRGet($$$Hoofdgroep)["OL"
+				{
+					Set LeverenAan="OL" ; Los leveren aan OL werkpost
+				}
+				Else
+				{
+					Set LeverenAan="KLANT" ; Ingepakt voor klant
+				}
+			}
+		}
+	}
+	Else
+	{
+		Set LeverenAan="STOCK" ; Los leveren
+	}
+	Quit $G(LeverenAan)
+]]></Implementation>
+</Method>
+
 <Method name="VoegtoeTijd">
 <FormalSpec>DefaultTijd</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r57548 -r62511
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 57548)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 62511)
@@ -59,21 +59,39 @@
  
 	If $D(^PRBS("BS",..PRNr,"PRTOBSTG.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TBX","INK:TIPON")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","Syncro","TBX","")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"DWARSV.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","TBX","INK:DWARSV")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","DwarsVerd","TBX","")	
 	}
 	
 	If $D(^PRBS("BS",..PRNr,"ZIJSTABI.001"))
 	{
-		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","TBX","F:LBX;INK:ZIJSTAB")	
+		Do ..CreateOneResource("LBX&TBX","Voormontage","ZijStab","TBX","")	
 	}
+	If $D(^PRBS("BS",..PRNr,"PRBXKG.001"))&&..VindBewerking("Inkorten inschuifelement")
+	{
+		Do ..CreateOneResource("LBX&TBX","Voormontage","Inschuifelement","TBX","")	
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="VindBewerking">
+<FormalSpec>BewerkingsTekst:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set BSKey=$O(^PRBS("BS",..PRNr,"KST"))
+	Set Found=0
+	While (BSKey'="") || Found
+	{
+		Set Found=(^PRBS("BS",..PRNr,BSKey)[BewerkingsTekst)
+		Set BSKey=$O(^PRBS("BS",..PRNr,BSKey))
+	}
+	Quit Found
+]]></Implementation>
+</Method>
+
 <Method name="CreateResourceHoofdlijn">
 <Implementation><![CDATA[
 	Quit:..SpoelbakCode&&(..ProductieOrderLijn.Aantal>5)
@@ -92,8 +110,8 @@
 	Set SnijCode=..GeefMatAantalKeerSnijden()
 	Set:SnijCode="" SnijCode="STD"
 	Set:..SpoelbakCode SnijCode="SPOEL"
-	Set Selector="SN:"_SnijCode
-	Do ..CreateOneResource("MAT","Mat","Intern",$S(..MatCode="CV":"VILT",1:"ASM"),Selector)
+	Set Selector="SN:"_SnijCode_";NAAR:INTERN"
+	Do ..CreateOneResource("MAT","Mat","Intern","ASM",Selector)
 ]]></Implementation>
 </Method>
 
Index: WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml
===================================================================
diff -u -r58807 -r62511
--- WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(.../Queries.cls.xml)	(revision 58807)
+++ WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(.../Queries.cls.xml)	(revision 62511)
@@ -28,7 +28,7 @@
 <FormalSpec>ProductieLijn</FormalSpec>
 <Implementation><![CDATA[
 	Quit "Select right(AB.Batch,4) as BatchVisual, "
-	_"   EindTijdstip,Productgroep, "
+	_"   StartTijdStip as EindTijdstip,Productgroep, "
 	_"	 Status as Status_1,"
 	_"   Aantal as Aantal_1,"
 	_"   StartTijdstip as StartTijdstip_1,"
@@ -227,9 +227,43 @@
 							_"               Gebruiker_1,"
 							_"               0 ReadOnly_1 "
 							_"From ( "
+							_"  Select "
+							_"  right(AB.Batch,4) as BatchVisual,"
+							_"  AB.Resource as Naar,"
+							_"  AB1.EindTijdstip EindTijdstip,"
+							_"  AB.Productgroep,"
+							_"  AB1.Batch || ';' || AB1.Resource  || ';' || AB1.Activiteit as ActiviteitID_1,"
+							_"  AB1.StartTijdstip as StartTijdstip_1,"
+							_"  AB1.Status Status_1,"
+							_"  AB1.Aantal Aantal_1,"
+							_"  AB1.Gebruiker Gebruiker_1 "
+							_"  from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB "
+							_"  join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 "
+							_"  left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='MAT' and AB1.Productgroep='ASM' and AB1.Activiteit='Intern'"
+							_"  where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0"
+							;_"        and ((AB.Productgroep in ('TBX','LBX') and AB.IsLeading=2) or (AB.Productgroep in ('TAX') and AB.IsLeading=1)) "
+							_") "
+							_"where ActiviteitID_1 is not null and isnull(Status_1,'')<>'F' "
+							_"order by Eindtijdstip "
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLMattenKlantOld">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Quit "select BatchVisual,EindTijdstip,ProductGroep,case Naar when 'Commissie' then '' else Naar end as Naar, Opmerking,"
+							_"               Status_1,"
+							_"               Aantal_1,"
+							_"               StartTijdstip_1,"
+							_"               ActiviteitID_1, "
+							_"               'ASM' Label_1,"
+							_"               Gebruiker_1,"
+							_"               0 ReadOnly_1 "
+							_"From ( "
 							_"Select "
 							_"right(AB.Batch,4) as BatchVisual,"
-							_"AB.Resource as Naar,"
+							_"AB.LeverenAanResource as Naar,"
+							_"AB1.Toeleveringen Opmerking,"
 							_"AB1.EindTijdstip EindTijdstip,"
 							_"AB.Productgroep,"
 							_"AB1.Batch || ';' || AB1.Resource  || ';' || AB1.Activiteit as ActiviteitID_1,"
@@ -239,8 +273,8 @@
 							_"AB1.Gebruiker Gebruiker_1 "
 							_"from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB "
 							_"join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 "
-							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='MAT' and AB1.Productgroep='ASM' and AB1.Activiteit='Intern'"
-							_"where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading=2 "
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='MAT' and AB1.Productgroep='ASM' and AB1.Activiteit='KlantOrder'"
+							_"where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading=1 "
 							_") "
 							_"where ActiviteitID_1 is not null and isnull(Status_1,'')<>'F' "
 							_"order by Eindtijdstip "
@@ -250,31 +284,40 @@
 <Method name="GeefSQLMattenKlant">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Quit "select BatchVisual,EindTijdstip,ProductGroep,case Naar when 'Commissie' then '' else Naar end as Naar,"
-							_"               Status_1,"
-							_"               Aantal_1,"
-							_"               StartTijdstip_1,"
-							_"               ActiviteitID_1, "
-							_"               'ASM' Label_1,"
-							_"               Gebruiker_1,"
-							_"               0 ReadOnly_1 "
+		
+	Quit "select BatchVisual,EindTijdstip,ProductGroep,case Naar when 'Commissie' then '' else Naar end as Naar, Opmerking,"
+							_"               Status_1, Status_2,"
+							_"               Aantal_1, Aantal_2,"
+							_"               StartTijdstip_1, StartTijdstip_2,"
+							_"               ActiviteitID_1, ActiviteitID_2,"
+							_"               'ASM' Label_1, 'DEKPL.' Label_2,"
+							_"               Gebruiker_1, Gebruiker_2,"
+							_"               0 ReadOnly_1, 0 ReadOnly_2 "
 							_"From ( "
 							_"Select "
 							_"right(AB.Batch,4) as BatchVisual,"
 							_"AB.LeverenAanResource as Naar,"
-							_"AB1.EindTijdstip EindTijdstip,"
+							_"AB.Toeleveringen  Opmerking,"
+							_"AB.EindTijdstip EindTijdstip,"
 							_"AB.Productgroep,"
 							_"AB1.Batch || ';' || AB1.Resource  || ';' || AB1.Activiteit as ActiviteitID_1,"
 							_"AB1.StartTijdstip as StartTijdstip_1,"
 							_"AB1.Status Status_1,"
 							_"AB1.Aantal Aantal_1,"
-							_"AB1.Gebruiker Gebruiker_1 "
+							_"AB1.Gebruiker Gebruiker_1 ,"
+							_"AB2.Batch || ';' || AB2.Resource  || ';' || AB2.Activiteit as ActiviteitID_2,"
+							_"AB2.StartTijdstip as StartTijdstip_2,"
+							_"AB2.Status Status_2,"
+							_"AB2.Aantal Aantal_2,"
+							_"AB2.Gebruiker Gebruiker_2 "
 							_"from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB "
 							_"join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 "
 							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB1 on AB.Batch=AB1.Batch and RCM.ActiviteitPerBatchTijdstip= AB1.RecalcTijdstip and AB1.Resource='MAT' and AB1.Productgroep='ASM' and AB1.Activiteit='KlantOrder'"
+							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB2 on AB.Batch=AB2.Batch and RCM.ActiviteitPerBatchTijdstip= AB2.RecalcTijdstip and AB2.Resource='MAT' and AB2.Productgroep='DEKPLAAT' and AB2.Activiteit='KlantOrder'"
 							_"where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading=1 "
 							_") "
-							_"where ActiviteitID_1 is not null and isnull(Status_1,'')<>'F' "
+							_"where ( ActiviteitID_1 is not null or ActiviteitID_2 is not null ) "
+							_"  and ( (isnull(Status_1,'')<>'F' and isnull(Aantal_1,0)>0) or (isnull(Status_2,'')<>'F' and isnull(Aantal_2,0)>0)  )"
 							_"order by Eindtijdstip "
 ]]></Implementation>
 </Method>
Index: APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml
===================================================================
diff -u -r57548 -r62511
--- APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml	(.../ResourceLijn.cls.xml)	(revision 57548)
+++ APPS/Halux/Planning/Resource/dto/ResourceLijn.cls.xml	(.../ResourceLijn.cls.xml)	(revision 62511)
@@ -164,6 +164,12 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="LeverenAan">
+<Description>
+StockVH, OL, Klantorder</Description>
+<Type>%String</Type>
+</Property>
+
 <Index name="iToelev">
 <Properties>ToeleveringNr,UniekLijnNr</Properties>
 </Index>
@@ -231,6 +237,12 @@
 <Value name="17">
 <Value>TijdIsDefaulted</Value>
 </Value>
+<Value name="18">
+<Value>Naar</Value>
+</Value>
+<Value name="19">
+<Value>LeverenAan</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml
===================================================================
diff -u -r61781 -r62511
--- AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 61781)
+++ AX/Uitgaand/EC/DataAX/impl/Translator.cls.xml	(.../Translator.cls.xml)	(revision 62511)
@@ -23,7 +23,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZoekProductIDForAX">
+<Method name="ZoekRecensteProductIDForAX">
+<Description>
+Geeft de RECENSTE product id terug
+Vermits een maatwerk product meerdere keren kan gebruikt worden terwij l een configId in AX slechts een keer wordt gebruikt.
+Daarom moet dit aangepast worden naar een iterator </Description>
 <FormalSpec>PRNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ProductID=""
@@ -40,7 +44,7 @@
 		}
 		If ItemId'=""
 		{
-			Set ProductID=ItemId_" : "_ConfigId_" : : :"
+			Set ProductID=ItemId_$S(ConfigId="":"",1:" : "_ConfigId_" : : :")
 		}
 	}
 	Else