fijate que estoy usando BTNGET y tengo un problema que no le entiendo mucho
cuando le doy clik al iconito del calendario sale muy bien pero cuando le doy click en donde se cambia el año se truena y me sale un error 
.Application
===========
Path and name: C:\FWH\promotoria\ALTAS.Exe (32 bits)
Size: 2,386,432 bytes
Time from start: 0 hours 0 mins 10 secs
Error occurred at: 07/03/2007, 17:50:49
Error description: Error BASE/1004 Class: NIL has no exported method: SETFOCUS
Args:
Stack Calls
===========
Called from SETFOCUS(0)
Called from (b)FWCALENDAR(115)
Called from (b)SPINNER(1351)
Called from __EVAL(0)
Called from TSCROLLBAR:GODOWN(0)
Called from TWINDOW:VSCROLL(2061)
Called from TWINDOW:HANDLEEVENT(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from _FWH(3109)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from FWCALENDAR(182)
Called from (b)FOOL(2017)
Called from (b)DEFAULT(126)
Called from TBTNBMP:CLICK(0)
Called from TBTNBMP:CLICK(72)
Called from TBTNBMP:LBUTTONUP(0)
Called from TCONTROL:HANDLEEVENT(0)
Called from TCONTROL:HANDLEEVENT(0)
Called from _FWH(3109)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from FOOL(2088)
Called from ALTASINO(904)
Called from (b)MAIN2(538)
Called from TBTNBMP:CLICK(0)
Called from TWINDOW:LBUTTONUP(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from _FWH(3109)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from MAIN2(686)
Called from (b)MAIN(211)
Called from (b)ADDITEM(189)
Called from TBTNBMP:CLICK(0)
Called from TWINDOW:LBUTTONUP(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from _FWH(3109)
Called from WINRUN(0)
Called from TWINDOW:ACTIVATE(878)
Called from MAIN(272)
ya revise el FWCAL.PRG y el problema esa en esta parte pero no le entiendo muy bien
REDEFINE COMBOBOX aObj[ 2 ] VAR cMonth ID 101 ITEMS aMonth OF oDlg ;
ON CHANGE ( nMonth := AScan( aMonth, cMOnth ), ;
fActMonth( aSay, cSay ) )
REDEFINE GET aObj[3] VAR nYear ID 102 OF oDlg PICTURE "@K 9999";
SPINNER ON UP ( ++nYear, aObj[ 3 ]:Refresh(), fActMonth( aSay, cSay ), ;
aObj[ 5 ]:SetFocus() ) ;
ON DOWN ( --nYear, aObj[ 3 ]:Refresh(), fActMonth( aSay, cSay ), ;
aObj[ 5 ]:SetFocus() )
aObj[ 3 ]:bGotFocus := { |x| x:Selectall() }
aObj[3]:bLostFocus := { |x| fActMonth( aSay, cSay ), ;
aObj[ 5] :SetFocus() } //---- esta es la linea
115//************************
a si lo tengo en mi programa
cVigencia1 := DATE()
cVigencia2 := DATE()
REDEFINE BTNGET oGet VAR cVigencia1 ID 101 OF oFld:aDialogs[ 2 ] RESOURCE "Calen" SPINNER;
ON UP (++cVigencia1,oGet:Refresh()) ON DOWN (--cVigencia1,oGet:Refresh());
ACTION (aRect := GetCoors(oGet:hWnd),;
cVigencia1 := FwCalendar(cVigencia1,aRect[1],aRect[4],oDlg),;
oGet:Refresh())
REDEFINE BTNGET oGett VAR cVigencia2 ID 102 OF oFld:aDialogs[ 2 ]RESOURCE "Calen" SPINNER;
ON UP (++cVigencia2,oGett:Refresh()) ON DOWN (--cVigencia2,oGett:Refresh());
ACTION (aRect := GetCoors(oGett:hWnd),;
cVigencia2 := FwCalendar(cVigencia2,aRect[1],aRect[4],oDlg),;
oGett:Refresh())
me podrias ayudar es que me gusto mucho y quisiera poder usar este calendario
Saludos
Aida
me podrias prestar la BTNGET32.LIB que tienes tu 
a ver si me funcionan.
