(Resolvido) Somar ao Clicar em um registro no DBGrid

[alemoraes]

Boa tarde

Tenho 02 tabelas LOCALIZACAO e LOCALIZACAO_ITENS (Master-Detail) funcionando perfeitamente.

Apesar de pesquisar no Forum não consegui encontrar o que eu queria fazer: é o seguinte:

Quando clico em um registro no DBGridMaster da tabela Pai ele  mostra os registros no DBGridDetail

da tabela Filha, mas quero trazer a soma Total para aparecer no Label (lblTotal).

Seguem os códigos que fiz:

function TfrmLocalizacao.SomaLocalizacaoGrid: Currency;

begin

with FDQuerySomaColuna do

  begin

   Close;

   Active:= true;

   SQL.Clear;

   SQL.Text:= 'SELECT SUM(A.QUANT * A.VALOR_UNITARIO) As Total, B.LOC_CODIGO FROM LOCALIZACAO_ITENS A INNER JOIN LOCALIZACAO B ON (A.LOC_CODIGO = B.LOC_CODIGO) WHERE B.LOC_CODIGO =  '''+ IntToStr(DBGrid1.SelectedRows.Count) + '''  GROUP BY B.LOC_CODIGO';

   Open;

   Result := FieldByName('Total').AsCurrency;

  end;

end;

 

No evento On CellClick

procedure TfrmLocalizacao.DBGrid1CellClick(Column: TColumn);

begin

  if dmDados.tblLocalizacao.State in [dsBrowse] then

   lblTotal.Caption:= FormatCurr('R$ #,0.00', SomaLocalizacaoGrid);

end;

 

[Jhonas]

voce tem um componente FDQuery

e nele voce criou um campo Virtual  ( Total ) onde voce atribuiu uma soma do campo A.Quant * A.Valor_Unitario

SQL.Text:= 'SELECT SUM(A.QUANT * A.VALOR_UNITARIO) As Total,

o que voce tem que fazer agora é mostrar esse campo Total no componente FDQuery 

e depois atribuir o resultado ao componente Label

lblTotal.Caption:= FormatCurr('R$ #,0.00', FDQueryTotal.value);

OBS: Não feche a query antes da atribuição do valor ao label, se não o valor não aparece

abraço

[alemoraes]

Jhonas obrigado pela dica

Eu tentei mas não tive sucesso.

Consegui resolver alterando uma linha da função acima

em vez de:

WHERE B.LOC_CODIGO =  '''+ IntToStr(DBGrid1.SelectedRows.Count) + '''

alterei para:

WHERE B.LOC_CODIGO =  '''+ DBGrid1.DataSource.DataSet.FieldByName('LOC_CODIGO').AsString +'''

e funcionou.

No evento OnCellClick do DBGrid ficou:

procedure TfrmLocalizacao.DBGrid1CellClick(Column: TColumn);

begin

  if dmDados.tblLocalizacao.State in [dsBrowse] then

   begin

     FDQuerySomaColuna.Open;

     lblTotal.Caption:= FormatCurr('R$ #,0.00', SomaLocalizacaoGrid);

 end;

end;

 

Esquecí: Resolvido

Esquecí: Resolvido