curl -F "xml_file=@wbact.xml" [url]http://localhost:8080/opt/in/WayBillAct[/url]

tcData = [...]  && формируем xml-файл
* формируем тело запроса
CRLF = chr(13) + chr(10)
local lcBoundary, lcContent
lcBoundary = [------------f7a7d1d718464590]
lcContent = ;
    CRLF + m.lcBoundary +;
    + CRLF + [Content-Disposition: form-data; name="xml_file"; filename="wbact.xml"] ;
    + CRLF + [Content-Type: text/xml; charset=utf-8];
    + CRLF + CRLF + m.tcData ;
    + CRLF + CRLF + m.lcBoundary
* отправка запроса
oHttp=CREATEOBJECT("Msxml2.XMLHTTP" ) 
oHttp.Open( [POST], [ttp://localhost:8080/opt/in/WayBillAct], .F.) 
oHttp.setRequestHeader("Accept", "text/xml")
oHttp.setRequestHeader( "Content-Type", [multipart/form-data; boundary=] + m.lcBoundary )
oHttp.setRequestHeader( "Content-Length", len( m.lcContent ) )
oHttp.send( m.lcContent )
if oHttp.status<>200
    Обработка ошибки. Здесь я и вижу, что отправка не получилась. 
endif
cData = oHttp.ResponseBody() &&ResponseText

   Do While !m.oXMLHTTP.readyState=4  && 0/1/2/3/4 - до Open / после .Open / отправлен (Запрос был передан) / Ответ сервера принят частично / Complete-соединение закрыто  (используется только 4...)
      * Это даст возможность отработать фокс-кодам в кнопках Click и других методах, когда выполняются обороты цикла
      * Без этой команды - не будут отрабатываться
      DOEVENTS  && [FORCE] - Обеспечивает остановку выполнения программного кода Visual FoxPro пока выполняется системное событие Windows, например такое как перемещение указателя мышки.
      
      =sleep(100)  && не будем частить с опросом, дадим потоку, в котором крутится фокс, поделать что-то своё
* таймаут ожидания еще можно приделать, несколько секунд
ENDDO

* Кстати, в Open() есть еще параметры:
* [3]   - [1,T] - асинхронный запрос (см. .readyState),  0,F - синхронный запрос (ожидаем ответ сервера бесконечно)
* [4,5] - userName, password - данные для HTTP-авторизации
m.t = IIF(m.oMODA.Timeout>0, .T., .F.)  && флаг АСИНХРОННО
m.oXMLHTTP.Open(m.oMODA.Open, m.u, m.t)  && будем обмениваться с сервером, (1) - методом GET/POST, (2) - URL[?ПЗ], [3] - асинхронно, [4,5] - user,password

<A><error>null</error><ver>2</ver></A>

* Формируем тело запроса
* Вначале нужно добавить 0h 
* Строка-разграничитель должна начинаться с двух минусов "--"
* затем идет уникальный набор символов, не повторяющийся внутри данных (до 70 символов)
* затем подзаголовок блока, с обязательным параметром name - имя поля формы
* после разграничителя и строк заголовка перед данными должна быть пустая строка
* завершающий разграничитель дополняется минусами слева и справа
local lcBoundary, lcContent
lcBoundary = [------------957825eee5914fecb6d15609b790db30]
lcContent = ;
      0h   + [--] + m.lcBoundary +;
    + CRLF + [Content-Disposition: form-data; name="xml_file"; filename="wbact.xml"] ;
    + CRLF + [Content-Type: text/xml; charset=utf-8];
    + CRLF + CRLF + m.tcData ;
    + CRLF + [--] + m.lcBoundary + [--] + CRLF
* Создаем объект, устанавливаем параметры запроса, отправляем
* В данном случае используется синхронный запрос. Для асинхронного
* нужно будет организовать ожидание ответа с проверкой состояния ответа
local oHttp
oHttp=CREATEOBJECT("Msxml2.XMLHTTP" ) 
oHttp.Open( [POST], m.tcUri, .F.) 
oHttp.setRequestHeader("Accept", "text/xml")  && Это вроде не обязательно
* следующий заголовок обязательный, т.к. задает способ организации данных в запросе
oHttp.setRequestHeader( "Content-Type", [multipart/form-data; boundary=] + m.lcBoundary )
* длина тела - на всякий случай. В некоторых примерах ее не устанавливали, но, возможно, это
* скрыто внутри тех средств, которые использовали авторы
oHttp.setRequestHeader( "Content-Length", len( m.lcContent ) )
oHttp.send( m.lcContent )
if oHttp.status<>200
    * здесь обрабатываем ошибку, например, формируем исключение
    error [Status: ] + transform( oHttp.status ) + [ ] + oHttp.StatusText 
endif
* Отправка успешно завершена, сохраняем ответ сервера
lcReturnData = oHttp.ResponseBody()