Error en el evento CheckState de un TbtnBmp

[jrcpoli-quitar]

Saludos:
Empezaré diciendo que este error se produce después de instalar la
versión 1.6.5 y no en la versión 1.6.1 que tengo en mi portátil, pero no
puedo determinar que desencadena el error por eso os cuento mis pruebas
y vosotros veréis que puede ser o que hago mal.
Empiezo diciendo que uso un TDBBROWE para realizar todas las operaciones
de Alta, Baja, Modificaciones de todas las bases de datos auxiliares de
mi aplicación, y empleo el evento OnDblClick para ejecutar
{||::Edit()}para llamar a las modificaciones, en todas las tablas
auxiliares menos en una todo funciona correctamente, pero en una de
ellas en que la primera columna del TDBBrowe es un campo numérico de la
base de datos salta este error:
***************************** Registro de errores
*****************************
Fecha: 17/09/2007
Hora: 11:08:26
Memoria libre: 117868
Area actual: 4
------------------------- Información del compilador
--------------------------
Versión Xailer: Xailer 1.6.5 Version 1.65
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error
-----------------------
Subsistema: BASE
Código de error: 1075
Estado: .F.
Descripción: Error de argumento
Operación: >
Argumentos: [ 1] = Tipo: C Valor: [ 2] = Tipo: N Valor:
0
Fichero:
Código error SO: 0
Pila de llamadas:
TFORMPOBLACNEW:OKCHECKSTATE (202)
TBTNBMP:ONCHECKSTATE (0)
TBTNBMP:REQUESTSTATE (121)
TFORMPOBLACNEW:FORMINITIALIZE (107)
TFORMPOBLACNEW:ONINITIALIZE (0)
TFORMPOBLACNEW:NEW (183)
TPOBLAC:EDIT (109)
(b)TPOBLAC:CREATEFORM (89)
TDBBROWSE:ONDBLCLICK (0)
TDBBROWSE:WMLBUTTONDBLCLK (2040)
TPOBLAC:SHOWMODAL (0)
TFORMMENU:POBLACION (330)
(b)TFORMMENU:CREATEFORM (95)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (377)
TREBAR:WMCOMMAND (253)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (40)
------------------ Información detallada de áreas de trabajo
------------------
Esto apunta a esta linea del evento CheckState del Botón OK tipo (TBtnBmp)
METHOD OKCheckState( oSender ) CLASS TFormPoblacNew
Local lCorrecto := Nil
IF ::oN_Punto:Value > 0 .AND. !Empty(::oL_Suelta:Value) .AND. ;
!Empty(::oProvincia:Value) .AND. ::oCoord_X:Value > 0 .AND. ;
::oCoord_Y:Value > 0 //.and. **Val(SELF:oDCmUSO_P:TextValue) > 0
lCorrecto := .T.
ELSE
lCorrecto := .F.
ENDIF
RETURN lCorrecto
Y viene de esta en METHOD FormInitialize
** Evalua el botón OK
::oOK:RequestState()
*
Pero lo curioso del caso es que si lo ejecuto pulsando en el icono de la
ToolBar que apunta a {||::Edit()} que es el mismo método que en
OnDblClick no se produce el error.
He quitado de la instrucción condicional el primer campo que es numérico
dejándola en
IF /*::oN_Punto:Value > 0 .AND.*/ !Empty(::oL_Suelta:Value) .AND. ;
!Empty(::oProvincia:Value) .AND. ::oCoord_X:Value > 0 .AND. ;
::oCoord_Y:Value > 0 //.and. **Val(SELF:oDCmUSO_P:TextValue) > 0
lCorrecto := .T.
ELSE
lCorrecto := .F.
ENDIF
Y el error no se produce.
Bueno esas son todas la prueba que he realizado y todo lo que puedo
deciros, se que es una cosa rara pero en otras versiones anteriores no
tení­a problemas.
José Ramón Castro Polinio.

[ignacio]

José Ramón,
La versión 1.65 y 1.75 tienen un importante problema con la edición y altas
de DBBrowse que ya está corregido y posiblemente hoy mismo publiquemos una
actualización (para la 1.65)
No obstante da la sensación que tu problema reside en que "::oN_Punto:Value"
es de tipo carácter y no numérico. Revisalo con un Logdebug() y la función
Valtype().
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escribió
en el mensaje news:[email=46ee4a3f@ozsrv2.ozlan.local...]46ee4a3f@ozsrv2.ozlan.local...[/email]
> Saludos:
>
> Empezaré diciendo que este error se produce después de instalar la versión
> 1.6.5 y no en la versión 1.6.1 que tengo en mi portátil, pero no puedo
> determinar que desencadena el error por eso os cuento mis pruebas y
> vosotros veréis que puede ser o que hago mal.
>
> Empiezo diciendo que uso un TDBBROWE para realizar todas las operaciones
> de Alta, Baja, Modificaciones de todas las bases de datos auxiliares de mi
> aplicación, y empleo el evento OnDblClick para ejecutar {||::Edit()}para
> llamar a las modificaciones, en todas las tablas auxiliares menos en una
> todo funciona correctamente, pero en una de ellas en que la primera
> columna del TDBBrowe es un campo numérico de la base de datos salta este
> error:
>
> ***************************** Registro de errores
> *****************************
>
> Fecha: 17/09/2007
> Hora: 11:08:26
> Memoria libre: 117868
> Area actual: 4
>
> ------------------------- Información del
> compilador --------------------------
>
> Versión Xailer: Xailer 1.6.5 Version 1.65
> Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
> Compilador C/C++: Borland C++ 5.5.1
> Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
>
> ----------------------- Información detallada del
> error -----------------------
>
> Subsistema: BASE
> Código de error: 1075
> Estado: .F.
> Descripción: Error de argumento
> Operación: >
> Argumentos: [ 1] = Tipo: C Valor: [ 2] = Tipo: N Valor: 0
> Fichero:
> Código error SO: 0
>
> Pila de llamadas:
> TFORMPOBLACNEW:OKCHECKSTATE (202)
> TBTNBMP:ONCHECKSTATE (0)
> TBTNBMP:REQUESTSTATE (121)
> TFORMPOBLACNEW:FORMINITIALIZE (107)
> TFORMPOBLACNEW:ONINITIALIZE (0)
> TFORMPOBLACNEW:NEW (183)
> TPOBLAC:EDIT (109)
> (b)TPOBLAC:CREATEFORM (89)
> TDBBROWSE:ONDBLCLICK (0)
> TDBBROWSE:WMLBUTTONDBLCLK (2040)
> TPOBLAC:SHOWMODAL (0)
> TFORMMENU:POBLACION (330)
> (b)TFORMMENU:CREATEFORM (95)
> TTOOLBUTTON:ONCLICK (0)
> (b)XTOOLBUTTON:XTOOLBUTTON (41)
> TTOOLBUTTON:CLICK (0)
> TTOOLBAR:COMMAND (377)
> TREBAR:WMCOMMAND (253)
> RUNFORM (0)
> TAPPLICATION:RUN (209)
> MAIN (40)
>
> ------------------ Información detallada de áreas de
> trabajo ------------------
>
> Esto apunta a esta linea del evento CheckState del Botón OK tipo (TBtnBmp)
>
> METHOD OKCheckState( oSender ) CLASS TFormPoblacNew
>
> Local lCorrecto := Nil
>
> IF ::oN_Punto:Value > 0 .AND. !Empty(::oL_Suelta:Value) .AND. ;
> !Empty(::oProvincia:Value) .AND. ::oCoord_X:Value > 0 .AND. ;
> ::oCoord_Y:Value > 0 //.and. **Val(SELF:oDCmUSO_P:TextValue) >
> 0
> lCorrecto := .T.
> ELSE
> lCorrecto := .F.
> ENDIF
>
> RETURN lCorrecto
>
> Y viene de esta en METHOD FormInitialize
>
> ** Evalua el botón OK
> ::oOK:RequestState()
> *
>
> Pero lo curioso del caso es que si lo ejecuto pulsando en el icono de la
> ToolBar que apunta a {||::Edit()} que es el mismo método que en OnDblClick
> no se produce el error.
>
> He quitado de la instrucción condicional el primer campo que es numérico
> dejándola en
> IF /*::oN_Punto:Value > 0 .AND.*/ !Empty(::oL_Suelta:Value) .AND. ;
> !Empty(::oProvincia:Value) .AND. ::oCoord_X:Value > 0 .AND. ;
> ::oCoord_Y:Value > 0 //.and. **Val(SELF:oDCmUSO_P:TextValue) >
> 0
> lCorrecto := .T.
> ELSE
> lCorrecto := .F.
> ENDIF
>
> Y el error no se produce.
>
> Bueno esas son todas la prueba que he realizado y todo lo que puedo
> deciros, se que es una cosa rara pero en otras versiones anteriores no
> tenía problemas.
>
> José Ramón Castro Polinio.

[jrcpoli-quitar]

Ignacio Ortiz de Zúñiga escribió:
> José Ramón,
>
> La versión 1.65 y 1.75 tienen un importante problema con la edición y altas
> de DBBrowse que ya está corregido y posiblemente hoy mismo publiquemos una
> actualización (para la 1.65)
>
> No obstante da la sensación que tu problema reside en que "::oN_Punto:Value"
> es de tipo carácter y no numérico. Revisalo con un Logdebug() y la función
> Valtype().
>
> Un saludo,
>
Ignacio:
He hecho lo que me has dicho y he evaluado "oN_Punto:Value"
poniendo esto:
METHOD OKCheckState( oSender ) CLASS TFormPoblacNew
Local lCorrecto := Nil
LogDebug(ValType(::oN_Punto:Value))
IF /*::oN_Punto:Value > 0 .AND.*/ !Empty(::oL_Suelta:Value) .AND. ;
!Empty(::oProvincia:Value) .AND. ::oCoord_X:Value > 0 .AND. ;
::oCoord_Y:Value > 0 //.and. **Val(SELF:oDCmUSO_P:TextValue) > 0
lCorrecto := .T.
ELSE
lCorrecto := .F.
ENDIF
RETURN lCorrecto
He anulado del IF la evaluación de la variable para que no me diera
error y además he quitado la llamada a ::oOK:RequestState() del
FormInitialize y este es el resultado que me da cuando uso el método
OnDblClick del TDBBrowe en el Debug
#1: C
#2: C
#3: N
Pero si hago la prueba pulsando el botón desde la ToolBar el debug me da
esto:
#1: N
#2: N
#3: N
Está claro por que se produce el error al hacer OnDblClik porque la
primera evaluación que hace es de tipo carácter pero porque desde el
icono de la Toolbar me da correcto eso es lo que yo no sé.
Desde luego en la base de datos es un campo numérico eso lo he comprobado.
José Ramón Castro Polinio.

[ignacio]

José Ramón,
Por lo que yo he podido ver "::oN_Punto" es un miembro del propio
formulario. Revisa donde lo estás asignando.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"José Ramón Castro Polinio" <jrcpoli-quitarpara_envio]"@terra.es> escribió
en el mensaje news:[email=46ee73d0@ozsrv2.ozlan.local...]46ee73d0@ozsrv2.ozlan.local...[/email]
> Ignacio Ortiz de Zúñiga escribió:
>> José Ramón,
>>
>> La versión 1.65 y 1.75 tienen un importante problema con la edición y
>> altas de DBBrowse que ya está corregido y posiblemente hoy mismo
>> publiquemos una actualización (para la 1.65)
>>
>> No obstante da la sensación que tu problema reside en que
>> "::oN_Punto:Value" es de tipo carácter y no numérico. Revisalo con un
>> Logdebug() y la función Valtype().
>>
>> Un saludo,
>>
>
> Ignacio:
>
> He hecho lo que me has dicho y he evaluado "oN_Punto:Value"
> poniendo esto:
>
> METHOD OKCheckState( oSender ) CLASS TFormPoblacNew
>
> Local lCorrecto := Nil
>
> LogDebug(ValType(::oN_Punto:Value))
>
> IF /*::oN_Punto:Value > 0 .AND.*/ !Empty(::oL_Suelta:Value) .AND. ;
> !Empty(::oProvincia:Value) .AND. ::oCoord_X:Value > 0 .AND. ;
> ::oCoord_Y:Value > 0 //.and. **Val(SELF:oDCmUSO_P:TextValue) >
> 0
> lCorrecto := .T.
> ELSE
> lCorrecto := .F.
> ENDIF
>
> RETURN lCorrecto
>
> He anulado del IF la evaluación de la variable para que no me diera error
> y además he quitado la llamada a ::oOK:RequestState() del FormInitialize y
> este es el resultado que me da cuando uso el método OnDblClick del
> TDBBrowe en el Debug
> #1: C
> #2: C
> #3: N
>
> Pero si hago la prueba pulsando el botón desde la ToolBar el debug me da
> esto:
> #1: N
> #2: N
> #3: N
>
> Está claro por que se produce el error al hacer OnDblClik porque la
> primera evaluación que hace es de tipo carácter pero porque desde el icono
> de la Toolbar me da correcto eso es lo que yo no sé.
> Desde luego en la base de datos es un campo numérico eso lo he comprobado.
>
> José Ramón Castro Polinio.

[jrcpoli-quitar]

Ignacio Ortiz de Zúñiga escribió:
> José Ramón,
>
> Por lo que yo he podido ver "::oN_Punto" es un miembro del propio
> formulario. Revisa donde lo estás asignando.
>
> Un saludo,
>
>
Ignacio:
Lo asigno así­ desde el evento OnCreate de cada TDBEdit o TDBMaskEdit
METHOD CamposCreate( oSender ) CLASS TFormPoblacNew
oSender:oDataSet := ::oParent:oDataSet
RETURN Nil
He realizado la prueba anterior en la versión 1.6.1 que tengo en el
portátil sin cambiar una coma de código y siempre da el valor del
LogDebug(ValType(::oN_Punto:Value) como "N" de numérico y en cambio en
la versión 1.6.5 los dos primeros dan como "C", te diré que el campo
esta dentro de TFolder y a su vez forma parte de la primera página
TFolderPage, esto es si empleo el evento OnDblClick de TDBBrowe del
formulario padre.
Voy a esperar a que salga la revisión de la 1.6.5 y espero que se
corrija el problema sino lo vuelvo a comentar.
José Ramón Castro.

[ignacio]

José Ramón,
> Lo asigno así desde el evento OnCreate de cada TDBEdit o TDBMaskEdit
>
> METHOD CamposCreate( oSender ) CLASS TFormPoblacNew
>
> oSender:oDataSet := ::oParent:oDataSet
>
> RETURN Nil
Insisto ::oN_Punto es UN MIEMBRO DEL PROPIO FORMULARIO y no de ningún
dataset. Al menos eso es lo que parece en el código que muestras.
Un saludo,
Ignacio Ortiz
Xailer team

[jrcpoli-quitar]

Ignacio Ortiz de Zúñiga escribió:
> José Ramón,
>
>> Lo asigno así­ desde el evento OnCreate de cada TDBEdit o TDBMaskEdit
>>
>> METHOD CamposCreate( oSender ) CLASS TFormPoblacNew
>>
>> oSender:oDataSet := ::oParent:oDataSet
>>
>> RETURN Nil
>
> Insisto ::oN_Punto es UN MIEMBRO DEL PROPIO FORMULARIO y no de ningún
> dataset. Al menos eso es lo que parece en el código que muestras.
>
> Un saludo,
>
> Ignacio Ortiz
> Xailer team
>
>
Ignacio:
La versión 1.6.6 que se ha actualizado automáticamente sustituyendo a la
1.6.5 soluciona el problema y vuelve a presentarme al ejecutar
LogDebug(ValType(::oN_Punto:Value)) como "N" en todas las evaluaciones
habiendo desaparecido las dos que al principio lo marcaban como "C" así­
que el problema queda solucionado y ya se evalúa correctamente.
Gracias por tu tiempo.
José Ramón Castro Polinio.