FiveTech Support Forums

Hola Antonio disculpa que te de molestias otra vez

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

Yo tuve ese problema con el build .99.70 de xharbour y se me corrigió con el último build, si te refieres al error al tocar los spinners.

Que build estás usando?

Hola Jose gracias por contestar

si es en los spinners el que hace el cambio de año en el calendario, todo lo demas funciona muy bien

pues es FiveWin for Harbour 2.6 - April 2005

y el harbour dice build 44.0 no uso xharbour

sera por eso que no me funciona

Gracias

Aida

Sinceramente, no se si ese sea el problema porque yo no tuve problemas con los spinners con versiones anteriores a la 0.99.70, por ejemplo con FWH Marzo 2006 y .99.60 no tuve problemas.

Has compilado las libs correspondientes con tu versión de harbour?

Espero te ayude.

segui tu comentario y recompile toda la LIB pero en el FWCAL.PRG me salieron un monton de errores y no me deja hacer la LIB me podrias prestar la BTNGET32.LIB que tienes tu a ver si me funcionan.

ya pedi costos del ultimo Fivewin para Harbour pero es algo costoso tendre que juntar mas para romper el cochinito y comprarlo pero si me comprare unas de CanalFive que me encantaron
CanalFive VTaskBar y CanalFive TOutlookBar espero que sean compatibles con el fivewin Harbour que tengo, mientras junto para comprarme el ultimo y reluciente FWH 7.01

Espero tu respuesta

Gracias

Aida

Aida

recompila tua BTNGET32.LIB con tu nueva version de Harbour.

Aida:

Acaso no te sirve la clase DatePicker nativa de FWH ???
Mirate este ejemplo, tal vez es lo que necesita.

http://hyperupload.com/download/029b53a ... 1.jpg.html

Saludos, Armando

A ver si ahora sí se muestra la imagen

http://img172.imageshack.us/my.php?image=clip1jk2.jpg

Saludos

Hola como estan espero que muy bien

Gracias por todos sus consejos me puse a hacer todo lo que me dijeron y al final modifique un par de pequeñas lineas y pude hacer que funcione cambiando --- FwCalendar(cVigencia2,aRect[1],aRect[4],oDlg),;
oGet1:Refresh()) --- POR --- (MsgDate(DATE(),"Seleccione una Fecha", oGet), oGet:Refresh())

Ya solamente me queda ponerlo en español

Gracias por todo, son todos ustedes muy lindos

Aida

Hola estimada Aida:

Te escribo desde México para molestarte, resulta que estoy empezando a migrar a los 32 bits y por ahora cuento con:

Fivewin for Harbour 2.6 - April 2005, y con varios compiladores de Harbour, pero con ninguno puedo generar una aplicacion con la cual se muestre una ventana principal (TUTOR02.PRG), etc.
Por lo que recurro a tí para preguntarte si te fue o no funcional esta versión de FWH con el compilador Harbour build 0.44 que mecionas, ya que he e intentado de todo sin poder lograr nada, ya busque por la red y dicho compilador ya no existe, sería posible que me pudieras pasar una copia del Harbour 0.44 a mi correro:

danyleon82@hotmail.com o en este..

danyleon82@latinmail.com

te estare muy agradecido...

Saludos..