Index: PVKADLean.mac.rou
===================================================================
diff -u -r29059 -r66203
--- PVKADLean.mac.rou	(.../PVKADLean.mac.rou)	(revision 29059)
+++ PVKADLean.mac.rou	(.../PVKADLean.mac.rou)	(revision 66203)
@@ -1,6 +1,122 @@
 PVKADLean
 #include Prod.Product
- 
+#include vhLib.Macro
+
+
+zaagbatch
+	set Dev=$$OPEN^vhDEV(,"LBX plaatwissel.txt","W","T")
+	Use Dev
+	d header
+	Use 0
+	set rs =##class(%ResultSet).%New("%DynamicQuery:SQL")
+ 	Set sc = rs.Prepare("select distinct BatchID, Lijn from  APPS_Halux_PPS_Activiteit_impl_common_dto.HoffmannZaagUitvoeringInfo zui join  APPS_Halux_common_impl.BatchImpl bi on bi.id=zui.Batchid") 
+ 	If sc'=1 Do DisplayError^%apiOBJ(sc) Quit
+ 	set sc=rs.Execute()  
+ 	If sc'=1 Do DisplayError^%apiOBJ(sc) Quit
+ 	while rs.%Next() {
+	 	 Set BatchID=rs.Data("BatchID")
+	 	 Set Lijn=rs.Data("Lijn")
+	 	 Use 0
+	 	 write BatchID," "
+	 	 use Dev
+	 	 Do zaaglijst(BatchID,Lijn)
+	 }
+	Do CLOSE^vhDEV(Dev)
+	Quit
+header
+		Write "ZaagID"
+		Write *9,"Lijn"
+		Write *9,"PRNr"
+		Write *9, "KortTekst"
+		Write *9, "Categorie"
+		Write *9, "BatchID"
+		Write *9, "TOENr" 
+		Write *9, "DOSNr "
+		Write *9, "SequenceNr "
+		Write *9, "DeelAantal"
+		Write *9, "TotaalAantal "
+		Write *9, "Status "
+		Write *9,"Transferlijn"
+		Write *9,"BodemRug"
+		Write *9,"OpmetenBodem "
+
+		Write *9, "B Bewerking "
+		Write *9, "B KleurZichtbaar "
+		Write *9, "B Kleur2de"
+		Write *9, "B Hoogte "
+		Write *9, "B HoogteOms "
+		Write *9, "B Breedte "
+		Write *9, "B PlaatLengte"
+		Write *9, "B NodigePlaatLengte"
+		Write *9, "B ProductNr"
+		Write *9, "B ChangeAfter"
+		Write *9, "B LengteUntilChange"
+		
+		Write *9, "R KleurZichtbaar "
+		Write *9, "R Kleur2de"
+		Write *9, "R Hoogte "
+		Write *9, "R HoogteOms "
+		Write *9, "R Breedte "
+		Write *9, "R PlaatLengte"
+		Write *9, "R NodigePlaatLengte"
+		Write *9, "R ProductNr"
+		Write *9, "R ChangeAfter"
+		Write *9, "R LengteUntilChange"
+		Write !
+		Quit 
+zaaglijst(BatchID,Lijn)
+	Set bl=##class(APPS.Halux.PPS.TBXZaag.impl.LijstHelperVoorLBX).%New()
+	Set zaaglijst=bl.GetZaagLijst(BatchID,"")
+	Set it=##class(TECH.ListIterator).%New(zaaglijst)
+	while it.HasNext()	{
+		Set Opdracht=it.Next()
+		
+		Write Opdracht.ZaagID
+		Write *9,Lijn
+		Write *9,Opdracht.PRNr
+		Write *9, Opdracht.KortTekst
+		Write *9, Opdracht.Categorie
+		Write *9, Opdracht.BatchID
+		Write *9, Opdracht.TOENr 
+		Write *9, Opdracht.DOSNr 
+		Write *9, Opdracht.SequenceNr 
+		Write *9, Opdracht.DeelAantal
+		Write *9, Opdracht.TotaalAantal 
+		Write *9, Opdracht.Status 
+		Write *9,Opdracht.Transferlijn
+		Write *9,Opdracht.BodemRug
+		Write *9,Opdracht.OpmetenBodem 
+
+		Set dtoPlaat = Opdracht.Bodem
+		Write *9, dtoPlaat.Bewerking 
+		Write *9, dtoPlaat.KleurZichtbaar 
+		Write *9, dtoPlaat.Kleur2de
+		Write *9, dtoPlaat.Hoogte 
+		Write *9, dtoPlaat.HoogteOms 
+		Write *9, $$$ExcelNum(dtoPlaat.Breedte) 
+		Write *9, $$$ExcelNum(dtoPlaat.PlaatLengte)
+		Write *9, $$$ExcelNum(dtoPlaat.NodigePlaatLengte)
+		Write *9, dtoPlaat.ProductNr
+		Write *9, $$$ExcelNum(dtoPlaat.ChangeAfter)
+		Write *9,dtoPlaat.LengteUntilChange
+				;Write *9, dtoPlaat.ImageURL
+
+		Set dtoPlaat = Opdracht.Rug
+		Write *9, dtoPlaat.KleurZichtbaar 
+		Write *9, dtoPlaat.Kleur2de
+		Write *9, dtoPlaat.Hoogte 
+		Write *9, dtoPlaat.HoogteOms 
+		Write *9, $$$ExcelNum(dtoPlaat.Breedte) 
+		Write *9, $$$ExcelNum(dtoPlaat.PlaatLengte)
+		Write *9, $$$ExcelNum(dtoPlaat.NodigePlaatLengte)
+		Write *9, dtoPlaat.ProductNr
+		Write *9, $$$ExcelNum(dtoPlaat.ChangeAfter)
+		Write *9,dtoPlaat.LengteUntilChange
+
+		;Write *9, dtoPlaat.ImageURL
+		Write !
+	}
+	q
 test
 	Set Dev=0
 	Set Dev=$$OPEN^vhDEV(,"KAD Kenmerken.txt","W")