Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   sumar campo y guardar en una variable (https://www.clubdelphi.com/foros/showthread.php?t=69847)

gonza_619 13-09-2010 20:13:07

sumar campo y guardar en una variable
 
hola q tal , bueno mi duda es que tengo q sumar un campo de esta tabla por ej:

TABLAPAGO
COD.CLIENTE DETALLE MONTO
1 XXX $5
1 XXX $7
2
3

BIEN AHORA LA IDEA ES SUMAR EL CAMPO MONTO DONDE SEA '1' EL CODCLIENTE Y GUARDAR EN UNA VARIABLE, PARA LUEGO COMPARAR CON OTRO MONTO.
SOLO SE CONSULTA
MUCHAS GRACIAS, SERIA OCN TQUERY?

Caral 13-09-2010 20:22:30

Hola
Se usaria un query pero desconozco si lo hara con el campo moneda, de todos modos pruebalo:
Código SQL [-]
Select sum(MONTO) as Monto from TABLAPAGO 
where CODCLIENTE = 1
Group by COD.CLIENTE DETALLE MONTO
Saludos

gonza_619 13-09-2010 20:27:04

ok muchas gracias pero la suma a donde se guardaria o asignaria, es qu eno quero mostrar en una grilla sino almacenar el total en una variable tipo float,
seria 'monto' la variable? gracias nuevamente

Caral 13-09-2010 20:29:02

Hola
Da lo mismo donde guardes el dato, este se almacena en el query, es como en un table, ahi esta el dato y lo puedes pasar a un DBEdit, DBgrid, edit, etc. etc.
Saludos

Caral 13-09-2010 20:33:06

Hola
A ver en una variable:
Código Delphi [-]
Var nati: Real;
Begin
Query1.sql.text:= 'Select sum(MONTO) as Monto from TABLAPAGO '+
                     ' where CODCLIENTE = 1 '+
                     ' Group by COD.CLIENTE DETALLE MONTO ';
Query1.Open;
nati:= Query1.Fields[0].Value;
end;
Saludos

gonza_619 13-09-2010 20:56:01

var mont:real;
begin
query1.SQL.Clear;
Query1.sql.text:= 'Select sum(importe) as Monto from cobranzas where alucurso = xx' ;
Query1.Open;
query1.Active:=true;
mont:= Query1.fields[monto].Value;

bien intente hacerlo me daerror : undeclared identifier 'monto'

esta bien asi ? lo alamcena en mont

gracias

Caral 13-09-2010 21:10:24

Hola
Te esta diciendo que Monto no existe y es asi ya que no lo declaraste en realidad o usas Filebyname o Field.
Código Delphi [-]
var mont:real;
begin
query1.SQL.Clear;
Query1.sql.text:= 'Select sum(importe) as Monto from cobranzas where alucurso = xx' ;
query1.Active:=true;
mont:= Query1.fields[0].Value;

Otra cosa: O lo activas o lo abres, pero las dos son innecesarias juntas.
Saludos


La franja horaria es GMT +2. Ahora son las 00:01:14.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi