Calendário para escolher datas

[porter]

olá pessoal,
Gostaria de implementar um calendário no sistema e poder selecionar um intervalo entre datas para usar
como filtro nos relatórios, procurei na pasta xHarbour\Exemplos, lá tem vários exemplos, mas referente a
calendário não encontrei, onde eu poderia encontrar um exemplo ?

Harbour 3.2.0dev (consoele)

[Kapiaba]

Talvez:

https://pctoledo.org/forum/viewto ... 43&t=14790

http://www.vagucs.com.br/?p=28

http://www2.unijui.edu.br/~bruno/clipper.html

[porter]

Obrigado Kapiaba.

[Kapiaba]

Porte, em for windows, você pode fazer assim:

Abs

[porter]

Olá Kapiaba,
Ainda não estou desenvolvendo for windows, estou desenvolvendo com Harbour 3.2.0dev (console),
gostaria de melhorar gradativamente a interface do sistema.
O que estou querendo no momento é informar duas datas com uma melhor aparência, ou seja período inicial e
período final usarei o intervalo entre esses dois períodos para filtrar datas para gerar relatório, não se sei tem como
fazer isso usando calendário em modo console, se você tiver alguma sugestão, te agradeço.

[Kapiaba]

Se entendi, neste caso, use o INDEX ON... FOR dDataini... dDataFin... MEMORY

browse()

Abs.

[porter]

Não é isso
Eu quero clicar em um calendário, por exemplo dia 01/05/2017 e atribuir essa data a uma variável
chamada periodoini

Quero clicar em outro calendário, e selecionar a data 31/05/2017 e atribuir essa data a uma variável
chamada periodofin
Creio que com calendário a interface do sistema, vai ficar com uma aparência melhor, não sei se tem
alguma lib que eu possa usar para fazer isso, ou algo semelhante para informar duas datas.

Harbour 3.2.0dev (console)

[JoséQuintas]

Sinceramente, estou pensando em retroceder.
Estou usando a messagebox() do Windows, e ela ficou muito chata no meu monitor.

O calendário pode acontecer a mesma coisa, mas tem o do Windows.
Só que talvez tenha que usar no mínimo a WVT que faz parte do core do Harbour.
Ou se for GTWVG, cheguei a montar algo, mas sinceramente, nem lembro mais.

Trata-se apenas de chamar o calendário do Windows.

calendario.png (8.87 KiB) Exibido 2747 vezes

[JoséQuintas]

Só o básico: criar uma janela Windows e atribuir a classe calendário do próprio Windows, a SysMonthCal32.

Código: Selecionar todos

CREATE CLASS TstMonthCalendar INHERIT tstControl

   VAR ClassName INIT "SysMonthCal32"
   VAR objType   INIT objTypeStatic
   VAR Style     INIT WIN_WS_CHILD // + MCS_NOTODAY + MCS_NOTODAYCIRCLE + MCS_WEEKNUMBERS
   METHOD create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )

   END CLASS

METHOD create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )

   aSize := { 170, 245 }
   ::tstControl:Create( oParent, oOwner, aPos, aSize, aPresParams, lVisible )

   RETURN SELF

[JoséQuintas]

Ou basta algo simples assim?

[Kapiaba]

Porter, eu faria assim, veja se te ajuda. Mesmo porquê, o calendário só confundiria o uçuário. Melhor é ele digitar a data inicial e a data final e você faz o filtro como quiser.

Abs.

[porter]

Porter, eu faria assim, veja se te ajuda. Mesmo porquê, o calendário só confundiria o uçuário. Melhor é ele digitar a data inicial e a data final e você faz o filtro como quiser.

ola Kapiaba e Quintas, obrigado por responder,
Quanto a informar a data inicial e final, tudo bem, mas eu gostaria de algo parecido com esse box que
você postou para informa as datas, entendeu, isso que eu não tenho ideia de como se faz ou se tem como
fazer algo parecido usando o harbour 3.2.0dev (console), usando uma lib grafica ou api do windows ou a
melhor forma.
Estou apenas criando um quadro e dentro informando data inicial e final, quero fazer algo mais moderno,
não sei se estou conseguindo explicar.

Obrigado.

[JoséQuintas]

Concordo com o Kapiaba.
Imagine que quer a data de 1/1/2000....
Vai ficar paginando o calendário por 17 anos.... complicado.

E quanto a tela Windows.... elas me causam raiva....
Muito melhor e mais prática uma tela simples em GTWVG.
Pode parecer piada... mas é sério...
Já pensando em retirar o uso de messagebox() do aplicativo.

Janelas é bom, mas janelinhas... é problema.

[Kapiaba]

Mister Quintas, não entendi... Porquê telas for windows causam-lhe raiva? São fáceis de fazer e lindas!!

Abs

[porter]

Aqui no fórum tem um tópico "Exemplo simples de gtwvg"

Vou compilar e ver se consigo adaptar alguma coisa em meu sistema,
nunca fiz nada com GTWVG.