Ir para conteúdo
Fórum Script Brasil

Noob_SaiboT

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre Noob_SaiboT

Noob_SaiboT's Achievements

0

Reputação

  1. A minha procedure para salvar é essa Procedure TFrmEntrada.Soma; begin DtModule.SimpleItem_entrada.Close; DtModule.SimpleItem_entrada.Open; DtModule.SimpleItem_entrada.Edit; DtModule.SimpleItem_entrada.Post; DtModule.SimpleItem_entrada.ApplyUpdates(0); DtModule.SimpleItem_entrada.First; DtModule.SimpleEntrada.Edit; DtModule.SimpleEntrada.Post; DtModule.SimpleEntrada.ApplyUpdates(0); While not DtModule.SimpleItem_entrada.Eof do Begin DtModule.SimpleProduto.FindKey([DtModule.SimpleItem_entradaPRODUTO.Value]); DtModule.SimpleProduto.Edit; DtModule.SimpleProduto.FieldByName('ESTOQUE').Value:=DtModule.SimpleProduto.FieldByName('ESTOQUE').Value+DtModule.SimpleItem_entrada.FieldByName('QUANTIDADE').Value; DtModule.SimpleProduto.Post; DtModule.SimpleProduto.ApplyUpdates(0); DtModule.SimpleItem_entrada.Next; End; Quando eu vou salvar eu faço isso procedure TFrmEntrada.Button1Click(Sender: TObject); begin Soma; DtModule.SimpleItem_entrada.Open; DtModule.SimpleItem_entrada.Post; DtModule.SimpleItem_entrada.ApplyUpdates(0); DtModule.SimpleEntrada.Edit; DtModule.SimpleEntrada.Post; DtModule.SimpleEntrada.ApplyUpdates(0);
  2. porque sempre que eu estou tentando salvar um registro ocorre esse erro? FIELD FORNECEDOR MUSTA HAVE A VALUE como eu faço para resolver ele? MSN newton_cesar@hotmail.com
  3. Gostaria de criar uma trigger que atualiza-se um campo assim que eu salva-se > o registro .. > tipo tenho uma tabela chama Itens_Entrada e outra tabela chama Produto, na > tabela itens_entrada tem um campo chamado quantidade e na tabela produtos um > campo chamado estoque...como eu faço para que quando eu salvar os registros > na tabela Itens_entrada, altere o item estoque na tabela produto? > estou usando Delphi 7 e as palhetas DbExpress > > Newton Cesar > MSN: newton_cesar@hotmail.com > desenvolvedor aprendiz
×
×
  • Criar Novo...