Index: BL/Etiket/TBXProboxOverdoos.cls.xml
===================================================================
diff -u
--- BL/Etiket/TBXProboxOverdoos.cls.xml	(revision 0)
+++ BL/Etiket/TBXProboxOverdoos.cls.xml	(revision 2024)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.Etiket.TBXProboxOverdoos">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>BL.Sys.pxLabel</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Formaat">
+<Default>5x10</Default>
+</Parameter>
+
+<Parameter name="Layout">
+<Default>TBXProboxOverdoos</Default>
+</Parameter>
+
+<Property name="KlantNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="Logo">
+<Type>%String</Type>
+</Property>
+
+<Property name="PalletBarcode">
+<Type>%String</Type>
+</Property>
+
+<Property name="PalletBarcodeTxt">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderRef">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderNr">
+<Type>%String</Type>
+</Property>
+
+<Method name="WriteRow">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#define TAB 	$char(9)
+	#define CRLF 	$char(13,10)
+	
+	write ..Logo,$$$TAB
+	write ..KlantNaam,$$$TAB
+	
+	write ..PalletBarcodeTxt,$$$TAB
+	write ..PalletBarcode,$$$TAB
+	
+	write ..OrderRef,$$$TAB
+	write ..OrderNr,$$$TAB
+	
+	write $$$CRLF
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..Layout = ..#Layout_" "_..#Formaat
+	quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2023 -r2024
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2023)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2024)
@@ -1497,19 +1497,22 @@
 <FormalSpec>Toelevering</FormalSpec>
 <Implementation><![CDATA[
  	Set blLabelPrinter=##class(BL.Sys.LabelPrinter).%New()
- 	set pxLabel = ##class(BL.PPS.TBX.sub.pxLabelOverdoosProbox).%New()
- 	set pxLabel.Layout = "OverdoosProbox5x10"
- 	Set pxLabel.Device=..LabelKlantDevice
+ 	set Label = ##class(BL.Etiket.TBXProboxOverdoos).%New()
+ 	Set Label.Device=..LabelKlantDevice
  	
- 	set Klant = Toelevering.GeefOrder().GeefKlant()
+ 	set Order = Toelevering.GeefOrder()
+ 	set Klant = Order.GeefKlant()
  	
  	set PalletID = ..GeefNieuwPalletID(##class(BL.PPS.TBX.enu.PalletEtiketType).Probox())
- 	set pxLabel.PalletBarcode = PalletID
- 	set pxLabel.PalletBarcodeTxt = ..FormatteerPalletID(PalletID)
+ 	set Label.PalletBarcode = PalletID
+ 	set Label.PalletBarcodeTxt = ..FormatteerPalletID(PalletID)
  	
- 	set pxLabel.Aantal = ..BepaalProboxAantal(Toelevering)
+ 	set Label.OrderRef = Order.GeefKlantReferentie()
+ 	set Label.OrderNr = Order.GeefOrderNr()
+ 	
+ 	set Label.Aantal = ..BepaalProboxAantal(Toelevering)
 
- 	do blLabelPrinter.PrintDirect2Bartender(pxLabel)
+ 	do blLabelPrinter.PrintDirect2Bartender(Label)
  	
  	quit
 ]]></Implementation>
@@ -1585,7 +1588,6 @@
 <Method name="PalletEtiketOne">
 <FormalSpec>Type:BL.PPS.TBX.enu.PalletEtiketType="SFS"</FormalSpec>
 <Implementation><![CDATA[
-	
 	if '##class(BL.PPS.TBX.enu.PalletEtiketType).IsValidDT(Type) {
 		set Execption = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Type _" is geen geldig PalletEtiketType")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
FishEye: Tag 2024 refers to a dead (removed) revision in file `BL/PPS/TBX/sub/pxLabelOverdoosProbox.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?