Fórum somar e atualizar tbl (Mestre) #29730

ESTOU USANDO O CÓDIGO ABAIXO PARA SELECIONAR DADOS EM UMA TBL(DETALHE) QUE
ESTÁ RELACIONADA COM UMA OUTRA TBL(MESTRE)... OS DADOS SÃO EXIBIDOS NUM DBGRID.
O QUE NÃO ESTOU CONSEGUINDO FAZER É O SEGUINTE: NA TBL(DETALHE) TENHO UM CAMPO CHAMADO ´VALOR´
QUE DEVE SER SOMADO E O SEU RESULTADO DEVE SER COLOCADO NA TBL(MESTRE) DENTRO DE CAMPO ´TOTAL´,
PARA CADA REGISTRO DA TBL(MESTRE), ONDE O CPF SEJA IGUAL AO CPF DA TBL(DETALHE).
NÃO SEI SE FUI MUITO CLARO MAS AGRADEÇO IMENSAMENTE QUALQUER AJUDA.
OBRIGADO.

ALEXANDRE TAVARES



procedure TFrmBaixaDoc.BtnPesquisarClick(Sender: TObject);
begin
Case rgpOpcoes.ItemIndex Of
0:
Begin
If (EdtPesquisa.Text <> ´´) AND (EdtPesquisa2.Text <> ´´) AND (MaskEdit1.Text <> ´´) Then

Begin
DMFactoring.Query.Close;
DMFactoring.Query.SQL.Clear;
DMFactoring.Query.SQL.Add(´SELECT * FROM Sacado_cedente ´);
DMFactoring.Query.SQL.Add(´WHERE CGC_CPF_CEDENTE = ´´+edtPesquisa.Text+´´ ´);
DMFactoring.Query.SQL.Add(´AND BAIXADO = ´´+EdtPesquisa2.Text+´´ ´);
DMFactoring.Query.SQL.Add(´AND QDO_BAIXAR BETWEEN :QUANDO_BAIXAR1´);
DMFactoring.Query.SQL.Add(´AND :QUANDO_BAIXAR2´);
DMFactoring.Query.parambyname(´QUANDO_BAIXAR1´).Value := StrToDate(MaskEdit1.Text);
DMFactoring.Query.parambyname(´QUANDO_BAIXAR2´).Value := StrToDate(MaskEdit2.Text);
DMFactoring.Query.SQL.Add(´ORDER BY CGC_CPF_CEDENTE ´);
DMFactoring.Query.Open;
Label12.Caption := IntToStr(DMFactoring.Query.RecordCount);
If DMFactoring.Query.IsEmpty Then
ShowMessage(´Nada foi Encontrado de Acordo com a sua Pesquisa´);
EdtPesquisa.SetFocus;
End
Else
ShowMessage(´Estão faltando parâmetros para a Pesquisa´);
End;