ActiveDelphi

[ziatricolor]

ola pessoal peguei um exemplo simples net..mas neste exemplo o usuario tem q ficar dando enter no codigo, preco e quantidade e depois enter no botao inserir....alguem pode me ajudar a fazer com que ao digitar o codigo do produto..ja cair os dados no dbgrid? assim a qtd vai receber 1...tipo um pdv fiscal...segue o exemplo q peguei aqui no forum:

CODIGO DO EDITCODIGOPRODUTO

procedure TFrmCad_Venda.EdtProdutoExit(Sender: TObject);
begin
If edtproduto.Text = '' then
begin
showmessage ('Digite o código do produto');
EdtProduto.SelectAll;
edtproduto.SetFocus;
exit;
end;
with dm.QryProduto do
begin
close;
sql.Clear;
sql.add ('SELECT * FROM PRODUTO WHERE COD_PRODUTO = ' + Edtproduto.text + ' ');
open;
if recordcount = 0 then
begin
showmessage ('Produto não cadastro');
EdtProduto.SelectAll;
edtproduto.SetFocus;
exit;
end;

CODIGO DO BOTAO INSERIR

procedure TFrmCad_Venda.BtnInserirClick(Sender: TObject);
begin
if EdtQuantidade.text = '' then
begin
showmessage ('Digite uma quantidade');
EdtQuantidade.setfocus;
exit;
end;

DbItemCod.Text := inttostr(coditem);
dm.tblItem.post;

with dm.QryItem do
begin
close;
sql.Clear;
sql.Add ('SELECT * FROM ITEM WHERE COD_ITEM = ' + inttostr(coditem) + ' ORDER BY COD_ITEM DESC');
OPEN;
edttotalitem.text := inttostr(recordcount);
dm.total := dm.total + dm.QryItemtotalvenda.Value;
end;
with dm.QryProduto do
begin
close;
sql.Clear;
sql.add ('SELECT * FROM PRODUTO');
open;
end;

dm.QryItem.Refresh;
FuncInsereItem.OnClick (self);
BtnInserir.Enabled := false;
EdtProduto.SetFocus;
Edttotalvenda.Text := floattostr(dm.total);
end;

minha tela so tem o campo editcodigo e qtd..
aguardo a ajuda...

[cyberdisk]

é só ligar o DataSource da Query ao DBgrid

abraço
_________________
O conhecimento abre muitas portas

[marcosbaixista]

[carbox]

Considerando que a quantidade padrão seria 01 (o que pode variar) basta colocar o código abaixo no evento OnExit e onEnter do seu Edit.

Mais ou menos assim:

[ziatricolor]

[marcosbaixista]

Ai ziatricolor.

Que bom que conseguiu fazer, porque pelo visto você não tem muito crédito mesmo para que alguém desenvolva ou preste algum serviço pra você.
Você colocou um tópico aqui no fórum mesmo, alias com outro usuário, porque esse você criou agora, pedindo que alguém desenvolvesse um PDV pra você porque você não tinha tempo.
Peguei seu Skype, que você mesmo me passou e tenho isso nas minhas mensagens que você me enviou, te dei até dicas de como vender o produto, qual a melhor forma de fazer e o que não deveria fazer pra não ter problemas.
Pegou minha conta bancária para fazer depósito da metade do que tinhamos combinado e ficou só na promessa, te ajudei em outro tópico aqui mesmo no fórum depois disso, logo depois no mesmo tópico você disse que depositaria o dinheiro no outro dia porque tava com pressa do aplicativo.
Ai você vem me dizer que [editado] ta cheia de gente como eu? Só se for preso por armação de [editado] e [editado] como costuma ser alguns [editado].

Eu desejo sorte pra você, mesmo porque você irá precisar. Agora ajuda, esquece amigo, se você me tivesse pedido ajuda eu teria feito, assim como faço todos os dias nesse fórum aqui, agora pedir serviço não é ajuda, a não ser que ai na sua cidade isso seja ajuda.