Versão atual:

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)

Versão (1):

Ver a versão formatada

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

Comentário

new question