Subtrair valor de um registro

Question

Awe pessoal fmz?eu denovo ehehehTipo tenho a tabela contas que tem o campo saldoe tenho uma tabela de gastos com o campo valorE ai toda vez que registra um novo registro no gastos tem que desconta o v...

Snipa · Answer

Bom queria dize que to postando resposta pq nao achei o botao edita
E tipo jah tentei applyupdates aquele dbisavechanges jah coloquei fiz de tudo quanto eh jeito e ele nao tah descontando o valor
tah estranhao
passei so pra posta isso memo
se alguem soube ae posta ae to precisando disso pra termina um trabaim
:o)

Marco Salles · Answer

[quote:d41b837f56]E ai toda vez que registra um novo registro no gastos tem que desconta o valor do campo valor do campo saldo da tabela contas [/quote:d41b837f56]Olha Eu N�o Sei Qual o Banco Que Voce Usa , N�o Sei Tambem a Estrutura De Sua Tabela, O Que Eu Posso De Dar � Uma No��o De Onde Voce Deve Fazer Isto... Depois De Registrar o Novo Registro, Voce Tem Que Colocar a Sua Tabela Contas  ir Para o Ultimo Registro Coloca-la No Modo De Edi��oe Escrever: TabelaGastoscontas:=TabelaGastos.contas - TabelaSaldoValore Depois Salvar.. Isto � S� Uma Id�ia Para Ser mais �Formal� Acredito Ser Precisso Maiores Informa��es na Modelagem Dos Seus Dados....

Snipa · Answer

Awe bom
Eu fiz um esquema pra ve se tava funcionando oque tava fazendo colocando em labels
Ai eu vi qeu ele tah descontando e tal so que parece que ele nao tah salvando.

eu to fazendo assim

procedure TFrmCadgastos.Table1AfterPost(DataSet: TDataSet);
var valor1,saldo,resultado:real;
begin
valor1 := strtofloat(table1.Fields[4].value);
saldo := strtofloat(table2.Fields[5].value);
resultado := (saldo - valor1);
label3.Caption := floattostr(valor1);
label4.Caption := floattostr(saldo);
label6.Caption := floattostr(resultado);
table2.Edit;
table2.Fields[5].NewValue := floattostr(resultado);
table2.Post;
label7.Caption := table2.Fields[5].Value;
dbisavechanges(table2.Handle);
table2.refresh;
end;

O problema agora eh que ele parece nao tah salvando
nao sei pq
e vlw a ajuda ae marco
mais se tu soube essa agora ia agradece paca

Marco Salles · Answer

Aparentemente Esta Correto, Eu S� N�o Usaria o Evento OnAfterPost Da Tabela1 Para Inseriri/Modificar Dados Da Tabela2...Mas Voltando ao Assunto Propiamente Dito , Explica Melhor o Que Ocorre Com os Valores Dos Labeis Apos Todo o Processo:Label4,Label4,Label6,Label7 :?: De Um Exemplo Num�rico...Etc..

Marco Salles · Answer

H� Outra Coisa Tamb�m..Troque a Instru��o [code:1:1ed00ca1fd]table2.Fields&#91;5&93;.NewValue := floattostr(resultado); [/code:1:1ed00ca1fd]por:[code:1:1ed00ca1fd]table2.Fields&91;5&93;.AsString:= floattostr(resultado); [/code:1:1ed00ca1fd]P:S A Propiedade NewValue � Do Tipo Variant Ok...

Snipa · Answer

Awe fmz vlw ae cara a ajuda que se tah dando

Tipo os labels era so pra sabe se as variaveis tavam recebendo os valores
Mais pode esquece eu jah tirei os labels
E tipo a tabela eh do tipo paradox
O meu form tah assim :[url]snipes.jbrasil.com/teste.JPG[/url]
E tipo eu to usando duas table
Uma com a tabela:
Contas
com os campos: Codigo,Descricao,Banco,Agencia,Saldo
E outra table com a tabela
Gastos
com os campos:Codigo,Descricao,Codigodaconta,Datainsercao,Valor

E eu uso essa tabela contas para listar as contas no dblokupComboBox
E a tabela gastos pra inseri :)

Ai eu qeuro que toda vez que ele cadastre um gasto ele:
Desconte o valor do gasto, do saldo da conta que ele escolheu.
Por isso eu fiz no afterpost da table1(eh a tabela gastos)

E o problema eh que ele nao tah descontando do saldo da conta
eh como se essa linha
table2.Fields[5].AsString:= floattostr(resultado);
nao tivesse funcionando
so que nao aparece msg de erro nem nada

Bom agora acho que eu expliquei tudo direitinho ehhehe :o)
Se agora tu soube vlw ae flw

Marco Salles · Answer

Seus Campos:[quote:79e1dd6920]Codigo,Descricao,Codigodaconta,Datainsercao,Valor [/quote:79e1dd6920]Note: Fields[0]=Codigo;Fields[1]=Descricao;....;Fields[4]=ValorVoce Usastrtofloat(table1.Fields[4].value); Ok... [quote:79e1dd6920]Codigo,Descricao,Banco,Agencia,Saldo [/quote:79e1dd6920]Note: Fields[0]=Codigo;Fields[1]=Descricao,......Fields[4]=Saldo, Mas Voce Usa:strtofloat(table2.Fields[5].value);  :?:  :?: T� Esquisito , Deveria Ser :strtofloat(table2.Fields[4].value :?:  :?: Confira Por Favor o Valor Correto Do Indice Usado Indice Quanto ao Label[quote:79e1dd6920]Tipo os labels era so pra sabe se as variaveis tavam recebendo os valores Mais pode esquece eu jah tirei os labels [/quote:79e1dd6920]Eu Sei Que Era So Para Este Prop�sito, Mas Ajuadaia Para Depurar o Programa...

F�rum Subtrair valor de um registro #222870