En esta oportunidad me encuentro con el problema de que una serie de gets que defino dentro de un do while, cuyas variables son las celdas de un arreglo, al activarse el diálogo los datos de todos los gets comparten la ultima variable debido a que es el ultimo valor obtenido en _cItem...
- Code: Select all Expand view RUN
nItem :=len( oGet )
_cItem :=strtrim( nItem, 2 )
nRow :=eval( bRow )-2
cPicture :=iif( .not. empty( ConfResult->Mascara ),;
alltrim( ConfResult->Mascara ),;
NIL )
lRight :=( ValType( aGet[ &_cItem ] )='N' )
oGet[ &_cItem ] :=TGet():New( nRow, ConfResult->Col, aGet[ &_cItem ], oResult:oDlg,;
ConfResult->Width, 10, cPicture,,,,,,, lPixels,,,,, lRight )
Esto funciona: oGet[ &_cItem ] :=TGet():New(...)
Pero aGet[ &_cItem ] dentro de TGet():New(...) es rechazado por xHarbour... Error E0047 Code block contains both macro and declared symbol references
Para evitar el error del xHarbour hice esto:
- Code: Select all Expand view RUN
bSetGet :=bSETGET( aGet[ &_cItem ] )
oGet[ &_cItem ] :=TGet():New( nRow, ConfResult->Col, bSetGet, oResult:oDlg,;
ConfResult->Width, 10, cPicture,,,,,,, lPixels,,,,, lRight )
Pero es asi cuando todos los gets quedan compartiendo la ultima variable del arreglo.
Recuerdo haber leído hace bastante tiempo una forma de hacer eso...
1GB de Gracias de antemano por los comentarios...
Giancarlo J. Sabattino S.
Valencia, Venezuela.
