Fórum Como desenvolver um pedido #300860
26/10/2005
0
$grandaum$
Curtir tópico
+ 0Posts
26/10/2005
Rodrigorpb
[b:2d9c50a7d2]TABELAS[/b:2d9c50a7d2]
PRODUTO
PEDIDOVENDA
ITEMPEDIDOVENDA
No ITEMPRODUTO haverá CODIGO, CODPEDIDOVENDA, CODIGOPRODUTO, QUANTIDADE, TOTALITEM, VALORUNITARIO quando vc chama no Form Pedido o Form Produto para pesquisar e escolher o produto eu faço +- assim.
Isso é no OnKeyPress no campo final (no meu caso quantidade) do form do produto.
If Key = #13 Then Begin DM.qItemPedidoVendaCODIGOPRODUTO.Value := DM.qProdutoCODIGOPRODUTO.Value; DM.qItemPedidoVendaVALORUNITARIO.AsString := DBEdit2.Text; If MessageDlg(´Deseja incluir outro?´, mtConfirmation, [mbYes, Mbno], 0) = mrYes Then Begin Edit1.SetFocus; *Para escolher outro produto End Else Begin DM.qItemPedidoVenda.Post; *Salva no Banco de Dados Close; End; End;
Como seu DBGrid está ligado no Query ITEMPEDIDOVENDA, ele mostra o(s) item(ns).
Rodrigo.
Gostei + 0
27/10/2005
$grandaum$
Gostei + 0
27/10/2005
Paulo
Gostei + 0
27/10/2005
Rodrigorpb
Rodrigo.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)