Index: BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml
===================================================================
diff -u -r63388 -r73961
--- BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 63388)
+++ BL/PPS/TBX/DocsV1/ProboxInhoudEtiketGenerator.cls.xml	(.../ProboxInhoudEtiketGenerator.cls.xml)	(revision 73961)
@@ -24,7 +24,7 @@
 </Property>
 
 <Property name="LogoBepaler">
-<Type>BL.PPS.common.impl.OnderdelendoosLogoBepaler</Type>
+<Type>BL.Flow.Levering.LabelLogoBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -33,13 +33,8 @@
 <Private>1</Private>
 </Property>
 
-<Property name="LegacyPartijAPI">
-<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI,LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,VerkoopAPI:DOM.VKP.impl.VerkoopAPI,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
+<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI="",HtmlInhoudProboxEtiketBepaler:BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler="",OrderAPI:DOM.VKP.OrderAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",VerkoopAPI:DOM.VKP.impl.VerkoopAPI="",LogoBepaler:BL.Flow.Levering.LabelLogoBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -49,15 +44,14 @@
 	Set ..HtmlInhoudProboxEtiketBepaler = $$$Inject(HtmlInhoudProboxEtiketBepaler, ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler).%New())
 	Set ..OrderAPI = $$$Inject(OrderAPI, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
 	Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
-	Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New())
 	Set ..VerkoopAPI = $$$Inject(VerkoopAPI, ##class(DOM.VKP.impl.VerkoopAPI).%New())
-	Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
+	Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerProboxInhoudEtiket">
-<FormalSpec>DnaCodeIterator:TECH.Iterator,LabelDevice:%String</FormalSpec>
+<FormalSpec>DnaCodeIterator:TECH.Iterator,LabelDevice:%String,IsVervolgEtiket:%Boolean=0</FormalSpec>
 <ReturnType>BL.Etiket.ProboxInhoud</ReturnType>
 <Implementation><![CDATA[
 	If ($$$Not(DnaCodeIterator.HasNext())) 
@@ -72,32 +66,68 @@
 	
 	#dim PalletId As %String = DnaCode.PalletCode
 	#dim ToeleveringId As %String = DnaCode.Toelevering
-	#dim KlantNummer As %String = DnaCode.KlantNummer
-	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(DnaCode.KlantNummer)
-	
+	#dim KlantId As %String = DnaCode.KlantNummer
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(KlantId)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId)
 	#dim Order as DOM.VKP.Order = ..OrderAPI.GeefOrder(DnaCode.OrderId)
-	#dim Toelevering as DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId)
+	#dim Toelevering as DOM.AKP.Toelevering = ""
+	#dim OorsprongKetting As %String = ""
+	#dim DueOutToelevering As %String = ""
 	
+	If (..ToeleveringAPI.BestaatToelevering(ToeleveringId)) {
+		Set Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringId)
+		Set OorsprongKetting = Toelevering.GeefOorsprongKetting()
+	} Else {
+		do ##class(vhLib.Logger).%New().Warning("BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator", "ProboxInhoudEtiket afgedrukt zonder opvulling van de parameter 'ProductieWeek' en 'VandaagVerzenden'.")
+	}
+	
 	Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxInhoud).%New()
  	Set ProboxInhoudLabel.Device = LabelDevice
  	
+ 	If (IsVervolgEtiket) {
+		Set ProboxInhoudLabel.Layout = "ProboxInhoud_Vervolgetiket_8x11"
+ 	}
+ 	
  	Set ProboxInhoudLabel.Aantal = 1
  	Set ProboxInhoudLabel.KlantNaam = Partij.GeefNaam()
- 	Set ProboxInhoudLabel.InhoudAlsHTML = ..HtmlInhoudProboxEtiketBepaler.BepaalHtmlInhoudProboxEtiket(DnaCodeIterator)
+ 	Set ProboxInhoudLabel.InhoudAlsHTML = ..HtmlInhoudProboxEtiketBepaler.BepaalHtmlInhoudProboxEtiket(DnaCodeIterator, IsVervolgEtiket)
  	Set ProboxInhoudLabel.PalletBarcode = PalletId
  	Set ProboxInhoudLabel.PalletBarcodeTxt = ..FormatteerPalletID(PalletId)
  	
 	Set ProboxInhoudLabel.OrderRef = Order.GeefOrderReferentie()
 	Set ProboxInhoudLabel.OrderNr = Order.GeefID()
 	Set ProboxInhoudLabel.ToeleveringNr = ToeleveringId
 	Set ProboxInhoudLabel.VerzendingWijze = Order.GeefVerzendingWijze()
-	set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(Toelevering.GeefDueOutTime(),"DW"),"/","")
+	Set ProboxInhoudLabel.KlantOrderNummer = ""
+	
+	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(APPS.ApplicatieContext).Instance().GeefOrderVerwerkingAPI().GeefKlantInstellingenService()
+	If (KlantInstellingenService.GebruiktKlantOrderNummer(Partij.GeefID())) {
+		#dim DocRef As DOM.VKP.DocumentReferenties = Order.GeefDocumentReferenties()
+		Set ProboxInhoudLabel.KlantOrderNummer = DocRef.KlantOrderNummer
+	}
+	
+	If ($IsObject(Toelevering)) {
+		Set DueOutToelevering = Toelevering.GeefDueOutTime()
+		Set ProboxInhoudLabel.ProductieWeek = $translate($$EXTDATE^vhLib.DataTypes(DueOutToelevering,"DW"),"/","")
+		
+		If (##class(TECH.DateTime).IsVandaag(DueOutToelevering)) {
+			Set ProboxInhoudLabel.VandaagVerzenden = "X"	
+		}
+	} Else {
+		Set ProboxInhoudLabel.ProductieWeek = ""
+		Set ProboxInhoudLabel.VandaagVerzenden = ""
+	}
+	
+	//Tijdelijk nog niet gebruiken
+	Set ProboxInhoudLabel.VandaagVerzenden = ""
+	
 	Set ProboxInhoudLabel.CommissieReferentie = Order.GeefCommissieReferentie()
-
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..LegacyPartijAPI.GeefKlantPartijID(KlantNummer)
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
- 	Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo(Klant)
+ 	Set ProboxInhoudLabel.Logo = ..LogoBepaler.GeefLogo(OorsprongKetting, $Piece(KlantId, "||", 2))
  	
+ 	If (IsVervolgEtiket && $$$Not(..HtmlInhoudProboxEtiketBepaler.VervolgEtiketNodig)) {
+		Set ProboxInhoudLabel = ""		
+ 	}
+ 	
  	Quit ProboxInhoudLabel
 ]]></Implementation>
 </Method>
@@ -106,7 +136,7 @@
 <FormalSpec>PalletID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $extract(PalletID,1,4)_" "_$extract(PalletID,5,8) ; formatering "AAAA AAAA"
+<Implementation><![CDATA[	quit $Extract(PalletID,1,4)_" "_$Extract(PalletID,5,9) ; formatering "AAAA AAAA"
 ]]></Implementation>
 </Method>
 </Class>