Index: APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml
===================================================================
diff -u -r2466 -r2575
--- APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml	(.../Opdracht.cls.xml)	(revision 2466)
+++ APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml	(.../Opdracht.cls.xml)	(revision 2575)
@@ -3,6 +3,7 @@
 <Class name="APPS.Halux.PPS.TBXZaag.dto.Opdracht">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="ZaagID">
 <Type>%Integer</Type>
@@ -73,6 +74,8 @@
 </Property>
 
 <Property name="PrintXML">
+<Description>
+not used</Description>
 <Type>%String</Type>
 </Property>
 
@@ -93,8 +96,6 @@
 	Set:$isObject(..Bodem) BodemKey=..Bodem.GetPlaatKey()
 	Set:$isObject(..Rug) RugKey=..Rug.GetPlaatKey()
 	Quit BodemKey_"/"_RugKey
-
-
 ]]></Implementation>
 </Method>
 
@@ -116,14 +117,13 @@
 	Set dtoOpdracht.KlantNaam=Queue.Klant.Naam
 	Set dtoOpdracht.PRNr=Queue.Product.%Id()
 	Set dtoOpdracht.KortTekst=Queue.Product.KortTekst
-	;w dtoOpdracht.PRNr," ", dtoOpdracht.KortTekst,! r k w !
 	
 	Set dtoOpdracht.TOENr=Queue.TOENr
 	Set dtoOpdracht.DOSNr=Queue.DOSNr
 	Set dtoOpdracht.SequenceNr=Queue.Sequence
 	Set dtoOpdracht.DeelAantal=Queue.DeelAantal
 	Set dtoOpdracht.TotaalAantal=Queue.TotaalAantal
-	Set dtoOpdracht.Status="W" ;ZaagOpdracht.Status - tijdelijk PV tijdens testen
+	Set dtoOpdracht.Status="W" ;ZaagOpdracht.Status ;- tijdelijk PV tijdens testen
 	Set dtoOpdracht.BodemRug=ZaagOpdracht.BodemRug
 	Set dtoOpdracht.Titel=$CASE(ZaagOpdracht.BodemRug,##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug():"Bodem en rug",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem():"Bodem",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug():"Rug",:"*** Special ***")
 	; plaatmateriaal
@@ -145,8 +145,6 @@
 	}
 	
 	Quit dtoOpdracht
-
-
 ]]></Implementation>
 </Method>
 
@@ -156,8 +154,6 @@
  Set List=$LB(..ZaagID,..PRNr,..KortTekst,..BatchID,..SubBatch,..KlantNaam,..TOENr,..DOSNr,..SequenceNr,..DeelAantal,..TotaalAantal,..Status,..Transferlijn,..BodemRug,..Titel,..Opmerking1,..Opmerking2,..PrintXML,..OpmetenBodem)
  Set List=List_..Bodem.BuildList()_..Rug.BuildList()
  Quit List
-
-
 ]]></Implementation>
 </Method>
 </Class>