Lo que estoy implementando es lo siguiente:
Al lado de un Combobox tengo un bot贸n para acceder a la Tabla que carga su Array, con la ide谩 de hacer la actualizaci贸n dinamicamente
Aclarando que estoy trabajando con MariaDB + Eagle, por eso no genero un sample.
De cualquier manera he puesto paradas y, cuando agrego un registro a la Tabla, lo hace correctamente, de la misma manera que el agregado al array ocurre en consecuencia.
El boton del Dialog que contiene al Combo llama al metodo siguiente:
Luego, ingrese en el fuente de la clase TCombobox y cambie SetItems() por las llamadas que hace en el fuente
Con esto detect茅 que error daba en ::Change(). Asi es que luego de esto, inclu铆 en mi compilaci贸n combobox.prg y detect茅 que el error lo da cuando llama a Eval( ::bChange, Self, cItem )
Y estas son las l铆neas de error:
Alguna sugerencia, hay algo mal?
Al lado de un Combobox tengo un bot贸n para acceder a la Tabla que carga su Array, con la ide谩 de hacer la actualizaci贸n dinamicamente
Aclarando que estoy trabajando con MariaDB + Eagle, por eso no genero un sample.
De cualquier manera he puesto paradas y, cuando agrego un registro a la Tabla, lo hace correctamente, de la misma manera que el agregado al array ocurre en consecuencia.
El boton del Dialog que contiene al Combo llama al metodo siguiente:
METHOD DefComplemento( nTabla, oCmb ) 聽CLASS TYORutinas
...
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 h0:aFamilias:= aClone( oSelf:GetDropLst( "DescFam", _TBFAMILIAS, "DescFam" ) ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 wqout({"Agreg贸 en DropLst", Len(h0:aFamilias), oCmb:ClassName() }), ; 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽// solo para verificar que no este vacio
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:SetItems(h0:aFamilias), wqout({"paso??"}), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:Refresh(), wqout({"refresca Combo"}), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:Set( cDescripcion ), wqout({"Muestra descripci贸n"})
...Luego, ingrese en el fuente de la clase TCombobox y cambie SetItems() por las llamadas que hace en el fuente
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 h0:aFamilias:= aClone( oSelf:GetDropLst( "DescFam", _TBFAMILIAS, "DescFam" ) ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 h0:aCodFam 聽:= aClone( oSelf:GetDropLst( "CodFam", 聽_TBFAMILIAS, "DescFam" ) ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 wqout({"Agreg贸 en DropLst", Len(h0:aFamilias), oCmb:ClassName() }), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:Reset(), wqout({"reset"}), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:aItems := h0:aFamilias, ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:Default(), wqout({"Default"}), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:Change(), wqout({"change"}), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 oCmb:Refresh(), wqout({"refresca Combo"}), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oCmb:Set( cDescripcion ), wqout({"Muestra descripci贸n"}), ;Con esto detect茅 que error daba en ::Change(). Asi es que luego de esto, inclu铆 en mi compilaci贸n combobox.prg y detect茅 que el error lo da cuando llama a Eval( ::bChange, Self, cItem )
Y estas son las l铆neas de error:
Llamado desde: D:\Fuen32\Yolanda\Source\YO_T01.prg (b)TMANTENIMIENTO:AGREDITINSUMOS(95)
Llamado desde: D:\Fuen32\Yolanda\Source\combobox.prg TCOMBOBOX:CHANGE(391)
Llamado desde: D:\Fuen32\Yolanda\Source\combobox.prg (b)TCOMBOBOX:TCOMBOBOX(124)
Llamado desde: TCOMBOBOX:RESET(0)
Llamado desde: D:\Fuen32\Yolanda\Source\TYORuts.prg (b)TMANTENIMIENTO:DEFCOMPLEMENTO(102)
Llamado desde: .\source\classes\TRBTN.PRG TRBTN:CLICK(579)
Llamado desde: .\source\classes\TRBTN.PRG TRBTN:LBUTTONUP(754)
Llamado desde: .\source\classes\CONTROL.PRG TCONTROL:HANDLEEVENT(1489)
Llamado desde: .\source\classes\TRBTN.PRG TRBTN:HANDLEEVENT(1398)
Llamado desde: .\source\classes\WINDOW.PRG _FWH(3394)
Llamado desde: DIALOGBOX(0)
Llamado desde: .\source\classes\DIALOG.PRG TDIALOG:ACTIVATE(273)
Llamado desde: D:\Fuen32\Yolanda\Source\TYORuts.prg TMANTENIMIENTO:DEFCOMPLEMENTO(106)
Alguna sugerencia, hay algo mal?
Resistencia - "Ciudad de las Esculturas"
Chaco - Argentina
Chaco - Argentina