Sobre SubTotales en Grid
HernanCano
Tengo un grid con datos, por ejm, de recaudos, como el mostrado en la
figura ( sección
Archivos - "Grid-SubTotales.bmp" ). Digamos que ya sé cómo generar los
renglones referentes por ejm a encabezados de grupo, subtotales de
grupo y totales generales.
Necesito poner en negrilla los renglones de encabezados, de subtotales
y de totales.
El campo "Marca" se ve en el grid sólo para efectos de que ustedes
tengan una mejor visión, pero en el desarrollo final se ocultaría
(digamos que ésto también sé cómo hacerlo).
Los efectos que quisiera implementar son: negrilla/itálica/subrayado,
color de fondo, color de letra, tamaño de letra; no necesariamente
todos juntos en el mismo desarrollo. Incluso cada efecto podría ser a
todo el renglón o sólo a una celda -o varias-.
He considerado que los efectos especiales se agregarán a los renglones
que tengan algo escrito en el campo "Marca".
He buscado en Internet, pero sólo llego a ejemplos que muestran cómo
hacer un campo calculado ( ejemplo de una factura; col1: referencia,
col2: descripción; col3: cantidad; col4: vr.unitario; col5: SUBTOTAL =
Cantidad * Vr.Unitario ), pero no es lo que necesito.
Gracias por el apoyo que me puedan dar.
Hernán Cano
Analista de Sistemas - Programador
Medellín, Antioquia, Colombia
PD: El efecto final se ve como lo que necesita, pues se hizo en hoja
electrónica y se armó una imagen bmp tomando además un grid "real".
menalm
1,RGB(128,255,128), RGB(255,255,255))", "Column")
Asi coloco en mis grid cuando quiero resaltar una fila, en mi caso
resalto las finas de pacientes que ya he atendido (soy medico,.. y
programador)
lo que puedes hacer es adicionar un campo mas (como un 'chk') al
cursor que estes generando y marcas las filas que te interesen cambiar
la propiedad y usas algo parecido al ejemplo de arriba.
suerte
Walter Mendoza
Intel Man
Saludos
> Date: Thu, 1 Apr 2010 22:37:34 -0700
> Subject: [Mundo Visual FoxPro] Sobre SubTotales en Grid
> From: jherna...@gmail.com
> To: mundovis...@googlegroups.com
> _______________________________________________________________
> Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
> FoxPro" de Grupos de Google.
>
> Para anular la suscripción a este grupo, envía un mensaje a:
> mundovisualfox...@googlegroups.com
>
> To unsubscribe, reply using "remove me" as the subject.
Tus datos personales, más seguros con Internet Explorer 8. ¡Descárgatelo gratis!
HernanCano
Su ayuda es esencial para mis mejoramientos.
Probaré las repu que me dan.
Hasta luego.
HernanCano
ejemplo, pero los resultados no son satisfactorios.
(creo recordar que la justificación no aparecerá correcta, lo cuál
hará difícil leer el prg; disculpen, sin problemas de estos protales;
pensé en grabarlo en Archivos -como la imagen-, pero si ustedes me
dicen...)
Gracias.
**
** El comentario
*
La única propiedad que funciona es DynamicBackColor (probablemente
también DynamicForeColor).
¿Qué adicional debemos hacer para que funcione el resto de propiedades
(las que se mencionan a continuación)?
DynamicFontName
DynamicFontSize *
DynamicFontBold *
DynamicFontItalic *
DynamicFontUnderline *
DynamicFontStrikeThru
DynamicFontOutline
DynamicFontShadow
Creo que para evitar los ceros podría usar DynamicInputMask, ¿cierto?
**************************************************
** Sample.PRG
**
local oForm1 &&
oForm1=newobject([frmSample])
if type([oForm1])=[O] and !isnull(oForm1)
oForm1.Show(1)
else
wait window [No se pudo crear al formulario de ejemplo.]
endif
release oForm1
clear class frmSample
return
DEFINE CLASS frmSample AS form
WindowType = 1
DataSession= 2 && probando
*Top = 50
*Left =200
AutoCenter = .f.
Height=400
Width =600
DoCreate = .T. && ¿para qué sirve??
Caption = "Ejemplo"
AllowOutput = .F.
icon =([])
Name = "frmSample"
ADD OBJECT grdDatos AS grid WITH ;
Left= 15, ;
Top = 15, ;
Height=290, ;
Width =500, ;
Name = "grdDatos", ;
RecordSourceType= 0,;
RecordSource= [dbf("PRUEBA")]
procedure Load
set talk off
set cent on
set date ansi
create cursor PRUEBA ( Chk C(05), Codigo C(05), Fecha D, Numero N(05),
Factura N(5), Valor N(11,2) )
insert into PRUEBA values ( [], [V01], date(2010,01,01), 1, 123,
1500 )
insert into PRUEBA values ( [], [V01], date(2010,01,08), 1, 234,
2500 )
insert into PRUEBA values ( [], [V01], date(2010,01,15), 1, 345,
3700 )
insert into PRUEBA values ( [**], [ ], {}, 0, 0,
1500+2500+3700)
insert into PRUEBA values ( [], [V01], date(2010,01,22), 1, 456,
4500 )
insert into PRUEBA values ( [], [V01], date(2010,01,29), 1, 567,
5000 )
insert into PRUEBA values ( [], [V01], date(2010,02,05), 1, 678,
6500 )
insert into PRUEBA values ( [], [V01], date(2010,02,12), 1, 680,
7250 )
insert into PRUEBA values ( [**], [ ], {}, 0, 0,
4500+5000+6500+7250)
insert into PRUEBA values ( [], [V01], date(2010,02,19), 1, 789,
7500 )
insert into PRUEBA values ( [], [V01], date(2010,02,26), 1, 890,
8700 )
insert into PRUEBA values ( [], [V01], date(2010,03,05), 1, 901,
9850 )
insert into PRUEBA values ( [**], [ ], {}, 0, 0,
7500+8700+9850)
procedure Init
with This
**
cDynamic = [iif(empty(Chk), .f., .t.) ] && no funciona,
¿por qué?
.SetAll('DynamicFontBold', cDynamic, 'Column')
**
*cDynamic = [iif(empty(Chk), DynamicFontSize, 20)]
&&FontSize*1.5 && muestra error según imagen, ¿por qué?
*.SetAll('DynamicFontSize', cDynamic, 'Column')
**
*cDynamic = [iif(empty(Chk), RowHeight, RowHeight*1.3) ] &&
tipo de dato inválido
*.SetAll('RowHeight', cDynamic, 'Grid')
**
.SetAll("dynamicbackcolor", "IIF(empty(Chk) ,
RGB(255,255,255) , RGB(128,255,128))", "Column") && SI FUNCIONA!!
**
endwith
**
endproc
ENDDEFINE
*
**************************************************
HernanCano
.
Chao.
.
HernanCano
Yvan GMAIL
Yvan Carranza
613-8906
----- Original Message -----
From: "HernanCano" <jherna...@gmail.com>
To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>
Sent: Monday, April 12, 2010 8:39 PM
Subject: [Mundo Visual FoxPro] Re: Sobre SubTotales en Grid
A�n no resuelvo mi inconveniente.
--
_______________________________________________________________
Has recibido este mensaje porque est�s suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
Para anular la suscripci�n a este grupo, env�a un mensaje a:
Christian López Gómez
--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
--
Atentamente.
Ing. Christian López Gómez
Jefe de Sistemas
MSN: christi...@hotmail.com
christi...@gmail.com
Depto. Sistemas
P.D. "Un buen programador nunca muere solo se pierde en un proceso"
Daniel Sánchez
Julio Cesar Rodriguez Dominguez
hola amigo como le haces para que pongas las pestañas en la parte de abajo..?
HernanCano
HernanCano
saludo) es
(puedes leerlo allá arriba):
-----------------------------------------------------------------------------------------------------------
Tengo un grid con datos, por ejm, de recaudos, como el mostrado en la
figura
( sección Archivos - "Grid-SubTotales.bmp" ). Digamos que ya sé cómo
generar
los renglones referentes por ejm a encabezados de grupo, subtotales de
grupo
y totales generales.
Pero..bueno... no te debe dar pereza mirar allá (en los recursos de
este gran foro)...
lo lamento.... no veo cómo adjuntar aquí mismo....
-----------------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------------
De todas formas---te comento: No, no es como la imagen que pones. Tu
imagen
similar una aplicación contable, pero no, lo que deseo es algo similar
a los
subtotales de un xls, como se ve en la imagen quye puse.....
Yvan GMAIL
historial.. osea el problema que tenias.. Revis� su Imagen en la web... lo
que deseas es combinar las celdas.. Eso seg�n investigue un poco en san
Google.. lo puedes hacer con MsflexGrid (control active x)-- cpnm
mergecells.
Yvan Carranza
613-8906
----- Original Message -----
From: "HernanCano" <jherna...@gmail.com>
To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>
Sent: Wednesday, April 14, 2010 12:12 AM
Subject: [Mundo Visual FoxPro] Re: Sobre SubTotales en Grid
Perd�n, "iv�n". �Dices algo?
Daniel Sánchez
Gil Grissom
--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
Julio Cesar Rodriguez Dominguez
Estos problemas ocurren cuando se revisa el correo desde el web de gmail, les sugiero revisar desde Outlook o MS Outlook
HernanCano
"Yvan": gracias por tu aporte.
Pero--por favor-- la idea no es el manejo de "combinar celdas". dices:
------------------
lo puedes hacer con MsFlexGrid (control active x)-- con mergecells.
------------------
La imagen muestra algo al respecto, pero la idea no es ésa.
La idea es "mostrar en negrilla -o la letra en otro color, o el fondo
highlight en otro color-" de los renglones marcados como subtotal,
total o título de grupo.
Me complace tu aporte, claro; es sólo que no quiero que haya
desviaciones en el tema.
.
Seguimos en contacto.
(2)
Yvan, Daniel: agradezco su apoyo. Somos "zorros" (con respeto).
(3)
Christian: tienes su email; no nos desviemos, ¿está bien?
(4)
"grissom", julio: ¿problemas? outlook?
Está bien....
.
Con el apoyo de todos, definiremos una metodología que nos ayude con
un grid para "subtotales, totales y títulos de grupo".
.
Hasta luego.
Yvan GMAIL
613-8906
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
HernanCano
Pero es que quisiera que analizaras el listado que mostré en abr-04 a
las 6:15pm, donde las instrucciones que tengo no funcionan como se
menciona en los comentarios del mismo.
Veo que utilizas todos los aspectos que deseo: color de fondo,color de
letra, negrilla, subrayado, etc, tanto sobre el título del grupo como
en los renglones de subtotal e incluso en columnas (o celdas)
específicas. El combinar celdas no me preocupa, ni creo que me
preocupe a posteriori.
Me funciona una pero las otras no. ¿Por qué?
No te pido que me des tu solución, pero ¿me podrías indicar por qué la
que propongo no funciona?
Gracias por leer mis temas.
.
Yvan GMAIL
¿por qué?
.SetAll('DynamicFontBold', cDynamic, 'Column')
Pero has probado sin usar la variable cDynamic o usarla asi
cDynamic = 'iif(empty(Chk), .f., .t.)'
.SetAll('DynamicFontBold', 'iif(empty(Chk), .f., .t.)', 'Column')
Lo mismo seria para las demas.
-------------------------------------------------------------------------------------------------
Para afectar el color de fondo de todas las columna uso .setall.. pero para
el caso
de afectar una sola columna uso.
.Columna1.DynamicFontBold = "IIF(MiCampo = 'X',.T.,.F.)"
Yvan Carranza
613-8906
----- Original Message -----
From: "HernanCano" <jherna...@gmail.com>
To: "Mundo Visual FoxPro" <mundovis...@googlegroups.com>
Sent: Friday, April 16, 2010 12:39 AM
Subject: [Mundo Visual FoxPro] Re: Sobre SubTotales en Grid
HernanCano
.SetAll('DynamicFontBold', cDynamic, 'Column')
.SetAll('DynamicFontBold', cDynamic, 'Column')
Todas tres son EXACTAMENTE IGUALES.
¿Qué te pasa?
Daniel Sánchez
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil 044-949398047
Trujillo - Perú
HernanCano
A pesar de no estar de acuerdo con lo de "no usar la vble" (pues la
metodología la tomé de ayudas de otros colegas en estos foros (se
supone que cada uno la ha probado y funciona), he reescrito el método
INIT del form y lo tengo así:
procedure Init
with This
.SetAll("DynamicBackColor","IIF(empty(Chk) ,
RGB(255,255,255), RGB(128,255,128))", "Column") && SI FUNCIONA!!
.SetAll("DynamicForeColor","IIF(empty(Chk) , RGB(0,0,0) ,
RGB(128,0,128))", "Column") && SI FUNCIONA!!
*.SetAll('DynamicFontBold', [iif(empty(Chk) , .t. , .f.) ],
'Column') && No
.SetAll('DynamicFontName', [iif(empty(Chk) , "Courier New",
"Arial Black")], 'Column') && SI FUNCIONA!!
.SetAll('DynamicFontSize', [iif(empty(Chk) , 08, 11)],
"99999,999,999", "@Z 99999,999,999")], 'Column') && SI FUNCIONA!!
.grdDatos.SetAll("IntegralHeight", .t., "TextBox") && No
endwith
Como verán no funciona ni DynamicFontBold ni IntegralHeight.
La forma como solvento el no usar negrilla, es con una fuente q
HernanCano
A pesar de no estar de acuerdo con lo de "no usar la vble" (pues la
metodología la tomé de ayudas de otros colegas en estos foros (se
supone que cada uno la ha probado y funciona), he reescrito el método
INIT del form y lo tengo así:
procedure Init
with This
.SetAll("DynamicBackColor","IIF(empty(Chk) ,
RGB(255,255,255), RGB(128,255,128))", "Column") && SI FUNCIONA!!
.SetAll("DynamicForeColor","IIF(empty(Chk) , RGB(0,0,0),
RGB(128,0,128))", "Column") && SI FUNCIONA!!
*.SetAll('DynamicFontBold', [iif(empty(Chk) , .t. , .f.) ],
'Column') && No
.SetAll('DynamicFontName', [iif(empty(Chk) , "Courier New",
"Arial Black")], 'Column') && SI FUNCIONA!!
.SetAll('DynamicFontSize', [iif(empty(Chk) , 08, 11)],
'Column') && SI FUNCIONA!!
.SetAll('DynamicInputMask', [iif(empty(Chk),
"99999,999,999", "@Z 99999,999,999")], 'Column') && SI FUNCIONA!!
.grdDatos.SetAll("IntegralHeight", .t., "TextBox") && No
endwith
Como verán no funciona ni DynamicFontBold ni IntegralHeight.
bold por defecto (como la Arial Black).
Ahora cuando uso un tamaño de letra muy grande, no cabe en la celda
del grid (con los datos del ejemplo se nota ésto).
Pero no sé cómo usar la propiedad IntegralHeight de los textbox dentro
del grid.
La Z en el InputMask es para no mostar ceros, pero en las fechas
vacías se muestran los puntos separadores.
Ver la imagen " Grid-SubTotales-2.jpg " que cargué en archivos.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Les agradezco a todos la ayuda.
Considero que puedo quedarme con la solución como la tengo hasta
ahora.
Lo que pueda verse faltando lo puedo ajustar más adelante.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Larga vida al zorro.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
HernanCano
Lamento que haya quedado como independiente.
.
Chao.
HernanCano
o "conclusión" a este tema.
Lamento que haya quedado (ese otro) como independiente.
.
Chao.