Index: zTryout/FM/HTTPPoster.cls.xml
===================================================================
diff -u -r1222 -r1958
--- zTryout/FM/HTTPPoster.cls.xml	(.../HTTPPoster.cls.xml)	(revision 1222)
+++ zTryout/FM/HTTPPoster.cls.xml	(.../HTTPPoster.cls.xml)	(revision 1958)
@@ -8,10 +8,11 @@
 <Method name="main">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set stream=##class(%FileBinaryStream).%New()
-	Set stream.Filename="\\notes01\shared\F M A\EDI_SFS_TBoxOrder_1000721.xml"
+	Set stream=##class(%FileBinaryStream).%New() 
+ //	Set stream.Filename="\\notes01\shared\F M A\EDI_SFS_TBoxOrder_1000721.xml"
+	Set stream.Filename="\\notes01\shared\F M A\EDI_TBoxOrder_1000804.xml"
 	Set poster = ..%New()
-	Set status = poster.SendToSFS(stream)
+	Set status = poster.SendToHF(stream)
 	If $$$ISERR(status) Do DecomposeStatus^%apiOBJ(status,.err,"-d") For i=1:1:err Write err(i),!
 ]]></Implementation>
 </Method>
@@ -39,5 +40,21 @@
 	Quit $S((poster.HttpResponse.StatusCode = 200): $$$OK, 1: $$$ERROR($$$GeneralError, poster.ReasonPhrase))
 ]]></Implementation>
 </Method>
+
+<Method name="SendToHF">
+<FormalSpec>stream:%AbstractStream</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set poster = ##class(%Net.HttpRequest).%New()
+	Set poster.Server="192.168.25.31"
+	Set poster.Port= 15000
+	Set poster.ContentType = "text/xml"
+	Set poster.ContentEncoding = "UTF-8"
+	Do poster.EntityBody.CopyFrom(stream)
+	Set status = poster.Post("/",2)
+	Quit:$$$ISERR(status) status
+	Quit $S((poster.HttpResponse.StatusCode = 200): $$$OK, 1: $$$ERROR($$$GeneralError, poster.ReasonPhrase))
+]]></Implementation>
+</Method>
 </Class>
 </Export>