Atualizando tabela estoque via codigo SQLgt;

Question

Ola pessoal, tentei atualizar minha tabela Estoque desta forma:[code:1:bded07d66e]procedure TFRm_EntraNF.BitBtn3Click(Sender: TObject);beginWith Dmdados.IBQ_Estoque DOBeginClose;Sql.Clear;Sql.Add(�Upd...

Marcelo_mileris · Answer

Talvez se vc usar [b:2248e6d531]ExecSql[/b:2248e6d531] ao inv�s de [b:2248e6d531]Open[/b:2248e6d531] [i:2248e6d531](Que � usado para consultas)[/i:2248e6d531] funcione

procedure TFRm_EntraNF.BitBtn3Click(Sender: TObject);
begin
  With Dmdados.IBQ_Estoque DO
    Begin
    Close;
    Sql.Clear;
    Sql.Add(�Update Tabela_Estoque�);
    Sql.add(�Set Quantidade_atu = :QUANTIDADE_NOVA�);
    Sql.Add(�Where Cod_Prod = :COD_PROD�);
    ParamByName(�QUANTIDADE_NOVA�).AsInteger := (Quantidade Nova);
    ParamByName(�COD_PROD�).AsInteger := (C�digo do Produto);
    ExecSql;
  end;
end;

Emerson Nascimento · Answer

fa�o uma recomenda��o: nunca passe um �resultado� direto. deixe que a instru��o fa�a o c�lculo. assim voc� j� fica prevenido se o sistema for multiusuarios.

tente algo assim:

procedure TFrm_EntraNF.BitBtn3Click(Sender: TObject);
begin
  with Dmdados do
  begin
    // aqui monta a instru��o para atualiza��o do estoque
    with IBQ_Estoque do
    begin
      Close;
      Sql.Clear;
      Sql.Add(�Update Tabela_Estoque�);
      Sql.add(�Set Quantidade_atu = Quantidade_atu + :QUANTIDADE�);
      Sql.Add(�Where Cod_Prod = :COD_PROD�);
    end;

    // varre a tebela de itens e faz a entrada de todos eles
    IBTab_EntraIten.First;
    while not IBTab_EntraIten.Eof do
    begin
      with IBQ_Estoque do
      begin
        Close; 
        ParamByName(�QUANTIDADE�).Value := IBTab_EntraItenQUANTIDADE.Value;
        ParamByName(�COD_PROD�).Value := IBTab_EntraItenCOD_PROD.Value;
        ExecSql;
      end;

      IBTab_EntraIten.Next;
    end;
  end;
end;

note que � passada apenas a quantidade do item; n�o � feita a soma na passagem do par�metro. pq?
simples:
imagine que h� dois usu�rios fazendo entradas de notas fiscais e, por acaso, as notas tem um produto em comum.
quando os dois entraram no sistema, a quantidade lida do estoque para esse produto foi de 56, certo? 56 unidades no estoque para aquele determinado produto.
na nota do 1o usu�rio entrar�o mais 12 unidades;
na nota do 2o, entrar�o 9.

o primeiro usu�rio confirmou:
segundo seu c�digo, o sistema gravaria na quantidade atual:
56 + 12 = 68, certo?

depois o 2o usu�rio confirmou a entrada da sua nota, ent�o o sistema, ainda segundo o seu c�digo, gravaria:
56 + 9 = 65, certo?
(porque seu sistema �leu� 56 e vai passar para a quantidade atual esse 56 - que j� n�o � mais 56, devido a entrada da primeira nota - com a quantidade do item que est� sofrendo a entrada)

o saldo final ficaria gravado como 65, mas na verdade deveria ser 77!!! por isso a instru��o que eu estou te passando n�o grava um valor direto na quantidade. ela soma o valor que voc� passar � quantidade atual, evitando esse tipo de erros.

pense sempre dessa maneira, pois um bom sistema deve estar preparado para m�ltiplos acessos.

n�o sei se fui claro, mas espero que essa dica te ajude nos pr�ximos procedimentos.

Peninha · Answer

Bem Amigos, tentei das duas formas mas n�o acontece nada na minha tabela de estoque, j� inverti as posi��es do c�digo mas infelizmente ainda n�o consegui....

Emerson Nascimento · Answer

voc� precisa �comitar� os dados.depois de todo o processo, fa�a algo como:IBDatabase.DefaultTransaction.Commit;ouIBQuery1.Transaction.Commit;...

Peninha · Answer

Emerson.en, eu n�o � preciso gravar dentro da tabela estoque?

Veja bem, vou tentara explicar melhor.
Estou colocando este c�digo dentro do Bot�o �Confirmar Opera��o�
Que � onde dou o Post na Tabela �EntraIten� Mesmo colocando o Post para gravar na tabela estoque n�o acontece nenhuma mudan�a na Tabela_Estoque.

Outra coisa:
Preciso criar chave primaria na tabela_estoque e fazer relacionamento da Tabela_Estoque e Tab_EntraIten?

Emerson Nascimento · Answer

voc� digita um item e j� faz a movimenta��o no estoque?

isso n�o deveria ser feito somente na confirma��o da entrada da nota, depois de digitar todos os itens?

bom, de qualquer forma, seguindo seu procedimento, seria necess�rio gravar o item antes de proceder com a movimenta��o:

procedure TFrm_EntraNF.BitBtn3Click(Sender: TObject); 
begin 
  Dmdados.IBTab_EntraIten.Post;

  with Dmdados, Dmdados.IBQ_Estoque do 
  begin 
    Close; 
    Sql.Clear; 
    Sql.Add(�Update Tabela_Estoque�); 
    Sql.add(�Set Quantidade_atu = Quantidade_atu + :QUANTIDADE�); 
    Sql.Add(�Where Cod_Prod = :COD_PROD�); 
    ParamByName(�QUANTIDADE�).Value := IBTab_EntraItenQUANTIDADE.Value; 
    ParamByName(�COD_PROD�).Value := IBTab_EntraItenCOD_PROD.Value; 
    ExecSql;
    Transaction.Commit; 
  end;
end;

Peninha · Answer

Valeu mesmo amigo muito obrigado pela aten��o....

F�rum Atualizando tabela estoque via codigo SQLgt; #321525