DEFINE mr_tela RECORD
data_exemplo DATE
END RECORD
#---------------------# FUNCTION LDateField()#---------------------#
DEFINE l_dialog_reference
VARCHAR(10)
DEFINE l_datefield_reference VARCHAR(10)
LET l_dialog_reference = _ADVPL_create_component(NULL,"LDIALOG")
CALL _ADVPL_set_property(l_dialog_reference,"SIZE",160,120)
CALL _ADVPL_set_property(l_dialog_reference,"TITLE","Ex.: LDATEFIELD")
CALL _ADVPL_set_property(l_dialog_reference,"BACKGROUND_COLOR",210,210,210)
LET l_datefield_reference = _ADVPL_create_component(NULL,"LDATEFIELD",l_dialog_reference)
CALL _ADVPL_set_property(l_datefield_reference,"POSITION",05,05)
CALL _ADVPL_set_property(l_datefield_reference,"VARIABLE",mr_tela,"data_exemplo")
LET l_datefield_reference = _ADVPL_create_component(NULL,"LDATEFIELD",l_dialog_reference)
CALL _ADVPL_set_property(l_datefield_reference,"BUTTON",FALSE)
CALL _ADVPL_set_property(l_datefield_reference,"POSITION",05,30)
CALL _ADVPL_set_property(l_datefield_reference,"VARIABLE",mr_tela,"data_exemplo")
CALL _ADVPL_set_property(l_dialog_reference,"MAXIMIZED",FALSE)
CALL _ADVPL_set_property(l_dialog_reference,"ACTIVATE",TRUE) END FUNCTION |