Fórum Problemas com programação - alguém pode me ajudar, please!!! #144466

vai ai um exemplo meio simples de um sisteminha de caixa mas funcional


//inclusao
if fccmov.oper = ´1´ then begin
[color=red:7b96bbc383] base.tbconta.Locate(´codigo´,base.tbmovcodigo.value,[]);
base.tbconta.Edit;
base.tbcontaSALDO.Value := base.tbcontasaldo.value + base.tbmovCREDITO.value - base.tbmovdebito.value;
base.tbconta.Post;[/color:7b96bbc383]

[color=black:7b96bbc383]//no caso de alteração
//no momento da edição do registro armazenar os valores nas variáveis
//cred_ant e deb_ant e o codigo em cod_ant para o caso do código ser mudado

if (fccmov.oper = ´2´) or (fccmov.oper = ´4´) then begin[/color:7b96bbc383][color=red:7b96bbc383] base.tbconta.Locate(´codigo´,cod_ant,[]);
base.tbconta.Edit;
base.tbcontaSALDO.Value := base.tbcontasaldo.value - cred_ant + deb_ant;
base.tbconta.Post;
//
base.tbconta.Locate(´codigo´,base.tbmovcodigo.value,[]);
base.tbconta.Edit;
base.tbcontaSALDO.Value := base.tbcontasaldo.value + base.tbmovCREDITO.value - base.tbmovdebito.value;
base.tbconta.Post;
base.tbmov.post;[/color:7b96bbc383] fmov.close;
[color=black:7b96bbc383]end;

//na exclusão
if (fccmov.oper = ´3´) then begin[/color:7b96bbc383][color=red:7b96bbc383] base.tbconta.Locate(´codigo´, base.tbmovcodigo.value,[]);
base.tbconta.Edit;
base.tbcontaSALDO.Value := base.tbcontasaldo.value - base.tbmovcredito.value + base.tbmovdebito.value;
base.tbconta.Post;
base.tbmov.delete;[/color:7b96bbc383]
fmov.close;
end;


é só adaptar para seu sistema