ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Atualizar Saldo no Estoque

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
rique78
Novato
Novato


Registrado: Quarta-Feira, 6 de Abril de 2005
Mensagens: 47

MensagemEnviada: Ter Fev 06, 2007 3:37 pm    Assunto: Atualizar Saldo no Estoque Responder com Citação

Boa tarde amigos, estou fazendo um aplicativo que controla o estoque de produtos, criei uma função chamada "Atualiza Estoque", o campo "Saldo", está vinculado na tabela de produtos. Tenho outra tabela chamada "Movimento", que faz está o processo de entrada e saída dos produtos. O Problema é quando cadastro um produto (logicamente fica com o saldo inicial zero), e vou no form de movimento para dar a primeira entrada no saldo, simplesmente fica "Null" no banco de dados, não acrescenta nada. Vou colocar abaixo meu código:

procedure TFrm_Movimento.AtualizaEstoque(CodPro, QTD: Integer;Tipo: String);
Var IBQueryTemp : TIBQuery;
begin
Try
Try
IBQueryTemp := TIBQuery.Create(Self);
IBQueryTemp.Database := DM_Movimento.IB_Movimento.Database;
IBQueryTemp.Transaction := DM_Movimento.TR_Movimento;
IBQueryTemp.Close;
IBQueryTemp.SQL.Clear;
IBQueryTemp.SQL.ADD('UPDATE PRODUTO SET SALDO=');
if Tipo = 'E' then
IBQueryTemp.SQL.ADD('SALDO + ' + IntToStr(QTD))
else
IBQueryTemp.SQL.ADD('SALDO - ' + IntToStr(QTD));
IBQueryTemp.SQL.ADD('WHERE NRPRO=' + IntToStr(CodPro));
IBQueryTemp.ExecSQL;
IBQueryTemp.Transaction.CommitRetaining;
Except
on E : Exception do
ShowMessage('Falha ao atualizar o estoque' + #13#10 + E.Message);
End;
Finally
FreeAndNil(IBQueryTemp);
End;
end;
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
gustavocco
Administrador
Administrador


Registrado: Sexta-Feira, 6 de Fevereiro de 2004
Mensagens: 4253
Localização: Chapecó - SC

MensagemEnviada: Ter Fev 06, 2007 10:10 pm    Assunto: Responder com Citação

Olá, seu banco de dados é firebird? Tentou a função coalesce.

http://www.activedelphi.com.br/forum/viewtopic.php?t=25297&highlight=coalesce

Flw.
_________________
Top System - www.topsystem.com.br
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB