rosa Posted October 4, 2009 Report Share Posted October 4, 2009 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. Quote Link to comment Share on other sites More sharing options...
rosa Posted October 4, 2009 Author Report Share Posted October 4, 2009 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. Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted October 4, 2009 Report Share Posted October 4, 2009 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 Quote Link to comment Share on other sites More sharing options...
rosa Posted October 5, 2009 Author Report Share Posted October 5, 2009 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.