Index: AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml
===================================================================
diff -u -r62525 -r63276
--- AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 62525)
+++ AXimpl/Admin/TRANSPORT/Levbon/Processor.cls.xml	(.../Processor.cls.xml)	(revision 63276)
@@ -132,6 +132,10 @@
 		    	Set Verschillen=..ObjectDiff.GetDifferences(BonLevering,BestaandeBonLevering)
 		    	If Verschillen.Count()
 		    	{
+			    	
+			    	;Do DumpObject^%apiOBJ(BestaandeBonLevering)
+			    	;Do DumpObject^%apiOBJ(BonLevering)
+			    	;Do DumpObject^%apiOBJ(Verschillen)
 			    	If (Verschillen.Count()>1) || (Verschillen.GetAt(1)'["CreatieDatum")
 			    	{
 	           			Do ##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%DeleteId(BonLevering.AXOrderID_"||"_BonLevering.LeveringBonNr)
@@ -225,10 +229,48 @@
             Set ..BonLevering.AantalLanggoed=$P($G(^TRANSP("D",TRANSNr,"D",GroepBONNr,"Q","L")),"\")
         }
         Do ..VulAanTrackAndTrace()
+        Do ..VulAanBarcodeID()
     }
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(AXimpl.Admin.TRANSPORT.Levbon.Processor).%New().VulAanBarcodeID()
+
+]]></Content>
+</UDLText>
+
+<Method name="VulAanBarcodeID">
+<Implementation><![CDATA[
+	#dim DistributeurData As DOM.TRANSP.data.DistributeurData
+	#dim Referenties as %String
+	#dim lbDistributeurIDs as %List
+
+	;Set ..BonLevering=##class(AXimpl.Admin.TRANSPORT.Levbon.BonLevering).%New()
+	;Set ..BonLevering.TransportID=27336
+	;Set ..BonLevering.GroeperingID=38686445
+	
+	Set Referenties=""
+	If ..BonLevering.TransportID && ..BonLevering.GroeperingID
+	{
+		Set lbDistributeurIDs =$G(^TRANSP("D",..BonLevering.TransportID,"D",..BonLevering.GroeperingID,"DistributeurDataIDs"))
+		For i=1:1:$LL(lbDistributeurIDs) {
+			If $LG(lbDistributeurIDs,i)
+			{
+				Set DistributeurData = ##class(DOM.TRANSP.data.DistributeurData).OpenId($LG(lbDistributeurIDs,i))
+				If $isObject(DistributeurData) && (DistributeurData.%ClassName(1)["Transsmart")
+				{
+					Set Referenties=Referenties_";"_DistributeurData.UnitID
+					Set ..BonLevering.BarcodeAanmaakTijdstip=DistributeurData.TijdstipLaatsteWijziging
+				}
+			}
+		}
+	}
+	Set ..BonLevering.BarcodeReferenties=$E(Referenties,2,500)
+]]></Implementation>
+</Method>
+
 <Method name="LandCode3">
 <FormalSpec>LandID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -238,8 +280,10 @@
 </Method>
 
 <Method name="VulAanTrackAndTrace">
+<Description>
+w ##class(APPS.OV.impl.TrackAndTraceService).%New().GeefPrivateTrackAndTraceURL(399379)</Description>
 <Implementation><![CDATA[
-	If (..BonLevering.Verzendwijze?1(1"DI1",1"DD1",1"GL4")) ;bon nummers worden herbruikt
+	If (..BonLevering.Verzendwijze?1(1"DI".1E,1"DD1",1"GL4")) ;bon nummers worden herbruikt
 	{
 		try{
 			Set ..BonLevering.TrackAndTracePrivaatURL = ..TrackAndTraceService.GeefPrivateTrackAndTraceURL(..BonLevering.LeveringBonNr)
@@ -295,7 +339,8 @@
     If ..BonLevering.TransporteurCode?1"JETL".E Set ..BonLevering.Verzendwijze="SNT" Quit
     If ..BonLevering.TransporteurCode?1"TMJ".E Set ..BonLevering.Verzendwijze="SNT" Quit 
     If ..BonLevering.TransporteurCode?1"TNT".E Set ..BonLevering.Verzendwijze="DI" Quit
-    If ..BonLevering.TransporteurCode?1"DHL".E Set ..BonLevering.Verzendwijze="DI" Quit
+    If ..BonLevering.TransporteurCode?1"DHL".E Set ..BonLevering.Verzendwijze="DI1" Quit
+    If ..BonLevering.TransporteurCode?1"VRD".E Set ..BonLevering.Verzendwijze="DI1" Quit
     If ..BonLevering.TransporteurCode?1"FEDEX".E Set ..BonLevering.Verzendwijze="DI" Quit
     ; Else
     Set ..BonLevering.Verzendwijze="EXP"
Index: APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml
===================================================================
diff -u -r62511 -r63276
--- APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 62511)
+++ APPS/Halux/Planning/Resource/impl/ConvertTBX.cls.xml	(.../ConvertTBX.cls.xml)	(revision 63276)
@@ -127,7 +127,8 @@
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","TBX","S:"_..SpoelbakCode, ,(..ProductieOrderLijn.Aantal>5))
+	Set AantalSpoelbak=##class(APPS.Halux.Planning.Resource.impl.IsOrderVolledigSpoelbak).%New().AantalSpoelbakLadenInOrder(..ProductieOrderLijn.ToeleveringNr)
+	Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","TBX","S:"_..SpoelbakCode, ,(AantalSpoelbak>7))
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml
===================================================================
diff -u -r62511 -r63276
--- APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 62511)
+++ APPS/Halux/Planning/Resource/impl/ConvertLBX.cls.xml	(.../ConvertLBX.cls.xml)	(revision 63276)
@@ -112,7 +112,8 @@
 <Implementation><![CDATA[
 	Quit:'..SpoelbakCode
 	Quit:..SpeciaalCode'=""
-	Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","LBX","S:"_..SpoelbakCode,,(..ProductieOrderLijn.Aantal>5))
+	Set AantalSpoelbak=##class(APPS.Halux.Planning.Resource.impl.IsOrderVolledigSpoelbak).%New().AantalSpoelbakLadenInOrder(..ProductieOrderLijn.ToeleveringNr)
+	Do ..CreateOneResource("LBX&TBX","Spoelbak LBX&TBX","Lade","LBX","S:"_..SpoelbakCode,,(AantalSpoelbak>7))
 ]]></Implementation>
 </Method>
 
Index: WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml
===================================================================
diff -u -r62511 -r63276
--- WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(.../Queries.cls.xml)	(revision 62511)
+++ WS/Halux/Planning/ActiviteitPerBatchService/Queries.cls.xml	(.../Queries.cls.xml)	(revision 63276)
@@ -13,7 +13,10 @@
 	Quit:QueryNaam="SQL2" ..GeefSQLMattenIntern()
 	Quit:QueryNaam="VOORMONTAGE INTERN" ..GeefSQLVoormontageIntern()
 	Quit:QueryNaam="VOORMONTAGE KLANTORDER" ..GeefSQLVoormontageKlant()
+	Quit:QueryNaam="SPOELBAK INTERN" ..GeefSQLSpoelbakIntern()
+	Quit:QueryNaam="SPOELBAK KLANTORDER" ..GeefSQLSpoelbakKlant()
 	Quit:QueryNaam="MAT INTERN" ..GeefSQLMattenIntern()
+	Quit:QueryNaam="MAT INTERNTAX" ..GeefSQLMattenInternEnTAX()
 	Quit:QueryNaam="MAT KLANTORDER" ..GeefSQLMattenKlant()
 	Quit:QueryNaam="OMPAK KLANTORDER" ..GeefSQLOmpakKlant()
 	Quit:QueryNaam="LIJN1" ..GeefSQLLBXTBXLijn("Lijn 1")
@@ -93,14 +96,61 @@
 							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB3 on AB.Batch=AB3.Batch and RCM.ActiviteitPerBatchTijdstip = AB3.RecalcTijdstip and AB3.Resource='Voormontage' and AB3.Activiteit='ZijStab' "
 							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB4 on AB.Batch=AB4.Batch and RCM.ActiviteitPerBatchTijdstip = AB4.RecalcTijdstip and AB4.Resource='Voormontage' and AB4.Activiteit='DwarsVerd' "
 							_"left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB5 on AB.Batch=AB5.Batch and RCM.ActiviteitPerBatchTijdstip = AB5.RecalcTijdstip and AB5.Resource='Voormontage' and AB5.Activiteit='Glas' "
-							_"where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0 "
+							_"where  AB.Productgroep <>'TAX' and AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0 "
 							_") "
 							_"where (ActiviteitID_1 is not null or ActiviteitID_2 is not null or ActiviteitID_3 is not null or ActiviteitID_4 is not null or ActiviteitID_5 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) or (isnull(Status_3,'')<>'F' and isnull(Aantal_3,0)>0) or (isnull(Status_4,'')<>'F' and isnull(Aantal_4,0)>0) or (isnull(Status_5,'')<>'F' and isnull(Aantal_5,0)>0) )"
 							_"order by Eindtijdstip "
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSQLSpoelbakKlant">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+			
+	Quit "select "
+	_"  right(AB.Batch,4) as BatchVisual,"
+	_"  LeverenAanResource as Naar,"
+	_"  AB.Toeleveringen  Opmerking,"
+	_"  AB.EindTijdstip EindTijdstip,"
+	_"  AB.Productgroep,"
+	_"  AB.Batch || ';' || AB.Resource  || ';' || AB.Activiteit as ActiviteitID_1,"
+	_"  AB.StartTijdstip as StartTijdstip_1,"
+	_"  AB.Status Status_1,"
+	_"  AB.Aantal Aantal_1,"
+	_"  AB.Gebruiker Gebruiker_1 "
+	_"from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB "
+	_"join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 and AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip "
+	_"Where  AB.Resource='Spoelbak LBX&TBX'  "
+	_"  and ( isnull(LeverenAanResource,'')='' or LeverenAanResource not like 'Lijn%') "
+	_"  and ( (isnull(Status,'')<>'F' and isnull(Aantal,0)>0) )"
+	_"order by Eindtijdstip "
+]]></Implementation>
+</Method>
+
+<Method name="GeefSQLSpoelbakIntern">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Quit "select "
+	_"  right(AB.Batch,4) as BatchVisual,"
+	_"  LeverenAanResource as Naar,"
+	_"  AB.Toeleveringen  Opmerking,"
+	_"  AB.EindTijdstip EindTijdstip,"
+	_"  AB.Productgroep,"
+	_"  AB.Batch || ';' || AB.Resource  || ';' || AB.Activiteit as ActiviteitID_1,"
+	_"  AB.StartTijdstip as StartTijdstip_1,"
+	_"  AB.Status Status_1,"
+	_"  AB.Aantal Aantal_1,"
+	_"  AB.Gebruiker Gebruiker_1 "
+	_"from APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB "
+	_"join APPS_Halux_Planning_impl.ResourceCalcMutex RCM on RCM.ID=1 and AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip "
+	_"Where  AB.Resource='Spoelbak LBX&TBX'  "
+	_"  and ( LeverenAanResource like 'Lijn%') "
+	_"  and ( (isnull(Status,'')<>'F' and isnull(Aantal,0)>0) )"
+	_"order by Eindtijdstip "
+]]></Implementation>
+</Method>
+
 <Method name="GeefSQLVoormontageKlant">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
@@ -248,6 +298,51 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefSQLMattenInternEnTAX">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Quit "select BatchVisual,EindTijdstip,ProductGroep,Naar,"
+							_"               Status_1,Status_2, Status_3,"
+							_"               Aantal_1,Aantal_2, Aantal_3,"
+							_"               StartTijdstip_1, StartTijdstip_2, StartTijdstip_3,"
+							_"               ActiviteitID_1, ActiviteitID_2, ActiviteitID_3, "
+							_"               'ASM' Label_1, 'Syncro' Label_2, 'Zijstab' Label_3,"
+							_"               Gebruiker_1, Gebruiker_2, Gebruiker_3,"
+							_"               0 ReadOnly_1, 0 ReadOnly_2, 0 ReadOnly_3 "
+							_"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,"
+							_"  AB2.Batch || ';' || AB2.Resource  || ';' || AB2.Activiteit as ActiviteitID_2,"
+							_"  AB3.Batch || ';' || AB3.Resource  || ';' || AB3.Activiteit as ActiviteitID_3,"
+							_"  AB1.StartTijdstip as StartTijdstip_1,"
+							_"  AB2.StartTijdstip as StartTijdstip_2,"
+							_"  AB3.StartTijdstip as StartTijdstip_3,"
+							_"  AB1.Status Status_1,"
+							_"  AB2.Status Status_2,"
+							_"  AB3.Status Status_3,"
+							_"  AB1.Aantal Aantal_1,"
+							_"  AB2.Aantal Aantal_2,"
+							_"  AB3.Aantal Aantal_3,"
+							_"  AB1.Gebruiker Gebruiker_1, "
+							_"  AB2.Gebruiker Gebruiker_2, "
+							_"  AB3.Gebruiker Gebruiker_3 "
+							_"  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'"
+							_"  left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB2 on AB.Batch=AB2.Batch and RCM.ActiviteitPerBatchTijdstip = AB2.RecalcTijdstip and AB2.Resource='Voormontage' and AB2.Activiteit='Syncro' and AB2.Productgroep='TAX' "
+							_"  left outer join APPS_Halux_Planning_Activiteit_dto.ActiviteitPerBatch AB3 on AB.Batch=AB3.Batch and RCM.ActiviteitPerBatchTijdstip = AB3.RecalcTijdstip and AB3.Resource='Voormontage' and AB3.Activiteit='ZijStab' and AB3.Productgroep='TAX' "						
+							_"  where AB.RecalcTijdstip = RCM.ActiviteitPerBatchTijdstip and AB.IsLeading>0"
+							_") "
+							_"where (ActiviteitID_1 is not null or ActiviteitID_2 is not null or ActiviteitID_3 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) or (isnull(Status_3,'')<>'F' and isnull(Aantal_3,0)>0) )"
+							_"order by Eindtijdstip "
+]]></Implementation>
+</Method>
+
 <Method name="GeefSQLMattenKlantOld">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
Index: AX/Uitgaand/MAG/impl/ExportOutbound.cls.xml
===================================================================
diff -u -r54968 -r63276
--- AX/Uitgaand/MAG/impl/ExportOutbound.cls.xml	(.../ExportOutbound.cls.xml)	(revision 54968)
+++ AX/Uitgaand/MAG/impl/ExportOutbound.cls.xml	(.../ExportOutbound.cls.xml)	(revision 63276)
@@ -48,7 +48,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..SOPRConvertor=##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
-	Set ..RefDatum=$$INTDATE^vhLib.DataTypes("01/10/2018")
+	Set ..RefDatum=+$H ;$$INTDATE^vhLib.DataTypes("01/10/2018")
 	Set ..StartDatum=$$CALCDATE^vhLib.DataTypes(..RefDatum,"M",-AantalMaanden,"FD")
 	Kill ^||LocatieCache
 	Quit $$$OK
@@ -57,7 +57,7 @@
 
 <Method name="VerwerkAlle">
 <Description>
-d ##class(AX.Uitgaand.MAG.impl.ExportOutbound).%New().VerwerkAlle()</Description>
+d ##class(AX.Uitgaand.MAG.impl.ExportOutbound).%New(3).VerwerkAlle()</Description>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	Write @F11,@F1
@@ -164,6 +164,10 @@
 <FormalSpec>px:AX.Uitgaand.MAG.dto.BewegingOutbound</FormalSpec>
 <Implementation><![CDATA[
 	Set KLNr=$P(..CONSRec,"\")
+	If KLNr=$$$KlantHalux Do  Quit
+	. Set px.ShipmentType="TRANSFER HLX"
+	. Set px.Transporteur="INTERN"
+	
 	Set BONRec=$G(^KUL(KLNr,"F",..CONSNr,1))
 	Set:BONRec="" BONRec=$G(^KUL(KLNr,"G",..CONSNr,1))
 	Set TranspIndex=$P(BONRec,"\",8)
@@ -273,7 +277,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	Set CONSRec=^ORDW("D",..CONSNr)
-	Quit:$P(^ORDW("D",..CONSNr),"\")=$$$KlantHalux 0
+	;Quit:$P(^ORDW("D",..CONSNr),"\")=$$$KlantHalux 
 	Set PickDatum=+$P(^ORDW("D",..CONSNr),"\",19)
 	Quit:..RefDatum<PickDatum 0
 	Quit:..StartDatum>PickDatum 0
Index: APPS/Halux/Planning/Resource/impl/IsOrderVolledigSpoelbak.cls.xml
===================================================================
diff -u
--- APPS/Halux/Planning/Resource/impl/IsOrderVolledigSpoelbak.cls.xml	(revision 0)
+++ APPS/Halux/Planning/Resource/impl/IsOrderVolledigSpoelbak.cls.xml	(revision 63276)
@@ -0,0 +1,113 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Planning.Resource.impl.IsOrderVolledigSpoelbak">
+<Super>%RegisteredObject</Super>
+
+<Property name="ProductieOrderLijn">
+<Type>Flow.Toelev.Lijn</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="itProductieOrder">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerpakCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpeciaalCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="SpoelbakCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="AXKenmerken">
+<Type>AXimpl.PM.Kenmerk.Kenmerken</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// w ##class(APPS.Halux.Planning.Resource.impl.IsOrderVolledigSpoelbak).%New().AantalSpoelbakLadenInOrder(206414)
+
+]]></Content>
+</UDLText>
+
+<Method name="AantalSpoelbakLadenInOrder">
+<Description>
+Indien ALLE laden in het productdieorder spoelbakken zijn wordt het aantal teruggeven</Description>
+<FormalSpec>TOENr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ..itProductieOrder=##class(ProductieOrderIterator).%New(TOENr)
+	Set Aantal=0
+	Set IsAllesSpoelbak=1
+	
+	While ..itProductieOrder.HasNext() && IsAllesSpoelbak
+	{	
+		Set ..ProductieOrderLijn=..itProductieOrder.Next()
+		If $isObject(..ProductieOrderLijn)
+		{	
+			If ..IsSpoelbak()
+			{
+				Set Aantal=Aantal+..ProductieOrderLijn.Aantal
+			}
+			Else
+			{
+				Set IsAllesSpoelbak=0
+			}
+						
+		}
+	}
+		Quit $S(IsAllesSpoelbak:Aantal,1:"")
+]]></Implementation>
+</Method>
+
+<Method name="IsSpoelbak">
+<Implementation><![CDATA[
+	#dim IsSpoelbak as %Boolean=0
+	Try {
+		Do ..OphalenAXKenmerken()
+		;Do DumpObject^%apiOBJ(..AXKenmerken)
+		If (..AXKenmerken.Variant="TBX") || (..AXKenmerken.Variant="LBX")|| (..AXKenmerken.Variant="MVX")
+		{
+			Set ..SpoelbakCode=$S(..AXKenmerken.Toepassing="L":"",$zcvt(..AXKenmerken.UitsparingUitsparingAantal,"U")="DUBBEL":2,1:1)
+			Set ..VerpakCode=..AXKenmerken.VerpakkingType
+			Set ..SpeciaalCode=..AXKenmerken.ProductieWijze
+			Set:..SpeciaalCode="V" ..SpeciaalCode=""
+			;w ..SpoelbakCode, "  ",..VerpakCode,"  ",..SpeciaalCode
+			
+			// Indien V1 dn moet het steeds langs de lijn om de kartonmachine aan te sturen
+			// Indien speciaal code dan gaat het over een rechtzetting
+			If (..SpoelbakCode>0) && (..VerpakCode'="V1") && (..SpeciaalCode="")
+			{
+				Set IsSpoelbak=1
+			}
+		}
+		
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+	
+	Quit IsSpoelbak
+]]></Implementation>
+</Method>
+
+<Method name="OphalenAXKenmerken">
+<Implementation><![CDATA[
+	#Dim PRNr as %String
+	Set PRNr=..ProductieOrderLijn.ProductGetObjectId()
+	Set ..AXKenmerken=""
+	If '##class(AXimpl.PM.Kenmerk.Kenmerken).%ExistsId(PRNr)
+	{
+		Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().ConverteerOne(PRNr)
+	}
+	Set ..AXKenmerken=##class(AXimpl.PM.Kenmerk.Kenmerken).%OpenId(PRNr)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml
===================================================================
diff -u -r49434 -r63276
--- AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml	(.../VergelijkLijn.cls.xml)	(revision 49434)
+++ AXimpl/Controle/OrdDiff/VergelijkLijn.cls.xml	(.../VergelijkLijn.cls.xml)	(revision 63276)
@@ -61,7 +61,7 @@
 	Set ..Diff=##class(AXimpl.Controle.OrdDiff.DiffData).%New()
 
 	Do ..ControleerAanwezig()
-	If ..Diff.GekendInAX&&..Diff.GekendInAdmin
+	If ..Diff.GekendInAX&&..Diff.GekendInAdmin&&(..OrderLijn.Admin.ProductNr'=1793108)
 	{
 		Do ..ControleerAantal()
 		Do ..ControleerProduct()
@@ -73,6 +73,8 @@
 <Method name="ControleerAanwezig">
 <Implementation><![CDATA[
 	Set ..Diff.GekendInAX=''..OrderLijn.AX.ProductNr
+	Set:('..Diff.GekendInAX)&&(..OrderLijn.Admin.ProductNr=1793108) ..Diff.GekendInAX=1 ; SERV.TRANSPORT is nooit gekend in AX
+	
 	Set ..Diff.GekendInAdmin=''..OrderLijn.Admin.ProductNr
 ]]></Implementation>
 </Method>
Index: AX/Uitgaand/MAG/dto/BewegingInbound.cls.xml
===================================================================
diff -u -r52359 -r63276
--- AX/Uitgaand/MAG/dto/BewegingInbound.cls.xml	(.../BewegingInbound.cls.xml)	(revision 52359)
+++ AX/Uitgaand/MAG/dto/BewegingInbound.cls.xml	(.../BewegingInbound.cls.xml)	(revision 63276)
@@ -139,7 +139,7 @@
 		Set ..ReceptieID=$P(HistRec,"\",10)
 		Set:..ReceptieID="" ..ReceptieID=$P(HistRec,"\",7)
 		Set ..Leverancier=..Product.Prijs.Leverancier.%Id()
-		Set ..Retour=$P(HistRec,"\",4)="R"
+		Set ..Retour=($P(HistRec,"\",4)="R") || ($P(HistRec,"\",6)=6051)
 		Do ..VerdeelAantal($P(HistRec,"\",2))
 ]]></Implementation>
 </Method>
Index: AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml
===================================================================
diff -u -r62525 -r63276
--- AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml	(.../BonLevering.cls.xml)	(revision 62525)
+++ AXimpl/Admin/TRANSPORT/Levbon/BonLevering.cls.xml	(.../BonLevering.cls.xml)	(revision 63276)
@@ -121,6 +121,15 @@
 <Parameter name="MAXLEN" value="500"/>
 </Property>
 
+<Property name="BarcodeReferenties">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="500"/>
+</Property>
+
+<Property name="BarcodeAanmaakTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
 <Property name="CreatieDatum">
 <Type>%Date</Type>
 </Property>
@@ -231,6 +240,12 @@
 <Value name="29">
 <Value>CreatieDatum</Value>
 </Value>
+<Value name="30">
+<Value>BarcodeReferenties</Value>
+</Value>
+<Value name="31">
+<Value>BarcodeAanmaakTijdstip</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Planning/Resource/impl/ProductieOrderIterator.cls.xml
===================================================================
diff -u -r56901 -r63276
--- APPS/Halux/Planning/Resource/impl/ProductieOrderIterator.cls.xml	(.../ProductieOrderIterator.cls.xml)	(revision 56901)
+++ APPS/Halux/Planning/Resource/impl/ProductieOrderIterator.cls.xml	(.../ProductieOrderIterator.cls.xml)	(revision 63276)
@@ -10,35 +10,47 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>TOENr:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Do ..VoerUitQuery(.VanafDatum)
+	Do ..VoerUitQuery(.TOENr)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitQuery">
-<FormalSpec>VanafDatum:%Date=""</FormalSpec>
+<FormalSpec>TOENr:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
+	#dim stPrepared As %Status
 	
 	Set SqlStatement = "SELECT " 
  	_"  ID"
  	_"  From Flow_Toelev.Lijn"
  	_"  Where leverancier="_$$$LevHalux
 	Set ..ResultSet =##class(%ResultSet).%New("%DynamicQuery:SQL")
- 	#dim stPrepared As %Status = ..ResultSet.Prepare(SqlStatement)
- 	Set stPrepared = ..ResultSet.Execute()
+
+ 	If TOENr'="" 
+ 	{
+	 	Set SqlStatement=SqlStatement_" AND ToeleveringNr=?"
+ 		Set sc = ..ResultSet.Prepare(SqlStatement)
+ 		Set sc = ..ResultSet.Execute(TOENr)
+ 	} Else {
+	  	Set %Status = ..ResultSet.Prepare(SqlStatement)
+ 		Set stPrepared = ..ResultSet.Execute()
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="HasNext">
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (..ResultSet.Next() > 0)
+<Implementation><![CDATA[
+	Quit (..ResultSet.Next(.sc) > 0)
+	;Do DisplayError^%apiOBJ(sc)
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/EC/ServiceAX.cls.xml
===================================================================
diff -u -r53262 -r63276
--- AX/Uitgaand/EC/ServiceAX.cls.xml	(.../ServiceAX.cls.xml)	(revision 53262)
+++ AX/Uitgaand/EC/ServiceAX.cls.xml	(.../ServiceAX.cls.xml)	(revision 63276)
@@ -76,7 +76,7 @@
 		{
 			Do ##class(vhLib.Logger).%New("VHISIE").Warning("EC Nachtelijke bestanden","Job heeft gelopen minstens 1 XML maar niet alle 4 zijn aanwezig")
 		}
-		Do ##class(vhLib.Logger).%New("VHISIE").Warning("EC Nachtelijke bestanden","Job heeft gelopen geen bestand aanwezig")
+		Do ##class(vhLib.Logger).%New("VHISIE").Error("EC Nachtelijke bestanden","Job heeft gelopen geen bestand aanwezig")
 
 		Set Status='$$$OK
 	}