GARANTIR DESCONTO

Fórum Como pego o valor da variável numa consulta com Query? #171605

26/07/2003

0

Ao fazer uma consulta na minha tabela MOVV, eu quero que some a quantidade(QDE) do produto desejado com a data do dia anterior e retorne o valor pra mim, mas como faço pra pegar o valor da variável Vtotal que existe nó na SQL como mostra a seguir????
Ou estou fazendo errado meu Select?


with Query4 do
begin
active:=false;
SQL.Clear;
SQL.Add(´Select CODPROD,DATA,REF,SALDOLOJA,SALDODEP,QDE, Sum(QDE) AS Vtotal FROM MOVV WHERE DATA=´´+formatdatetime(´yyyy/mm/dd´,Date)+´´-1 Group By CODPROD,DATA,REF,SALDOLOJA,SALDODEP,QDE´);
ExecSQL;
active:=true;
end;


Rodrigo51

Rodrigo51

Responder

Posts

26/07/2003

Cdaraujo

Caro amigo,

Veja um exemplo que desenvolvi pra vc.

with Query4 do
begin
if Active then
Close; //Fehca a Query
SQL.Clear;
SQL.Add(´SELECT CODPROD, DATA, REF, SALDOLOJA,SALDODEP, QDE, SUM(QDE) AS VTOTAL´);
SQL.Add(´FROM MOVV ´);
SQL.Add(´WHERE DATA =:DT´);
SQL.Add(´GROUP BY CODPROD, DATA, REF, SALDOLOJA, SALDODEP, QDE´);
ParamByName(´DT´).AsDateTime := Date + 1; //Somando 1 dia a data atual
Open; //Abrindo a Query
end;


Atenciosamente,
[b:490fa8197e]
Daniel Araújo[/b:490fa8197e]


Responder

Gostei + 0

26/07/2003

Aroldo Zanela

Colega,

Sempre que usar SELECT use [b:001e63b106]Open[/b:001e63b106] e para todas as outras instruções, inclusive DML use ExecSQL.


Responder

Gostei + 0

28/07/2003

Rodrigo51

[quote=´cdaraujo´]Caro amigo,

Veja um exemplo que desenvolvi pra vc.

with Query4 do
begin
if Active then
Close; //Fehca a Query
SQL.Clear;
SQL.Add(´SELECT CODPROD, DATA, REF, SALDOLOJA,SALDODEP, QDE, SUM(QDE) AS VTOTAL´);
SQL.Add(´FROM MOVV ´);
SQL.Add(´WHERE DATA =:DT´);
SQL.Add(´GROUP BY CODPROD, DATA, REF, SALDOLOJA, SALDODEP, QDE´);
ParamByName(´DT´).AsDateTime := Date + 1; //Somando 1 dia a data atual
Open; //Abrindo a Query
end;


[color=blue:2cd2c226f8][b:2cd2c226f8]Valeu...mas o que eu queria era saber como faço para pegar o ´valor da soma da varável Vtotal´ quando eu faço a soma no ´Sum(QDE) as Vtotal´??[/b:2cd2c226f8][/color:2cd2c226f8]


Responder

Gostei + 0

22/09/2003

Netosdr

edit1.Text := floattostr(Query4.FieldbyName(´VTotal´).AsCurrency;

Creio que irá funcionar.


Responder

Gostei + 0

23/09/2003

Turbo Drive

Tente tb:

edit1.text := floattostr(Query4.fields[6].AsFloat); onde fields[6] corresponde a VTOTAL

Espero ter ajudado


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar