Index: BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml
===================================================================
diff -u -r68391 -r69248
--- BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68391)
+++ BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 69248)
@@ -8,19 +8,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="ToeleveringService">
 <Type>DOM.AKP.impl.ToeleveringService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductApi:DOM.PM.impl.ProductAPI="",ToeleveringService:DOM.AKP.impl.ToeleveringService=""</FormalSpec>
+<FormalSpec>ProductApi:DOM.PM.impl.ProductAPI="",ToeleveringService:DOM.AKP.impl.ToeleveringService="",OrderApi:DOM.VKP.OrderAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..ProductApi = $$$Inject(ProductApi,##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
 	Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())
 	
 	Quit $$$OK
@@ -39,7 +45,7 @@
 	
 	Set ProboxBarcodeLabelLijst = ##class(%ListOfDataTypes).%New()
  	
- 	#dim GesorteerdeDnaCodeIterator As TECH.ListIterator = ..GeefGesorteerdeDnaCodeIterator(DnaCodeIterator)
+ 	#dim GesorteerdeDnaCodeIterator As TECH.ListIterator = ..GeefGesorteerdeDnaCodeIteratorMetLijnReferenties(DnaCodeIterator)
  	#dim DnaCode As DOM.Halux.AAP.DnaCode = GesorteerdeDnaCodeIterator.Next()
  	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode
  	
@@ -86,18 +92,17 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefGesorteerdeDnaCodeIterator">
+<Method name="GeefGesorteerdeDnaCodeIteratorMetLijnReferenties">
 <FormalSpec>DnaCodeIterator:TECH.ListIterator</FormalSpec>
 <ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
-	#dim Product As DOM.PM.Product
  	Set DnaCodeLijst = ##class(%ListOfDataTypes).%New()
  	
  	While DnaCodeIterator.HasNext() {
 	 	Set DnaCode = DnaCodeIterator.Next()
 	 	Set DnaCode.LijnReferentie = ..GeefLijnReferentie(DnaCode)
-	 	
+		
 	 	Do DnaCodeLijst.Insert(DnaCode)
  	}
  	
@@ -137,13 +142,24 @@
 <Method name="GeefLijnReferentie">
 <FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(DnaCode.ProductNummer)
-	#dim ToeleveringId As %String = DnaCode.Toelevering
- 	#dim LijnReferentie = ..ToeleveringService.GeefLijnReferentie(ToeleveringId, Product.GeefID())
- 	
- 	Quit LijnReferentie
+	#dim LijnReferentie As TECH.String
+	
+	If (DnaCode.OrderlijnId = "") {
+		 	#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(DnaCode.ProductNummer)
+			Set LijnReferentie = ..ToeleveringService.GeefLijnReferentie(DnaCode.Toelevering, Product.GeefID())
+		} Else {
+			#dim Order As DOM.VKP.Order = ..OrderApi.GeefOrder(DnaCode.OrderId)
+			#dim OrderLijn As DOM.VKP.ProductOrderlijn = Order.GeefOrderLijn(DnaCode.OrderlijnId)
+			Set LijnReferentie = OrderLijn.GeefProjectReferentie()
+		}
+		
+		If (LijnReferentie = "") {
+			Set LijnReferentie = "GeenReferentie" // JLM - hier is nog geen vertaling bij, mocht dit ooit nodig zijn
+		}
+	
+	Quit LijnReferentie
 ]]></Implementation>
 </Method>
 </Class>