FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index All products support per EMG
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
per EMG
Posted: Mon Feb 05, 2007 12:46 PM

ho un problema con una funzione che in wbrowse funziona ma in xbrowse no
il test l'ho pubblicato sul forum inglese

http://fivetechsoft.com/forums/viewtopic.php?t=5872
cmq
il problema è in questa funzione conla freccia

oBrw:bGoTop :={|| GoToTop(Alias(),csocio)}
oBrw:bGoBottom:={|| GoToBot(Alias(),csocio)}
oBrw:bSkip :={|n| MovePtr(Alias(),csocio,n)} <-------

In sostanza : da una finestra dove c'è un xbrowse mi vado a prendere un campo numcli che è carattere 4 cifre esempio "0001" e apro un archivio quote indicizzandolo sul campo quote->numcli quindi usando ordscope devo far in modo di visualizzare solo i record relativi al numcli 0001 e operare su di essi ( inserimento e modifica e cancellazione e stampa)

pare che c'è un erore sula funzione moveprt ma non riesco a capire qual'è dato che se uso la wbrowse questo non accade ma io volevo usare la xbrowse per questioni di grafica.

La cosa piu' strana e che quando clicco su un record ( nel file ce ne sono tre/4 ) il programmino esce fuori senza restituirmi un file di errore
scompare (puff!!) improvvisamente!!!

Vedi se riesci a far qualcosa
Grazie

Best Regards, Saludos



Falconi Silvio
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: per EMG
Posted: Mon Feb 05, 2007 03:29 PM

Ho visto. Non ha senso quello che stai cercando di fare e cioè cambiare lo scope man mano che ti sposti nel browse. Non ti potrà mai funzionare in quel modo ed è ovvio che vada in loop.

Dovresti mettere una GET da qualche parte dove l'utente scriverà il codice da cercare e poi un pulsante Cerca che attiva lo scope e rinfresca il browse.

Vedrai che così funziona.

EMG

Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
per EMG
Posted: Mon Feb 05, 2007 03:54 PM

grazie.
ma se togo il bskip fa errore lo stesso

cmq secondo te lo posso mettere con l'opzione bkeydown ? cioè
oBrw:bKeyDown :={|nKey| Val_Key(nKey,olbx,oDlgd)}

e in Val_Key(nKey,olbx,oDlgd)

STAT FUNC Val_Key(nKey,olbx,oDlgd)
DO CASE
CASE nKey==VK_INSERT
KeyToggle(VK_INSERT)
Sol_Mant(.T.,oDlgd,lbx)
CASE nKey==VK_RETURN
Sol_Mant(.F.,oDlgd,olbx)
CASE nKey==VK_DELETE
Bor_Mant(olbx)
CASE nKey==VK_ESCAPE
oDlgd:End()
ENDCASE
RETURN (NIL)

Best Regards, Saludos



Falconi Silvio
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
per EMG
Posted: Mon Feb 05, 2007 03:59 PM
Silvio wrote:grazie.
ma se togo il bskip fa errore lo stesso


Il problema è il bChange non il bSkip.

Silvio wrote:cmq secondo te lo posso mettere con l'opzione bkeydown ?


Penso di sì. L'importante è che non crei un loop. Nel caso del bChange creavi un loop in quanto nel bChange stesso andavi a spostare il record e questo faceva scattare nuovamente bChange e così via.

EMG

Continue the discussion