FWTemporaryTable - Índice decrescente.
1. Criar a tabela com um campo adicional. Exemplo, SEQUEN
aAdd(aCampos, { 'SEQUEN', 'C', 10, 0}) //Produto
oTempTable:= FWTemporaryTable():New(cAliasTmp)
oTempTable:SetFields( aCampos )
oTempTable:AddIndex("1", {"SEQUEN"} )
2. Na query, faça sua ordenação. Exm: "ORDER BY XXX_MEUCAMPO DESC"
3. Popule o campo da tabela. Exm:
Local cI := '00'
Do While !RODANDO_QUERIE->( EOF() )
cI := Soma1(cI)
RecLock(MINHA_TAB_TEMPORARIA, .T.)
(MINHA_TAB_TEMPORARIA)->SEQUEN := cI
(MINHA_TAB_TEMPORARIA)->( MsUnlock() )
RODANDO_QUERIE->( dbSkip() )
EndDo
4. FIM
Gostou? Compartilhe com seus amigos e deixe um comentário! 😎
Um abraço, e até a próxima