Criar PROCEDURE para somar campos na tabela

Question

Gentecomo eu fa�o uma procedure para somar 4 campos da tabela e gravar o resultado num campo TOTAL da mesma tabela no mesmo registro? Mas s� pode gravar quando for um REGISTRO NOVO ou for alterado qua...

Klr2 · Answer

Esquici de dizer: uso o firebird 2.1...

Klr2 · Answer

Gente depois de pesquisar muito cheguei a isso, mas s� funciona quando o registro � novo. Quando insiro um valor num registro j� existente nao soma nada :cry:

SET SQL DIALECT 3;

SET NAMES WIN1252;

SET TERM ^ ;

CREATE OR ALTER TRIGGER SOMANOTAS_IN FOR BOLETIM
ACTIVE AFTER INSERT POSITION 0
AS
begin
UPDATE FUNCIONARIOS SET TOTALSALARIOS = MES1 + MES2 + MES3 + MES4 + MES5 + MES6 + MES7 + MES8 + MES9 + MES10 + MES11 + MES12 where codigo = new.codigo;
end
^

SET TERM ; ^

Joaoshi · Answer

Colega, por que n�o cria um campo calculado na TABELA ?...

Klr2 · Answer

amigo joaoshi eu tentei isso j�, mas d� um erro na minha aplica��o quando tento usar esse campo calculado para mostrar na tela ou relat�rios, da� pensei que seria mais f�cil criar uma trigger que somasse os valores a medida que s�o inseridos/alterados. Mas sou novato na linguagem/banco de dados e tou quebrando muito a cabe�a e n�o consigo uma solu��o. As teorias eu at� que tenho o que me falta � saber como e onde aplic�-las. Em resumo, EU N�O SEI fazer mesmo.
Obrigado pela dica de qualquer forma.

.lg. · Answer

tente assim:[code:1:16e4cecb21]var  total: Integer;total := 0;with SeuaTabelaouAdq do begin  First;  while not EoF do begin    total := total + Int(SeuField.value) //coloquei o int para tirar a parte inteira dele.  end;end;[/code:1:16e4cecb21]Espero que funcione.A ideia � usar o EoF para percorrer sua tabela. porem vc atribui a variavel o valor do campo que deseja. Ele vai passar por cadainha da tabela.Se n ajudar poste a�. :wink:...

Klr2 · Answer

Amigo .lg.

Valeu pela dica... mas acho que voce nao compreendeu :wink: Nao quero percorrer toda a tabela e SIM SOMENTE o registro que est� sendo incluido ou ALTERADO.

Suponha que voce j� tem um funcionario cadastrado com os valores de sal�rio at� setembro. Da� voce altera e digita o valor de OUTUBRO, entao o campo TOTALSALARIOS ser� alterado e nele constar� o valor at� OUTUBRO, sacou? Do jeito que eu fiz � que est� acontecendo de varrer toda a tabela e est� demorando um pouco para processar, portanto, meu m�todo est� errado. Obrigado assim mesmo pela dica, claro que eu vou anot�-la, se precisar de varrer toda a tabela j� tenho uma pronta! :wink:

Paulo_amorim · Answer

Ol�Por que voc� n�o faz uma trigger para AFTER UPDATE, ao inv�s (ou al�m) do AFTER INSERT? O que voc� fez � para inser��o, basta um para atualiza��o, eu creio.Espero que ajude.At�+...

Klr2 · Answer

Paulo_AmorimJ� tentei fazer isso, mas ocorre um erro de concorrencia se nao me engano. Al�m do mais, o que t� pegando � que ESSA QUE EU FIZ, ATUALIZA TODA A TABELA e eu PRECISO s� de atualizar o REGISTRO CORRENTE sendo ALTERADO ou INSERIDO. Essa at� que funciona, mas para tooooda a tabela... Obrigado assim mesmo pela dica, t� anotada!  :wink:...

Paulo_amorim · Answer

Ol�A trigger que voc� fez n�o faz pra tooooda a tabela n�o. Se vc coloca a cl�usula where pelo c�digo, isso deve ser �nico.Quanto ao seu problema de concorr�ncia, precisaria fazer testes. Mas de cara assim, talvez pudesse atuar no BEFORE UPDATE.�Noves fora� o uso de new ou old na soma, pode-se tentar:[code:1:bee9837277]CREATE TRIGGER somaFOR tabela ACTIVEBEFORE insert OR updateBEGIN  new.totalsalario = new.mes1 + new.mes2 +...END;[/code:1:bee9837277]Espero que ajudeAt�+...

Klr2 · Answer

Exatamente Paulo_Amorim!

:oops: :oops: Eu esqueci desse detalhe na hora de escrever aqui. S� faz para o NOVO codigo sendo inserido mas nao atua quando eu tento dar o UPDATE e quando coloco �OR UPDATE� dao os erros de concorrencia que eu citei. Vou fazer uns testes pra ver se descubro a causa disso. Muito obrigado pela dica! Espero que esta funcione, pois estou j� em situacao de perder os cabelos por causa da cabe�a quente. :lol:

Valeu

Joaoshi · Answer

Colega, tente assim:[code:1:512f68f070]ALTER TABLE SuaTabela ADD TOTAL COMPUTED BY (MES1 + MES2 + MES3 + MES4 + MES5 + MES6 + MES7 + MES8 + MES9 + MES10 + MES11 + MES12);[/code:1:512f68f070]Espero ter ajudado....

Klr2 · Answer

JoaoShi.

Realmente!

Funcionou! Eu j� tinha criado um campo desses na minha tabela e deu um pau danado. Mas n�o era o mesmo tipo de campo, agora, observando bem. O que eu fiz, foi seguir um exemplo que est� na Revista Clube Delphi edi��o 99 p�gina 51 mat�ria do Adriano Santos, onde ele falava sobre as novidades do Firebird 2.1 e cita campos calculados.
L� ele cita o exemplo :

CREATE TABLE PRODUTOS(
PRODUTO VARCHAR(30),
QUANTIDADE INT,
PRECO DOUBLE PRECISION,
TOTAL GENERATED ALWAYS AS (QUANTIDADE * PRECO))

Bom, troca daqui e dali, eu criei minha tabela usando o GENERATED ALWAYS somando os meses que eu queria e pela teoria l� explicada, eu achei que iria dar super certo e n�o precisava me preocupar mais com isso. Agora vejo que h� diferen�a, pelo menos na ATUA��O do comando COMPUTED BY e GENERATED ALWAYS. Cheguei a conclus�o de que preciso estudar mais sobre Firebird.

OBRIGADO!
Resolvi meu problema completamente!

Klr2 · Answer

Bom, na verdade, n�o funcionou!!!!!!Para um registro s�, funciona! Mas como tenho um grid e digito v�rios registros de uma vez, quando mando incluir via while not(tabela.eof) surge o pau...attempted update of read-only column. Error Code -151. (Traduzindo que � mais f�cil... ) Esta coluna n�o pode ser regravada porque ela � derivada de uma fun��o SQL ou express�o. A SQL  UPDATE FUNCIONARIOS SET SAL9 =? ,TOTALSAL =?  where CODFUNC =? and MES =?;Carambolas...  :cry: Achei que tinha resolvido!!!!...

F�rum Criar PROCEDURE para somar campos na tabela #364981