grid con subtotales y totales

[ibania blanco]

alguien conoce de un grid en el cual subtotaliza y totaliza, como los
que hace el sr. cano, quisiera estudiarlo,

[Roberto Matarrita]

Lo que puedes hacer es un select sum() de los campos que necesitas totalizar y mostralos en un texbox dentro de tu forma.

 

OK

 

Roberto

Costa Rica.

[Walter Alberto Sosa]

O hacer una consulta y que ultimo registro sea la suma.

 

Walter Alberto Sosa

Consultor de  Sistemas

wsys.inf...@gmail.com

Cel:  (0351) 156199804 - 152425901

WSys Servicios Informaticos

 

[extremo]

Lo otro es usar flexGrid

Ese grid totaliza, pero es un poco mas engorrozo para trabajarlo
porque no trabaja con cursores. Es el grid de vbasic pero igual se
puede usar en fox

Bendiciones

[Daniel Sánchez]

Como que deseas que quede, adjunto ejemplo si es así lo que deseas obtener en tu grid.

--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil 044-949398047
Trujillo - Perú

[lervys cuicas]

Buenas noches Daniel, como haces para que el grid quede de esa forma...? Podrias ayudarme a hacer algo parecido...?

---

Date: Wed, 22 Sep 2010 22:49:41 -0500
Subject: Re: [vfp] Re: grid con subtotales y totales
From: resets...@gmail.com
To: publice...@googlegroups.com

[Daniel Sánchez]

Si te refieres a que muestre en otro color y en negrita la linea de resumen, solo es cuestión de adicionar un campo a tu tabla, al momento de hacer la consulta, por decir un campo main que puede obtener n valores en este caso necesito solo 2 opciones 0 u 1, y utilizando las opciones Dynamics del grid puedo indicarle que con el criterio de que si es el valor 1 del campo main, lo resalte como en mi caso la línea donde están los datos resumen o totales.

[lervys cuicas]

En realidad lo que quiero saber es como haces esa linea de resumen o totales..?

---

Date: Wed, 22 Sep 2010 23:23:28 -0500

Subject: Re: [vfp] Re: grid con subtotales y totales
From: resets...@gmail.com
To: publice...@googlegroups.com

[Daniel Sánchez]

Como te comente anteriormente, tendrias que tener un campo especifico que tome ciertos valores según lo que requieras, para el ejemplo este campo tiene 2 valores 0 u 1, si es 0 son datos que no necesito resaltar, si tiene el valor de 1 entonces este si necesito que se diferencia del resto, para esto haces uso de las propiedades del grid, que tiene todo un conjunto de propiedades que cambian dinamicamente segun algun criterio o campo indicado (en mi caso) la palabra Dynamic esta ante puesto a las funciones que cumplen van desde poner un color a una celda, cambiar el tipo de letra y otras cosas más. En mi caso lo utilizo según el código adjunto

Thisform.GRDCURSOR.SetAll("DynamicForeColor", "iif(main=1,RGB(255,0,0),RGB(0,0,0))")

Thisform.GRDCURSOR.SetAll("DynamicFontBold", "iif(main=1,.t.,.f.)")

Thisform.GRDCURSOR.SetAll("DynamicBackColor", "icase(main=1,RGB(255,225,150),LEN(ALLTRIM(codigocuenta))=2,RGB(255,255,128),RGB(255,255,255))")

[lervys cuicas]

Ok. Pero yo me refiero a como haces la suma...? Lo de los colores y los cambios tambien es muy importante pero me gustaria aprender a hacer sumas en el grid tal como aparece tu ejemplo

---

Date: Wed, 22 Sep 2010 23:38:05 -0500

Subject: Re: [vfp] Re: grid con subtotales y totales
From: resets...@gmail.com
To: publice...@googlegroups.com

[Daniel Sánchez]

Normalmente este listado es producto de una consulta, la cual como se ve tiene columnas que deseo sumar, al final de obtenida la consulta realizo un sum a los campos deseados estos resultado almacenados cada uno en una variable, que es insertado luego a la tabla quedando estos al final y resaltados como indique anteriormente.
Nada del otro mundo, al menos en esta forma como es presentado en este ejemplo.

[lervys cuicas]

Buen dia, puede que no sea nada del otro mundo lo de sumar subtotales y totales, pero no lo se hacer y me gustaria que alguien me facilitara un ejemplo de como hacerlo. Gracias a todos.

---

Date: Wed, 22 Sep 2010 23:57:01 -0500

Subject: Re: [vfp] Re: grid con subtotales y totales
From: resets...@gmail.com
To: publice...@googlegroups.com

[Yvan GMAIL]

Amigo,

Lo único que están haciendo es agregarle un registro más a la tabla o cursor que está enlazado al grid.. ya sea con append blank o insert into.

 

¿pero antes de insertar ese registro tienes que totalizar el campo o los campos)

p.e. si mi cursor enlazado al grid tiene esta estructura

campos

Código

Descripción

Importe1

Importe2

Importe3

 

Harías un

Calcúlate sum(importe1) t ovar_importe1 de los campos.. y el valor

Luego lo insertar al cursor o tabla

Sele micursor enlazado

Append blank

Replace               descripción         with “ T O T A L ES”

Replace               importe1             with  var_importe1

Replace               tipo_reg              with  “T”

 

Y con el dinamycolor o dyna..backcolor condicion .. que si es “T” lo pintas de otro color.

 

 

Etc..

[lervys cuicas]

Ok. muchas gracias. Voy a intentarlo a ver que tal me sale. Que tengas buen dia.

---

From: yvan.c...@gmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Re: grid con subtotales y totales
Date: Thu, 23 Sep 2010 08:16:59 -0500

[Walter Alberto Sosa]

De todas formas,  no es buena idea poner los totales o subtotales dentro del grid porque habitualmente lo afectan otras variables, como impuestos, las cuales es conveniente visualizar aparte.

 

Saludos

 

Walter Alberto Sosa

Consultor de  Sistemas

wsys.inf...@gmail.com

Cel:  (0351) 156199804 - 152425901

WSys Servicios Informaticos

 

 

[lervys cuicas]

Buenas tardes Walter, como recomendarias tu que lo hiciera..? Me gustaria calcular por ejemplo el total de varios productos sin impuestos, al lado el total con impuestos y al final el total de los impuestos

---

From: wsys.inf...@gmail.com

To: publice...@googlegroups.com
Subject: RE: [vfp] Re: grid con subtotales y totales

Date: Thu, 23 Sep 2010 14:42:31 -0300

[elkin dario uribe torres]

Buenas tardes

Si lo que buscas es algo parecido a esto, solo deberias colocar un metodo dentro del formulario para que haga los calculos a medida que ingreses los productos, te adjunto lo que yo hago en dicho metodo ya tu lo acondicionas o lo mejoras a tu conveniencia, utiliza un cursor temporal que luego lo llevo a la tabla al momento de guardar dicho documento

select itemscomprascursor  &&Cursor temporal del detalle de la venta
IF thisform.redondeo = .f.   &&Si maneja cifras redondeadas
    sum round(((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
        (1-(itemscomprascursor.descuento/100)),2),  ;
        round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
        (1-(itemscomprascursor.descuento/100))))*;
        (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.iva/100),2) ;
        for !DELETED();
        to bruto,totaliva
    SUM round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
        (1-(itemscomprascursor.descuento/100))))* ;
        (1-(thisform.container1.spinner1.value/100))),2)    ;
        for !DELETED() AND itemscomprascursor.iva <> 0 to basegravada
    thisform.baseiva = basegravada

***Te coloco un valor pero utilizo una variable para saber el tope de la retencion en la fuente

    IF bruto >= 642000 
        IF thisform.autorretenedor = .f.  &&Si el cliente no es autorretenedor
            SUM round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
                (1-(itemscomprascursor.descuento/100))))*;
                (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.retencion/100),2) ;
                for !DELETED() to thisform.valorretencion
        ELSE
            thisform.valorretencion = 0
        ENDIF            
    ELSE
        thisform.valorretencion = 0
    ENDIF
    store round((bruto*(ThisForm.Container1.Spinner1.Value/100)),2) to descuento1
    store round((bruto-descuento1+totaliva-thisform.valorretencion),2) to total
*    store round((bruto-descuento1+totaliva),2) to total
ELSE
    sum round(((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
        (1-(itemscomprascursor.descuento/100)),0),  ;
        round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
        (1-(itemscomprascursor.descuento/100))))*;
        (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.iva/100),0) ;
        for !DELETED();
        to bruto,totaliva
    SUM round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
        (1-(itemscomprascursor.descuento/100))))* ;
        (1-(thisform.container1.spinner1.value/100))),0)    ;
        for !DELETED() AND itemscomprascursor.iva <> 0 to basegravada
    thisform.baseiva = basegravada
    store round((bruto*(ThisForm.Container1.Spinner1.Value/100)),0) to descuento1
    IF bruto >= 642000
        IF thisform.autorretenedor = .f.
            SUM round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprascursor.valdescto)* ;
                (1-(itemscomprascursor.descuento/100))))*;
                (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.retencion/100),0) ;
                for !DELETED() to thisform.valorretencion
        ELSE
            thisform.valorretencion = 0
        ENDIF            
    ELSE
        thisform.valorretencion = 0
    ENDIF
    store round((bruto-descuento1+totaliva-thisform.valorretencion),0) to total
ENDIF
thisform.container1.text1.value = bruto
thisform.container1.text1.refresh
thisform.container1.text2.value = descuento1
thisform.container1.text2.refresh
thisform.container1.text3.value = totaliva
thisform.container1.text3.refresh
thisform.container1.text4.value = thisform.baseiva
thisform.container1.text4.refresh
thisform.container1.text5.value = total
thisform.container1.text5.refresh
thisform.container1.text6.value = thisform.valorretencion
thisform.container1.text6.refresh


Elkin Uribe
Medellin - Colombia

[Yvan GMAIL]

Hola Elkin,

Viendo tu pantalla solo como una sugerencia.. Los labels y texbox del encabezado del formulario trata de tabularlos bien en la Posición X.

 

Antes también yo armaba  mis pantallas algo así, pero un amigo me hizo la observación.. Se ve más ordenado.

 

Pero no haberte incomodado…

 

Más o menos así: Aunque viendo mi form aun me falta ordenar.. jeje..

 

[lervys cuicas]

Muchas gracias a todos por sus aportes en este tema.

---

From: yvan.c...@gmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Re: grid con subtotales y totales

Date: Thu, 23 Sep 2010 14:17:43 -0500

[elkin dario uribe torres]

Gracias Yvan por la sugerencia la tomare en cuenta, toda sugerencia es bienvenida.

Elkin Uribe
Medellin - Colombia

[Walter Alberto Sosa]

Lervis

 

En el método valid  de los campos cantidad, precio e importe pone código para que te vaya sumando el subtotal en una variable, la cual se muestra en un campo text al final de la grilla.  Si tenés productos con alícuotas diferentes para algún impuestos, tendrás que hacer subtotales por impuesto.

En el valid() de un campo para la alícuota de cada impuesto, pones código  para que te calcule el importe (subtotal por alícuota) y el total del comprobante.

[lervys cuicas]

Gracias Walter no he tenido tiempo de hacer la prueba con el codigo debido a que he estado muy ocupado. Sera esta noche que ago la prueba, en el método valid que codigo deberia poner segun el ejemplo anterior...?

---

From: wsys.inf...@gmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] Re: grid con subtotales y totales

Date: Thu, 23 Sep 2010 17:56:36 -0300

[mario oviedo]

esto es lo que habia visto

[mario oviedo]

de esta forma alineo los campos

[mapner]

Hay una muy buena implementación para lo que necesitas en:

http://www.universalthread.com/ViewPageNewDownload.aspx?Session=32596261686A56756452513D2071333667304C494272326578694A4D764775346774413D3D

saludos

[wchalito]

Elkin

Una mas colega, para que no se vea mucho código, si ya estas ubicado
en tu cursor "select itemscomprascursor" ya no es necesario de que
para cada campo le sigas indicando el nombre del cursor.
Por ejemplo tu dices:

select itemscomprascursor
sum round(((itemscomprascursor.cantidad*itemscomprascursor.valor)-
itemscomprasc­ursor.valdescto)* ;
(1-(itemscomprascursor.descuento/100)),2),
round((((((itemscomprascursor.cantidad*itemscomprascursor.valor) - ;
itemscompr­ascursor.valdescto) * (1-(itemscomprascursor.descuento/
100)))) * (1-ThisForm.Container1.Spinner1.Value/100))) *
(itemscomprascursor.iva/100),­2) for !DELETED() to bruto, totaliva

Podria quedar mejor de esta manera:

select itemscomprascursor
sum round(((cantidad * valor) - valdescto ) * (1 - (descuento / 100)),
2), round((((((cantidad * valor) - valdescto) * ;
(1 - (descuento / 100)))) * (1 - ThisForm.Container1.Spinner1.Value /
100))) * (iva / 100), ­2) for !DELETED() to bruto, totaliva

Saludos.

Chalito
LIMA - PERU


On 23 sep, 14:57, elkin dario uribe torres <eduribe2...@gmail.com>
wrote:

> Gracias Yvan por la sugerencia la tomare en cuenta, toda sugerencia es
> bienvenida.
>
> Elkin Uribe
> Medellin - Colombia
>

> El 23 de septiembre de 2010 14:17, Yvan GMAIL <yvan.carra...@gmail.com>escribió:
>
>
>
> >  Hola Elkin,
>
> > Viendo tu pantalla solo como una sugerencia.. Los labels y texbox del
> > encabezado del formulario trata de tabularlos bien en la Posición X.
>
> > Antes también yo armaba  mis pantallas algo así, pero un amigo me hizo la
> > observación.. Se ve más ordenado.
>
> > Pero no haberte incomodado…
>
> > Más o menos así: Aunque viendo mi form aun me falta ordenar.. jeje..
>

> > *De:* publice...@googlegroups.com [mailto:
> > publice...@googlegroups.com] *En nombre de *elkin dario uribe torres
> > *Enviado el:* Jueves, 23 de Septiembre de 2010 02:05 p.m.
> > *Para:* publice...@googlegroups.com
> > *Asunto:* Re: [vfp] Re: grid con subtotales y totales

>
> > Buenas tardes
>
> > Si lo que buscas es algo parecido a esto, solo deberias colocar un metodo
> > dentro del formulario para que haga los calculos a medida que ingreses los
> > productos, te adjunto lo que yo hago en dicho metodo ya tu lo acondicionas o
> > lo mejoras a tu conveniencia, utiliza un cursor temporal que luego lo llevo
> > a la tabla al momento de guardar dicho documento
>
> > select itemscomprascursor  &&Cursor temporal del detalle de la venta
> > IF thisform.redondeo = .f.   &&Si maneja cifras redondeadas
> >     sum

> > round(((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprasc­ursor.valdescto)*
> > ;
> >         (1-(itemscomprascursor.descuento/100)),2),  ;
>
> > round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscompr­ascursor.valdescto)*
> > ;
> >         (1-(itemscomprascursor.descuento/100))))*;
>
> > (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.iva/100),­2)
> > ;

> >         for !DELETED();
> >         to bruto,totaliva
> >     SUM

> > round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscompr­ascursor.valdescto)*
> > ;

> >         (1-(itemscomprascursor.descuento/100))))* ;
> >         (1-(thisform.container1.spinner1.value/100))),2)    ;
> >         for !DELETED() AND itemscomprascursor.iva <> 0 to basegravada
> >     thisform.baseiva = basegravada
>
> > ***Te coloco un valor pero utilizo una variable para saber el tope de la
> > retencion en la fuente
>
> >     IF bruto >= 642000
> >         IF thisform.autorretenedor = .f.  &&Si el cliente no es
> > autorretenedor
> >             SUM

> > round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscompr­ascursor.valdescto)*
> > ;
> >                 (1-(itemscomprascursor.descuento/100))))*;
>
> > (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.retencion­/100),2)
> > ;

> >                 for !DELETED() to thisform.valorretencion
> >         ELSE
> >             thisform.valorretencion = 0
> >         ENDIF
> >     ELSE
> >         thisform.valorretencion = 0
> >     ENDIF
> >     store round((bruto*(ThisForm.Container1.Spinner1.Value/100)),2) to
> > descuento1
> >     store round((bruto-descuento1+totaliva-thisform.valorretencion),2) to
> > total
> > *    store round((bruto-descuento1+totaliva),2) to total
> > ELSE
> >     sum

> > round(((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscomprasc­ursor.valdescto)*
> > ;
> >         (1-(itemscomprascursor.descuento/100)),0),  ;
>
> > round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscompr­ascursor.valdescto)*
> > ;
> >         (1-(itemscomprascursor.descuento/100))))*;
>
> > (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.iva/100),­0)
> > ;

> >         for !DELETED();
> >         to bruto,totaliva
> >     SUM

> > round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscompr­ascursor.valdescto)*
> > ;

> >         (1-(itemscomprascursor.descuento/100))))* ;
> >         (1-(thisform.container1.spinner1.value/100))),0)    ;
> >         for !DELETED() AND itemscomprascursor.iva <> 0 to basegravada
> >     thisform.baseiva = basegravada
> >     store round((bruto*(ThisForm.Container1.Spinner1.Value/100)),0) to
> > descuento1
> >     IF bruto >= 642000
> >         IF thisform.autorretenedor = .f.
> >             SUM

> > round((((((itemscomprascursor.cantidad*itemscomprascursor.valor)-itemscompr­ascursor.valdescto)*
> > ;
> >                 (1-(itemscomprascursor.descuento/100))))*;
>
> > (1-(ThisForm.Container1.Spinner1.Value/100)))*(itemscomprascursor.retencion­/100),0)
> > ;

> >                 for !DELETED() to thisform.valorretencion
> >         ELSE
> >             thisform.valorretencion = 0
> >         ENDIF
> >     ELSE
> >         thisform.valorretencion = 0
> >     ENDIF
> >     store round((bruto-descuento1+totaliva-thisform.valorretencion),0) to
> > total
> > ENDIF
> > thisform.container1.text1.value = bruto
> > thisform.container1.text1.refresh
> > thisform.container1.text2.value = descuento1
> > thisform.container1.text2.refresh
> > thisform.container1.text3.value = totaliva
> > thisform.container1.text3.refresh
> > thisform.container1.text4.value = thisform.baseiva
> > thisform.container1.text4.refresh
> > thisform.container1.text5.value = total
> > thisform.container1.text5.refresh
> > thisform.container1.text6.value = thisform.valorretencion
> > thisform.container1.text6.refresh
>
> > Elkin Uribe
> > Medellin - Colombia
>

> >  El 23 de septiembre de 2010 12:27, lervys cuicas <lervy...@hotmail.com>

> > escribió:
>
> > Buenas tardes Walter, como recomendarias tu que lo hiciera..? Me gustaria
> > calcular por ejemplo el total de varios productos sin impuestos, al lado el
> > total con impuestos y al final el total de los impuestos

> >  ------------------------------

>
> > From: wsys.informat...@gmail.com
>
> > To: publice...@googlegroups.com
> > Subject: RE: [vfp] Re: grid con subtotales y totales
>
> > Date: Thu, 23 Sep 2010 14:42:31 -0300
>
> > De todas formas,  no es buena idea poner los totales o subtotales dentro
> > del grid porque habitualmente lo afectan otras variables, como impuestos,
> > las cuales es conveniente visualizar aparte.
>
> > Saludos
>
> > Walter Alberto Sosa
>
> > Consultor de  Sistemas
>

> > wsys.informat...@gmail.com

>
> > Cel:  (0351) 156199804 - 152425901
>
> > WSys Servicios Informaticos
>
> > [image: Logo WSys]
>

> > *De:* publice...@googlegroups.com [mailto:
> > publice...@googlegroups.com] *En nombre de *lervys cuicas
> > *Enviado el:* jueves, 23 de septiembre de 2010 10:12
> > *Para:* publice...@googlegroups.com
> > *Asunto:* RE: [vfp] Re: grid con subtotales y totales

>
> > Ok. muchas gracias. Voy a intentarlo a ver que tal me sale. Que tengas buen
> > dia.

> >  ------------------------------

> > *De:* publice...@googlegroups.com [mailto:
> > publice...@googlegroups.com] *En nombre de *lervys cuicas
> > *Enviado el:* Jueves, 23 de Septiembre de 2010 07:14 a.m.
> > *Para:* publice...@googlegroups.com
> > *Asunto:* RE: [vfp] Re: grid con subtotales y totales

>
> > Buen dia, puede que no sea nada del otro mundo lo de sumar subtotales y
> > totales, pero no lo se hacer y me gustaria que alguien me facilitara un
> > ejemplo de como hacerlo. Gracias a todos.

> >  ------------------------------

>
> > Date: Wed, 22 Sep 2010 23:57:01 -0500
> > Subject: Re: [vfp] Re: grid con subtotales y totales

> > From: resetsoftw...@gmail.com

> > To: publice...@googlegroups.com
>
> > Normalmente este listado es producto de una consulta, la cual como se ve
> > tiene columnas que deseo sumar, al final de obtenida la consulta realizo un
> > sum a los campos deseados estos resultado almacenados cada uno en una
> > variable, que es insertado luego a la tabla quedando estos al final y
> > resaltados como indique anteriormente.
> > Nada del otro mundo, al menos en esta forma como es presentado en este
> > ejemplo.
>
> > --
> > Daniel Sánchez Escobar
> > Investigación y Desarrollo
> > Reset Software & Sistemas
> > Móvil 044-949398047
> > Trujillo - Perú
>
>
>

>  image001.jpg
> 2 KVerDescargar
>
>  image003.jpg
> 24 KVerDescargar- Ocultar texto de la cita -
>
> - Mostrar texto de la cita -