Index: BL/Prod/OptiBox/Diverse.cls.xml
===================================================================
diff -u -r2589 -r2692
--- BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 2589)
+++ BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 2692)
@@ -6,7 +6,6 @@
 <IncludeCode>BL.Prod.OptiBox,Prod.Product,TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,TECH.Error.ErrorAdaptor</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="HasOptiData">
 <ClassMethod>1</ClassMethod>
@@ -48,7 +47,7 @@
 	; via boxdata
 	&sql(DECLARE OptiDataDisplay CURSOR FOR 
 	  Select  CASE WHEN OptiType is null then Meta->OptiType else OptiType end, MaxCombinAantal
-      into :OptiType, :MaxCombin from Prod.Optibox_BoxData where ObjType="PR" and ObjRef=:PRNr and AantalExec<>-99)
+      into :OptiType, :MaxCombin from Prod.Optibox_BoxData where ObjType='PR' and ObjRef=:PRNr and AantalExec<>-99)
 	&sql(OPEN OptiDataDisplay)
 	Set String=""
  	For  &sql(FETCH OptiDataDisplay) Quit:SQLCODE  Do
@@ -122,7 +121,7 @@
 	Set Result=BasisRef
 	Set Cnt=0
 	&sql(DECLARE CalcCarboardUse CURSOR FOR 
-	Select BoxSelect,SnijHistoriek->CardboardProduct,SnijHistoriek->CardboardBreedte,SnijHistoriek->Lengte,SnijHistoriek,Aantal,SnijMachineID into :BoxSelect,:CardPRNr,:Breedte,:Lengte,:HistID,:Aantal,:SnijMachineID from prod.OptiBox_Snijdata where (Reference %STARTSWITH :BasisRef) and (Status="F") )
+	Select BoxSelect,SnijHistoriek->CardboardProduct,SnijHistoriek->CardboardBreedte,SnijHistoriek->Lengte,SnijHistoriek,Aantal,SnijMachineID into :BoxSelect,:CardPRNr,:Breedte,:Lengte,:HistID,:Aantal,:SnijMachineID from prod.OptiBox_Snijdata where (Reference %STARTSWITH :BasisRef) and (Status='F') )
 	&sql(OPEN CalcCarboardUse)
  	For  &sql(FETCH CalcCarboardUse) Quit:SQLCODE  Do
  	. Set Result($i(Cnt))=$LB(BoxSelect,CardPRNr,Aantal,Lengte,Breedte,HistID,SnijMachineID)
@@ -195,7 +194,7 @@
    	Set EndMnd=$$EXTDATE^vhDTyp($H,"DM4")_" "
 
 	&SQL(DECLARE ExportProdData CURSOR FOR 
-	   SELECT %ID INTO PRNr FROM Prod.Product WHERE KortTekst Like "OL.%")
+	   SELECT %ID INTO PRNr FROM Prod.Product WHERE KortTekst Like 'OL.%')
    	&sql(OPEN ExportProdData)
    	
    	Set Dev=$$OPEN^vhDEV(,"OptiBoxData.txt","W")
@@ -209,7 +208,7 @@
  	. Set Found=0
  	. Set PRBSCnt=$$CalcPRBSQty(PRNr)
  	. &SQL(DECLARE OptiData CURSOR FOR 
-	  SELECT ID INTO :ID FROM Prod.OptiBox_BoxData WHERE ObjType="PR" and ObjRef=:PRNr)
+	  SELECT ID INTO :ID FROM Prod.OptiBox_BoxData WHERE ObjType='PR' and ObjRef=:PRNr)
    	. &sql(OPEN OptiData)
  	. For  &sql(FETCH OptiData) Quit:SQLCODE  Do
  	. . Set oBoxData=##class(DS.Prod.OptiBox.BoxData).%OpenId(ID)