Mentow

São essas as tabelas, o ruim é que to usando o componente Table ta paleta InterBase E como pode ver não tenho uma tabala especifica para os preços, tenho os campos junto a tbOrcaProd (PRECO_CUSTO, PRECO_VAREJO, PRECO_ATACADO E PRECO_PROMOCAO) e as tabelas estão no modo insert, e eu não sei trabalhar com query até porque sou iniciante ainda

Sim, eles são tabelados na hora do cadastro como pode ver e no "ComboBox" eu faço a alteração de acordo com a tabela selecionada procedure TfmCadOrcamento.ComboBox1Change(Sender: TObject); begin if (ComboBox1.ItemIndex = 0) then begin if (tbOrcaProd.Locate('CODIGO', tbOrcaFilhoCODIGO.AsInteger,[])) then begin tbOrcaFilho.Edit; tbOrcaFilhoVALOR_UNIT.AsString := tbOrcaProdPRECO_CUSTO.AsString; tbOrcaFilhoVALOR_TOTAL.AsString := tbOrcaFilhoQTDA.AsString * tbOrcaFilhoVALOR_UNIT.NewValue; tbOrcaFilhoVALOR_TOTAL.AsString := FloatToStrF(StrToFloat(tbOrcaFilhoVALOR_TOTAL.AsString), ffNumber, 12, 2); tbOrcaFilho.Post; end; end; if (ComboBox1.ItemIndex = 1) then begin if (tbOrcaProd.Locate('CODIGO', tbOrcaFilhoCODIGO.Value,[])) then begin tbOrcaFilho.Edit; tbOrcaFilhoVALOR_UNIT.AsString := tbOrcaProdPRECO_VAREJO.AsString; tbOrcaFilhoVALOR_TOTAL.AsString := tbOrcaFilhoQTDA.AsString * tbOrcaFilhoVALOR_UNIT.NewValue; tbOrcaFilhoVALOR_TOTAL.AsString := FloatToStrF(StrToFloat(tbOrcaFilhoVALOR_TOTAL.AsString), ffNumber, 12, 2); tbOrcaFilho.Post; end; end; if (ComboBox1.ItemIndex = 2) then begin if (tbOrcaProd.Locate('CODIGO', tbOrcaFilhoCODIGO.Value,[])) then begin tbOrcaFilho.Edit; tbOrcaFilhoVALOR_UNIT.AsString := tbOrcaProdPRECO_ATACADO.AsString; tbOrcaFilhoVALOR_TOTAL.AsString := tbOrcaFilhoQTDA.AsString * tbOrcaFilhoVALOR_UNIT.NewValue; tbOrcaFilhoVALOR_TOTAL.AsString := FloatToStrF(StrToFloat(tbOrcaFilhoVALOR_TOTAL.AsString), ffNumber, 12, 2); tbOrcaFilho.Post; end; end; if (ComboBox1.ItemIndex = 3) then begin if (tbOrcaProd.Locate('CODIGO', tbOrcaFilhoCODIGO.Value,[])) then begin tbOrcaFilho.Edit; tbOrcaFilhoVALOR_UNIT.AsString := tbOrcaProdPRECO_PROMOCAO.AsString; tbOrcaFilhoVALOR_TOTAL.AsString := tbOrcaFilhoQTDA.AsString * tbOrcaFilhoVALOR_UNIT.NewValue; tbOrcaFilhoVALOR_TOTAL.AsString := FloatToStrF(StrToFloat(tbOrcaFilhoVALOR_TOTAL.AsString), ffNumber, 12, 2); tbOrcaFilho.Post; end; end; end;

Olá amigos, muito obrigado por responderem. eu uso Firebird como banco de dados, vou explicar melhor minha duvida. esse código que mostrei ai esta fazendo a alteração correta, mas ele altera apenas uma linha do DBGrid e eu queria que ele fizesse essa alteração em todos os campos, para que o cliente não tenha que alterar de um em um, já pensou um orçamento com 100 itens o trabalho que não iria dar, então se alguém poder me ajudar ficarei muito grato.

Olá meu amigos, sou novo aqui no fórum. Eu estou desenvolvendo um formulário de orçamento onde estou utilizando 3 (três) tabelas do (tbOrcamentoPai, tbOrcamentoFilho e tbProdutos). na tabela produtos tenho 4(quatro) campos relacionados a tabela de preço (Custo, Varejo, Atacado e Promoção) minha intenção é a seguinte, quando eu mudar a o tipo de tabela no "ComboBox" os preços no "DBGrid" fossem alterados de acordo com seus valores na tabela produtos, eu consegui fazer essa alteração em apenas um campo através desse código if (ComboBox1.ItemIndex = 0) then begin if tbProdutos.Locate('CODIGO', tbOrcamentoFilhoCODIGO.AsInteger,[]) then begin tbOrcamentoFilho.Edit; tbOrcamentoFilhoVALOR_UNIT.AsString := tbProdutosPRECO_CUSTO.AsString; tbOrcamentoFilho.Post; tbOrcamentoFilho.Refresh; end; end; gostaria que me ajudassem a achar um modo em que essa alteração se aplique a todos os registos que constam no "DBGrid", desde já agradeço a todo. boa noite!