FoxPro/Visual FoxPro - Motrar datos de una tabla segun el mes

 
Vista:
sin imagen de perfil

Motrar datos de una tabla segun el mes

Publicado por Jose (49 intervenciones) el 21/11/2013 21:54:36
Hola amigos, estoy intentando ingresar datos de una tabla "VENTAS" a otra tabla llamada "TABLAG" mediante una previa seleccion de opciones de combobox's;

Aqui les dejo la idea del codigo que llevo, esperando que puedan ayudarme con esto
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
Mes=""
DO CASE
	CASE (thisform.cmbmeses.ListIndex=0)
		Mes="Todos"
	CASE (thisform.cmbmeses.ListIndex=1)
		Mes="Enero"
	CASE (thisform.cmbmeses.ListIndex=2)
		Mes="Febrero"
	CASE (thisform.cmbmeses.ListIndex=3)
		Mes="Marzo"
	CASE (thisform.cmbmeses.ListIndex=4)
		Mes="Abril"
	CASE (thisform.cmbmeses.ListIndex=5)
		Mes="Mayo"
	CASE (thisform.cmbmeses.ListIndex=6)
		Mes="Junio"
	CASE (thisform.cmbmeses.ListIndex=7)
		Mes="Julio"
	CASE (thisform.cmbmeses.ListIndex=8)
		Mes="Agosto"
	CASE (thisform.cmbmeses.ListIndex=9)
		Mes="Septiembre"
	CASE (thisform.cmbmeses.ListIndex=10)
		Mes="Octubre"
	CASE (thisform.cmbmeses.ListIndex=11)
		Mes="Noviembre"
	CASE (thisform.cmbmeses.ListIndex=12)
		Mes="Diciembre"
ENDCASE
**************************
cod_pro=thisform.txtcodigo.Value
IF (thisform.txtcodigo.Value  <= 0) THEN
			MESSAGEBOX("Por favor seleccione el producto y la descripcion","advertencia")
		ELSE
			IF (Mes="Todos")
	 			INSERT INTO tablaG (producto,descripcio,cantidad,precio,total,precio_com,precio_ven,fecha) SELECT producto,descripcion,cantidad,precio,total,precio_com,precio_ven,fecha FROM ventas WHERE (cod_pro=ventas.cod_producto)
	 		ENDIF
	 		IF (Mes="Enero")
	 			INSERT INTO tablaG (producto,descripcio,cantidad,precio,total,precio_com,precio_ven,fecha) SELECT producto,descripcion,cantidad,precio,total,precio_com,precio_ven,fecha FROM ventas WHERE ((cod_pro=ventas.cod_producto) AND (ventas.fecha="1/11/0")) ---------------> aqui tengo el problema.
	 		ENDIF
ENDIF
thisform.carrito.Refresh
thisform.cmbproductos.setfocus
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

Motrar datos de una tabla segun el mes

Publicado por Saul (728 intervenciones) el 22/11/2013 00:10:09
que tipo de dato es tu campo fecha

AND (ventas.fecha="1/11/0")) ---------------> aqui tengo el problema. ENDIF

Sumponiento que es tipo DATE

deverias armar segun tu combo tu fecha.

xDia = '01'
xMes = '11' &&Segun tu combox (tu sabras si es caracter o numerico, solo conviertelo)
xYear = '2013'

nFecha = CTOD(xDia+"/"+xMes+"/"+xYear)

AND (ventas.fecha=nFecha)

Mas o menos te doy una idea, pues como no se el tipo de campo, pero si es tipo caracter solo
convertelo en carater la fecha

AND (ventas.fecha=DTOC(nFecha))

Saludos

Sha
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 Ever
Val: 20
Ha aumentado su posición en 2 puestos en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Motrar datos de una tabla segun el mes

Publicado por Ever (24 intervenciones) el 22/11/2013 13:26:01
Tu condicio seria asi:
and cmonth(ventas.fecha) = Mes
supongo que los resultados del combo mes arroja a la variable Mes.
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
sin imagen de perfil

Motrar datos de una tabla segun el mes

Publicado por neo (1604 intervenciones) el 22/11/2013 15:44:59
Saludos, muy posiblemente funcionaría de este modo:

ejemplo:

local mesn
mesn=month("01/11/12")

1
IF (Mes="Enero") INSERT INTO tablaG (producto,descripcio,cantidad,precio,total,precio_com,precio_ven,fecha) SELECT producto,descripcion,cantidad,precio,total,precio_com,precio_ven,fecha FROM ventas WHERE ((cod_pro=ventas.cod_producto) AND (month(ventas.fecha)=mesn ---------------> aqui tengo el problema. ENDIF ENDIF

Suerte.
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