Index: UI/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r34107 -r34142
--- UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 34107)
+++ UI/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 34142)
@@ -785,6 +785,26 @@
 <SoapBodyUse>literal</SoapBodyUse>
 <Implementation><![CDATA[
 #define CRLF   $C(13,10)
+
+	Set IsProductGemaakt = $$$False
+	
+	Set $ZTRAP = "OnErrorBLCreateProduct"
+	Set IsProductGemaakt = $$cprVervolledigEnMaakProduct(.MetPrijs)
+	Set $ZTRAP = ""
+
+	Quit IsProductGemaakt
+	
+OnErrorBLCreateProduct
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Do ##class(vhLib.Logger).%New("TBX_CREATE").ErrorMail("Error CreateProduct",Exception.ToString())
+	New msg 
+	Set msg = "Fout bij het aanmaken van het product. "_$$$CRLF_Exception.GeefOmschrijving()
+	Do MApplication.MessageBox(msg,"Tandembox Create Error",$$$MBICONERROR)
+	Set IsProductGemaakt = $$$False
+	Quit IsProductGemaakt
+
+cprVervolledigEnMaakProduct(MetPrijs)
  Quit:('..BLConsistencyCheck()) 0
  Quit:('..BLUpdateFinal()) 0
  new SaveOK,blnCreateSchaduwBS