Index: EWMS/Inventory.cls.xml
===================================================================
diff -u -r8070 -r12384
--- EWMS/Inventory.cls.xml	(.../Inventory.cls.xml)	(revision 8070)
+++ EWMS/Inventory.cls.xml	(.../Inventory.cls.xml)	(revision 12384)
@@ -512,6 +512,7 @@
  If InventoryID="" Do    ;Opgegeven Pallet met Sectie bestaat NIET, maak een nieuwe aan: *** CREATE ***
  . If '##class(EWMS.Inventory).New(LocID,Sectie,Product,,,,.InventoryID,SQLGCWrapper) Do  Quit
  ..  Set Status=$LB(-3,"Kan geen nieuw Inventory object aanmaken (LocID: "_LocID_", Sectie: "_Sectie_", Product: "_Product_").")
+ . Do WLIP^vhDBG(127,"EWMS.Inventory : Before %OpenId("_InventoryID_")")
  . Set InventoryObj=##class(EWMS.Inventory).%OpenId(InventoryID)
  . If InventoryObj=$$$NULLOREF Do  Quit
  ..  Set Status=$LB(-5,"Kan zonet gecreëerd Inventory object met ID '"_InventoryID_"' niet openen.")
@@ -732,29 +733,42 @@
  "insert_time,loc_m,qty_pcs,qty_in_box,qty_res,qty_block,reason_block,reservator,exp_day,last_cycle_count,pcs_vol,pcs_weight,pcs_price,box_vol,box_weight,box_price,is_full) VALUES "_
  "(?,?,?,?,?,?,0,0,0,0,0,'','','','','','','','','','',0,0,0,0,0,0,0,0,0,0,?,0,0,0,0,0,'',0,'0000-00-00-00.00.00.000000','0000-00-00-00.00.00.000000',0,0,0,0,0,0,0)"
 
- //Prepare SQL
- Quit:('SQLGCWrapper.Prepare(SQL)) 0
+ If 'SQLGCWrapper.Prepare(SQL) Do  Quit 0
+ . Do ..LogError("New","Prepare niet gelukt.")
 
- //Decribe parameters, worden dan gebruikt bij Bind ParametersSQLGCWrapper..
- Quit:('SQLGCWrapper.DescribeParameters()) 0
+ If 'SQLGCWrapper.DescribeParameters() Do  Quit 0
+ . Do ..LogError("New","DescribeParameters niet gelukt.")
 
- //Bind Parameters
- Quit:('SQLGCWrapper.BindParameters()) 0
+ If 'SQLGCWrapper.BindParameters() Do  Quit 0
+ . Do ..LogError("New","BindParameters niet gelukt.")
 
- //Parameters invullen
- Quit:('SQLGCWrapper.SetParameter(1,LocID)) 0
- Quit:('SQLGCWrapper.SetParameter(2,Sectie)) 0
- Quit:('SQLGCWrapper.SetParameter(3,ProductNr)) 0
- Quit:('SQLGCWrapper.SetParameter(4,Batch)) 0
- Quit:('SQLGCWrapper.SetParameter(5,Quality)) 0
- Quit:('SQLGCWrapper.SetParameter(6,Owner)) 0
- Quit:('SQLGCWrapper.SetParameter(7,$$GetEWMSInsertTime^vhLib())) 0
 
- //Execute SQL
- Quit:('SQLGCWrapper.Execute()) 0
+ If 'SQLGCWrapper.SetParameter(1,LocID) Do  Quit 0
+ . Do ..LogError("New","SetParameter 1 niet gelukt.")
+ 
+ If 'SQLGCWrapper.SetParameter(2,Sectie) Do  Quit 0
+ . Do ..LogError("New","SetParameter 2 niet gelukt.")
+ 
+ If 'SQLGCWrapper.SetParameter(3,ProductNr) Do  Quit 0
+ . Do ..LogError("New","SetParameter 3 niet gelukt.")
+ 
+ If 'SQLGCWrapper.SetParameter(4,Batch) Do  Quit 0
+ . Do ..LogError("New","SetParameter 4 niet gelukt.")
+ 
+ If 'SQLGCWrapper.SetParameter(5,Quality) Do  Quit 0
+ . Do ..LogError("New","SetParameter 5 niet gelukt.")
+ 
+ If 'SQLGCWrapper.SetParameter(6,Owner) Do  Quit 0
+ . Do ..LogError("New","SetParameter 6 niet gelukt.")
+ 
+ If 'SQLGCWrapper.SetParameter(7,$$GetEWMSInsertTime^vhLib()) Do  Quit 0
+ . Do ..LogError("New","SetParameter 7 niet gelukt.")
 
- //UnBind Params
- Quit:('SQLGCWrapper.UnBindParameters()) 0
+ If 'SQLGCWrapper.Execute() Do  Quit 0
+ . Do ..LogError("New","Execute niet gelukt.")
+ 
+ If 'SQLGCWrapper.UnBindParameters() Do  Quit 0
+ . Do ..LogError("New","UnBindParameters niet gelukt.")
 
  //ID teruggeven
  Set:($D(CreatedID)) CreatedID=##class(EWMS.Inventory).ComposeID(LocID,Sectie,ProductNr,Batch,Quality,Owner)
@@ -764,6 +778,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LogError">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Method:%String,Melding:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	 Set Message = ##class(%GlobalCharacterStream).%New()
+	 Do Message.WriteLine(Melding)
+	 Do Message.WriteLine($$GetStackToString^vhLib())
+	 Do ##class(vhLib.Logger).%New("EWMS.Inventory").ErrorMail(Method,Message)
+]]></Implementation>
+</Method>
+
 <Method name="QGetLocationsForProdClose">
 <ClassMethod>1</ClassMethod>
 <CodeMode>code</CodeMode>