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
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
0
