Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r296 -r319
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 296)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 319)
@@ -1838,6 +1838,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="WSOrdToAdmin">
+<Description>
+Omzetten van WSOrder data naar Offerte.Hoofding+Lijnen 
+Geeft als resultaat $LB(OffID,"") terug
+De Kenmerken en enkele properties zijn reeds ingevuld, maar de producten (GAData+KPR) zijn nog NIET berekend.</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WSOrder:%String,Opties:%String,ClientAddress:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+ Set:('$D(%ClientIP)) %ClientIP="192.168.1.97"
+ $$$blFlowOfferte
+ Set oHfd=##class(BL.EC.EDI).WSOrd2Offerte("",WSOrder)
+ Quit:('$IsObject(oHfd)) $LB("","No OffHoofd")
+ Do %blFlowOfferte.GenerateAll()
+ Set sc=%blFlowOfferte.SetOfferteStatus("W")
+ Set sc=%blFlowOfferte.Save()   ; oHfd.%Save()
+ Set lbResult=$S($$$ISERR(sc):$LB("",sc), 1:$LB(oHfd.%Id(),""))   ; $LB("",$$ParseStatus^vhLib(sc))
+ Quit lbResult
+]]></Implementation>
+</Method>
+
 <Method name="WSOrdToWWW">
 <Description>
 WSOrdToWWW stuurt een WS.TBX.Order object naar de server.