ActiveDelphi

[newrogerio]

to precisando de mais um codigo sql


esse é assim


na tabela produto tem os campos (COD_PRODUTO,NOME_PRODUTO,QUANTIDADE_PRODUTO)

na tabela movimentacao tem os campos
(COD_MOVIEMNTACAO,COD_PRODUTO,DATA_MOVIMENTACAO,TIPO_MOVIMENTACAO)


eu preciso fazer o seguinte

-vou ter um radiogroup com duas opçoes(0-entrada 1-saida)
-na combobox eu vo puxa o nome produto da TB_PRODUTO
-numa edit eu vou digitar um valor


digamos ki um certo produto na TB_PRODUTO tem o valor 10 na campo QUANTIDADE

se eu escolher no radiogroup ''entrada''

e digitar 5 na edit
apos clicar no botao ok
o campo QUANTIDADE da TB_PRODUTO tem ki atualizar para '15' ou seja
acrescentar na QUANTIDADE o valor da edit

se eu escolher ''saida''
o campo QUANTIDADE da TB_PRODUTO tem ki atualizar para '5' ou seja
diminuir da QUANTIDADE o valor ki estava na edit

[Edilson_alves_de_oliveira]

if (Trim(Edit1.TExt)='Saída') then
update nomeTabale set quantidade = quantidade-5

if (Trim(Edit1.TExt)='Entrada') then
update nomeTabale set quantidade = quantidade+5

Where (Colocar aqui as cosdições)

[newrogerio]

então edilson

eu fiz isso aki

DM.ibqryProduto.SQL.Add('update TB_PRODUTO set QUANTIDADE_PRODUTO = DM.ibqryProdutoQUANTIDADE_PRODUTO.Value +(StrToInt(edtQuantidade.Text)');


ai falta o where ki eu num sei oque coloca

[Edilson_alves_de_oliveira]

Passa a estrutura da sua taela que vejo

todos os campos citando os que são chave primaria

ai eu retorno para você.

[newrogerio]

TB_PRODUTO (
COD_PRODUTO INTEGER NOT NULL,
NOME_PRODUTO VARCHAR(40) NOT NULL,
QUANTIDADE_PRODUTO INTEGER NOT NULL,
PRIMARY KEY (COD_PRODUTO)




TB_MOVIMENTACAO (
COD_MOVIMENTACAO INTEGER NOT NULL,
COD_PRODUTO INTEGER NOT NULL,
DATA_MOVIMENTACAO DATE NOT NULL,
TIPO_OPERACAO VARCHAR(1),
PRIMARY KEY (COD_MOVIMENTACAO),
FOREIGN KEY (COD_PRODUTO)
REFERENCES TB_PRODUTO