Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r172 -r230
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 172)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 230)
@@ -1297,14 +1297,19 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-#define StorageNodeStd(%v) ^WS.TBX.OrderD(-99,"STD",%v)
-	Quit:($G(KLNr)="") ""
-	If $$$UCase($G(GetSet))="SET" Do
-	. Set wsID=newID
-	. Set $$$StorageNodeStd(KLNr)=wsID
-	Else  Do
-	. Set wsID=$G($$$StorageNodeStd(KLNr))
-	Quit wsID
+	set OrderID = ""
+	if GetSet="GET" {
+		set rsKlantSpecifiekeStandaardLade = $$ExecDynQuery^vhQUERYLIB("SELECT OrderID FROM WS_TBX.KlantSpecifiekeStandaardLade WHERE KlantID = ?",$listbuild(KLNr))
+		while rsKlantSpecifiekeStandaardLade.Next() {
+			set OrderID = rsKlantSpecifiekeStandaardLade.Get("OrderID")
+		}
+	} else {
+		do ExecDynQuery^vhQUERYLIB("DELETE FROM WS_TBX.KlantSpecifiekeStandaardLade WHERE KlantID = ?",$listbuild(KLNr))
+		do ExecDynQuery^vhQUERYLIB("INSERT INTO WS_TBX.KlantSpecifiekeStandaardLade (KlantID , OrderID) VALUES (?,?)",$listbuild(KLNr,newID))
+		set OrderID = newID
+	}
+	
+	quit OrderID
 ]]></Implementation>
 </Method>