Exemplo pesquisa com data

[rosa]

Gostaria saber como foi feita pesquisa por data no exemplo pequei Pesquisa de Texto que o Autor é o Luis Antônio.

Achei interessante. Pesquisa estava buscando referente o calendario com datas. Gostaria de tirar dúvidas.

[rosa]

Gostaria saber como foi feita pesquisa por data no exemplo pequei Pesquisa de Texto que o Autor é o Luis Antônio.

Achei interessante. Pesquisa estava buscando referente o calendario com datas. Gostaria de tirar dúvidas.

[LUIS1361303120]

que tipo de data vc esta usando,,, se for com a classe:

TMonthCal()

eu fiz assim,, quem me ajudou e agradeco na pesquisa o Luiz Fernando da Empresoft:

variavel SELDATE := date()

oCal:= TMonthCal():New( oDlg1,400)

* oCal:bSelect := { |lChange| IF( !lChange, ( seldate:= oCal:dVar,filagend(seldate,obrw)),NIL)}

oCal:bSelect := { |lChange| IF( !lChange, ( seldate:= oCal:dVar,filagend(seldate,obrw)),;

(obrw:GoTop(),obrw:refresh() ))}

*----------------------------------

Function filagend(seldate , objeto)

Local mdata1:= seldate

if file(cdir+'\texto\'+dtos(mdata1)+'.txt')

notas := decrypt(memoread(cdir+'\texto\'+dtos(mdata1)+'.txt'))

else

notas := ''

endif

c3:varput(notas)

c3:refresh()

pesq:=space(40)

o118:varput(pesq)

o118:refresh()

dbSelectArea( "agenda" )

cChave := "'"+dtos(mdata1)+"' = dtos(data)"

agenda->(adssetaof(cchave))

objeto:refresh()

objeto:SetFocus()

agenda->(dbgotop())

return (mdata1)

uma obs: estou usando ads,,, se precisar estamos aqui

Luis Antonio

[rosa]

Oi Luis tudo bem. Já tentei usar está classe da mensagem não suporte,gostaria envia-se esta função TMonthcal() ou onde possa encontrar para testar vc me passou.