Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r44080 -r44314
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 44080)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 44314)
@@ -68,10 +68,14 @@
 		If $IsObject(Resultaat.Exceptie) {
 			Do ..VerstuurMail("", Resultaat.Exceptie.ToString())
 		} Else {
-			#dim BestelReferentie As %String = "ref1"
-			#dim AdminOrderId As %String = "nnn"
+			#dim BestelReferentie As %String = Order.OrderReferentie
 			Set VerwerkteOrderInfo = ##class(%ArrayOfDataTypes).%New()
-			;Do VerwerkteOrderInfo.SetAt(BestelReferentie,AdminOrderId)
+			If $$$HasLength(Resultaat.OfferteID) {
+				Do VerwerkteOrderInfo.SetAt(BestelReferentie,Resultaat.OfferteID)
+			}
+			If $$$HasLength(Resultaat.OfferteIDTBX) {
+				Do VerwerkteOrderInfo.SetAt(BestelReferentie,Resultaat.OfferteIDTBX)
+			}
 			Do ..VerstuurMail(VerwerkteOrderInfo,"")
 		}
 	}
@@ -116,7 +120,7 @@
 		While VerwerkteOrderInfoIterator.HasNext() {
 			#dim BestelReferentie As %String = VerwerkteOrderInfoIterator.Next()
 			#dim AdminOrderId As %String = VerwerkteOrderInfoIterator.Key()
-			Set Inhoud = Inhoud _ $$$CRLF _ " - Order " _ AdminOrderId _ " :  ref. '" _ BestelReferentie _ "'"
+			Set Inhoud = Inhoud _ $$$CRLF _ " - Offerte " _ AdminOrderId _ " :  ref. '" _ BestelReferentie _ "'"
 		}
 	}
 	Do Mail.ZetInhoud(Inhoud)