Problema con combobox style 0
Publicado por Gabriel (427 intervenciones) el 21/05/2014 18:47:49
Que tal amigos del Foro :
Tengo un ComboBox en STYLE = 0 que permite que ingresen las nuevas facturas para su registro, dicho control esta enlazado mediante un cursor al CONTROLSOURCE...
Ahora bien el codigo lo muestro a continuacion y me esta originando 2 problemas por resolver...
1) El control ComboBox se carga mediante un cursor SELECT
Pregunta : Cual es la forma de hacer que al ingresar una nueva factura aparezca dicho numero en el ComboBox.
2) El Combobox que esta enlazado al GRID no muestra la nueva factura y estoy utilizando el pasar el numero de la nueva factura por referencia al CboFacturas y asi aparezca en el GRID...
Pregunta : Que falta al codigo expuesto a continuacion para que funcione correctamente por referencia.
A continuacion el codigo de lo avanzado.
Metodo : Nueva_Factura
LOCAL cDisplayValue, lcDato
m.cDisplayValue = Thisform.CboFacturas.DisplayValue
WITH Thisform.CboFacturas
IF m.i = .ListCount
.AddItem(m.cDisplayValue) && Añadir el nuevo elemento al ComboBox
Thisform.CboFacturas.DisplayValue = m.cDisplayValue
lcDato = m.cDisplayValue
CambiaDato(@lcDato) && Pasar valor por referencia
ENDIF
ENDFOR
ENDWITH
Control : CboFacturas Evento : Lostfocus
WITH Thisform
m.cDisplayValue = Thisform.CboFacturas.DisplayValue
lcDato = m.cDisplayValue
.CboFacturas.controlsource = CambiaDato(@lcDato)
ENDWITH
Thisform.Refresh()
Agradezco sus comentarios y sugerencias....
atte.,
INTEGRAL
Tengo un ComboBox en STYLE = 0 que permite que ingresen las nuevas facturas para su registro, dicho control esta enlazado mediante un cursor al CONTROLSOURCE...
Ahora bien el codigo lo muestro a continuacion y me esta originando 2 problemas por resolver...
1) El control ComboBox se carga mediante un cursor SELECT
Pregunta : Cual es la forma de hacer que al ingresar una nueva factura aparezca dicho numero en el ComboBox.
2) El Combobox que esta enlazado al GRID no muestra la nueva factura y estoy utilizando el pasar el numero de la nueva factura por referencia al CboFacturas y asi aparezca en el GRID...
Pregunta : Que falta al codigo expuesto a continuacion para que funcione correctamente por referencia.
A continuacion el codigo de lo avanzado.
Metodo : Nueva_Factura
LOCAL cDisplayValue, lcDato
m.cDisplayValue = Thisform.CboFacturas.DisplayValue
WITH Thisform.CboFacturas
IF m.i = .ListCount
.AddItem(m.cDisplayValue) && Añadir el nuevo elemento al ComboBox
Thisform.CboFacturas.DisplayValue = m.cDisplayValue
lcDato = m.cDisplayValue
CambiaDato(@lcDato) && Pasar valor por referencia
ENDIF
ENDFOR
ENDWITH
Control : CboFacturas Evento : Lostfocus
WITH Thisform
m.cDisplayValue = Thisform.CboFacturas.DisplayValue
lcDato = m.cDisplayValue
.CboFacturas.controlsource = CambiaDato(@lcDato)
ENDWITH
Thisform.Refresh()
Agradezco sus comentarios y sugerencias....
atte.,
INTEGRAL
Valora esta pregunta


0