Noob_SaiboT
Membros-
Total de itens
3 -
Registro em
-
Última visita
Sobre Noob_SaiboT
Noob_SaiboT's Achievements
0
Reputação
-
Field Fornecedor Musta Have A Value
pergunta respondeu ao Noob_SaiboT de Noob_SaiboT em Delphi, Kylix
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); -
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
-
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