Index: BL/Prod/OptiBox/Snijden.cls.xml
===================================================================
diff -u -r69676 -r69829
--- BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 69676)
+++ BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 69829)
@@ -617,7 +617,11 @@
 		If $$$Not(..oRequest.SnijMachineID = "VH") {
 			Set ^LogKartonOpdrachten2(..ProductIdCutRequest, "Origineel", $Increment(^LogKartonOpdrachten2)) = RequestXml
 		} Else {
-			Set ^LogKartonOpdrachtenOL(..ProductIdCutRequest, "Origineel", $Increment(^LogKartonOpdrachtenOL)) = RequestXml
+			If (..ProductIdCutRequest > 0) {
+				Set ^LogKartonOpdrachtenOL(..ProductIdCutRequest, "Origineel", $Increment(^LogKartonOpdrachtenOL)) = RequestXml
+			} Else {
+				Set ^LogKartonOpdrachtenOL($Increment(^LogKartonOpdrachtenOL), "Origineel", $Increment(^LogKartonOpdrachtenOL)) = RequestXml
+			}
 		}
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()