Trabajar con &Mes y Select &mes

30/04/2010 - 00:38 por Enrique | Informe spam
Hola Grupo:
Tengo un combo que tiene escrito los 12 mese de año, la
idea es que cuando se seleccione un mes se llene con el InteractiveChange los
textos del formulario.
El problema se complica por que cada mes es una tabla, pero
lo bueno que con los mismos campos. ¿Como puedo hacer para pasar a una
variable la tabla, si las tablas tienen distintos nombre(enero, febrero,
marzo, etc.).? la idea es que quede activa la tabla seleccionada en el combo
y despues pueda ser ocupada en otros formularios y grillas...Ej.

Combo= mMes

CLOSE tables
DO CASE
CASE THIS.LISTINDEX = 1
THISFORM.mMes.Value="Enero"
THISFORM.mMes1.Value="Enero"
STORE 'enero' TO tabla
tabla="tabla"+".dbf"
USE &tabla shared

CASE THIS.LISTINDEX = 2
THISFORM.mMes.Value="Febrero"
THISFORM.mMes1.Value="Febrero"
STORE 'febrero' TO tabla
USE &tabla shared

etc..
ENDCASE

En ese te mismo tema, tengo un botón comandos en el evento click que hace lo
siguiente. ¿El problema nuevamente lo tengo en la tabla (enero) a
seleccionar, tiene que ser la tabla seleccionada en el combo de la primera
pregunta?.

set century on
mMes=THISFORM.mMes.Value
mrut_inf=THISFORM.mrut_inf.Value

select enero.nombre_inf,Apaterno_i,Amaterno_i,mrut_inf from enero;
where rut_inf = mrut_inf ;
into cursor micursor
thisform.RemoveObject('grid1')
thisform.addObject('grid1','grid')
thisform.grid1.visible=.t.
thisform.grid1.top0
thisform.grid1.leftB0
thisform.grid1.Height9
thisform.grid1.width%2

if _tally>0
messagebox("Hay " + transform(_tally) + " Nombres Duplicados")
thisform.num.value=transform(_tally)
THISFORM.Refresh
ELSE
messagebox("No Tiene Duplicidad.." )
THISFORM.Refresh
endif
THISFORM.Refresh


Muchas Gracias
Santiago de Chile
 

Leer las respuestas

#1 Luis Maria Guayan
30/04/2010 - 01:31 | Informe spam
Según tu ejemplo:

CASE THIS.LISTINDEX = 1
THISFORM.mMes.Value="Enero"
THISFORM.mMes1.Value="Enero"
STORE 'enero' TO tabla
tabla = tabla + ".dbf"
USE (tabla) shared



Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________


El 29/04/2010 19:38, Enrique escribió:
Hola Grupo:
Tengo un combo que tiene escrito los 12 mese de año, la
idea es que cuando se seleccione un mes se llene con el InteractiveChange los
textos del formulario.
El problema se complica por que cada mes es una tabla, pero
lo bueno que con los mismos campos. ¿Como puedo hacer para pasar a una
variable la tabla, si las tablas tienen distintos nombre(enero, febrero,
marzo, etc.).? la idea es que quede activa la tabla seleccionada en el combo
y despues pueda ser ocupada en otros formularios y grillas...Ej.

Combo= mMes

CLOSE tables
DO CASE
CASE THIS.LISTINDEX = 1
THISFORM.mMes.Value="Enero"
THISFORM.mMes1.Value="Enero"
STORE 'enero' TO tabla
tabla="tabla"+".dbf"
USE&tabla shared

CASE THIS.LISTINDEX = 2
THISFORM.mMes.Value="Febrero"
THISFORM.mMes1.Value="Febrero"
STORE 'febrero' TO tabla
USE&tabla shared

etc..
ENDCASE

Preguntas similares