FoxPro/Visual FoxPro - Sumar columna de grid, pero no es campo

Sumar columna de grid, pero no es campo

Publicado por HELDERC (37 intervenciones) el 29/05/2016 22:53:20

Hola a todos,

Quiero sumar una columna de un grid, pero esta columna no depende de un campo de una tabla, si no que depende lo siguiente (2 campos);

thisform.grdVentas_detalle_temp.column5.ControlSource = "impuesto_valor * cantidad"

Bien en el ControlSource me muestra bien el valor, pero cuando sumo o voy a la tabla no me muestra el valor que deberia de reflejar en el ControlSource.

SELECT ventas_detalle_temp
SUM impuesto_valor TO nImpTotal
thisform.txtImpuesto_valor.Value = nImpTotal

En el txtImpuesto no muestra el valor de esa columna, ya que es un ControlSource.
Quiero que muestre el valor tal y como esta en el grid.

¿Qué podria estar pasando?

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Sumar columna de grid, pero no es campo

Publicado por HELDERC (37 intervenciones) el 30/05/2016 08:20:44

Muchas gracias.

Lo logre hacer de esta forma,

Cree un metodo y lo llamo desde el lostfocus del textbox de la columna;

WITH thisformset.frmVentas_caja

    SELECT ventas_detalle_temp

    nReg = RECNO() && veo en donde estoy actualmente

    GO TOP

    DO WHILE !EOF()

        IF impuesto = 1

            REPLACE impuesto_valor WITH (precio_suge * cantidad) * isv / 100

            REPLACE total WITH (precio_suge * cantidad) + (impuesto_valor  - descuento_valor)

        ELSE

            IF impuesto = 0

                REPLACE impuesto_valor WITH (precio_suge * cantidad) * isv / 100

                REPLACE total WITH (precio_suge * cantidad) + (impuesto_valor  - descuento_valor)

            ENDIF

        ENDIF

       SKIP

    ENDDO

    GO nReg && regreso al mismo lugar.

        SUM impuesto_valor TO nImpVal

        .txtImpuesto_valor.Value = nImpVal

        SUM total TO nTotal

        .txtSubTotal.Value = nTotal

        SUM descuento_valor TO nDescVal

        .txtDescuento_valor.Value = nDescVal

        nTotalPagar = (nTotal + nImpVal) - nDescVal

        .txtTotal_pagar.Value = nTotalPagar

ENDWITH

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar