×
Linguagem de Programação ADVPL
Perguntas Filtro no MarkBrow
- claysonalves
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
10 anos 5 meses atrás #22905
por claysonalves
Filtro no MarkBrow foi criado 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
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.
- claysonalves
- Autor do Tópico
- Desconectado
- Membro Iniciado
Menos
Mais
- Postagens: 7
- Obrigados Recebidos: 0
10 anos 5 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.067 segundos