FoxPro/Visual FoxPro - problemas con combox

   
Vista:

problemas con combox

Publicado por Pablo (Argentina) (433 intervenciones) el 03/09/2010 22:44:03
Hola Amigos del Foro, le cuento, tengo problemas con un combo cuando selecciono una u otra opcion, con una anda bien pero con la otra no pasa nada, o sea a ver si me explico.

tengo un combo con este codigo en un form

This.Style = 2
This.RowSourcetype = 1
This.RowSource = "PRECIO PUBLICO, PRECIO VENDEDOR"

despues en un boton de comando tengo este otro codigo

SELECT listadeprecios
LOCATE FOR codigo = thisform.text5.Value
IF FOUND()
IF thisform.combo2.Value = "PRECIO VENDEDOR"
thisform.text14.Value = preciovendedor
ELSE
IF thisform.combo2.Value = "PRECIO PUBLICO"
thisform.text14.Value = preciopublico
ELSE
thisform.text14.Value = 0.00
ENDIF
ENDIF
ENDIF

el tema es que si en el combo le selecciono PRECIO PUBLICO, esto funciona bien, me muestra en precio que corresponde ahora si selecciono PRECIO VENDEDOR no lo encuentra o no se y por ende me pone 0.00 y los precios estan cargados en la tabla porque ya la revise, los campos en la tabla son numericos (8,2), lo raro es eso

¿Que puede estar pasando o como lo puedo solucionar?

Muchas Gracias

Pablo - Argentina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:problemas con combox

Publicado por es_binario (757 intervenciones) el 03/09/2010 23:38:30
Intenta:

This.Style = 2
This.RowSourcetype = 1
This.RowSource = "PRECIO PUBLICO, PRECIO VENDEDOR"

despues en un boton de comando tengo este otro codigo

SELECT listadeprecios
LOCATE FOR codigo = thisform.text5.Value
IF FOUND()

SELECT case
CASE thisform.combo2.listindex = 1
thisform.text14.Value = preciopublico
CASE thisform.combo2.listindex = 2
thisform.text14.Value = preciovendedor
OTHERWISE
thisform.text14.Value = 0.00
ENDCASE

ENDIF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar