FWMBrowse não habilita o botão "Filtrar"

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)
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags fwmbrowse ou faça a sua própria pergunta.