per EMG

Moderator: Enrico Maria Giordano

Post Reply
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

per EMG

Post by Silvio »

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
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Re: per EMG

Post by Enrico Maria Giordano »

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
User avatar
Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Post by Silvio »

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
User avatar
Enrico Maria Giordano
Posts: 7355
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia
Contact:

Post by Enrico Maria Giordano »

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
Post Reply