Como usar grilla FOXPRO sin enlazar a una Tabla
Programo desde hace muchísimos años en varios lenguajes, y me ha tocado (por circunstancias laborales) tener que aprender aceleradamente FOXPRO.
El problema que en cuentro es que estoy desarrollando una compleja CONSULTA de Productos, que necesita mostrar los datos en una GRILLA, pero cada columna viene de tablas y con filtros diferentes y complejos.
Esto en otros lenguajes lo resuelvo fácilmente ejecutando rutinas separadas y cargando los datos en una Grilla por código.. Es decir, sin que la grilla esté conectada a ninguna BD o TABLA.
Grid1.textmatrix(1,2)="PEPE"
o
Grid1.row=1
Grid1.col=2
Grid1.text="PEPE"
El problema es que le he dado muchísimas vueltas y el GRID que usa FOXPRO parece que solo funciona atado a una TABLA... Lo cual no me deja herramientas para poder lograr lo que quiero...
Se puede hacer lo que deseo, ¿o tengo que si o si crear TABLAS o CURSORES para poder usar una GRILLA?
El problema que en cuentro es que estoy desarrollando una compleja CONSULTA de Productos, que necesita mostrar los datos en una GRILLA, pero cada columna viene de tablas y con filtros diferentes y complejos.
Esto en otros lenguajes lo resuelvo fácilmente ejecutando rutinas separadas y cargando los datos en una Grilla por código.. Es decir, sin que la grilla esté conectada a ninguna BD o TABLA.
Grid1.textmatrix(1,2)="PEPE"
o
Grid1.row=1
Grid1.col=2
Grid1.text="PEPE"
El problema es que le he dado muchísimas vueltas y el GRID que usa FOXPRO parece que solo funciona atado a una TABLA... Lo cual no me deja herramientas para poder lograr lo que quiero...
Se puede hacer lo que deseo, ¿o tengo que si o si crear TABLAS o CURSORES para poder usar una GRILLA?
1 Respuesta
Respuesta de Jorge Luis Vejerano Ortiz
1
Usar una grilla sin origen de datos en Fox, no tiene sentido. El propósito de un grid en fox es mostrar datos de un cursor de datos o tabla. Cuando al grid se le asigne su origen de datos, éste obtendrá la apariencia necesaria (filas, columnas, texto de columnas)
Tu dices que : "El problema que en cuentro es que estoy desarrollando una compleja CONSULTA de Productos, que necesita mostrar los datos en una GRILLA, pero cada columna viene de tablas y con filtros diferentes y complejos."
Aquí no veo el problema, tu consulta, sea sencilla o compleja, generará un cursor, y éste será el origen de datos del grid. La consulta es la que debe manejar la complejidad de cuantas tablas y cuantos filtros se deben manejar. El grid sólo mostrará lo que resulte de la consulta. Éste es simplista.
Tu dices que : "El problema que en cuentro es que estoy desarrollando una compleja CONSULTA de Productos, que necesita mostrar los datos en una GRILLA, pero cada columna viene de tablas y con filtros diferentes y complejos."
Aquí no veo el problema, tu consulta, sea sencilla o compleja, generará un cursor, y éste será el origen de datos del grid. La consulta es la que debe manejar la complejidad de cuantas tablas y cuantos filtros se deben manejar. El grid sólo mostrará lo que resulte de la consulta. Éste es simplista.
Estimado,
Muchas Gracias por contestar.. pero como te decía, no es posible armar un cursor o tabla con la complejidad de todas estas consultas..
En conclusión.. no puedo hacerlo vía una sentencia SELECT, por más compleja que sea..
Estoy probando usar el LISTBOX multicolumna... no es lo mismo.. ni visualmente ni a nivel performance... pero bueno.. es lo que hay..
Y no coincido con que si no usas una GRILLA con una tabla no tiene sentido...
Saludos
Pablo
Muchas Gracias por contestar.. pero como te decía, no es posible armar un cursor o tabla con la complejidad de todas estas consultas..
En conclusión.. no puedo hacerlo vía una sentencia SELECT, por más compleja que sea..
Estoy probando usar el LISTBOX multicolumna... no es lo mismo.. ni visualmente ni a nivel performance... pero bueno.. es lo que hay..
Y no coincido con que si no usas una GRILLA con una tabla no tiene sentido...
Saludos
Pablo
Dices que estás probando el listbox multicolumna. Éste es una versión más limitada que el grid. No entiendo porqué tratas de mostrar datos con éste control, de hecho ya te has dado cuenta del "performance".
¿De qué se trata la "compleja CONSULTA de Productos"? ¿Cuál es el origen de datos y cual es el resultado de la consulta? Explícame eso, para ver si encontramos alternativas.
Y porqué no coincides conmigo en lo que planteo. ¿Has descubierto algo nuevo?
¿De qué se trata la "compleja CONSULTA de Productos"? ¿Cuál es el origen de datos y cual es el resultado de la consulta? Explícame eso, para ver si encontramos alternativas.
Y porqué no coincides conmigo en lo que planteo. ¿Has descubierto algo nuevo?
Tal como dices, la solución es usar un GRID, entonces, lo que hice fue colocar todo el resultado del LISTBOX, en un CURSOR, y luego intentar enlazarlo a una GRILLA.
El problema es que a pesar de enlazar el CURSOR (el cual compruebo con un BROWSE, que tiene los datos bien grabados), en la grilla no se muestra nada..
Te pego el código que use..
CREATE CURSOR MaxiCons (Suc N(3), Nombre C(20), Minimo N(6), maximo N(6), Pila N(6), VtaUlt N(8), StkUlt N(6), VtaAct N(6), Dias N(3))
FOR I = 1 TO maxfila
APPEND BLANK
REPLACE SUC WITH MATRIZ(I,1)
REPLACE NOMBRE WITH MATRIZ(I,2)
REPLACE MINIMO WITH MATRIZ(I,3)
REPLACE MAXIMO WITH MATRIZ(I,4)
REPLACE PILA WITH MATRIZ(I,5)
REPLACE VTAULT WITH MATRIZ(I,6)
REPLACE STKULT WITH MATRIZ(I,7)
REPLACE VTAACT WITH MATRIZ(I,8)
REPLACE DIAS WITH MATRIZ(I,9)
NEXT
WITH thisform.g
.RecordSource=MaxiCons
.recordsource=.recordsource
.ColumnCount=9
.readonly=.T.&&solo lectura
.allowheadersizing=.f.
.allowrowsizing=.f.
.ChildOrder = "Suc"
.Visible = .T. && Grid control visible
.FontSize = 8 && Tamaño de la Fuente para el texto
.Forecolor = RGB(0,0,0) && Texto en Negro
.GridLineColor = RGB(0,0,0) && Color de las lineas que separan las celdas
.GridLines = 3 && Especifica si el control grid se muestra en lineas horizontales y verticales
.Highlight = .T. && La celda aparece selecionada
.HighlightBackColor = RGB(0,64,128) && Color de la Fila Selecionada
.HighlightRowLineWidth = 2 && El ancho del resaltado de la fila selecionada
.HighlightStyle = 2 && Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario
.Panel = 1
.RecordSourceType = 1
.RowHeight = 18 && El alto de las filas de la grid
.Tabindex = 1 && Orden de la tabulacion
.View = 0 && Tipo de Vista
.column1.ControlSource = "Suc"
.column2.ControlSource = "Nombre"
.column3.ControlSource = "Minimo"
.column4.ControlSource = "Maximo"
.column5.ControlSource = "Pila"
.column6.ControlSource = "VtaUlt"
.column7.ControlSource = "StkUlt"
.column8.ControlSource = "VtaAct"
.column9.ControlSource = "Dias"
.column1.header1.caption="Suc"
.column2.header1.caption="Nombre"
.column3.header1.Caption = "Minimo"
.column4.header1.Caption = "Maximo"
.column5.header1.Caption = "Pila"
.column6.header1.Caption = "VtaUlt"
.column7.header1.Caption = "StkUlt"
.column8.header1.Caption = "VtaAct"
.column9.header1.Caption = "Dias"
FOR grdNegrit=1 TO 9
ncol="column"+ALLTRIM(STR(grdNegrit))+"."
.&ncol.header1.FontBold=.T.
.&ncol.header1.Alignment=0
ENDFOR
.Refresh
ENDWITH
¿Habrá qué cerrar el CURSOR antes de mostrarlo? supongo que si se cierra se pierde.. ¿qué debo hacer?
Muchísimas Gracias por tu ayuda.
Saludos
El problema es que a pesar de enlazar el CURSOR (el cual compruebo con un BROWSE, que tiene los datos bien grabados), en la grilla no se muestra nada..
Te pego el código que use..
CREATE CURSOR MaxiCons (Suc N(3), Nombre C(20), Minimo N(6), maximo N(6), Pila N(6), VtaUlt N(8), StkUlt N(6), VtaAct N(6), Dias N(3))
FOR I = 1 TO maxfila
APPEND BLANK
REPLACE SUC WITH MATRIZ(I,1)
REPLACE NOMBRE WITH MATRIZ(I,2)
REPLACE MINIMO WITH MATRIZ(I,3)
REPLACE MAXIMO WITH MATRIZ(I,4)
REPLACE PILA WITH MATRIZ(I,5)
REPLACE VTAULT WITH MATRIZ(I,6)
REPLACE STKULT WITH MATRIZ(I,7)
REPLACE VTAACT WITH MATRIZ(I,8)
REPLACE DIAS WITH MATRIZ(I,9)
NEXT
WITH thisform.g
.RecordSource=MaxiCons
.recordsource=.recordsource
.ColumnCount=9
.readonly=.T.&&solo lectura
.allowheadersizing=.f.
.allowrowsizing=.f.
.ChildOrder = "Suc"
.Visible = .T. && Grid control visible
.FontSize = 8 && Tamaño de la Fuente para el texto
.Forecolor = RGB(0,0,0) && Texto en Negro
.GridLineColor = RGB(0,0,0) && Color de las lineas que separan las celdas
.GridLines = 3 && Especifica si el control grid se muestra en lineas horizontales y verticales
.Highlight = .T. && La celda aparece selecionada
.HighlightBackColor = RGB(0,64,128) && Color de la Fila Selecionada
.HighlightRowLineWidth = 2 && El ancho del resaltado de la fila selecionada
.HighlightStyle = 2 && Si la fila esta resaltada, permanece resaltada cuando el usuario cambia el enfoque a otro control del formulario
.Panel = 1
.RecordSourceType = 1
.RowHeight = 18 && El alto de las filas de la grid
.Tabindex = 1 && Orden de la tabulacion
.View = 0 && Tipo de Vista
.column1.ControlSource = "Suc"
.column2.ControlSource = "Nombre"
.column3.ControlSource = "Minimo"
.column4.ControlSource = "Maximo"
.column5.ControlSource = "Pila"
.column6.ControlSource = "VtaUlt"
.column7.ControlSource = "StkUlt"
.column8.ControlSource = "VtaAct"
.column9.ControlSource = "Dias"
.column1.header1.caption="Suc"
.column2.header1.caption="Nombre"
.column3.header1.Caption = "Minimo"
.column4.header1.Caption = "Maximo"
.column5.header1.Caption = "Pila"
.column6.header1.Caption = "VtaUlt"
.column7.header1.Caption = "StkUlt"
.column8.header1.Caption = "VtaAct"
.column9.header1.Caption = "Dias"
FOR grdNegrit=1 TO 9
ncol="column"+ALLTRIM(STR(grdNegrit))+"."
.&ncol.header1.FontBold=.T.
.&ncol.header1.Alignment=0
ENDFOR
.Refresh
ENDWITH
¿Habrá qué cerrar el CURSOR antes de mostrarlo? supongo que si se cierra se pierde.. ¿qué debo hacer?
Muchísimas Gracias por tu ayuda.
Saludos
Prueba con colocar en la propiedad:
.RecordSource="MaxiCons" && Usa las comillas.
Y obvia poner: .recordsource=.recordsource
Esto último no es necesario. Me avisas.
.RecordSource="MaxiCons" && Usa las comillas.
Y obvia poner: .recordsource=.recordsource
Esto último no es necesario. Me avisas.
Gracias por contestar...
Me muestra los títulos, las lineas divisorias.. pero no muestra la información..
Con el cambio que me has pasado.. al menos no aparece la grilla como un gran cuadrado blanco.. pero tampoco me muestra la info.
¿Qué puede ser?
Gracias
Me muestra los títulos, las lineas divisorias.. pero no muestra la información..
Con el cambio que me has pasado.. al menos no aparece la grilla como un gran cuadrado blanco.. pero tampoco me muestra la info.
¿Qué puede ser?
Gracias
En este código, fuera de lo que comenté, no hay nada fuera de lugar. Está bien y el grid debiera mostrar los datos.
De hecho, con sólo la línea:
.RecordSource='MaxiCons'
Debe mostrar los datos. Claro, colocando RecordSourceType en 1.
Fíjate si hay algo que esté cerrando el cursor, antes de asignarlo en tu grid.
De hecho, con sólo la línea:
.RecordSource='MaxiCons'
Debe mostrar los datos. Claro, colocando RecordSourceType en 1.
Fíjate si hay algo que esté cerrando el cursor, antes de asignarlo en tu grid.
buen día, le quería hacer una consulta a ver si me podría ayudar, tengo un grid donde se reflejan los movimientos de las mesas de un bar, lo que yo quiero hacer es que dentro del grid en la columna SUBTOTAL aparezca el resultado de la multiplicación entre la columna CANTIDAD y PRECIO UNITARIO, soy un novato en el tema y busco en internet y los pocos ejemplos que consigo tiene códigos muy complejos, desde ya muchas gracias. - Gabriel Alija