× Linguagem de Programação ADVPL

Perguntas Filtro no MarkBrow

Mais
10 anos 6 meses atrás #22905 por claysonalves
Pessoal estou precisando de ajuda, estou desenvolvendo um MarkBrow entretanto previso filtrar pela data de vencimento o qual o usuário passa por parâmetro, coloquei o filtro tratei o campo mas nao filtra simplesmente.

Alguém pode me ajudar....

User Function BXAUTO()

Local cFiltro := ""
Local aIndSE2 := {}

Private bFiltraSE2 := {|| Nil}
PRIVATE aCores := {}
PRIVATE aRotina:= {}
AADD(aRotina,{"Pesquisar" ,"AxPesqui" ,0,1})
AADD(aRotina,{"Legenda" ,"u_LegPgto" ,0,1})
AADD(aRotina,{"Visualizar Titulo" ,"" ,0,2})
AADD(aRotina,{"Cancelar Baixar" ,"" ,0,3})
AADD(aRotina,{"Baixar" ,"U_BXPGTO()" ,0,4})

AADD(aCores,{"SE2->E2_SALDO<>E2_VALOR" ,"BR_AMARELO" })
AADD(aCores,{"SE2->E2_SALDO==E2_VALOR" ,"BR_VERDE" })

Pergunte("PBXAT", .T.)
dbSelectArea("SE2")
dbSetOrder(3)

cFiltro := "DTOS(SE2->E2_VENCREA) >= '"+dtos(MV_PAR01)+"' .AND. DTOS(SE2->E2_VENCREA) <='"+dtos(MV_PAR02)+"' "
bFiltraSE2 := {|| FilBrowse("SE2",@aIndSE2,@cFiltro)}
Eval(bFiltraSE2)
//SET FILTER TO SE2->(ctod(E2_VENCTO))$'20140526'//&(cFiltro)

MarkBrow("SE2","E2_ZZOK","",,.F.,GetMark(,"SE2","E2_ZZOK"),,,,,,,,,aCores)

EndFilBrw("SE2",aIndSE2)
Return

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 6 meses atrás #22910 por claysonalves
Respondido por claysonalves no tópico Filtro no MarkBrow
Conseguir resolver o filtro estava correto, apenas estava com dados desatualizados na base teste, e eu estava comparando com base oficial.

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.096 segundos
Joomla templates by a4joomla