Workarea not in use: dbgoto

[Marco Turco]

Salve a tutti (oggi è la giornata dei problemi),
ho un cliente al quale si presenta il messaggio di errore
Error description: Error DBCMD/2001 Workarea not in use: DBGOTO

Non sono riuscito a ripetere in nessun modo il problema che si verifica quando chiamo questa funzione.

In pratica è una funzione che mi restituisce i valori contenuti nel record di un database. I valori passati alla funzione sono cFile che è il file dbf da aprire e scost che è il numero di record.

Qualche idea ?
Grazie in anticipo

----


function ReadLibroCassa(cFile,scost)

store "" to lb01,lb02,lb03,lb04,lb05,lb06,lb06,lb07,lb08,lb09,lb10,lb11,lb12,lb13,lb14,lb15,lb16

use &cFile alias pippo

go scost
lica1 := pippo->lb01
lica2 := pippo->lb02
lica3 := pippo->lb03
lica4 := pippo->lb04
lica5 := pippo->lb05
lica6 := pippo->lb06
lica7 := pippo->lb07
lica8 := pippo->lb08
lica9 := pippo->lb09
lica10:= pippo->lb10
lica11:= pippo->lb11
lica12:= pippo->lb12
lica13:= pippo->lb13
lica14:= pippo->lb14
lica15:= pippo->lb15
lica16:= pippo->lb16
lica17:= pippo->lb17
lica18:= pippo->lb18
lica19:= pippo->lb19
lica20:= pippo->lb20
lica21:= pippo->lb21
lica22:= pippo->lb22
lica23:= pippo->lb23
close pippo
return

[Enrico Maria Giordano]

Probabilmente non è questo il problema ma io avrei scritto così:

Code: Select all  Expand view

use ( cFile ) alias pippo

EMG