FiveTech Software tech support forums

... </SOAP-ENV:Body> </SOAP-ENV:Envelope> And follow the example prg trying to reach the same pattern. static procedure DOMElotech() local cXML, oDOMDocument, oXmldsig, oStore, oCertificados local nI, oCert, cSerialCert, oStoreMem cXML := '<?xml version="1.0" encoding="utf-8"?>' ...

... LOCAL cAction := "https://orbisws01.orbisfarma.com.mx/setTransactionInit" First, create a XML var .. cXML := '<?xml version="1.0" encoding="UTF-8" standalone="no"?><SOAP-ENV:Envelope '+; 'xmlns:SOAP-ENV="http://www.w3.org/2003/05/soap-envelope" ...

... 1 ) // + 1Hs Local cService := 'wsfe' // The WS service name you are asking a TA for ( "wdepmovimientos", "wsfe" ) Local cXML := '' // Variable donde Armo el XML Local cCMS := '' // Variable donde esta el XML y su Firma Electronica Local cTRA := '' // Ticket de requerimiento ...

... 1 ) // + 1Hs Local cService := 'wsfe' // The WS service name you are asking a TA for ( "wdepmovimientos", "wsfe" ) Local cXML := '' // Variable donde Armo el XML Local cCMS := '' // Variable donde esta el XML y su Firma Electronica Local cTRA := '' // Ticket de requerimiento ...

... para cargar registro de ventas desde lo xlm Extraigo la informacion con la funcion Extrae() cFileXml := op:temp+"xml\"+aDir[a][1] cXml:=MEMOREAD( cFileXml ) && lee xml tmp->( DbAppend()) tmp->voucher := a tmp->orden := "1" tmp->fecha := Extrae("cbc:IssueDate",,.F.,cXml) ...

Excuse me, I don't understand your goal well If your goal is to obtain data from a website, what do you send in cXml? ( with Post method ) and imagine that you are using SSL as it is a site that ends in "S" (httpS:) Hbtip library itself does not support https. You need ...

... from: httpcli.prg => TIPCLIENTHTTP:NEW( 96 ) Opening the object is followed by creating an XML document, and then: oHttp:open() oHttp:Post( cXml) cRet := oHttp:readAll( ) oHttp:close() Looking this up on the Forum yielded a post showing that the harbour library has been "problematic" ...

... //----------------------------------------------------------------------------// CLASS TXmlToHash DATA oRoot DATA hHash INIT { => } DATA cXml INIT "" DATA cXmlString INIT "" DATA cValString INIT "" DATA aPairsVals INIT {} DATA lRepeat INIT .F. DATA lDataNode ...

#include "FiveWin.ch"

...

cXML = StrTran( cXML, CRLF, "" )
cXML = StrTran( cXML, " ", "" )

... ) I also use from windows: iDLL := LoadLibrary( "wininet.dll" ) Then I create the XML I am going to send them. It's a string called cXML ... contains the format they want. Next, I submit it: IF .NOT. oHttp:open() MsgAlert( "Connection error:", oHttp:lastErrorMessage( ) ...

Try this:

MEMOWRIT('c:\response.xml' , cXML , .F.)

nFileHandle := FCreate( "MyDoc.xml", 0 )
// cXml would be your response from the server
FWrite( nFileHandle, cXml )
FClose( nFileHandle )

This should work ....

... Quisiera agradecer a todos los que me ayudaron y dieron sugerencias. GRACIAS !!!! Luego de agregar los CRLF faltantes del xml mediante Strtran( cxml, '><', ( '>'+CRLF+'<' ) ) todo anduvo sobre ruedas. interesante función hb_memowrit :) . El tema ha quedado resuelto no sin vuestra ...

... en Venezuela METHOD Enviarsms(cOrden,cTlf) CLASS TServicio LOCAL cMensa:="" LOCAL cHost,lRet:=.F. LOCAL oHttp,cFuncion,oError,cTextohtml,cXml,xDato,nReg:=0,nI:=0 if empty(cTlf) msgstop("No hay celular para enviar mensaje","verifique la ficha") Return Self Endif cMensa:="Informa%20=%20Se%20ha%20cargado%20la%20orden%20de%20servicio%20"+Alltrim(Oemtoansi(cOrden))+"%20"+; ...

... FUNCTION Main local dummy := SSL_Init() Local oHttp:=TIpClientHttp():new("https://www.testsource.com/1", .F. ) Local cXml := '<request>'+hB_osnewline()+; ' <newdata>' + "" + ; ' </request>'+hB_osnewline() Local cRet LOCAL oXmlDoc := TXmlDocument():new( ...