Fórum Vamos ver se assim e mais facil #204698

eu já respondi isso aqui no Forum,
é a primeira vez que vc faz essa pergunta aqui?

até mandei um exemplo por e-mail.
mas se caso vc precisar
me escreva dizendo o que vc precisa
que lhe mando.

luizfernando777@yahoo.com.br

Caro, calega e realmente a primeira vez, e eu não vi essa dica por aqui se puder me ajudar estou no sufoco obrigado..

wagnernormando@ig.com.br

caro colega, já enviei um ex. p/ vc

Caro colega, seu exemplo foi de grande ajuda, so que eu ainda tenho dois problemas

1- se entro no form2 mais de uma vez sem fazer nenhuma alteração nos campos ele acrescenta o valor do credito no saldo.

2 - Agora eu quero jogar os campos data, historico, credito, debito e saldo para a impressora, como faço isso?

Desculpe-me esqueci de colocar os detalhes: :lol:

São 2 form´s form1 e form2

No form1 uma table1 com os campos cod, data, historico, credito, debito. Tem um dbgrid e um botão que chama o form2 que tem um query1 com outro dbgrid e os campos cod, data, historico, credito, debito e o saldo
Na query1 eu tenho dessa forma
:roll:

var
Form2: TForm2;
Saldo : Currency = 0;

implementation

{$R *.dfm}

procedure TForm2.Query1CalcFields(DataSet: TDataSet);
begin
Query1Saldo.Value := (( Query1Credito.Value - Query1Debito.Value )+Saldo);
Saldo := Query1Saldo.Value;

end;

procedure TForm2.Query1BeforeOpen(DataSet: TDataSet);
begin
Saldo := 0;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
form2.Query1.Open;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.Query1.Close;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.


Na table eu tenho dessa forma :roll:

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.Open;
end;

procedure TForm1.Table1AfterRefresh(DataSet: TDataSet);
begin

form2.Query1.Open;

end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Form2.Show;
end;

procedure TForm1.Atualiza(DataSet: TDataSet);
begin
DbiSaveChanges((DataSet as TTable).Handle);
DataSet.Refresh;
end;

procedure TForm1.Table1BeforeRefresh(DataSet: TDataSet);
begin
form2.Query1.Close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.Show;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
close;
end;

end.

Caro colega:
Manda um exemplo p/ o meu e-mail,
documentando o que vc precisa.
assim fica mais fácil de lhe ajudar.
manda
as Tables e a parte do projeto que
vc quer montar, assim posso entender melhor.
luizfernando777@yahoo.com.br

Colega, o exemplo voce já tem afinal foi voce quem me enviou, o so fiz outro para adapitar ao meu sistema adicionei o campo historico, e esta funcionando quase que perfeito fora os problemas acima e queria com base no seu exemplo era mandar para impressora. pode me ajudar?

vou fazer isso e o relatório será feito no QReport,
OK.
mas vou mandar somente Segunda a noite,
abraços e bom final de semana