No Android vamos faze leitura destes dados gravando-os numa tabela SQLite. Para entender a aplicação, veja a imagem_105. Vamos analisar o código contido no botão "Rotas".
NextTitle("Confirmação")
SWITCH Dialog("Você deseja importar o cadastro das rotas de coleta?")
CASE 1
sUrl is string
sRetorno is string
sErro is string
nQtde is int
nRota is int
sDescricao is string
sParte is string
sUrl = gsServidor + "/android/teste.php?param=" & gnTransportadora
IF HTTPRequest(sUrl,"","","","",gsUsuario,gsSenha) THEN
sRetorno = HTTPGetResult()
IF (Length(sRetorno) = 0) THEN
sErro = HTTPGetResult(httpHeader)
NextTitle("Erro")
Error(sErro)
ELSE
nQtde = StringCount(sRetorno,"|")
sRetorno = Middle(sRetorno,1,Length(sRetorno)-1)
FOR ALL CadRotas
PROGBAR_Dados ++
HDelete(CadRotas)
END
FOR i = 1 TO nQtde
sParte = ExtractString(sRetorno,i,"|")
nRota = ExtractString(sParte,1,"*")
sDescricao= ExtractString(sParte,2,"*")
CriaRota(nRota,sDescricao)
END
NextTitle("Sucesso")
Info("Foram importadas " + nQtde + " rotas para o transportador " + gnTransportador)
END
END
END
PROCEDURE CriaRota(pRota,pDescricao)
HReset(CadRotas)
CadRotas.Rota = pRota
CadRotas.Descricao = pDescricao
HAdd(CadRotas)