ProcedureWS_Android_iOs_ReadXml(XML_Retorno isstring,Xml_Atributo isstring)

//Exemplo de Uso:
// XML_Retorno is string = [
//<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
//xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
//xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
//<SOAP-ENV:Body SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"
//xmlns:NS1="urn:act297_RtPlusSSDM-IRtPlusSSDM">
//<NS1:VerificarVersaoDeTabelasResponse xmlns:NS2="urn:act297_RtPlusSSDM">
//<NS2:TVersaoTabelas id="1" xsi:type="NS2:TVersaoTabelas">
//<datHoraMotivos xsi:type="xsd:string">2013-07-11T17:15:33</datHoraMotivos>
//<qtdMotivos xsi:type="xsd:int">3</qtdMotivos>
//<datHoraCartoes xsi:type="xsd:string">2013-07-01T12:00:00</datHoraCartoes>
//<qtdCartoes xsi:type="xsd:int">6</qtdCartoes>
//<datHoraPesquisa xsi:type="xsd:string">2013-07-10T12:14:42</datHoraPesquisa>
//<qtdPesquisa xsi:type="xsd:int">4</qtdPesquisa>
//</NS2:TVersaoTabelas>
//<return href="#1"/>
//</NS1:VerificarVersaoDeTabelasResponse>
//</SOAP-ENV:Body>
//</SOAP-ENV:Envelope>
// ]
//
// Uso da Funcao:
//arrTemp is array of strings = WS_Android_iOs_ReadXml(XML_Retorno,"NS2:TVersaoTabelas")

arrXml_TagResult isarray of strings
xposicaoinicial isint=0
Xposicaofinal isint=0
X isint=0
arrXml_Tag isarray of strings

Inicial isint=PositionOccurrence(XML_Retorno,"<"+Xml_Atributo,firstRank,FromBeginning)
Final isint=PositionOccurrence(XML_Retorno,"</"+Xml_Atributo+">",lastRank,FromEnd) +Length("</"+Xml_Atributo+">")
XML_Retorno=Middle(XML_Retorno,Inicial,Final-Inicial)
XML_Retorno=Replace(XML_Retorno,Xml_Atributo,"NoXml")
XML_Retorno="<Xml><Recorte>"+XML_Retorno+"</Recorte></Xml>"

nTotalxml isint=Length(XML_Retorno)

LOOP(nTotalxml)

X++
IFxposicaoinicial=0ANDXposicaofinal=0ANDXML_Retorno[[X]] ="<"THEN
X++
IFXML_Retorno[[X]] ="/"THEN
xposicaoinicial=X+1
END
END
IFxposicaoinicial>0ANDXML_Retorno[[X]] =">"THEN
Xposicaofinal=X
END
IFXposicaofinal>0ANDxposicaoinicial>0THEN
stag isstring=Middle(XML_Retorno,xposicaoinicial,Xposicaofinal-xposicaoinicial)
IFstag="NoXml"THEN
BREAK
END
Add(arrXml_Tag,stag)
Xposicaofinal=0
xposicaoinicial=0
END

END

//iOS - Apple (iPhone / iPad / iPod)
IFIniOSMode() =TrueTHEN

NoXml isstring
i isint=1
NoXml=XMLExtractString(XML_Retorno,"NoXml",i)

FOR EACH stag OFarrXml_Tag

temp isstring=XMLExtractString(NoXml,stag)
Add(arrXml_TagResult,temp)

END

//Android
ELSE IFInAndroidMode() =True

XmlDoc isXMLDocument
XmlDoc=XMLOpen(XML_Retorno,fromString)
NoXml isxmlNode

FOR EACH NoXml OF XmlDoc.Xml.Recorte on NoXml

FOR EACHsTag OFarrXml_Tag

Add(arrXml_TagResult,NoXml..ChildNode[sTag])

END

END

END

RESULTarrXml_TagResult

IFStringCount(bufResHTTP, “ISO-8859-1”,IgnoreCase) =0THEN
sHTTPResult=UTF8ToString(bufResHTTP)
ELSE
sHTTPResult=AnsiToUnicode(bufResHTTP)
END

ProcedureWS_Android_IOS_HTTPGetResult()

// Variable
bufResHTTP is Buffer
sHTTPResult isstring

// Retrieves the result of the query
bufResHTTP=HTTPGetResult(httpResult)

// Result in UTF8 em iOS Apple
IFIniOSMode() =TrueORIniOSSimulatorMode() =TrueORIniOSEmulatorMode() =True
IFStringCount(bufResHTTP, “ISO-8859-1”,IgnoreCase) =0THEN
sHTTPResult=UTF8ToString(bufResHTTP)
ELSE
sHTTPResult=AnsiToUnicode(bufResHTTP)
END
ELSE IFInAndroidMode() =TrueORInAndroidSimulatorMode() =TrueORInAndroidEmulatorMode()=True
// Result in Android
sHTTPResult=bufResHTTP
END

RESULTsHTTPResult