In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Prolemas con oDbCombo basados en MemDataSet en Xailer 2

Foro público de Xailer en español
User avatar
Carlos Ortiz
Posts: 855
Joined: Wed Jul 01, 2009 5:44 pm
Location: Argentina - Córdoba
Contact:

Prolemas con oDbCombo basados en MemDataSet en Xailer 2

Postby Carlos Ortiz » Tue Dec 15, 2009 4:24 pm

Este es el método que setea los elementos a mostrar en el combo y los itemsbound que tienen los datos reales de los campos. por ejemplo aItems tiene "Descripción" que es lo que se muestra y en aItemsBound tengo "art.descripcion" que es el valor real que despues uso en un select que me traiga los articulos iguales segun ese combo y un texto que arma la cadena.
La idea es tener un solo metodo en todo el sistema que me arme los combos de busqueda facilmente y con el menor esfuerzo y codificación posible. Osea una clase ElitaX()
SetElitabX le llena los datos al combo y ahora dejo de funcionar en Xailer 2
METHOD SetElitabX( oSender ) CLASS TElitabX
local aData
::FoDbf:=TMemDataSet():New(Self)
IF !empty(alltrim(::cSelect))
//Puede ser que levante los elementos y los ID de una tabla o no
aData:=AppData:oOdbcDS:QueryArray( ::cSelect )
::oDBCombo:aItems := ArrayCol( aData, 1 )
::oDBCombo:aItemsBound := ArrayCol( aData, 2 )
ENDIF
::oDBCombo:oDataField := ::FoDataField
::oDBCombo:oDataSet := ::FoDbf
::FoDbf:Edit()
::FoDbf:Open(::oDBCombo:aItems)
RETURN Nil
Al quere hacer el Edit() da este error, si le saco el Edit() el combo se carga pero no se abre al hacer click sobre el.
Que puede ser, tendrá solución. Muchas gracias.
***************************** Registro de errores *****************************
Exe: C:ProyectodbfarmaxApp.exe
Version: 1.0.0.0
User name: Administrador
Computer name: TERMINAL6
Fecha: 15-12-2009
Hora: 12:16:59
Memoria libre: 1513828
Area actual: 3
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 2.0.2 Version 2.0.2
Compilador: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6511) PCode Version: 10
Compilador C/C++: Borland C++ 5.5.1 (32 bit)
Plataforma: Windows XP Professional 5.01.2600 Service Pack 3
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Class: 'NIL' has no exported method
Operación: RECNO
Argumentos: [ 1] = Tipo: U Valor: NIL
Fichero:
Código error SO: 0
Pila de llamadas:
TMEMDATASET:RECNO (871)
TMEMDATASET:EDIT (476)
TELITABX:SETELITABX (38)
ELITAB (18)
TARTICULOSABM:COMBOBUSCARCREATE (154)
TDBCOMBOBOX:ONCREATE (0)
TSTDCONTROL:CREATE (249)
TCOMBOBOX:CREATE (180)
TDBCOMBOBOX:CREATE (63)
TABM:CREATEFORM (27)
TARTICULOSABM:CREATEFORM (11)
TARTICULOSABM:NEW (29)
TVENTANAPRINCIPAL:ARTICULOSABM (21)
TTOOLBUTTON:ONCLICK (0)
(b)XTOOLBUTTON:XTOOLBUTTON (41)
TTOOLBUTTON:CLICK (0)
TTOOLBAR:COMMAND (391)
TREBAR:WMCOMMAND (272)
RUNFORM (0)
TAPPLICATION:RUN (272)
MAIN (19)
--
@dbfarma
www.dbfarma.com.ar

Return to “Spanish”