>lcUserName = "MyUserName" >lxmlObj.Send( "UserName="+lcUserName ) >>
>>local lcURL, lxmlObj, lcResponse >>lcURL = "http://balblabla" >>lxmlObj = CreateObject("Microsoft.XMLHTTP") >>lxmlObj.Open( "POST", lcURL, .F. ) >>** depending on the xml data passed later on, you may need: >>lxmlObj.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") >>***** >>lxmlObj.Send( "UserName="+TheUserNameComesHere ) >>lxmlObj.Send( "PassWord="+Passwordcomeshere ) >>lcResponse = lxmlObj.ResponseText >>>>
>>>SOAP Request over HTTP Transport >>> >>>POST /Realtime/services/realtime HTTP/1.0 >>>Content-Type: text/xml; charset=utf-8 >>>Accept: application/soap+xml, application/dime, multipart/related, text/* >>>User-Agent: Axis/1.0 >>>Host: teligibility.transactions.mckhboc.com >>>Cache-Control: no-cache >>>Pragma: no-cache >>>SOAPAction: "" >>>Content-Length: 888 >>>Authorization: Basic d2Vic2VydmljZTpTb2FwVXNlcjE= >>> >>><?xml version="1.0" encoding="UTF-8"?> >>><soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" >>>xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema- >>>instance"> >>> >>> <soapenv:Body> >>> <ns1:submitRealtimeRequest soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" >>>xmlns:ns1="urn:realtime"> >>> <request xsi:type="xsd:string">ISA*00* *00* *ZZ*123456 *ZZ*MCKESSON_TSH >>> *031013*1636*U*00401*000000001*0*T*:~GS*HS*123456CM*MMOSCC*20031013*1636*000000001*X*004010X092~ST*270* >>>000000001~BHT*0022*13*200112141357*20011214*1357*~HL*1**20*1~NM1*PR*2******PI*MMOSCC~HL*2*1*21*1~NM1*1P >>>*2******SV*EXG033~HL*3*2*22*0~NM1*IL*1~REF*HJ*1234567890~DTP*472*RD8*20030101-20030101~EQ*30~SE*12*0000 >>>00001~GE*000001*000000001~IEA*00001*000000001~</request> >>> </ns1:submitRealtimeRequest> >>> </soapenv:Body> >>></soapenv:Envelope> >>>