Procedure WS_Taxi_Disponivel_New(LOCAL DebugSN)

//Posicao do Taxi

ok, bRet is boolean = False

nRetornoCodigo is int = 0

nContador is int = 0

sCodClienteCelula is string = ""

XML_Retorno is string = ""

LocSt_TaxisLogados is ST_TaxisLogados

XML_Retorno = ws_mobile_consultar_posicoes_taxis(2912,9949,"SELECT") // executa webservice e pega retorno

IF DebugSN = "S" THEN
fSaveText("c:\posicao.txt",XML_Retorno)
END

XML_Retorno = WS_RemoveAcentos(XML_Retorno)////////////////////// ponto de entrada do codigo ios

//<Xml>
// <Retorno>
// <NoXml id="1">
// <ide_priori_cadast>0</ide_priori_cadast>
// <num_unidad>2</num_unidad>
// <val_latitu>-25.404832</val_latitu>
// <val_longit>-49.270872</val_longit>
// </NoXml>
// <NoXml id="2">
// <ide_priori_cadast>0</ide_priori_cadast>
// <num_unidad>3</num_unidad>
// <val_latitu>-25.387466</val_latitu>
// <val_longit>-49.24594</val_longit>
// </NoXml>
// </Retorno>
//</Xml>


ok = False

IF Length(XML_Retorno) > 0 THEN

ArrayDeleteAll(arr_TaxisLogados) // limpa array

IF IniOSMode() = True THEN
/////////////////////////////////////////////////////////////

NoXml is string

i is int = 1

LOOP

NoXml = XMLExtractString(XML_Retorno,"NoXml",i)

IF NoXml = "" THEN
BREAK
END

LocSt_TaxisLogados.ST_ID = XMLExtractString(NoXml,"num_unidad")
LocSt_TaxisLogados.ST_Latitude = XMLExtractString(NoXml,"val_latitu",1)
LocSt_TaxisLogados.ST_Longitude = XMLExtractString(NoXml,"val_longit",1)
LocSt_TaxisLogados.ST_Situacao = XMLExtractString(NoXml,"ide_priori_cadast",1)

arr_TaxisLogados[LocSt_TaxisLogados.ST_ID] = LocSt_TaxisLogados

nContador ++

i++

ok = True

END//loop

ELSE IF InAndroidMode() = True

//<Xml>
// <Retorno>
// <NoXml id="1">
// <ide_priori_cadast>0</ide_priori_cadast>
// <num_unidad>2</num_unidad>
// <val_latitu>-25.404832</val_latitu>
// <val_longit>-49.270872</val_longit>
// </NoXml>
// <NoXml id="2">
// <ide_priori_cadast>0</ide_priori_cadast>
// <num_unidad>3</num_unidad>
// <val_latitu>-25.387466</val_latitu>
// <val_longit>-49.24594</val_longit>
// </NoXml>
// </Retorno>
//</Xml>


//Aqui é a definição de ler o xml e pegar os dados de cada taxi

//Leitura do xml
XmlDoc is XMLDocument

//Carrega o retornoc ajustado em um XmlDoc é uma string tomando formado de xml em um xmlDoc
XmlDoc = XMLOpen(XML_Retorno, fromString)

//Define o Nó Raiz de leitura - onde comeca e termina cada taxi a ser lido
NoXml is xmlNode

//Leitura do xml em loop--- aqui que o bicho pega e começa a ler
FOR EACH NoXml OF XmlDoc.Xml.Retorno on NoXml

//incluir registros na queue/
IF NoXml.num_unidad <> Null AND NoXml.val_latitu <> Null AND NoXml.val_longit <> Null THEN


ok = True

nContador += 1

LocSt_TaxisLogados.ST_ID = NoXml.num_unidad
LocSt_TaxisLogados.ST_Latitude = NoXml.val_latitu
LocSt_TaxisLogados.ST_Longitude = NoXml.val_longit
LocSt_TaxisLogados.ST_Situacao = NoXml.ide_priori_cadast


//incluir - Add in Queue - incluir registro na queue // struct de memoria // tabela de memoria
arr_TaxisLogados[LocSt_TaxisLogados.ST_ID] = LocSt_TaxisLogados

END

END

END

END

//retorno da funcao é deu certo ou deu errado com true ou false
IF DebugSN = "S" THEN
Info("Qtde de Taxis Disponiveis:",nContador)
END

RESULT(ok)