Windev21 Aulas,Estudos e Desenvolvimento: WX - Trabalhando com Tabela Struct em Memória (QUEUE)

sábado, 27 de fevereiro de 2016

WX - Trabalhando com Tabela Struct em Memória (QUEUE)

EXEMPLO DE TABELA DE MEMORIA - STRUCT - QUEUE
STDadosDaFrete is structure
bDadosatualizados is boolean
bDadosValidos is boolean
sStatusFrete is string
sDataHoraAceite is string
sDataHoraCancelamento is string
nMatricula is int
sNomeCarroceiro is string
nNumCarroca is int
nNumCarroca is int
sPlaca is string
sMarca is string
sModelo is string
pPosicaoCarroca is geoPosition
sMsgCarroca is string
END

FreteAtualtemp is STDadosDaFrete

IF XML_Retorno <> ""
FreteAtualtemp.sStatusFrete = Busca_Tag_Xml(XML_Retorno,"Situacao")
FreteAtualtemp.nNumRt = Busca_Tag_Xml(XML_Retorno,"NumCarroca")
FreteAtualtemp.nNumAt = Busca_Tag_Xml(XML_Retorno,"NumCarroceiro")
FreteAtualtemp.sPlaca = Busca_Tag_Xml(XML_Retorno,"PlacaCarroca")
FreteAtualtemp.nMatricula = Busca_Tag_Xml(XML_Retorno,"Matricula")
FreteAtualtemp.sNomeCarroceiro = Busca_Tag_Xml(XML_Retorno,"Nome")
FreteAtualtemp.sDataHoraAceite = Busca_Tag_Xml(XML_Retorno,"DataAceite")
FreteAtualtemp.sDataHoraCancelamento = Busca_Tag_Xml(XML_Retorno,"DataCancelamento")
FreteAtualtemp.sMsgTaxi = Busca_Tag_Xml(XML_Retorno,"Mensagem")
FreteAtualtemp.pPosicaoRT.Latitude = Busca_Tag_Xml(XML_Retorno,"Latitude")
FreteAtualtemp.pPosicaoRT.Longitude = Busca_Tag_Xml(XML_Retorno,"Longitude")
FreteAtualtemp.pPosicaoRT.Speed = Busca_Tag_Xml(XML_Retorno,"VelocidadeCarroca")
FreteAtualtemp.bDadosValidos = True

END

RESULT(FreteAtualtemp)

ST_CarrocasLogados is structure
ST_ID is string // id do Carroca
ST_Latitude is real // latitude onde esta o Carroca
ST_Longitude is real // longitude onde esta o Carroca
ST_Situacao is string // status se esta disponivel ou nao
END

arr_CarrocasLogados is associative array (ccIgnoreCase + ccIgnorePonctuationAndSpace) of ST_CarrocasLogados

FOR EACH LocSt_CarrocasLogados OF arr_CarrocasLogados

IF LocSt_CarrocasLogados.ST_Situacao > 0 THEN

nContador += 1
MarcadorCarrocas(LocSt_CarrocasLogados.ST_ID,
LocSt_CarrocasLogados.ST_Latitude,
LocSt_CarrocasLogados.ST_Longitude,
LocSt_CarrocasLogados.ST_Situacao)

END