Eu uso banco de dados firebird com componente Zeos Lib para acesso, e uso a Query não Table.
Se alguém saberia me dizer o que pode ser agradeço.
Esta é a parte do código e a tabela em questão é a tabela Qitem
if MessageDlg('Excluir item selecionado, e dar baixa no estoque?',mtWarning,[mbYes,mbNo],0)=mrYes then
begin
dados.DataModulo.Qprodutos.Close;
dados.DataModulo.Qprodutos.SQL.Clear;
consulta:='Select * from produtos where codprod='+QuotedStr(QitemCODPROD.AsString)+'';
dados.DataModulo.Qprodutos.SQL.Add(consulta);
dados.DataModulo.Qprodutos.Open;
dados.DataModulo.Qprodutos.Edit;
//**INICIO*** exclui o item da ref. nota do histórico
dados.DataModulo.Qhistpod.Params[0].AsInteger:=QitemCODPROD.AsInteger;
dados.DataModulo.Qhistpod.Params[1].AsInteger:=QcomprasNUMNOTA.AsInteger;
dados.DataModulo.Qhistpod.Active:=true;
dados.DataModulo.Qhistpod.First;
while not dados.DataModulo.Qhistpod.Eof do
dados.DataModulo.Qhistpod.Delete;
dados.DataModulo.Qhistpod.Active:=false;
//**FIM*** exclui o item da ref. nota do histórico
dados.DataModulo.QprodutosSLD_ATUAL.AsFloat:=dados.DataModulo.QprodutosSLD_ATUAL.AsFloat-QitemQUANTIDADE.AsFloat;
QcomprasTOTAL_ITENS.AsCurrency:=QcomprasTOTAL_ITENS.AsCurrency-QitemSUBTOTAL.AsCurrency;
QcomprasTOTAL_NOTA.AsCurrency:=QcomprasTOTAL_NOTA.AsCurrency-QitemSUBTOTAL.AsCurrency;
Qitem.Delete;// deleta o item
Qitem.CommitUpdates;
dados.DataModulo.Qprodutos.CommitUpdates;
codprod.SetFocus;
end;
---------------------------------
Abra sua conta no Yahoo! Mail - 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por: | |
|
Links do Yahoo! Grupos
- Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
- Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
- O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.