Hoje vou mostrar como criar um índice decrescente de campo data utilizando FWTemporaryTable em AdvPL.

A função Descend era uma mão na roda para criar índices decrescentes com campos do tipo Data em tabelas temporárias, porém ela não funciona com o novo tipo de criação de tabela com FWTemporaryTable.

Na página oficial no TDN sobre a função Descend – https://tdn.totvs.com/pages/viewpage.action?pageId=23889338 -, tem uma observação dizendo que ela foi descontinuada. Mas então como resolver?

Obs.: Antes de começarmos, se você pode gerar a massa de dados via consulta SQL, basta usar o ORDER BY com o comando DESC, mas se não tiver como fazer isso, aí pode prosseguir com a leitura abaixo.

Existe uma forma, mas para isso, será necessário criar um índice com uma coluna numérica, que iremos chamar de XXSEQUEN. Ai quando formos popular ela, iremos gravar a diferença de dias entre a data atual, e a data de registro.

Então supondo que eu estou buscando a informação do campo E5_DATA, considerando que o dia de hoje seja 31/05/2020, eu teria o seguinte cenário:

• E5_DATA = 20200531, XXSEQUEN será 0
• E5_DATA = 20200521, XXSEQUEN será 10
• E5_DATA = 20200511, XXSEQUEN será 20
• E5_DATA = 20200501, XXSEQUEN será 30

Pronto, temos a lógica de como deve funcionar o XXSEQUEN, agora vamos colocar na prática, sendo que o primeiro passo é criar ele na estrutura de campos da temporária, e criar um índice com ele:

//Adicionando o campo XXSEQUEN na estrutura da temporaria
aAdd(aStru, {"XXSEQUEN", "N", 18, 0})
               
//Cria a Temporaria, e cria o indice 1 com o campo de sequencia
oTempTable := FWTemporaryTable():New(cAliasTmp)
oTempTable:SetFields(aStru)
oTempTable:AddIndex("1", {"XXSEQUEN"} )
 
//Por último, no carregamento da temporária, gravamos a informação necessária com o DateDiffDay
 
//Criando o registro
RecLock(cAliasTmp, .T.)
    //...
    (cAliasTmp)->XXSEQUEN := DateDiffDay(Date(), QRYSE5->E5_DATA)
(cAliasTmp)->(MsUnlock())

Agora quando formos ordenar a tabela, ela irá por esse campo numérico, e ele terá a ordem de datas “decrescente” sem usar a função Descend.

Update 13/08/2021:

O grande Thiago Andrrade ( LinkedIn ), mandou uma dica bem interessante, é possível usar a função OrdDescend (documentação do TDN), junto com uma estrutura temporária, ficaria então da seguinte forma:

//Cria a tabela temporária
oTempTable:= FWTemporaryTable():New(cAliasTmp)
oTempTable:SetFields( aCampos )
oTempTable:AddIndex("1", {"CODIGO"} )
oTempTable:Create()

//Agora quando for usar o setorder, basta usar a função OrdDescend em seguida
(cAliasTmp)->(DbSetOrder(nOrder))
OrdDescend(nOrder, cValToChar(nOrder), .T.)
(cAliasTmp)->(DbGoTop())

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheus