×
Linguagem de Programação ADVPL
Perguntas Inserir campo de Data em Tela
9 anos 2 meses atrás #27442
por Vitor
Inserir campo de Data em Tela foi criado por Vitor
Olá boa tarde a todos.
Sou iniciante em programação ADVPL e gostaria de uma ajuda.
Preciso inserir um campo data aonde o usuário possa selecionar ou digitar a data.
Estive verificando no Protheus e como padrão ele tem este campo com um calendário que é otimo. Mas estou tendo dificuldade em saber como cria-lo.
Desde de já agradeço a ajuda de todos.
Segue em anexo o modelo do que pretendo fazer.
Sou iniciante em programação ADVPL e gostaria de uma ajuda.
Preciso inserir um campo data aonde o usuário possa selecionar ou digitar a data.
Estive verificando no Protheus e como padrão ele tem este campo com um calendário que é otimo. Mas estou tendo dificuldade em saber como cria-lo.
Desde de já agradeço a ajuda de todos.
Segue em anexo o modelo do que pretendo fazer.
8 anos 9 meses atrás #28801
por arthurfragoso
Respondido por arthurfragoso no tópico Inserir campo de Data em Tela
Tenta isso aqui 
tdn.totvs.com/pages/viewpage.action?pageId=6063346
tdn.totvs.com/pages/viewpage.action?pageId=6063346
#include "Protheus.ch"
User Function TGet()
DEFINE DIALOG oDlg TITLE "HowTo TGet com Botões" FROM 180,180 TO 550,700 PIXEL
// Atente para o parâmetro HASBUTTON, que é o
// responsábel pela utilização dos botões
// Get com botão de Calendário
// Repare que o tipo do data é DATA
dData := ctod("01/01/08")
@ 01,01 MSGET oData VAR dData ;
PICTURE "@D" SIZE 50, 10 OF oDlg PIXEL HASBUTTON
// Get com botão de Calculadora
// Repare que o tipo do data é NUMÉRICO
nValue = 123.45
@ 14,01 MSGET oData VAR nValue;
PICTURE "@E 999,999.99" SIZE 50, 10 OF oDlg PIXEL HASBUTTON
// Get com botão de Pesquisa
// OBS: O botão de pesquisa é habilitado quando for
// definido um F3 para o TGet, neste exemplo foi usado o SA1
cData := Space(06)
@ 28,01 MSGET oData VAR cData F3 "SA1";
PICTURE "@!" SIZE 50, 10 OF oDlg PIXEL HASBUTTON
ACTIVATE DIALOG oDlg CENTERED
Return
Tempo para a criação da página:0.225 segundos