Index: vhTest/Fake/APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml	(revision 72928)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.DocumentGenerator.PickingOnderdelenNaarAssemblage">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.DocumentGenerator.PickingOnderdelenNaarAssemblage</Super>
+
+<Method name="GenereerDocument">
+<FormalSpec>CRef:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="LeesVorigBestand">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="MaakBestand">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeNieuweProducten">
+<FormalSpec>CRef:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml	(revision 0)
+++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml	(revision 72928)
@@ -0,0 +1,306 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.DocumentGenerator.PickingOnderdelenNaarAssemblage">
+<Description>
+Voor de TAX assemblage werkpost moet er voor de binnenlade, koppelstukken, bodemsteunen en frontblokken gemonteerd worden
+Deze liggen momenteel in de doorrolstelling maar moeten naar de assemblage werkpost gebracht worden.
+Om verschillende kleine pickings te vermijden word bij het klaarzetten het nog bestaande bestand weggenomen uit de pickstar map (Data\Private\ToScan) en uitgelezen
+De nieuwe pickings worden er aan toegevoegd, waarna het bestand terug geschreven wordt in de Data\FromHost</Description>
+<IncludeCode>Prod.Product</IncludeCode>
+<Super>TECH.Mockable</Super>
+
+<Parameter name="BestandsNaam">
+<Default>999999</Default>
+</Parameter>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileUtils">
+<Type>TECH.File.impl.FileUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.impl.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Cache">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</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="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FileUtils = $$$Inject(FileUtils, ##class(TECH.File.impl.FileUtils).%New())
+	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
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(APPS.Halux.PPS.DocumentGenerator.PickingOnderdelenNaarAssemblage).%New().GenereerDocument($Name(^MRPRESLog(66723,56680,"FETCH","TAX ASSEMBLAGE")))
+
+]]></Content>
+</UDLText>
+
+<Method name="GenereerDocument">
+<FormalSpec>CRef:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Exceptie As TECH.Exceptions.Exception
+	#dim FileException As TECH.Exceptions.FileException
+	#dim GeneralErrorException As TECH.Exceptions.FileException
+	#dim Omschrijving As %String
+	
+	#dim BestandNaam As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\FromHost\") _ ..#BestandsNaam_".pic"
+	#dim BestandNaamScanIn As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\Private\ScanIn\") _ ..#BestandsNaam_".pic"
+	try {
+		; nog niet verwerkte pickopdrachten terug inlezen en verwijderen
+		If ##class(TECH.File).Exists(BestandNaam) {
+			Do ..LeesVorigBestand(BestandNaam)
+			Do ..FileUtils.Delete(BestandNaam)				
+			If ##class(TECH.File).Exists(BestandNaamScanIn) {
+				Do ..FileUtils.Delete(BestandNaamScanIn)				
+			}
+		}
+		If ##class(TECH.File).Exists(BestandNaamScanIn) {
+			Do ..LeesVorigBestand(BestandNaamScanIn)
+			Do ..FileUtils.Delete(BestandNaamScanIn)				
+		}	
+		
+		
+		If ##class(TECH.File).Exists(##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp")) {
+			Do ..FileUtils.Delete(##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp"))				
+		}
+		
+		Do ..VoegToeNieuweProducten(CRef)
+		Do ..MaakBestand(BestandNaam)
+
+	} catch {
+		Set Exceptie = ##class(TECH.ExceptionHandler).Catch()
+		Set Omschrijving = "Er is een fout gebeurd bij het genereren van picking onderdelendocument voor aanleveren TAX assemblage: '" _ BestandNaam _"'. Exceptie: "_ Exceptie.ToString()
+		Set GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New(Omschrijving)
+		Do ##class(TECH.ExceptionHandler).Throw(GeneralErrorException)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="LeesVorigBestand">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set reader=##class(TECH.FileReader).%New(BestandNaam)
+	Do reader.SetDelimiter("|") 
+    Do reader.SetHeaderRow(0) 
+    Do reader.SetFirstDataRow(1) 
+    While reader.Next()
+	{
+ 		Set Aantal=reader.Column(6)
+ 		Set PRNr=reader.Column(13)
+ 		Write PRNr," ",Aantal,!
+ 		If PRNr,$D(^KPR(PRNr))
+ 		{
+	 		Set ..Cache(PRNr)=$G(..Cache(PRNr))+Aantal
+	 	}
+ 	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeNieuweProducten">
+<FormalSpec>CRef:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set PRNr="",PRNr=$O(@CRef@(PRNr))
+	While PRNr'=""
+	{
+		Set FabKey="",FabKey=$O(@CRef@(PRNr,FabKey))
+		While FabKey'=""
+		{
+			Set ..Cache(PRNr)=$G(..Cache(PRNr))+$P(@CRef@(PRNr,FabKey),"\")
+			Set FabKey=$O(@CRef@(PRNr,FabKey))
+		}
+		Set PRNr=$O(@CRef@(PRNr))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakBestand">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim  PRNr, PCDataLocatie, IdentNr, OBJTIdentNr, KortTekst, HLXLocatie, PackAmount, SourceEmpty, UserField2, UserField3, UserField4, UserField5, UserField6 As %String = ""
+	#dim PickedAmount, LaatsteProductId, Aantal, AantalVerschillendeProductenZonderLocatie As %Decimal = 0
+	#dim OrderDesc As %String = $P($zd($H,5),",")
+	#dim ToeleveringID as %Decimal =999999
+	#Dim BoxBarcode as %String = 999999
+	#dim LookupService As OBJTimpl.PM.OBJTIdentLookupService = ##class(OBJTimpl.PM.OBJTIdentLookupService).%New()
+	#dim TijdelijkeBestandNaam As %String = ##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp")
+	#dim IsTAORProductMetSpecialeRegels As %Boolean
+	
+	#dim Product As Prod.Product
+	Set AantalVerschillendeProductenZonderLocatie = 0
+	
+		try {
+			Do ..FileWriter.Open(TijdelijkeBestandNaam)
+			Set PRNr="",PRNr=$O(..Cache(PRNr))
+			While PRNr'="" {
+				Set IdentNr = ..ProductAPI.GeefIdentNummerVoorProductId(PRNr)
+				Set Aantal = ..Cache(PRNr)
+				Set BoxBarcode = "99999"					
+				Set HLXLocatie = $$$ProductGet(PRNr, $$$ControleStatus) ; herbruik van veld voor HLX Locatie
+				Set OBJTIdentNr = LookupService.GeefOBJTIdentNr(IdentNr)
+				Set OBJTIdentNr = ##class(TECH.StringUtils).Replace(OBJTIdentNr, ".", "")
+				Set Product = ##class(Prod.Product).%OpenId(PRNr)
+				Set PCDataLocatie = ..GeefPCDataLocatie(Product)
+				Set KortTekst = Product.KortTekst
+				Set PackAmount = 0
+				Set PickedAmount = 0
+				Set SourceEmpty = ""
+				Set UserField2 = PRNr
+				Set UserField3 = ""
+				Set UserField4 = ""
+				Set UserField5 = ""
+				Set UserField6 = ""
+				If $$$Not(PCDataLocatie = "") {
+					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 (PCDataLocatie = "") {
+						Do ..Logger.Info("Onbekende locatie", "Product '" _ IdentNr _"' heeft geen gekende PCData locatie voor aanleveren TAX assemblage .")
+					}
+					Set AantalVerschillendeProductenZonderLocatie = AantalVerschillendeProductenZonderLocatie + 1
+				}
+			
+				Set PRNr=$O(..Cache(PRNr))
+				
+			}
+			/*
+			If (AantalVerschillendeProductenZonderLocatie > 0) {
+				Set BoxBarcode = "99999"
+				Set OBJTIdentNr = "ZONDERLOC"
+				Set HLXLocatie = ""
+				Set KortTekst = "Zonder vaste locatie"
+				Set PackAmount = 0
+				Set PickedAmount = 0
+				Set PCDataLocatie = ..GeefZonderLocatie()
+				Set Aantal = AantalVerschillendeProductenZonderLocatie
+				Set UserField2 = ""
+				Set UserField3 = ""
+				Set UserField4 = ""
+				Set UserField5 = ""
+				Set UserField6 = ""
+				
+				Do ..FileWriter.WriteLine("P" _"|"_ $Extract(ToeleveringID,2,6) _"|"_ BoxBarcode _"|"_ OrderDesc _"|"_ PCDataLocatie _"|"_ Aantal _"|"_ PickedAmount _"|"_ PackAmount _"|"_ SourceEmpty _"|"_ OBJTIdentNr _"|"_ KortTekst _"|"_ HLXLocatie _"|"_ UserField2 _"|"_ UserField3 _"|"_ UserField4 _"|"_UserField5 _"|"_ UserField6)		
+			}*/
+			
+			Do ..FileWriter.Close()
+			Do ##class(%File).Rename(TijdelijkeBestandNaam, BestandNaam)
+		} catch {
+			Do ..FileWriter.Close()
+			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do Exceptie.Throw()
+		 }
+]]></Implementation>
+</Method>
+
+<Method name="GeefPCDataLocatie">
+<FormalSpec>Product:Prod.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PCDataLocatie As %String = ""
+	
+	#dim Locaties As %String = Product.CycleCountTypeWMS  ; Herbruik van veld voor PCData locatie
+	If Locaties[";"
+	{
+		Set PCDataLocatie = ""
+		#dim I As %Integer = 0
+		While $L($P(Locaties,";",$I(I)))
+		{
+			If $P($P(Locaties,";",I), ":") = ..GeefFamilie()
+			{
+				Set PCDataLocatie=$P($P(Locaties,";",I), ":", 2)
+			}
+		}
+	} Else {
+		Set PCDataLocatie = Locaties
+	}
+	
+	If PCDataLocatie'?1"A"2N1"_"3N
+	{
+		Set PCDataLocatie = "" ;$$GeefZonderLocatie(Familie)
+	}
+	
+	Quit PCDataLocatie
+]]></Implementation>
+</Method>
+
+<Method name="GeefZonderLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Locatie As %String = ""
+	Set Locatie = "A04_012" ; Taorbox
+
+	
+	Quit Locatie
+]]></Implementation>
+</Method>
+
+<Method name="GeefFamilie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Familie As %String = ""
+
+	Set Familie = "TAX"
+	
+	Quit Familie
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestandLocatie">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim BestandLocatie As %String
+	
+	Set BestandLocatie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Halux.PPS.DocumentGeneratorService.PickingOnderdelen.TAX")
+	
+	Quit BestandLocatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: KFLAD.mac.rou
===================================================================
diff -u -r50582 -r72928
--- KFLAD.mac.rou	(.../KFLAD.mac.rou)	(revision 50582)
+++ KFLAD.mac.rou	(.../KFLAD.mac.rou)	(revision 72928)
@@ -1,3 +1,5 @@
+#include BL.Derde.KlantSpecifiek
+
 KFLAD ;MODULE BEPALEN LEVERINGSADRES [ 05/15/2003  4:17 PM ]
  ;
  ; Als OrderObject hier niet gekend is dan zitten we in de fase van het initieren van de hoofding anders bevinden we ons in de fase
@@ -27,7 +29,8 @@
  . Set Optie="HP" If SWLA="Flow.NieuwDocHoofding",KlAdres["POSTBUS" Set Optie=Optie_"A"
  . Set:$P(LevAdr,D,19)="M" $P(LevAdr,D)="M"
  . Set Optie=Optie_"M"
- . Set R=$$SELECT^LEVADR(KLNr,Optie,$S($P(LevAdr,D,19)="M":LevAdr,1:""),"LB")
+ . If KLNr=$$$KlantHalux Set R=1 ; voor halux steeds het eerste leveringsadres nemen
+ . Else  Set R=$$SELECT^LEVADR(KLNr,Optie,$S($P(LevAdr,D,19)="M":LevAdr,1:""),"LB")
  . Quit:R=""
  . If 'R Set LevAdr=$Select($piece(R,D)="M":R,1:"")
  . Else  Do
Index: HADOPV.mac.rou
===================================================================
diff -u -r70681 -r72928
--- HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 70681)
+++ HADOPV.mac.rou	(.../HADOPV.mac.rou)	(revision 72928)
@@ -1,4 +1,5 @@
  #include BL.Derde.LevSpecifiek
+ #include BL.Derde.KlantSpecifiek
  
 HADOPV ;HALUX productie opvolging [ 07/01/2003  10:33 AM ]
  Set Batches=$$BATCHALL^HADBATCH($$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($H,"W","MD"),"W"))
@@ -194,6 +195,7 @@
 		 New ProdDueOut,Beperking
 		 Set ProdDueOut=$$DUEOUTFabKey^HAD(FabKey,1)
 		 Set Beperking=$P(LimRec,D,12)
+		 If (";"_$P(LimRec,D,14)_";")[(";"_$P(RecO,D,2)_";") Set Beperking=$P(LimRec,D,13) ; Klanten die vroeger klaargezet worden
 		 Set Chk=ProdDueOut'>Beperking
 		 If Chk,$P(Beperking,",",2),+ProdDueOut=+Beperking Set Chk=$P(ProdDueOut,",",2)'>$P(Beperking,",",2)
 	 }
@@ -945,22 +947,35 @@
  
  ; Automatisch markeren van toeleveringslijnen
 AutoMarkOn(SetBatches)
- New %SC,Beperking,Datum,DagDeel,Next
- Set Beperking=$P(LimRec,D,12),Werkdagen=2,Datum=$$CALCDATE^vhLib.DataTypes(,"A",Werkdagen),DagDeel=$E(Beperking,$L(Beperking))
+ New %SC,Beperking,Datum2,DagDeel,Next,Werkdagen,Werkdagen2
+ Set Beperking=$P(LimRec,D,12),DagDeel=$E(Beperking,$L(Beperking))
+ Set Werkdagen=1,Datum=$$CALCDATE^vhLib.DataTypes(,"A",Werkdagen)
+ ; klanten die voeger klaargezet worden
+ Set Werkdagen2=2,Datum2=$$CALCDATE^vhLib.DataTypes(,"A",Werkdagen2)
+ Set Klanten2=$$$KlantBlumPoland
+ 
  Set:Datum="" Datum=+$H Set:DagDeel="" DagDeel="N"
- Do NIEUW^vhScherm("HADOPVBEPTRM",,,,,,3,"A")
+ Do NIEUW^vhScherm("HADOPVBEPTRM",,,,,,3) ;,"A")
  If %SC {
 	 Set AutoMark=1,Batches=$G(SetBatches,"TX ;TP ")
 	 If 'Datum Set Beperking=""
-	 Else  Set Beperking=Datum_$S(DagDeel="V":",43200",1:"")
+	 Else  Set Beperking=Datum_$S(DagDeel="V":"&,43200",1:"")
+	 If 'Datum2 Set Datum2=Datum
+	 Else  Set Beperking2=Datum2_$S(DagDeel="V":",43200",1:"")
+	 
 	 Set DispMode="O"
 	 Do ##class(vhLib.Logger).%New("HADOPV").Info("Automatisch klaarzetten","Batches:"_Batches_"; klaarzetten tem datum:"_ $zd(Datum,4)_"; diff kalender dagen:"_(Datum-$H)_" ("_$$EXTDATE^vhLib.DataTypes($H,"DC")_" -> "_$$EXTDATE^vhLib.DataTypes(Datum,"DC")_"); dagdeel:"_DagDeel)
 	 
+	 Quit:Beperking="" ; zonder beperking worden alle orders in de toekomst geselecteerd en dat is veel te veel om klaar te zetten
+	 
 	 ; Nieuwe toeleveringen ophalen en activeren van de reservatie van de halffabrikaten
 	 Do REFRESH^HADSTAT2(LEVNr,"T")
 	 Do SCAN^MRPRES ;Reservatie controleren van alle producten VOOR het klaarzetten
 	
- 	 Set $P(LimRec,D,12)=Beperking,(ORDNr,TOENr,FabKeyGlobRef)=""
+ 	 Set $P(LimRec,D,12)=Beperking
+ 	 Set $P(LimRec,D,13)=Beperking2
+ 	 Set $P(LimRec,D,14)=Klanten2
+ 	 Set (ORDNr,TOENr,FabKeyGlobRef)=""
 	 Kill ^HULP(%J)
 	 Do INIT,FETCH
 	 Do MARKBEG("K")
@@ -976,6 +991,7 @@
 	 Do REFRESH
  }
  Quit
+
  
 AutoMarkOff
  Kill AutoMark
Index: APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml
===================================================================
diff -u -r72201 -r72928
--- APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 72201)
+++ APPS/Halux/PPS/DocumentGenerator/PickingOnderdelen.cls.xml	(.../PickingOnderdelen.cls.xml)	(revision 72928)
@@ -57,6 +57,44 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[
+// d ##class(APPS.Halux.PPS.DocumentGenerator.PickingOnderdelen).OpkuisPickStar()
+
+]]></Content>
+</UDLText>
+
+<Method name="OpkuisPickStar">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	Do ..OpkuisPickStarMappen(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Halux.PPS.DocumentGeneratorService.PickingOnderdelen.LBX"))
+	Do ..OpkuisPickStarMappen(##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Halux.PPS.DocumentGeneratorService.PickingOnderdelen.TAX"))
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Bestanden ouder dan 30 dagen verwijderen
+
+]]></Content>
+</UDLText>
+
+<Method name="OpkuisPickStarMappen">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BasisDir:%String</FormalSpec>
+<Implementation><![CDATA[
+	
+	#dim Dir As %String
+	Set Dir = ##class(TECH.Files).AppendSubPath(BasisDir , "\Data\FromHost\")
+	Do SCANDIR^vhDEV(Dir,"*.*",,"X",30)
+	Set Dir = ##class(TECH.Files).AppendSubPath(BasisDir , "\Data\ToHost\")
+	Do SCANDIR^vhDEV(Dir,"*.*",,"X",30)
+	Set Dir = ##class(TECH.Files).AppendSubPath(BasisDir , "\Data\Private\ScanIn\")
+	Do SCANDIR^vhDEV(Dir,"*.*",,"X",30)
+]]></Implementation>
+</Method>
+
 <Method name="GenereerDocumenten">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
@@ -72,11 +110,14 @@
 		{
 			#dim Toelevering As DOM.AKP.Toelevering = ToeleveringenIterator.Next()
 			#dim BestandNaam As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\FromHost\") _ Toelevering.GeefID()_".pic"
+			#dim BestandNaamScanIn As %String = ##class(TECH.Files).AppendSubPath(..GeefBestandLocatie() , "\Data\Private\ScanIn\") _ Toelevering.GeefID()_".pic"
 			try {
+				If ##class(TECH.File).Exists(BestandNaamScanIn) {
+					Do ..FileUtils.Delete(BestandNaamScanIn)				
+				}
 				If ##class(TECH.File).Exists(BestandNaam) {
 					Do ..FileUtils.Delete(BestandNaam)				
 				}
-				
 				If ##class(TECH.File).Exists(##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp")) {
 					Do ..FileUtils.Delete(##class(TECH.StringUtils).Replace(BestandNaam, ".pic", ".temp"))				
 				}
Index: MRPRES.mac.rou
===================================================================
diff -u -r69433 -r72928
--- MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 69433)
+++ MRPRES.mac.rou	(.../MRPRES.mac.rou)	(revision 72928)
@@ -37,6 +37,8 @@
  . Set HFPRNr=$P(HFRec,D,1)
  . Quit:('$P(^KPR(HFPRNr,2),D,15))&&($$GETSTOCK^PRODUKT4(HFPRNr,"F",,0,1)<1)  ; Werkvloer product zonder voorraad in magazijn
  . Quit:($$$ProductGet(HFPRNr,$$$WerkvloerSubMag)?1"KANBAN".E) ; Kanban niet opnemen in transferorder
+ . If HFCode?1(1"PRBOONDE.",1"PRKOPLI.",1"PRKOPRE.",1"PRFRONTB.",1"PRFB.")3N,($$PRODGRP^PRODUKT(PRNr)="TA.B"),$$IsGemonteerdeBinnenlade(PRNr) Do ;TA'OR onderdelen te monteren bij binnenlade
+ . . Set @CRef@("TAX ASSEMBLAGE",HFPRNr,FabKey)=$P(ARRec,D,2)_"\"_$P(HFRecD,D,2)
  . If $L($P($G(^KPR(HFPRNr,15)),D,5)) Do  ; Er is een herbestelpunt ingevuld daarom overlaten aan de SCAN^MRPSTOCK
  . . Set @CRef@("SCANONE",HFPRNr,FabKey)=$P(ARRec,D,2)_"\"_$P(HFRecD,D,2) ; deze moeten absoluut opgenomen worden in de SCANONE^MRPSTOCK omdat deze klaargezet is (ook al is deze meerdere dagen verder)
  . Else  If ($P(ARRec,D,6)="W")||($P(ARRec,D,6)="P")||($P(ARRec,D,6)="F") Do ; Te kort op werkvloer wordt bepaald door ACTIVERING
@@ -46,6 +48,15 @@
  . . Set:$L(HFRecD) @CRef@("TO",HFPRNr,FabKey,HFCode,"D")=HFRecD
  Quit
  
+IsGemonteerdeBinnenlade(PRNr)
+	Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()
+	Set AppsNaarEconConverter = ##class(ECONimpl.PM.Maatwerk.AppsConverter).%New()
+
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(PRNr)
+	Quit:'##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI.IsGemonteerdeLadeBepaler).%New().IsGemonteerdeLade(IngegevenKenmerken) -1
+	#dim arKenmerken As %ArrayOfDataTypes = AppsNaarEconConverter.ConverteerAppsNaarEcon(IngegevenKenmerken).ToArray()
+	Quit arKenmerken.GetAt("Data.Kenmerken.Isbinnenlade")="true"
+ 
 ONERES(CRef,FabKey,PRNr,QtyToe,Opties,Status,NoResDel) 
  ; Controle en reservatie van HFprods
  ; Status via .Local
@@ -142,7 +153,7 @@
  If $D(@CRef@("TO"))||$D(@CRef@("SCANONE")) Do
  . Set TimeStamp=$H
  . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"MARK")=@CRef
- . Do ScanVoorraadProducten^MRPSTOCK(CRef,3)
+ . Do ScanVoorraadProducten^MRPSTOCK(CRef,2)
  . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"FETCH")=@CRef
  . ;Do BalanceLiRe(CRef)
  . ;Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"BALANCE")=@CRef@("TO")
@@ -155,9 +166,11 @@
  . Merge ^MRPRESLog($P(TimeStamp,",",1),$P(TimeStamp,",",2),"MISSING")=@CRef@("MISSING")
  . If $D(@CRef@("MISSING")) Do
  . . Do ToonProductenNietInOrder($NAME(@CRef@("MISSING")))
+ . Do AddAssemblageSubMag(CRef) ; Onderdelen naar de assemblage werkpost te brengen voor TAX
+ . Kill @CRef@("TAX ASSEMBLAGE")
  Do CleanHistoriek()
  Quit
- 
+
 RETRY
 	; stap 0 : meer uitleg in documentatie bij zoektermen 'Klaarzetten en doorsturen van transferorders crashes'
 	; stap 1 : Opzoeken van de TimeStamp in MRPRESLog en hieronder de waarden 99999,99999 vervangen (uitgedrukt in $H)
@@ -177,7 +190,7 @@
 	
 	Set CRef="cache"
 	Kill cache
-	Merge @CRef=^MRPRESLog(66382,44034,"MARK") zw @CRef
+	Merge @CRef=^MRPRESLog(66778,55603,"MARK") zw @CRef
 	Do CLOSE(CRef)
 	Quit
 
@@ -203,6 +216,10 @@
 	. Kill ^MRPRESLog(Datum)
 	Quit
 	
+AddAssemblageSubMag(CRef) ; Toevoegen aan de speciale pickopdracht 999999 in Pickstar
+	Do ##class(APPS.Halux.PPS.DocumentGenerator.PickingOnderdelenNaarAssemblage).%New().GenereerDocument($Name(@CRef@("TAX ASSEMBLAGE")))
+	Quit
+	
 ToonProductenNietInOrder(OntbrekendeCRef)
  New Body,SubMag,PRNr,Aantal
  Set Body="Bij het klaarzetten werden volgende halffabrikaten niet opgenomen in een order :"
Index: vhTest/Mock/APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/DocumentGenerator/PickingOnderdelenNaarAssemblage.cls.xml	(revision 72928)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.DocumentGenerator.PickingOnderdelenNaarAssemblage">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.DocumentGenerator.PickingOnderdelenNaarAssemblage,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<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="",QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerDocument">
+<FormalSpec>CRef:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("GenereerDocument",CRef)
+]]></Implementation>
+</Method>
+
+<Method name="LeesVorigBestand">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("LeesVorigBestand",BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="MaakBestand">
+<FormalSpec>BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("MaakBestand",BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeNieuweProducten">
+<FormalSpec>CRef:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VoegToeNieuweProducten",CRef)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>