SaveToList

[zeasoftware]

Tengo una TForm1 donde cargo una DBF a oDBFRubros, y de esta Mando a llamar otra TForm2 pero..
en TForm2:
METHOD FormCreate( oSender ) CLASS TCuenta
::oDBFRubros := ::oParent:oDBFRubros
RETURN Nil
esta la ocupo al crear un ComboBox:
METHOD RubroCreate( oSender ) CLASS TCuenta
oSender:aItems := ::oDBFRubros:SaveToArray({|Self| ::Clave + ": " + ;
Trim( ::Descrip ) })
RETURN Nil
1.- El problema es que al cargarlo la primera vez, se ejecuta bien, pero en la segunda marca error, que la DBF no se encuentra indexada.
2.- En TForm1, quiero sobre cargar las items de otro comboBox y tampoco lo afecta, a items queda solo con el valor "Todos":
With Object ::oCBxFiltros
:aItems := { "Todos" }
:Cargo := { "" }
For Each cRubro In aRubros
aAdd(:aItems, cRubro[1])
aAdd(:Cargo, "Rubro == " + Left(cRubro[1], 2))
Next
End With
Estoy haciendo algo mal, o son bugs?
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--

[ignacio]

Ramón,
Con la poca información que das es muy dificil ayudarte. Siempre comentamos que necesitamos un ejemplo pequeño autocontenido. No obstante voy a intentar elucubrar un poco sobre que te puede estar pasando.
>>1.- El problema es que al cargarlo la primera vez, se ejecuta bien, pero en la
>>segunda marca error, que la DBF no se encuentra indexada.
Ni veo el SEEK que pueda provocar dicho error, ni veo tampoco donde puedes estar haciendo un un SET ORDER 0. Lo que esta claro es que en algún momento cierras los í­ndices o cambias el orden a 'ninguno' pero no sé más.
>>2.- En TForm1, quiero sobre cargar las items de otro comboBox y tampoco
>>lo afecta, a items queda solo con el valor "Todos":
Comprueba que aRubros no está vací­o, que por cierto, no tengo ni idea de donde sale.
No te puedo decir más lo siento.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"ramonzea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=45617362@news.xailer.com...]45617362@news.xailer.com...[/email]
Tengo una TForm1 donde cargo una DBF a oDBFRubros, y de esta Mando a llamar otra TForm2 pero..
en TForm2:
METHOD FormCreate( oSender ) CLASS TCuenta
::oDBFRubros := ::oParent:oDBFRubros
RETURN Nil
esta la ocupo al crear un ComboBox:
METHOD RubroCreate( oSender ) CLASS TCuenta
oSender:aItems := ::oDBFRubros:SaveToArray({|Self| ::Clave + ": " + ;
Trim( ::Descrip ) })
RETURN Nil
1.- El problema es que al cargarlo la primera vez, se ejecuta bien, pero en la segunda marca error, que la DBF no se encuentra indexada.
2.- En TForm1, quiero sobre cargar las items de otro comboBox y tampoco lo afecta, a items queda solo con el valor "Todos":
With Object ::oCBxFiltros
:aItems := { "Todos" }
:Cargo := { "" }
For Each cRubro In aRubros
aAdd(:aItems, cRubro[1])
aAdd(:Cargo, "Rubro == " + Left(cRubro[1], 2))
Next
End With
Estoy haciendo algo mal, o son bugs?
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
--