No vídeo de hoje vamos demonstrar em como criar uma ordenação de dados de um browse ao clicar na coluna usando a classe FWBrowse.
A dúvida de hoje foi feita pelo Ricardo, onde ele perguntou como seria possível fazer uma ordenação de dados em uma dialog customizada com FWBrowse.
Então através do método SetItemHeaderClick e uma função estática que criamos chamada fOrdena, nós podemos fazer essa tratativa.
E abaixo o código fonte desenvolvido para exemplificar:
//Bibliotecas
#Include "Totvs.ch"
#Include "FWMVCDef.ch"
/*/{Protheus.doc} User Function zVid0060
Tela de Produtos
@author Atilio
@since 30/08/2022
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
User Function zVid0060()
Local aArea := FWGetArea()
Local aPergs := {}
Local xPar0 := Space(15)
Local xPar1 := StrTran(xPar0, ' ', 'Z')
//Adicionando os parametros do ParamBox
aAdd(aPergs, {1, "Produto De", xPar0, "", ".T.", "SB1", ".T.", 80, .F.})
aAdd(aPergs, {1, "Produto Até", xPar1, "", ".T.", "SB1", ".T.", 80, .T.})
//Se a pergunta for confirma, chama a tela
If ParamBox(aPergs, "Informe os parametros", , , , , , , , , .F., .F.)
fMontaTela()
EndIf
FWRestArea(aArea)
Return
/*/{Protheus.doc} fMontaTela
Monta a tela com a marcação de dados
@author Atilio
@since 30/08/2022
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
Static Function fMontaTela()
Local aArea := GetArea()
Local aCampos := {}
Local oTempTable := Nil
Local aColunas := {}
Local cFontPad := 'Tahoma'
Local oFontGrid := TFont():New(cFontPad,,-14)
Local lOk := .F.
Local bBlocoOk := {|| lOk := .T., oDlgBrowse:End()}
Local bBlocoCan := {|| lOk := .F., oDlgBrowse:End()}
Local aOutrasAc := { }
Local bBlocoIni := {|| EnchoiceBar(oDlgBrowse, bBlocoOk, bBlocoCan, , aOutrasAc)}
//Janela e componentes
Private oDlgBrowse
Private oPanGrid
Private oBrowseTmp
Private cAliasTmp := GetNextAlias()
//Tamanho da janela
Private aTamanho := MsAdvSize()
Private nJanLarg := aTamanho[5]
Private nJanAltu := aTamanho[6]
//Ordenação da tela
Private cUltOrdem := ""
Private lDescend := .F.
//Adiciona as colunas que serão criadas na temporária
aAdd(aCampos, { 'B1_COD', 'C', 15, 0}) //Código
aAdd(aCampos, { 'B1_DESC', 'C', 30, 0}) //Descrição
aAdd(aCampos, { 'B1_TIPO', 'C', 2, 0}) //Tipo
aAdd(aCampos, { 'B1_UM', 'C', 2, 0}) //Unidade Medida
//Cria a tabela temporária
oTempTable:= FWTemporaryTable():New(cAliasTmp)
oTempTable:SetFields( aCampos )
oTempTable:AddIndex("1", {"B1_COD"} )
oTempTable:AddIndex("2", {"B1_DESC"} )
oTempTable:Create()
//Popula a tabela temporária
Processa({|| fPopula()}, 'Processando...')
//Adiciona as colunas que serão exibidas no FWMarkBrowse
aColunas := fCriaCols()
//Criando a janela
oDlgBrowse := TDialog():New(0, 0, nJanAltu, nJanLarg, 'Tela para Análise de Dados', , , , , , /*nCorFundo*/, , , .T.)
//Dados
oPanGrid := tPanel():New(030, 001, '', oDlgBrowse, , , , RGB(000,000,000), RGB(254,254,254), (nJanLarg/2)-1, (nJanAltu/2 - 10))
oBrowseTmp := FWBrowse():New()
oBrowseTmp:SetDataTable()
oBrowseTmp:SetInsert(.F.)
oBrowseTmp:SetDelete(.F., { || .F. })
oBrowseTmp:SetAlias(cAliasTmp)
oBrowseTmp:DisableReport()
oBrowseTmp:DisableFilter()
oBrowseTmp:DisableConfig()
oBrowseTmp:DisableReport()
oBrowseTmp:DisableSeek()
oBrowseTmp:DisableSaveConfig()
oBrowseTmp:AddLegend(cAliasTmp + "->B1_TIPO == 'PA'", "GREEN", "Produto Acabado")
oBrowseTmp:AddLegend(cAliasTmp + "->B1_TIPO == 'PI'", "YELLOW", "Produto Intermediário")
oBrowseTmp:AddLegend(cAliasTmp + "->B1_TIPO != 'PA' .And. " + cAliasTmp + "->B1_TIPO != 'PI'", "RED", "Outros Tipos")
oBrowseTmp:SetFontBrowse(oFontGrid)
oBrowseTmp:SetColumns(aColunas)
oBrowseTmp:SetOwner(oPanGrid)
oBrowseTmp:lHeaderClick := .T.
oBrowseTmp:SetItemHeaderClick({"B1_COD", "B1_DESC"})
oBrowseTmp:Activate()
oDlgBrowse:Activate(, , , .T., , , bBlocoIni)
//Deleta a temporária e desativa a tela de marcação
oTempTable:Delete()
oBrowseTmp:DeActivate()
RestArea(aArea)
Return
/*/{Protheus.doc} fPopula
Executa a query SQL e popula essa informação na tabela temporária usada no browse
@author Atilio
@since 30/08/2022
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
Static Function fPopula()
Local cQryDados := ''
Local nTotal := 0
Local nAtual := 0
//Monta a consulta
cQryDados += "SELECT " + CRLF
cQryDados += " B1_COD, " + CRLF
cQryDados += " B1_DESC, " + CRLF
cQryDados += " B1_TIPO, " + CRLF
cQryDados += " B1_UM " + CRLF
cQryDados += "FROM " + CRLF
cQryDados += " SB1990 SB1 " + CRLF
cQryDados += "WHERE " + CRLF
cQryDados += " B1_FILIAL = '" + FWxfilial('SB1') + "' " + CRLF
cQryDados += " AND B1_COD >= '" + MV_PAR01 + "' " + CRLF
cQryDados += " AND B1_COD <= '" + MV_PAR02 + "' " + CRLF
cQryDados += " AND SB1.D_E_L_E_T_ = ' ' " + CRLF
cQryDados += "ORDER BY " + CRLF
cQryDados += " B1_COD" + CRLF
PLSQuery(cQryDados, 'QRYDADTMP')
//Definindo o tamanho da régua
DbSelectArea('QRYDADTMP')
Count to nTotal
ProcRegua(nTotal)
QRYDADTMP->(DbGoTop())
//Enquanto houver registros, adiciona na temporária
While ! QRYDADTMP->(EoF())
nAtual++
IncProc('Analisando registro ' + cValToChar(nAtual) + ' de ' + cValToChar(nTotal) + '...')
RecLock(cAliasTmp, .T.)
(cAliasTmp)->B1_COD := QRYDADTMP->B1_COD
(cAliasTmp)->B1_DESC := QRYDADTMP->B1_DESC
(cAliasTmp)->B1_TIPO := QRYDADTMP->B1_TIPO
(cAliasTmp)->B1_UM := QRYDADTMP->B1_UM
(cAliasTmp)->(MsUnlock())
QRYDADTMP->(DbSkip())
EndDo
QRYDADTMP->(DbCloseArea())
(cAliasTmp)->(DbGoTop())
Return
/*/{Protheus.doc} fCriaCols
Função que gera as colunas usadas no browse (similar ao antigo aHeader)
@author Atilio
@since 30/08/2022
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
Static Function fCriaCols()
Local nAtual := 0
Local aColunas := {}
Local aEstrut := {}
Local oColumn
//Adicionando campos que serão mostrados na tela
//[1] - Campo da Temporaria
//[2] - Titulo
//[3] - Tipo
//[4] - Tamanho
//[5] - Decimais
//[6] - Máscara
aAdd(aEstrut, { 'B1_COD', 'Código', 'C', 15, 0, ''})
aAdd(aEstrut, { 'B1_DESC', 'Descrição', 'C', 30, 0, ''})
aAdd(aEstrut, { 'B1_TIPO', 'Tipo', 'C', 2, 0, ''})
aAdd(aEstrut, { 'B1_UM', 'Unidade Medida', 'C', 2, 0, ''})
//Percorrendo todos os campos da estrutura
For nAtual := 1 To Len(aEstrut)
//Cria a coluna
oColumn := FWBrwColumn():New()
oColumn:SetData(&('{|| ' + cAliasTmp + '->' + aEstrut[nAtual][1] +'}'))
oColumn:SetTitle(aEstrut[nAtual][2])
oColumn:SetType(aEstrut[nAtual][3])
oColumn:SetSize(aEstrut[nAtual][4])
oColumn:SetDecimal(aEstrut[nAtual][5])
oColumn:SetPicture(aEstrut[nAtual][6])
//Se for o código ou descrição, adiciona a opção de clique no cabeçalho
If Alltrim(aEstrut[nAtual][1]) $ "B1_COD;B1_DESC;"
oColumn:bHeaderClick := &("{|| fOrdena('" + aEstrut[nAtual][1] + "') }")
EndIf
//Adiciona a coluna
aAdd(aColunas, oColumn)
Next
Return aColunas
Static Function fOrdena(cCampo)
Default cCampo := ""
//Pegando o Índice conforme o campo
cCampo := Alltrim(cCampo)
If cCampo == "B1_COD"
nOrder := 1
ElseIf cCampo == "B1_DESC"
nOrder := 2
EndIf
//Ordena pelo Índice
(cAliasTmp)->(DbSetOrder(nOrder))
//Se o último campo clicado é o mesmo, irá mudar entre crescente / decrescente
If cUltOrdem == cCampo
//Se esta como decrescente, ordena crescente
If lDescend
OrdDescend(nOrder, cValToChar(nOrder), .F.)
lDescend := .F.
//Se esta como crescente, ordena como decrescente
Else
OrdDescend(nOrder, cValToChar(nOrder), .T.)
lDescend := .T.
EndIf
Else
lDescend := .F.
EndIf
cUltOrdem := cCampo
fRefresh()
Return
Static Function fRefresh()
(cAliasTmp)->(DbGoTop())
oBrowseTmp:GoBottom(.T.)
oBrowseTmp:Refresh(.T.)
oBrowseTmp:GoTop(.T.)
oBrowseTmp:Refresh(.T.)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
