Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveGebruikersVelden.cls.xml
===================================================================
diff -u -r72112 -r74411
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveGebruikersVelden.cls.xml	(.../BatchNaarObjectiveGebruikersVelden.cls.xml)	(revision 72112)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveGebruikersVelden.cls.xml	(.../BatchNaarObjectiveGebruikersVelden.cls.xml)	(revision 74411)
@@ -14,7 +14,7 @@
 </Property>
 
 <Property name="Vlag">
-<Type>TECH.String</Type>
+<Type>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveVlagVelden</Type>
 <Parameter name="XMLNAME" value="flag"/>
 </Property>
 
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml
===================================================================
diff -u -r74401 -r74411
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml	(.../BatchNaarObjectiveTekstVelden.cls.xml)	(revision 74401)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveTekstVelden.cls.xml	(.../BatchNaarObjectiveTekstVelden.cls.xml)	(revision 74411)
@@ -108,26 +108,13 @@
 <Parameter name="XMLNAME" value="vh-mes-production-plugin_typeofcardboard"/>
 </Property>
 
-<Property name="IsExport">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="vh-mes-production-plugin_export"/>
-</Property>
-
-<Property name="GebruikHalvePaletten">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="vh-mes-production-plugin_useonlyhalfpallets"/>
-</Property>
-
-<Property name="Crossdocking">
-<Type>%String</Type>
-<Parameter name="XMLNAME" value="vh-mes-production-plugin_crossdocking"/>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>BatchNaarObjectiveTekstVeldenState</State>
 <StreamLocation>^APPS.HaluxF90F.BatchNaarOb713FS</StreamLocation>
 <Data name="BatchNaarObjectiveTekstVeldenState">
+<Structure>listnode</Structure>
+<Subscript/>
 <Value name="1">
 <Value>ToeleveringId</Value>
 </Value>
@@ -147,7 +134,7 @@
 <Value>OrderReferentie</Value>
 </Value>
 <Value name="7">
-<Value>CommisieReferentie</Value>
+<Value>CommissieReferentie</Value>
 </Value>
 <Value name="8">
 <Value>KlantOrderId</Value>
@@ -159,47 +146,35 @@
 <Value>KlantNaam</Value>
 </Value>
 <Value name="11">
-<Value>KlantId</Value>
+<Value>KlantLogo</Value>
 </Value>
 <Value name="12">
-<Value>MultipersonalityKlant1</Value>
+<Value>KlantId</Value>
 </Value>
 <Value name="13">
-<Value>MultipersonalityKlant2</Value>
+<Value>KlantTaal</Value>
 </Value>
 <Value name="14">
-<Value>CommissieReferentie</Value>
+<Value>Leveradres</Value>
 </Value>
 <Value name="15">
-<Value>KlantLogo</Value>
+<Value>LeveradresDetails</Value>
 </Value>
 <Value name="16">
-<Value>KlantTaal</Value>
+<Value>LeveradresLand</Value>
 </Value>
 <Value name="17">
-<Value>Leveradres</Value>
+<Value>MultipersonalityKlant1</Value>
 </Value>
 <Value name="18">
-<Value>PalletMateriaal</Value>
+<Value>MultipersonalityKlant2</Value>
 </Value>
 <Value name="19">
-<Value>TypeKarton</Value>
+<Value>PalletMateriaal</Value>
 </Value>
 <Value name="20">
-<Value>IsExport</Value>
+<Value>TypeKarton</Value>
 </Value>
-<Value name="21">
-<Value>GebruikHalvePaletten</Value>
-</Value>
-<Value name="22">
-<Value>LeveradresDetails</Value>
-</Value>
-<Value name="23">
-<Value>LeveradresLand</Value>
-</Value>
-<Value name="24">
-<Value>Crossdocking</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml
===================================================================
diff -u -r74402 -r74411
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 74402)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/HoofdDataGenerator.cls.xml	(.../HoofdDataGenerator.cls.xml)	(revision 74411)
@@ -95,7 +95,7 @@
 	Set GebruikersVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveGebruikersVelden).%New()
 	Set GebruikersVelden.DatumVelden = ..GeefDatumVelden(Toelevering)
 	Set GebruikersVelden.TekstVelden = ..GeefTekstVelden(Batch, Toelevering, SequentieNummerToelevering)
-	Set GebruikersVelden.Vlag = ""
+	Set GebruikersVelden.Vlag = ..GeefVlagVelden(Batch, Toelevering, SequentieNummerToelevering)
 	Set GebruikersVelden.NumeriekeVelden = ""
 	
 	Set BatchNaarObjectiveData.GebruikersVelden = GebruikersVelden
@@ -169,16 +169,11 @@
 	#dim KlantInstellingen As DOM.Halux.AAP.Klantinstellingen
 	#dim KlantInstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(Toelevering.GeefKlantID())
 	
-	Set TekstVelden.GebruikHalvePaletten = "false"
-	Set TekstVelden.IsExport = "false"
 	Set TekstVelden.PalletMateriaal = "EUR"
 	Set TekstVelden.TypeKarton = "VH"
 	
 	If (KlantInstellingenIterator.HasNext()) {
 		Set KlantInstellingen = KlantInstellingenIterator.Next()
-		
-		Set TekstVelden.GebruikHalvePaletten = $Select(KlantInstellingen.HalvePallet : "true", 1:"false")
-		Set TekstVelden.IsExport = $Select(KlantInstellingen.IsExport : "true", 1:"false")
 		Set TekstVelden.TypeKarton = $Select(KlantInstellingen.IsBlumXs : "Blum", 1:"VH")
 		
 		If (KlantInstellingen.WegwerpPallet) {
@@ -192,6 +187,106 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVlagVelden">
+<FormalSpec>Batch:APPS.Halux.common.Batch,Toelevering:DOM.AKP.Toelevering,SequentieNummerToelevering:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveTekstVelden</ReturnType>
+<Implementation><![CDATA[
+	#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(Toelevering.GeefOrderID())
+	Set VlagVelden = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveVlagVelden).%New()
+	#dim KlantInstellingen As DOM.Halux.AAP.Klantinstellingen
+	#dim KlantInstellingenIterator = ..KlantinstellingenRepository.ZoekViaKlantId(Toelevering.GeefKlantID())
+	
+	Set VlagVelden.Crossdocking = ..GeefWaardeOfNull(..GeefCrossdocking(Order, Toelevering))	
+	Set VlagVelden.GebruikHalvePaletten = "false"
+	Set VlagVelden.IsExport = "false"
+	
+	If (KlantInstellingenIterator.HasNext()) {
+		Set KlantInstellingen = KlantInstellingenIterator.Next()
+		
+		Set VlagVelden.GebruikHalvePaletten = $Select(KlantInstellingen.HalvePallet : "true", 1:"false")
+		Set VlagVelden.IsExport = $Select(KlantInstellingen.IsExport : "true", 1:"false")
+	}
+	
+	Quit VlagVelden
+]]></Implementation>
+</Method>
+
+<Method name="GeefCrossdocking">
+<FormalSpec>Order:DOM.VKP.Order,Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Crossdocking As %String = "false"	
+	#dim OrderlijnIterator As TECH.Iterator = Order.GeefOrderLijnIterator()
+	#dim Orderlijn As DOM.VKP.Orderlijn
+	#dim ToeleveringenLijst As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#dim Verzendwijze As %String = Order.GeefVerzendingWijze()
+	#dim FoutCodeOrderlijnen As %String = ..ControleerLijnen(Order.GeefKlantNr(), Order.GeefID())
+	
+	If (Verzendwijze = "DI1") {
+		While OrderlijnIterator.HasNext() {
+			Set Orderlijn = OrderlijnIterator.Next()
+			If $$$Not(##class(TECH.ListUtils).Contains(ToeleveringenLijst, Orderlijn.GeefToeleveringID())) {
+				Do ToeleveringenLijst.Insert(Orderlijn.GeefToeleveringID())
+			}
+		}
+		
+		If ((FoutCodeOrderlijnen = "") && (ToeleveringenLijst.Count() < 2)) {
+			Set Crossdocking = "true"
+		}
+	}
+	
+	Quit Crossdocking
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Gefilterde code uit BL.MB.UGLYPicking.VerzendDirectControleur
+
+]]></Content>
+</UDLText>
+
+<Method name="ControleerLijnen">
+<FormalSpec>KLNr:%String,ORDNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Hoofding=$G(^KOD(KLNr,"F",ORDNr,1))
+	Set OLNr=$O(^KOD(KLNr,"F",ORDNr,99)) 
+	Set SomVanAantal=0
+	Set FoutCode=""
+	Set MemGenTyp=""
+	Set IsLade=0
+	While (OLNr'="") && (FoutCode="")
+	{
+		Set Lijn=$G(^KOD(KLNr,"F",ORDNr,OLNr))
+		If $P($P(Lijn,"\",17),"#")'="KF11" ; geen tekstlijn
+		{
+			Set:$P($P(Lijn,"\",17),"#")'="KF0" FoutCode="Geen product lijn"
+
+			Set SomVanAantal=SomVanAantal+$P(Lijn,"\",3)
+			Set:SomVanAantal>30 FoutCode="Groot aantal "_SomVanAantal	
+
+			Set PRNr=$P(Lijn,"\",2)
+			Set GenTyp=$P($$GENTYP^HAD(PRNr),"\",1,2)
+			Set:(GenTyp="HAL")&&$$IsSpaceTower^PRODUKT2(PRNr) GenTyp="TBX",SomVanAantal=SomVanAantal+3 ; SPACETOWER voor KVIK moet als TBX beschouwd worden PV 22/11/2023
+			
+			Set GenTyp=$S(GenTyp="":"*",1:GenTyp)
+			Set:$P(GenTyp,"\")?1(1"TBX",1"MVX",1"LBX",1"TAO") IsLade=1
+	
+			Set:$P(GenTyp,"\")'?1(1"TBX",1"MVX",1"LBX",1"TAO") FoutCode="GenType geen lade "_GenTyp
+			Set:(MemGenTyp'="")&(MemGenTyp'=GenTyp) FoutCode="Verschillend GenType "_MemGenTyp_"="_GenTyp
+			Set MemGenTyp=GenTyp
+		}
+		Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) 
+	}
+	
+	Set:'IsLade&&(FoutCode="") FoutCode="GenType geen Lade"
+	Set:(SomVanAantal< 2)&&(FoutCode="") FoutCode="Klein aantal "_SomVanAantal
+	Quit FoutCode
+]]></Implementation>
+</Method>
+
 <Method name="FormateerHorolog">
 <FormalSpec>Horolog:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveVlagVelden.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveVlagVelden.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/dto/BatchNaarObjectiveVlagVelden.cls.xml	(revision 74411)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveVlagVelden">
+<Super>%SerialObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Type>%String</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="IsExport">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="vh-mes-production-plugin_export"/>
+</Property>
+
+<Property name="GebruikHalvePaletten">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="vh-mes-production-plugin_useonlyhalfpallets"/>
+</Property>
+
+<Property name="Crossdocking">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="vh-mes-production-plugin_crossdocking"/>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>BatchNaarObjectiveVlagVeldenState</State>
+<StreamLocation>^APPS.HaluxF90F.BatchNaarOb940CS</StreamLocation>
+<Data name="BatchNaarObjectiveVlagVeldenState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>IsExport</Value>
+</Value>
+<Value name="2">
+<Value>GebruikHalvePaletten</Value>
+</Value>
+<Value name="3">
+<Value>Crossdocking</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>