Xailer & OZ Software

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)Â

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