ActiveDelphi

[lucas_spohr]

Ae pessoal! blz?

Precisaria do seguinte...

Para funcionar o terminal de consultas, em uma certa máquina o programinha deverá ficar sempre aberto. Os preços dos produtos, são atualizados pelo ERP. Digamos que, para teste, eu queira atualizar um preço pelo IBExpert. Altero, ENTER, Commit. Produto alterado. Como o programinha do terminal ficará sempre aberto, automaticamente, o preço do produto no projeto do terminal, não se atualizará automaticamente, sem que alguém clique num botão, para Atualizar.

No OnCreate do meu DataModule, tenho a seguinte rotina:

CdsProdutos.Open;
AssignFile(f,ExtractFilePath(ParamStr(0)) + 'pricetab.txt');//Indica o arquivo que irá ser gravado
Rewrite(f);//Indica que o arquivo será criado ou reescrito (caso já exista)
//Aqui você coloca o seu laço
CdsProdutos.First;
While not CdsProdutos.eof do
Begin
Write(f, CdsProdutos.FieldByName('Barra').AsString + '|');//Escreve e continua na mesma linha
Write(f, CdsProdutos.FieldByName('Descricao').AsString + '|');//Escreve e continua na mesma linha
WriteLn(f,CdsProdutos.FieldByName('Preco').AsString +'|');//Escreve e salta para a próxima linha
CdsProdutos.Next;
end;
CloseFile(f);//Esvazia o buffer e joga no arquivo de texto

No botão atualizar, como que eu poderia fazer?
Seria, no caso... Atualizar o banco e reescrever no TXT, os produtos novamente...

Desde já agradeço.
Muito obrigado!

[Ghost_Rider]

Cara, pelo que entendi, vc quer atualizar o seu banco de dados e um arquivo texto ao mesmo tempo, seria isso ???

[lucas_spohr]

cara, consegui!

apenas adaptei o código do OnCreate do DataModule... Segue, pra quem interessar:

procedure TForm1.BtnImgAddClick(Sender: TObject);
var
f: textfile;
begin
Dados.CdsProdutos.Close;
Dados.CdsProdutos.Open;
if FileExists(ExtractFilePath(Application.ExeName)+'pricetab.txt') then
DeleteFile(ExtractFilePath(Application.ExeName)+'pricetab.txt');
AssignFile(f,ExtractFilePath(Application.ExeName) + 'pricetab.txt');
//AssignFile(f,ExtractFilePath(Application.ExeName) + 'pricetab.txt');
Rewrite(f);
Dados.CdsProdutos.First;
While not Dados.CdsProdutos.eof do
Begin
Write(f, Dados.CdsProdutos.FieldByName('Barra').AsString + '|');
Write(f, Dados.CdsProdutos.FieldByName('Mercadoria').AsString + '|');
WriteLn(f,Dados.CdsProdutos.FieldByName('Preco').AsString +'|');
Dados.CdsProdutos.Next;
end;
CloseFile(f);
MontaTabela(ExtractFilePath(ParamStr(0)) + 'pricetab.txt',Form1.StringGrid1);
end;

O principal, foi o "MontaTabela", que traz os registros do TXT para o StringGrid!

vlw... t+