(b)XMEMDATASET:XMEMDATASET(59) : error - 1 attachment

[jose.luis]

Hola,
Me está apareciendo un error del cual no se el motivo.
En este trozo de código:
WITH OBJECT ::oMemDataSet2 := tMemDataSet():Create(Self)
:open( {{"",.F.,0,CTOD("")}},{"CERROR","LERROR","LCARGAR","NT_DOCU "})
:Delete()
END
::odbBrowse1:oDataset := ::oMemDataset2
Creo un tMemDataSet con inicialmente una fila que luego elimino.
Sin embargo, al asignarle el tMemDataset al dbBrowse aparece este error:
Subsistema: BASE
Código de error: 1132
Estado: .F.
Descripción: Bound error
Operación: array access
Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 1
Fichero:
Código error SO: 0
Pila de llamadas:
(b)XMEMDATASET:XMEMDATASET (59)
TMEMDATASET:FIELDGET (0)
TDATAFIELD:FIELDGET (80)
TDATAFIELD:ONGETVALUE (0)
(b)XDATAFIELD:XDATAFIELD (27)
TDATAFIELD:VALUE (0)
TDBBRWCOLUMN:GETDATA (41)
TDBBRWCOLUMN:DATAWIDTH (519)
TDBBRWCOLUMN:GETWIDTH (395)
TDBBRWCOLUMN:ADJUST (559)
TBROWSE:ADDCOL (833)
TDBBROWSE:ADDCOL (115)
TDBBRWCOLUMN:CREATE (236)
TDBBROWSE:_ODATASET (355)
TFORM13:BUTTON1CLICK (46)
TBUTTON:ONCLICK (0)
TBUTTON:CLICK (102)
(b)XCONTROL:XCONTROL (141)
TBUTTON:COMMAND (0)
TSCROLLINGWINCONTROL:WMCOMMAND (254)
TFORM13:WMCOMMAND (857)
RUNFORM (0)
TAPPLICATION:RUN (193)
MAIN (17)
Supongo que algo debo estar haciendo mal. Pero... ¿que?
Os dejo un proyecto.
Saludos y gracias por vuestro tiempo y soporte.
José Luis Capel
Aicom Global System, S.L.
Valencia - España


Attached files pruebas.zip (3.6 KB)Â

[ignacio]

José Luis,
Ya está arreglado, No obstante para que te funcione de momento no tienes más
que poner la asignación del browse antes de llamar a Delete().
Un saludo,
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=Xns97D355CE3CD5Bjoseluiscapelaicom@82.144.6.50...]Xns97D355CE3CD5Bjoseluiscapelaicom@82.144.6.50...[/email]
> Hola,
>
> Me está apareciendo un error del cual no se el motivo.
>
> En este trozo de código:
>
> WITH OBJECT ::oMemDataSet2 := tMemDataSet():Create(Self)
> :open( {{"",.F.,0,CTOD("")}},{"CERROR","LERROR","LCARGAR","NT_DOCU "})
> :Delete()
> END
>
> ::odbBrowse1:oDataset := ::oMemDataset2
>
> Creo un tMemDataSet con inicialmente una fila que luego elimino.
>
> Sin embargo, al asignarle el tMemDataset al dbBrowse aparece este error:
>
> Subsistema: BASE
> Código de error: 1132
> Estado: .F.
> Descripción: Bound error
> Operación: array access
> Argumentos: [ 1] = Tipo: A Valor: [ 2] = Tipo: N Valor: 1
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> (b)XMEMDATASET:XMEMDATASET (59)
> TMEMDATASET:FIELDGET (0)
> TDATAFIELD:FIELDGET (80)
> TDATAFIELD:ONGETVALUE (0)
> (b)XDATAFIELD:XDATAFIELD (27)
> TDATAFIELD:VALUE (0)
> TDBBRWCOLUMN:GETDATA (41)
> TDBBRWCOLUMN:DATAWIDTH (519)
> TDBBRWCOLUMN:GETWIDTH (395)
> TDBBRWCOLUMN:ADJUST (559)
> TBROWSE:ADDCOL (833)
> TDBBROWSE:ADDCOL (115)
> TDBBRWCOLUMN:CREATE (236)
> TDBBROWSE:_ODATASET (355)
> TFORM13:BUTTON1CLICK (46)
> TBUTTON:ONCLICK (0)
> TBUTTON:CLICK (102)
> (b)XCONTROL:XCONTROL (141)
> TBUTTON:COMMAND (0)
> TSCROLLINGWINCONTROL:WMCOMMAND (254)
> TFORM13:WMCOMMAND (857)
> RUNFORM (0)
> TAPPLICATION:RUN (193)
> MAIN (17)
>
> Supongo que algo debo estar haciendo mal. Pero... ¿que?
>
> Os dejo un proyecto.
>
> Saludos y gracias por vuestro tiempo y soporte.
> José Luis Capel
> Aicom Global System, S.L.
> Valencia - España
>
>