FoxPro/Visual FoxPro - DUDA SOBRE COMBOBOX

   
Vista:
Imágen de perfil de Hugo

DUDA SOBRE COMBOBOX

Publicado por Hugo hugo_romero_salazar@hotmail.com (21 intervenciones) el 20/06/2014 08:15:43
Amigos de la web tengo una duda o problema con un combobox, es un sistema de punto de venta, mi cliente quiere poner de un producto hasta 4 precios en todos y lo que se requiere es que en ese combo salga los 4 precios asignados a ese producto el detalle que tengo es que los precios de cualquier producto me salen en linea y no escalonados para elegir un precio de los cuatro posibles yo se que si repito ese producto cuatro veces lo podría obtener pero mi cliente no quiere duplicar un producto eso seria mal manejo....ojala puedan ayudarme para descifrar como manejar esta situación...gracias

mi sistema esta desarrollado en VFP versión 7
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

DUDA SOBRE COMBOBOX

Publicado por Fidel José (558 intervenciones) el 21/06/2014 14:15:11
Te doy una idea:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
*<InterfaceDefined>
* Botón de llamada al producto CommandButton ("cmdProduc")
* cntCombo1 (combobox) Selector de precios
* txtNum1   (textbox)  Muestra el precio seleccionado (Numérico)
*</InterfaceDefined>
 
*<DataDefined>
*!*	Archivo de productos con cuatro o más campos para precios.
*!*	De modo que en el mismo registro están todos los precios.
*</DataDefined>
 
*<Sample>
* Minibrow es mi buscador en tablas (formulario con grid y botones)
* Reemplazar por form de búsqueda propio
* Tabla de productos: "PRODUC"      (reemplazar por lo que corresponda)
* Campos de precios: "PRECIOA","PRECIOB","PRECIOC","PRECIOD"
*!*		Se podrían haber llamado PRECIO1, PRECIO2, etc.
*!*		Para ese caso, modificar la generación de combobox
*
* El combobox se construye con tres columnas:
*!*		1 - Muestra para el ususario
*!*		2 - Contiene el precio TRANSFORM(talprecio,lcFormato)
*!*			Esto se agrega porque se pueden .ColumnCount=2 con un ColumnWidths
*!*			apropiado y mostrar el valor del precio en el combo
*!*		3 - Boundcolumn, "" y los campos de la tabla
*</Sample>
 
*<cmdProduc.Click>
* Nota: Minibrow, Produc, Precioa, PrecioB, PrecioC, PrecioD, son elementos de mi sistema.
*            Reemplazar por lo que sea usual en el tuyo.
 
LOCAL lAceptar,nit,i
DO FORM Minibrow WITH "PRODUC",0 TO lAcepta
IF !lAcepta
	RETURN
ENDIF
SELECT produc
 
* Generar el contenido del Combobox
thisform.AddProperty("TomarPrecio","")
nit=0
 
WITH this.Parent.cmbcombo1
	.Clear
	.BoundColumn=3
	.ControlSource='thisform.TomarPrecio'
	nit=nit+1
 
	.addlistitem("(Seleccione Precio)",nit,1)
	.addlistitem("",nit,2)
	.addlistitem("",nit,3)
	FOR i=65 TO 68				&& Chr(65)="A"
		lcValor="Precio"+chr(i)
		nit=nit+1
		.addListitem(lcValor,nit,1)
		.addListitem(TRANSFORM(EVALUATE(lcValor),"999,999.99"),nit,2)
		.addListitem(lcValor,nit,3)
	NEXT
	.requery
	.refresh
ENDWITH
*</cmdProduc.Click>
 
*<cntCombo1.InteractiveChange>
LOCAL lcSelect,lcEvaluate
lcSelect=this.ListItem(this.listitemid,3)
IF !EMPTY(lcSelect)
	lcEvaluate="PRODUC."+LcSelect
	this.Parent.txtnum1.Value=EVALUATE(lcEvaluate)
ENDIF
*</cntCombo1.InteractiveChange>
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
Imágen de perfil de Hugo

DUDA SOBRE COMBOBOX

Publicado por Hugo (21 intervenciones) el 21/06/2014 22:54:05
gracias por la ayuda...voy a estudiarla y hacer pruebas...
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