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

   
Vista:
Imágen de perfil de HELDERC

Sumar columna de grid, pero no es campo

Publicado por HELDERC agosto122006@gmail.com (36 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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de HELDERC

Sumar columna de grid, pero no es campo

Publicado por HELDERC (36 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;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar