Bom dia,
Estou utilizando a função FWMBrowse para criação de uma tela de visualização de dados gerados a parte de uma tabela temporária, o objetivo é o usuário poder realizar filtro nesses dados de modo simples, utilizando a rotina padrão "Filtrar", a tela é criada porém quando clicamos em criar filtro, o sistema não abre a rotina de criação. Alguem saberia como posso habilitar a criação de filtros pelo usuário em uma rotina FWMBrowse que utiliza uma tabela temporária?
aRESULT := TCSPEXEC("USP_ANALISE_INADIMPLENCIA",DTOS(MV_PAR01),DTOS(MV_PAR02),MV_PAR03,MV_PAR04)
If Empty(aRESULT)
MsgBox("Erro na geração do arquivo excel - ERRO - "+DTOC(Date())+" - "+Time()+" - "+TcSqlError(),"Atencao!!!","STOP")
Return()
EndIf
cLISTA := AllTrim(aRESULT[1])
cQuery := "SELECT * FROM "+cLISTA+" TB1 WITH (NOLOCK) "
cAliasTRB1 := GetNextAlias()
If Select(cAliasTRB1) > 0
(cAliasTRB1)->(dbCloseArea())
EndIf
MPSysOpenQuery(cQuery,cAliasTRB1)
aAdd(aBrowse, {"Filial" , "FILIAL" , "C", 02, 0, "@!"})
aAdd(aBrowse, {"Numero NF" , "NFNUM" , "C", 30, 0, "@!"})
aAdd(aBrowse, {"Serie NF" , "NFSERIE" , "C", 03, 0, "@!"})
aAdd(aBrowse, {"Cód. Cliente" , "CLICOD" , "C", 06, 0, "@!"})
aAdd(aBrowse, {"Loja Cliente" , "CLILOJA" , "C", 02, 0, "@!"})
aAdd(aBrowse, {"Nome Cliente" , "CLINOME" , "C", 50, 0, "@!"})
aAdd(aBrowse, {"Nome Red.Cli" , "CLINREDUZ" , "C", 30, 0, "@!"})
aAdd(aBrowse, {"Parcela" , "PARCELA" , "C", 01, 0, "@!"})
aAdd(aBrowse, {"Tipo" , "TIPO" , "C", 03, 0, "@!"})
aAdd(aBrowse, {"Portador" , "PORTADOR" , "C", 03, 0, "@!"})
aAdd(aBrowse, {"Dt. Emissao" , "NFEMISSAO" , "D", 08, 0, "@D"})
aAdd(aBrowse, {"Dt. Vencto." , "VENCTO" , "D", 08, 0, "@D"})
aAdd(aBrowse, {"Dt. Venct. Real", "VENCREA" , "D", 08, 0, "@D"})
aAdd(aBrowse, {"Dt Baixa" , "BAIXA" , "D", 08, 0, "@D"})
aAdd(aBrowse, {"Valor" , "VALOR" , "N", 10, 0, "@E 9,999,999.99"})
aAdd(aBrowse, {"Saldo" , "SALDO" , "N", 10, 0, "@E 9,999,999.99"})
aAdd(aBrowse, {"Valor Liquido" , "VALLIQ" , "N", 10, 0, "@E 9,999,999.99"})
aAdd(aBrowse, {"Decrescimo" , "DECRESCIMO", "N", 10, 0, "@E 9,999,999.99"})
aAdd(aBrowse, {"Saldo Decresimo", "SLDDECRE" , "N", 10, 0, "@E 9,999,999.99"})
aAdd(aBrowse, {"Historico" , "HISTORICO" , "C", 80, 0, "@!"})
aAdd(aBrowse, {"Vendedor" , "VENDEDOR" , "C", 06, 0, "@!"})
aAdd(aBrowse, {"Perc. Comissao" , "PCOMISSAO" , "N", 10, 0, "@E 9,999,999.99"})
aAdd(aBrowse, {"Estado Cli." , "CLIEST" , "C", 02, 0, "@!"})
aAdd(aBrowse, {"Municipo Cli." , "CLIMUN" , "C", 40, 0, "@!"})
aAdd(aBrowse, {"Cond. Pgto" , "NFCONDPG" , "C", 03, 0, "@!"})
aAdd(aBrowse, {"Unid. Negocio" , "UNIDNEG" , "C", 55, 0, "@!"})
aAdd(aBrowse, {"Pedido" , "PEDIDO" , "C", 06, 0, "@!"})
SetFunName("TESS232")
aAdd(aIndex, "NFNUM" )
//Criando o browse da temporária
oBrowse := FWMBrowse():New()
oBrowse:SetAlias(cAliasTRB1)
oBrowse:SetQueryIndex(aIndex)
oBrowse:SetTemporary(.T.)
oBrowse:SetUseFilter(.T.)
oBrowse:SetFields(aBrowse)
oBrowse:DisableDetails()
oBrowse:SetDescription(cTab)
oBrowse:Activate()
SetFunName(cFunBkp)