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

---

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/993-trabalhando-com-tabela-struct-memoria-queue/read.awp

---

---

---

---

---

---

---

Windev - Functions for managing the queues

---

---

VIDEO - QUEUES -

-----------------------------------------------------------------------------------------------------------
TableDeleteAll(TABLE_queue)
MyQueue is Queue of int
Enqueue(MyQueue, 1)
      // Enqueue
      // Enfileira um elemento em uma fila. O elemento é adicionado no fim da fila.
Enqueue(MyQueue, 2)
Enqueue(MyQueue, 3)
//
x is int
WHILE Dequeue(MyQueue, x)
    //Dequeue
    //O elemento é excluído da fila e retornado na variável especificada.
    // do primeiro ate o ultimo
    TableAdd(TABLE_queue,x)
END
TableDisplay(TABLE_queue)
 -----------------------------------------------------------------------------------------------------------
TableDeleteAll(TABLE_queue)
MyQueue is Stack of int
Push(MyQueue, 1)
      // Enqueue
      // Enfileira um elemento em uma fila. O elemento é adicionado no fim da fila.
Push(MyQueue, 2)
Push(MyQueue, 3)
x is int
WHILE Pop(MyQueue, x)
    //Dequeue
    //O elemento é excluído da fila e retornado na variável especificada.
    // do ultimo ate o primeiro
    TableAdd(TABLE_queue,x)
END
TableDisplay(TABLE_queue)
  -----------------------------------------------------------------------------------------------------------
TableDeleteAll(TABLE_queue)
MyQueue is Queue of string
Enqueue(MyQueue, "matos")
Enqueue(MyQueue, "amarildo")
x is string
WHILE Dequeue(MyQueue, x)
    TableAdd(TABLE_queue,x)
END
TableDisplay(TABLE_queue)
   -----------------------------------------------------------------------------------------------------------
TableDeleteAll(TABLE_queue)
MyQueue is Stack of string


Push(MyQueue, "matos")
Push(MyQueue, "amarildo")

x is string
WHILE Pop(MyQueue, x)
    TableAdd(TABLE_queue,x)
END

TableDisplay(TABLE_queue)