Fórum Formatação de Footer no GridView #7037

23/06/2009

0

Fala Rodrigão, ainda estou esperando vc ministrar aulas na TDS de são Pualo, rsrsrsrsr, um grande abraço.

Segue uma dúvida:

Tenho um GridView com duas colunas,  e Footer visivel, onde coloco a soma da minha coluna  TOTAL, que é do tipo Numeric(12,2) banco MSSQLServer 2005 Stan.

No meu evento DataBound, tenho isso:
procedure TLancamentos.GridViewSintetico_DataBound(sender: System.Object; e: System.EventArgs);
var
  I   : Integer;
  Total : Currency;

begin

  for I := 0 to GridViewSintetico.Rows.Count -1 do
  begin
    Total := Total + Currency.Parse(GridViewSintetico.Rows[I].Cells[1].Text);
  end;

  GridViewSintetico.FooterRow.Cells[0].Text := 'TOTAL GERAL =>';
  GridViewSintetico.FooterRow.Cells[0].HorizontalAlign := HorizontalAlign.Right;
  GridViewSintetico.FooterRow.Cells[1].Text := Total.ToString;
  GridViewSintetico.FooterRow.Cells[1].HorizontalAlign := HorizontalAlign.Right;

end;


Já tentei Total.ToString('0:c') porem o RAD 2007 não aceita, pois a vezes tenho valores tipo 400,00 e fica somente 400, teria como colocar R$ 400,00 ???
Paulo Freire

Paulo Freire

Responder

Posts

24/06/2009

Rodrigo Mourão

Opa !!!

É so o chefe mandar que vou ai dar um treinamento sim com maior prazer !  kkkk

Bem esse problema não parece, a principio, um bicho de sete cabeças. Eu vou realizar uns testes aqui e posto um caminho para a resolução em breve.

Abs.

Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi


Responder

Gostei + 0

24/06/2009

Rodrigo Mourão

Olá Amigo, segue seu código abaixo com apenas uma modificação:   procedure TLancamentos.GridViewSintetico_DataBound(sender: System.Object; e: System.EventArgs);
var
  I   : Integer;
  Total : Currency;

begin

  for I := 0 to GridViewSintetico.Rows.Count -1 do
  begin
    Total := Total + Currency.Parse(GridViewSintetico.Rows[I].Cells[1].Text);
  end;

  GridViewSintetico.FooterRow.Cells[0].Text := 'TOTAL GERAL =>';
  GridViewSintetico.FooterRow.Cells[0].HorizontalAlign := HorizontalAlign.Right;
  GridView1.FooterRow.Cells[1].Text := System.&String.Format('{0:c}',Total);
  GridViewSintetico.FooterRow.Cells[1].HorizontalAlign := HorizontalAlign.Right;
end;
Abs!   Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi
Responder

Gostei + 0

25/06/2009

Rodrigo Mourão

Olá amigo, o código abaixo foi suficiente ?

Estamos aguardando para encerrar o chamado !!

Abs.

Atenciosamente,
Rodrigo Carreiro Mourão
Borland Instructor Certified
Coordenador da Consultoria em Delphi

Responder

Gostei + 0

26/06/2009

Paulo Freire

Belezinha, mais uma vez obrigado.
Responder

Gostei + 0

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

Aceitar