Comments by joao pedro Jun2022

joao pedro Jun2022 2-Jul-22 16:04pm View

What you mean 5ed?

joao pedro Jun2022 1-Jul-22 15:22pm View

i have seen this code here on codeproject.com

procedure TForm1.sEdit1Change(Sender: TObject);
 var a :integer;
begin
IF sEdit1.Text <> '' then
begin
a:=strtoint(sEdit1.Text);
adoquery1.active:=false;
adoquery1.sql.clear;
ADOQuery1.SQL.Add('select * from employé where num_emp='+inttostr(a));
adoquery1.open;
end
else
begin
adoquery1.active:=false;
adoquery1.sql.clear;
ADOQuery1.SQL.Add('select * from employé');
adoquery1.open;
end;
 end;   

can you code like this with the fields and conditioning i have mentioned, would it work?

joao pedro Jun2022 1-Jul-22 14:47pm View

i expect when i scroll on torcamentos_New with cod_orcamento = 16
table torcamento_aux cod_Orc quantidade preco_unit iva totalciva1
1,23

when i scrolll on torcamentos_new with cod_Orcamento = 47
table torcamento_aux cod_Orc quantidade preco_unit iva totalciva1
2,46
i need only one record on the Ado query when i scroll o torcamento_new or add records on torcamento_aux

joao pedro Jun2022 1-Jul-22 8:41am View

the filter i have on ado table is :

procedure TForm1.ADOTorcamentosAfterScroll(DataSet: TDataSet);
begin
if (form1.Active=True) then
begin
If (ADOTOrc_AuxCod_Orc.AsString <>'') and (ADOTOrcamentosCod_orcamento.AsString <>'') then
begin
ADOTorc_Aux.Filtered:=false;
Edit1.Text:=ADOTorcamentosCod_Orcamento.AsString;
ADOTorc_Aux.Filter := ('[Cod_Orc]=' + QuotedStr(Edit1.Text));
ADOTorc_Aux.Filtered:=true;
end;
end;
end;

Can i use the same kind of filter on tado query?

joao pedro Jun2022 1-Jul-22 7:22am View

can i use a delphi tfilter on the ado query?
like i used on the ado table?

joao pedro Jun2022 1-Jul-22 5:29am View

i need only one totalciva1

when i scroll on torcamentos_New filtering torcamento_Aux by Cod_Orcamento=Cod_Orc
i need it to show me only one record on query
for example when i scroll on cod_Orc = 16 totalciva1 needs to result 1,23 only
when i scroll on cod_Orc = 47 totalciva1 needs to result 2,46 only without the null
your code works but it has nulls and shows all totals from torcamento_Aux and i need only one totalciva1 each time i scroll or add new records.
Can you help me please? thanks

joao pedro Jun2022 30-Jun-22 16:45pm View

I expect
cod_orc quantidade preco_unit iva totalciva1
16 1 1 23 1,23

47 1 1 23
47 1 1 23 2,46

I need the totalciva1 separetley when i scroll o the table torcamentos_new or add new records on torcamento_aux

joao pedro Jun2022 30-Jun-22 9:29am View

im using delphi 7 and microsoft studio managment 2012
with the code you mentioned with group by it shows on the tado query the total of two records with the correct totalciva1 calculated, the application im developing has a filter with two tables TOrcamentos_New and TOrcamento_Aux the filter is done by the fields i have mentioned cod_Orc and Cod_Orcamento, wich is done on the afterscroll event of the table TOrcamentos_New, i'm using an edit1.txt to place the cod_orcamento from torcamentos_New and it filters correctly the records i need to filter. what i expect to see on the tado query is the totalciva for each sum of torcamento_aux filtered by torcamento_new.
What i am experiencing is that the query shows two totals of one form the first record and another from the next and last two records, the values are correct but i need it to show only one total and when i scrool on torcamentos_New it shows the total of torcamento_aux filtered

joao pedro Jun2022 30-Jun-22 6:27am View

I have used group by code you mentioned,
It works showing the correct total but it adds fields to the tado query with diferent values now i have added one more record on torcamento_aux and it shows on a dbgrid two totals with diferent values, the values are correct, how do i do to only have one field on the tado query? Each time i scrool on records or add new ones?

joao pedro Jun2022 29-Jun-22 15:31pm View

i did a code you mentioned its not filtering only doing the sum of all recordsthe code is this

select sum (torcamento_aux.Quantidade * torcamento_aux.Preco_unit * torcamento_aux.Iva /100 + (torcamento_aux.quantidade * torcamento_aux.preco_unit)) as 'TotalCIVA1'
from Torcamento_aux
inner join Torcamentos_new on
Torcamento_aux.Cod_Orc=Torcamentos_new.cod_orcamento
where Torcamento_aux.Cod_Orc=Torcamentos_new.cod_orcamento;

can you help me please?

joao pedro Jun2022 29-Jun-22 13:45pm View

the tables look like this
Table TOrcamentos_New
Cod__orcamento Int Uniqueidentifier
some other fileds
Table TOrcamento_Aux
Cod_Orc Int
Quantidade Int
Preco_Unit Float
Iva Int
some other fields
im using the code

select sum (torcamento_aux.Quantidade * torcamento_aux.Preco_unit * torcamento_aux.Iva /100 + (torcamento_aux.quantidade * torcamento_aux.preco_unit)) as 'TotalCIVA1'
from Torcamento_aux
inner join Torcamentos_new on
TOrcamento_aux.Cod_Orc=Torcamentos_new.cod_orcamento
where TOrcamento_aux.Cod_orc=Torcamentos_new.cod_orcamento;

its doing only the sum of all records its not filtering by table key

joao pedro Jun2022 29-Jun-22 13:42pm View

Im using edit1.text with keys from Torcamento_New.cod_Orcamento
to filter in sql TAdo Table and it works The TAdo Query is not working properly because is not filtering only doing the sum

joao pedro Jun2022 29-Jun-22 13:39pm View

i have tryed with this code
select sum (torcamento_aux.Quantidade * torcamento_aux.Preco_unit * torcamento_aux.Iva /100 + (torcamento_aux.quantidade * torcamento_aux.preco_unit)) as 'TotalCIVA1'
from Torcamento_aux
inner join Torcamentos_new on
TOrcamento_aux.Cod_Orc=Torcamentos_new.cod_orcamento
where TOrcamento_aux.Cod_orc=Torcamentos_new.cod_orcamento;
and i was expecting to see 1,23 of totalciva1 in each record and it shows the total of both records 2,49.
I cant use diferent keys, i wont be able to filter Torcamento_Aux.cod_Orc with Torcamentos_New.Cod_Orcamento
and i need to filter so the aplication works as its needed...

joao pedro Jun2022 29-Jun-22 11:55am View

The table Torcamentos_new
Has two records
Cod_orcamento = 16 and 47
The table Torcamento_aux
Also has two records
Cod_orc = 16 and 47
Quantidade = 1 and 1
Preco_unit = 1 and 1
Iva = 23 and 23
Some records have been deleted for me to test
Table Torcamento_aux is filtered by Torcamento_aux.cod_orc and Torcamentos_new.cod_orcamento using an Edit.text with the Torcamentos_new.cod_orcamento record, the filter is on afterscrool event of the table Torcamentos_new.
This is what links both tables the cod record on both tables.
I have tried the inner join code and the result os the same 'totalciva'=2,46 what do i need to do please?

Comments by joao pedro Jun2022 (Top 14 by date)