Estoy usando la clase TxBrowse y necesito validar el registro, no me vale con validar solo los campos, antes de darlo por bueno: no puedo abandonar el registro harta que sea bueno o se salgan del browse, en cuyo caso lo borraria.
Necesito consejo sobre como hacerlo. Por lo que veo no hay ningun bloque de codigo para hacerlo ni hay nada que se ejecute antes de abandonar el registro o de insertarlo. ¿Como lo haceis?
oBrw:aCols[1]:bEditValid {|| if(CAMPO != 0, .T., .F. }
Espero ter ajudado 
Esto solo me valida los campos. Mientras se esta dando de alta un registro en el browse hay campos que estan en blanco. Una vez que se salga del registro, para darlo por bueno, es necesario que todos los campos tengan valor. Lo mismo pasa si 2 campos dependen de otros 2 de otra tabla. Es el mismo problema.
O se usa algo parecido al lEditCol del TWBrowse controlando campo por campo y obligando a meterlos en un orden determinado (¿?) o hay que utilizar un bloque de codigo que se evalue antes de abandonar el registro. No sirve bValid porque es para el browse completo y bEditValid no sirve porque el campo es correcto.
Con la clase TDATABASE que uso, modificada por mi heredando de la original, tengo un bloque de codigo que valida el registro. El problema es donde ejecutarlo. La clase TxBrowse no permite trabajar con el buffer y hacerlo en bSkip, bGoTo, bBookMark, bSearch, etc, ademas de en los clcks del raton, me parece una chapuza, aunque me parece la unica solucion. Lo que hare sera refinar la TxBrowse porque tampoco le veo sentido que me permita insertar registros no validos en la tabla.
jicorral wrote:Esto solo me valida los campos. Mientras se esta dando de alta un registro en el browse hay campos que estan en blanco. Una vez que se salga del registro, para darlo por bueno, es necesario que todos los campos tengan valor. Lo mismo pasa si 2 campos dependen de otros 2 de otra tabla. Es el mismo problema.
O se usa algo parecido al lEditCol del TWBrowse controlando campo por campo y obligando a meterlos en un orden determinado (¿?) o hay que utilizar un bloque de codigo que se evalue antes de abandonar el registro. No sirve bValid porque es para el browse completo y bEditValid no sirve porque el campo es correcto.
Con la clase TDATABASE que uso, modificada por mi heredando de la original, tengo un bloque de codigo que valida el registro. El problema es donde ejecutarlo. La clase TxBrowse no permite trabajar con el buffer y hacerlo en bSkip, bGoTo, bBookMark, bSearch, etc, ademas de en los clcks del raton, me parece una chapuza, aunque me parece la unica solucion. Lo que hare sera refinar la TxBrowse porque tampoco le veo sentido que me permita insertar registros no validos en la tabla.
jicorral, creo que debes hacer una validacion del registro al editar la ultima col del xbrowse, al usar bOnPostEdit, bkeydown, o al hacer bPostEof. Revisa este post, puede ser que te ayude a solucionar.
