consulta produtos pelo dbgrid
boa tarde pessoa, bom sou iniciante e estou precisando de uma ajuda, tenho um form de vendas/itensvendas -no dbgrid itens de vendas, e coloquei um botao no codprod(botaoelyps) para pesquisar produtos..criei o form de consulta para pesquisar os produtos, até ai blz, só nao estou sabendo codificar..Alguem poderia me ajudar a fazer com que ao clicar no produto selecionado no dbgrid de consulta, ele cairia no dbgrid de itensvendas..Estou usando paradox/query...
Jose Maria
Curtidas 0
Respostas
Marco Salles
30/01/2011
tem algum relacionamento entre eles ????
GOSTEI 0
Jose Maria
30/01/2011
nao, o dbgrid itens(tabela itensvendas)esta relacionada com tabela vendas, o botao esta no campo codprod do dbgrid itens, assim clica no botao e abre o form de consulta de produtos, que so faz a pesquisa na tabela produtos, assim q o usuario achar o produto que sera mostrado no grid, ele da 2 clic e o produto selecionado cai no dbgrid itens..
GOSTEI 0
Mauricio Rodrigues
30/01/2011
vc está usando qual banco de dados ?
Ao dar duplo clique ele faz filtro na tabela itemvendidos ou adiciona o item na tabela ?
Ao dar duplo clique ele faz filtro na tabela itemvendidos ou adiciona o item na tabela ?
GOSTEI 0
Diego Cavalca
30/01/2011
Olá, há um bom tempo não utilizo paradox, porém já fiz uum projeto exatamente como descreve...
Dê uma olhada, veja se resolve para você...
[]'s
Dê uma olhada, veja se resolve para você...
procedure TFormGridProduto.gridProdutoDblClick(Sender: TObject);
var
total, qtd: string;
TotalV, TotalGeral, Troco: Currency;
i: integer;
begin
with FormVenda.ListView1.Items.Add do
begin
qtd:= (Edit2.Text);
Total:= (FORMATCurr ('R$ 0.00',DmPrincipal.TbProdutoPreo_venda.Value * StrToInt (qtd)));
Caption := Dmprincipal.TbProdutoProdCodigo.AsString;//Qualquer String. Caption é 1ª Coluna do LV
SubItems.Add(Dmprincipal.TbProdutoProduto.value);//2ª Coluna do LV
SubItems.Add(qtd);//3ª Coluna do LV
SubItems.Add(FORMATCurr ('R$ 0.00',Dmprincipal.TbProdutoPreo_venda.value));//4ª Coluna do LV
SubItems.Add('');
SubItems.Add(Total);
end;//with
formgridproduto.close;
TotalV := 0;
for i := 0 to FormVenda.ListView1.Items.Count - 1 do
begin
with FormVenda.ListView1.Items.Item[I] do
begin
TotalV := TotalV + TextToCurr(subItems.Strings[4]);
end;
FormVenda.Edit1.Text := formatCurr('R$ 0.00',TotalV);
// Troco := FloatToCurr (StrToFloat(EdtPago.Text) - ((StrToFloat(Edit2.Text)) - (StrToFLoat(EdtDesconto.Text))));
// TotalGeral := (StrToCurr(Edit2.Text)) - (TextToCurr(MaskEdit2.Text));
// Edit3.Text:= FormatCurr('R$ 0.00',(TextToCurr(EdtPago.Text) - ( Total - (TextToCurr(EdtDesconto.Text)))));
TotalGeral:= TotalV - (StrToCurr(FormVenda.EdtDesconto.Text));
FormVenda.Edit2.Text:= FormatCurr('R$ 0.00',TotalGeral);
if FormVenda.EdtPago.Text = FLoatToStr(0) then
FormVenda.Edit3.Text:= FloatToStr(0);
if (TotalGeral < StrToCurr(FormVenda.EdtPago.Text)) AND (FormVenda.EdtPago.Text <> FLoatToStr(0)) then
Begin
Troco:= StrToCurr(FormVenda.EdtPago.Text) - TotalGeral;
FormVenda.Edit3.Text:= FormatCurr('R$ 0.00',Troco);
End;
if (TotalGeral > StrToCurr(FormVenda.EdtPago.Text)) AND (FormVenda.EdtPago.Text <> FLoatToStr(0))then
FormVenda.Edit3.Text:= 'CONFERIR $ PAGO!';
end;
end;
[]'s
GOSTEI 0
José
30/01/2011
Este tópico esta sendo fechado por inatividade. Se necessário, sinalizar para que seja reaberto ou abrir um novo.
GOSTEI 0