Index: BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml
===================================================================
diff -u -r1133 -r2662
--- BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml	(.../DocDwarsverdelingLijst.cls.xml)	(revision 1133)
+++ BL/PPS/TBX/DocDwarsverdelingLijst.cls.xml	(.../DocDwarsverdelingLijst.cls.xml)	(revision 2662)
@@ -66,12 +66,12 @@
 		Set SorteerVan = 1
 		Set SorteerTot = Document.GeefKolom(1).Count()
 		
-		Do Document.VoegLijnToe("\\\\\\","\")
-		Do Document.VoegLijnToe("\\\\\\","\")
-		Do Document.VoegLijnToe("\\\\\\LEGENDE","\")
-		Do Document.VoegLijnToe("\\\\\\","\")
-		Do Document.VoegLijnToe("\\\\\\ M = Montage           ","\")
-		Do Document.VoegLijnToe("\\\\\\ P = Picking onderdelen","\")
+		Do Document.VoegLijnToe("\\\\\\\","\")
+		Do Document.VoegLijnToe("\\\\\\\","\")
+		Do Document.VoegLijnToe("\\\\\\\LEGENDE","\")
+		Do Document.VoegLijnToe("\\\\\\\","\")
+		Do Document.VoegLijnToe("\\\\\\\ M = Montage           ","\")
+		Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\")
 	
 		Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),6,SorteerVan,SorteerTot)
 	}
@@ -85,14 +85,16 @@
 <Implementation><![CDATA[
 	Set Uitvoer = $Select(TandemBox.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade():"M",1:"P")
 	Set Bevestiging = $Select(TandemBox.BevatReling():"Reling",1:"Boxside")
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 
 	Do Document.GeefKolom(1).Insert($Extract(QueueItem.TOENr,4,6)_":"_QueueItem.DOSNr)
-	Do Document.GeefKolom(2).Insert(DwarsverdelingBouwsteen.Aantal * QueueItem.TotaalAantal)
+	Do Document.GeefKolom(2).Insert(DwarsverdelingBouwsteen.Aantal * QueueItem.TotaalAantal * 20)
 	Do Document.GeefKolom(3).Insert($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",DwarsverdelingBouwsteen.KindProduct.%Id(),"Kleur")))
 	Do Document.GeefKolom(4).Insert(DwarsverdelingBouwsteen.DimensieNetto)
 	Do Document.GeefKolom(5).Insert($Piece(##class(DOM.PM.enu.Variant).LogicalToDisplay(TandemBox.GeefVariant())," ",2))	
 	Do Document.GeefKolom(6).Insert(Uitvoer)
 	Do Document.GeefKolom(7).Insert(Bevestiging)
+	Do Document.GeefKolom(8).Insert(ProductAPI.GeefProduct(DwarsverdelingBouwsteen.KindProductGetObjectId()).GeefKorttekst())
 ]]></Implementation>
 </Method>
 </Class>
Index: BL/PPS/TBX/LijstDefinities/DwarsverdelingLijstDefinitie.cls.xml
===================================================================
diff -u -r1133 -r2662
--- BL/PPS/TBX/LijstDefinities/DwarsverdelingLijstDefinitie.cls.xml	(.../DwarsverdelingLijstDefinitie.cls.xml)	(revision 1133)
+++ BL/PPS/TBX/LijstDefinities/DwarsverdelingLijstDefinitie.cls.xml	(.../DwarsverdelingLijstDefinitie.cls.xml)	(revision 2662)
@@ -15,12 +15,13 @@
 	
 	// maak kolommen aan
 	Set Kolom1 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Toe:Dos",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Links())
-	Set Kolom2 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Aant",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom2 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("# ",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
 	Set Kolom3 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Kleur",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
 	Set Kolom4 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Lengte",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
 	Set Kolom5 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Variant",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts()) 
 	Set Kolom6 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("^",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
-	Set Kolom7 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Bevestiging",25,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom7 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Type   ",,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
+	Set Kolom8 = ##class(TECH.Print.Kolommen.KolomDefinitie).%New("Korttekst",25,##class(TECH.Print.Kolommen.TekstType).String(),##class(TECH.Print.Kolommen.TekstUitlijning).Rechts())
 	
 	// verwijdert eventuele oude definities
 	Do DocumentType.ClearDocument()
@@ -33,6 +34,7 @@
 	Do DocumentType.VoegKolomDefinitieToe(Kolom5)
 	Do DocumentType.VoegKolomDefinitieToe(Kolom6)
 	Do DocumentType.VoegKolomDefinitieToe(Kolom7)
+	Do DocumentType.VoegKolomDefinitieToe(Kolom8)
 	
 	// sla het documenttype op
 	Do DocumentType.SaveDocument()
Index: vhDeploy/CSC/Deploy20111104x1034.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111104x1034.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111104x1034.cls.xml	(revision 2662)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111104x1034">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Dwarsverdelinglijst updaten</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	d ##class(BL.PPS.TBX.LijstDefinities.DwarsverdelingLijstDefinitie).MaakDocument()
+]]></Implementation>
+</Method>
+</Class>
+</Export>