Index: BL/Legacy/FLOW.cls.xml
===================================================================
diff -u -r67110 -r67121
--- BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 67110)
+++ BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 67121)
@@ -93,20 +93,29 @@
 	_ " where a.JOURNALID = b.JOURNALID "
 	_ " and a.journalid = '"_JournaalId_"'"
 	
-	#dim ResultSet As TECH.ResultSet = SqlQueryConnection.GetResultSet(SqlStatement)
+	try {
+		#dim ResultSet As TECH.ResultSet = SqlQueryConnection.GetResultSet(SqlStatement)
+	}
+	Catch {
+		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New("Fout bij het ophalen van informatie van journaal '"_JournaalId_"' via AX voor de voorraadidentificatie.")
+		Do NewException.VoegToeInnerExceptie(GecatchteException)
+		Do ##class(TECH.ExceptionHandler).Throw(NewException)
+	}
 	
-	#dim ToeleveringID As %String = ..GeefIDNieuweToelevering(ResultSet)
+	#dim ToeleveringID As %String = ..GeefIDNieuweToelevering(ResultSet, JournaalId)
 	
 	Set:$$$Not(ToeleveringID=0) ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID) = "DummyWaarde"
 	
 	Do SqlQueryConnection.Disconnect()
+
 	Quit ToeleveringID
 ]]></Implementation>
 </Method>
 
 <Method name="GeefIDNieuweToelevering">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<FormalSpec>ResultSet:TECH.ResultSet,JournaalId:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -142,6 +151,7 @@
 	}
 	
 	If $IsObject($Get(Toelevering)) {
+		Do Toelevering.ZetBestelBevestigingNr(JournaalId)
 		Do Toelevering.Save()
 		Set ToeleveringID = Toelevering.GeefID()
 	}