Index: CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u -r734 -r994
--- CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 734)
+++ CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 994)
@@ -1,11 +1,11 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:55">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-30 13:20:23">
 <Class name="CHUI.Prod.ProductLabel">
 <Description>
 d ##class(CHUI.Derde.Fax.InkomendeFaxen).RaadpleegLijst()</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>61849,40496.101647</TimeChanged>
+<TimeChanged>62180,48023.816674</TimeChanged>
 <TimeCreated>60158,64600.462905</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -30,49 +30,21 @@
 </Parameter>
 
 <Parameter name="BlumLayout">
-<Default>Product verpak Blum</Default>
+<Default>Product verpak Blum 5x10</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-//"Product verpak Blum 5x10";
-
-]]></Content>
-</UDLText>
-
 <Parameter name="VHLayout">
-<Default>Product verpak VH</Default>
+<Default>Product verpak VH 5x10</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-//"Product verpak VH 5x10";
-
-]]></Content>
-</UDLText>
-
 <Parameter name="RecuPackLayout">
-<Default>Recupack VH</Default>
+<Default>Recupack VH 8x11</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-//"Recupack VH 8x11";
-
-]]></Content>
-</UDLText>
-
 <Parameter name="HaluxMagLayout">
-<Default>Magazijn Halux</Default>
+<Default>Magazijn Halux 6x10</Default>
 </Parameter>
 
-<UDLText name="T">
-<Content><![CDATA[
-//"Magazijn Halux 6x10";
-
-]]></Content>
-</UDLText>
-
 <Method name="DoOne">
 <Description>
 d ##class(CHUI.Prod.ProductLabel).DoOne(450661)
@@ -300,9 +272,9 @@
 	Set ..pxLabel=##class(CHUI.Prod.sub.pxProductLabel).%New()
 	Set ..pxLabel.Taal="N"
 	Set ..pxLabel.ProductNaam=..Product.KortTekst
-	Set ..pxLabel.Omschrijving1=..Product.Tekst.Bestelreferentie1
-	Set ..pxLabel.ProductNaam2=..Product.Tekst.Bestelreferentie2
-	Set ..pxLabel.Omschrijving2=..Product.Tekst.Bestelreferentie3
+	Set ..pxLabel.Omschrijving1=..HistpakPalletInfo(1)
+	Set ..pxLabel.ProductNaam2=..HistpakPalletInfo(2)
+	Set ..pxLabel.Omschrijving2=..HistpakPalletInfo(3)
 	Set ..pxLabel.ImgURL="c:\bartender\images\logo\Logo VHZwart.svg"
 	Set ..pxLabel.VerpakAantal="Retour ecopacks to Blum"
 	Set ..pxLabel.StockCode="VAN HOECKE NV"
@@ -324,6 +296,23 @@
 	Set ..pxLabel.Aantal=2 ; voor en achterkant rek
 ]]></Implementation>
 </Method>
+
+<Method name="HistpakPalletInfo">
+<Description>
+Blum recupak retour uit ^HISTPAK("P")</Description>
+<FormalSpec>Lijn</FormalSpec>
+<Implementation><![CDATA[
+	Set lbHistpak=^HISTPAK("P",..Product.%Id())
+	If Lijn=1 Set HistpakPalletInfo=$LI(lbHistpak,2) Set:$LI(lbHistpak,3) HistpakPalletInfo=$LI(lbHistpak,3)_" x "_HistpakPalletInfo
+	If Lijn=2 {
+		Set ProductPrijs=##Class(Prod.ProductPrijs).%OpenId(..Product.%Id())
+		Set VerpakkingsProduct=ProductPrijs.VerpakkingsProduct.ProductNr
+		Set:VerpakkingsProduct HistpakPalletInfo=##class(Prod.Product).%OpenId(VerpakkingsProduct).KortTekst
+	}
+	If Lijn=3 Set HistpakPalletInfo=$LI(lbHistpak,4)
+	Quit $G(HistpakPalletInfo)
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1520080514"/>
+<Checksum value="3952225544"/>
 </Export>