Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml
===================================================================
diff -u -r71010 -r71083
--- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 71010)
+++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 71083)
@@ -29,13 +29,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="OnderdelenPickingUitvoeringInfoRepository">
 <Type>APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>FileUtils:TECH.File.impl.FileUtils="",FileWriter:TECH.File.FileWriter="",OnderdelenPickingUitvoeringInfoRepository:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoRepository="",ProductAPI:DOM.PM.impl.ProductAPI=""</FormalSpec>
+<FormalSpec>FileUtils:TECH.File.impl.FileUtils="",FileWriter:TECH.File.FileWriter="",OnderdelenPickingUitvoeringInfoRepository:APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoRepository="",ProductAPI:DOM.PM.impl.ProductAPI="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -45,6 +50,7 @@
 	Set ..FileWriter = $$$Inject(FileWriter, ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter())
 	Set ..OnderdelenPickingUitvoeringInfoRepository = $$$Inject(OnderdelenPickingUitvoeringInfoRepository, ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.OnderdelenPickingUitvoeringInfoRepository).%New())
 	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
+	set ..QueryAPI = $$$Inject(QueryAPI, ##class(TECH.Context).Instance().GeefQueryAPI())
 	Set ..Logger = ##class(vhLib.Logger).%New("DocumentGeneratorService")
 	
 	Quit $$$OK
@@ -128,6 +134,7 @@
 	#dim LookupService As OBJTimpl.PM.OBJTIdentLookupService = ##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
 	#dim ToeleveringID As %String = Toelevering.GeefID()	
 	#dim TijdelijkeBestandNaam As %String = ##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp")
+	#dim IsTAORProductMetSpecialeRegels As %Boolean
 	
 	#dim Product As Prod.Product
 	Set AantalVerschillendeProductenZonderLocatie = 0
@@ -157,12 +164,20 @@
 					Set UserField4 = ""
 					Set UserField5 = ""
 					Set UserField6 = ""
+					Set IsTAORProductMetSpecialeRegels = ((Categorie = ##class(APPS.Halux.common.enu.Categorie).TAORbox()) && (..IsTAORSynchronisatieStangProduct(LaatsteProductId) || ..IsTAORZijstabiliseringProduct(LaatsteProductId)))
 					
-					If $$$Not(PCDataLocatie = "") && $$$Not(HalffabIsBewerkt) {
+					If (IsTAORProductMetSpecialeRegels) {
+						If (..IsTAORSynchronisatieStangProduct(LaatsteProductId)) {
+							Set PCDataLocatie = "A04_016"
+						} ElseIf(..IsTAORZijstabiliseringProduct(LaatsteProductId)) {
+							Set PCDataLocatie = "A04_020"
+						}
 						Do ..FileWriter.WriteLine("P" _"|"_ $Extract(ToeleveringID,2,6) _"|"_ BoxBarcode _"|"_ OrderDesc _"|"_ PCDataLocatie _"|"_ Aantal _"|"_ PickedAmount _"|"_ PackAmount _"|"_ SourceEmpty _"|"_ OBJTIdentNr _"|"_ KortTekst _"|"_ HLXLocatie _"|"_ UserField2 _"|"_ UserField3 _"|"_ UserField4 _"|"_UserField5 _"|"_ UserField6)
+					} ElseIf $$$Not(PCDataLocatie = "") && $$$Not(HalffabIsBewerkt) {
+						Do ..FileWriter.WriteLine("P" _"|"_ $Extract(ToeleveringID,2,6) _"|"_ BoxBarcode _"|"_ OrderDesc _"|"_ PCDataLocatie _"|"_ Aantal _"|"_ PickedAmount _"|"_ PackAmount _"|"_ SourceEmpty _"|"_ OBJTIdentNr _"|"_ KortTekst _"|"_ HLXLocatie _"|"_ UserField2 _"|"_ UserField3 _"|"_ UserField4 _"|"_UserField5 _"|"_ UserField6)
 					} Else {
-						If $$$Not(PCDataLocatie = "") {
-						Do ..Logger.Info("Onbekende locatie", "Product '" _ IdentNr _"' heeft geen gekende PCData locatie.")
+						If (PCDataLocatie = "") {
+							Do ..Logger.Info("Onbekende locatie", "Product '" _ IdentNr _"' heeft geen gekende PCData locatie.")
 						}
 						Set AantalVerschillendeProductenZonderLocatie = AantalVerschillendeProductenZonderLocatie + 1
 					}
@@ -327,6 +342,42 @@
 	Do AansturingActie.MaakDocumentenVoorUitvoeringInfoLijst(UitvoeringInfoLijst, ToeleveringID)
 ]]></Implementation>
 </Method>
+
+<Method name="IsTAORSynchronisatieStangProduct">
+<FormalSpec>ProductId:%Decimal</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID FROM DOM_PM_Maatwerk_Calc_HF_impl_TAOR.HalffabTiponSynchronisatieStang where ProductID = " _ ProductId
+	#dim Resultaat As %Boolean = $$$False
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query)
+
+	If (ResultSet.Next()) {
+		Set Resultaat = $$$True
+	}
+	
+	Do ResultSet.Close()
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="IsTAORZijstabiliseringProduct">
+<FormalSpec>ProductId:%Decimal</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID FROM DOM_PM_Maatwerk_Calc_HF_impl_TAOR.HalffabZijstabilisering where ProductID = " _ ProductId
+	#dim Resultaat As %Boolean = $$$False
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetDynamicResultSet(Query)
+
+	If (ResultSet.Next()) {
+		Set Resultaat = $$$True
+	}
+	
+	Do ResultSet.Close()
+	
+	Quit Resultaat
+]]></Implementation>
+</Method>
 </Class>