Extraño error en DbBrowse
Publicado: Mié Mar 30, 2011 11:01 am
Hola:
Tengo un dbbrowse con el siguiente código:
METHOD FormInitialize( oSender ) CLASS TFormControlStock
::oArticulo := UsarTabla("oArticulo")
::oStocks := UsarTabla("oStocks")
::oBtnEsc:oBitmaps := "exit"
::oStocks:AddCalcField("Descripcion",{|oField| DevolverNombre(self) })
::oDbBrowse:oDataSet := ::oStocks
RETURN Nil
//---------------------------------------------------------- --------------------
Static Function DevolverNombre(self)
Local cNombre
if ::oArticulo:Locate("[Código de Artículo] = " + ::oStocks:CodigodeArticulo)
cNombre := ::oArticulo:FieldGetByName("Descripción")
endif
Return cNombre
Es decir normalito pero con un campo calculado.
Cuando abandono el formulario, despues de haber realizado operaciones de edición (no en el campo calculado) al pulsar botón con el mandato Self:Close() me produce el siguiente código de error:
TDBBRWCOLUMN:PAINTDATA(60)
Error BASE/1004 Class: 'NIL' has no exported method: NCLRTEXT
Argumentos: ( [ 1] = Tipo: U Valor: NIL)
Lo curioso es que haciendo lo mismo pero sin incluir en el DbBrowse el campo calculado, no se produce ningún error al salir del formulario.
Muchas gracias,
Emilio Gil.
Tengo un dbbrowse con el siguiente código:
METHOD FormInitialize( oSender ) CLASS TFormControlStock
::oArticulo := UsarTabla("oArticulo")
::oStocks := UsarTabla("oStocks")
::oBtnEsc:oBitmaps := "exit"
::oStocks:AddCalcField("Descripcion",{|oField| DevolverNombre(self) })
::oDbBrowse:oDataSet := ::oStocks
RETURN Nil
//---------------------------------------------------------- --------------------
Static Function DevolverNombre(self)
Local cNombre
if ::oArticulo:Locate("[Código de Artículo] = " + ::oStocks:CodigodeArticulo)
cNombre := ::oArticulo:FieldGetByName("Descripción")
endif
Return cNombre
Es decir normalito pero con un campo calculado.
Cuando abandono el formulario, despues de haber realizado operaciones de edición (no en el campo calculado) al pulsar botón con el mandato Self:Close() me produce el siguiente código de error:
TDBBRWCOLUMN:PAINTDATA(60)
Error BASE/1004 Class: 'NIL' has no exported method: NCLRTEXT
Argumentos: ( [ 1] = Tipo: U Valor: NIL)
Lo curioso es que haciendo lo mismo pero sin incluir en el DbBrowse el campo calculado, no se produce ningún error al salir del formulario.
Muchas gracias,
Emilio Gil.