Hi,
For the datepiker class not easily use as normal get,could get /button /btnget call a datepicker calendar like function for choose?
Regards!
Shuming Wang
STAT FUNC Set_Date()
LOCAL oDlg, oGet, lChg:=.F.
LOCAL aRec, dDate:=Date()
DEFINE DIALOG oDlg RESOURCE "SET_DATE" FONT oApp:oFont
REDEFINE DTPICKER oGet VAR dDate ID 10 OF oDlg ;
ON CHANGE oGet:Refresh()
REDEFINE BUTTON ID 20 OF oDlg ACTION (lChg:=.T.,oDlg:End())
REDEFINE BUTTON ID 30 OF oDlg ACTION (lChg:=.F.,oDlg:End()) CANCEL
ACTIVATE DIALOG oDlg
IF lChg
SetDate(Day(dDate),Month(dDate),Year(dDate))
ENDIF
RETURN (NIL)SET_DATE DIALOG 18, 37, 201, 108
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Data di lavoro"
FONT 8, "MS Sans Serif"
{
PUSHBUTTON "&Conferma", 20, 89, 87, 48, 13
PUSHBUTTON "&Annulla", 30, 152, 87, 46, 13
GROUPBOX "", 105, 3, 0, 195, 79, BS_GROUPBOX
LTEXT "Il cambio della data di lavoro può semplificarle alcuni ", -1, 11, 10, 179, 8
LTEXT "processi, registrazione dei dati o stampe dei tabulati.", -1, 11, 18, 179, 8
LTEXT "La nuova data rimarrà attiva fino a che non la si cambierà dal sistema.", -1, 11, 30, 179, 23
CONTROL "", 10, "SysDateTimePick32", 0 | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 13, 55, 81, 14
}No, this is not what I wanted, for the datepicker 'get' class not works as well as normal tget class.
I want use normal tget to get a date var, and could call a calendar browser.
Redefine get date1 id 101 of odlg valid ( date1:=browse-canlendar(date1),.t.)
redefine btnget obtnget102 var date2 id 102 of odlg action (date2:=browse-canlendar(date1))
Thank you!
Shuming Wang
*-----------------*
Procedure ViewTrns
local oDlg, oBtn, oGet, oSay
local dDate
DEFINE DIALOG oDlg RESOURCE 'VIEWTRN' TITLE TE('à ÃÕ¡´ÙÃÒ¡Òúѹ·Ö¡','View Transaction') ;
FONT MEMVAR->oFont
oDlg:lHelpIcon := .F.
dDate := date()
REDEFINE SAY oSay PROMPT 'Date' ID 201 OF oDlg COLORS 'W+/RB'
REDEFINE BTNGET oGet VAR dDate OF oDlg ID 101 ACTION MsgDate2(oGet[5],dDate)
REDEFINE SBUTTON oBtn ID 11 ;
RESOURCE 'FIND1', 'FIND1', 'FIND3', 'FIND4' ;
PROMPT TE('¤é¹ËÒ','&Find') ;
ACTION (TrnList(oGet, oDlg,rtrim(cTrn),rtrim(cRefer),nAmt,nCash,dDate), oGet[1]:SetFocus()) ;
COLOR {|oBtn| If( oBtn:lMouseOver, CLR_YELLOW, CLR_BLACK ) } ;
TEXT ON_BOTTOM
ACTIVATE DIALOG oDlg ON INIT (oDlg:Move( MEMVAR->TopWin,MEMVAR->LeftWin)) RESIZE16
return