Sandro AS

Como posso atualziar o saldo do meu estoque usando instrução sql? Ou seja toda vez que for lançado um produto na tabela item deve ser subtraido na tabela Produdo assim: PRO_ESTOQUE= PRO_ESTOQUE - ITE_QTD porém com instruções sql. tabelas, Produdo e Item ESTRUTURAS ITEM : "ITE_MOV" INTEGER NOT NULL, "ITE_PROD" INTEGER NOT NULL, "ITE_VALOR" NUMERIC(15, 2), "ITE_QTD" INTEGER NOT NULL, "ITE_USUARIO" INTEGER NOT NULL, "ITE_CADASTRO" TIMESTAMP NOT NULL, PRIMARY KEY ("ITE_MOV", "ITE_PROD") ESTRUTURA PRODUTO: "PRO_CODIGO" INTEGER NOT NULL, "PRO_DESCRICAO" VARCHAR(50) NOT NULL, "PRO_FORNEC" INTEGER, "PRO_FAB" INTEGER, "PRO_ESTOQUE" INTEGER, "PRO_MINIMO" INTEGER, "PRO_MAXIMO" INTEGER, "PRO_TIPO" VARCHAR(40), "PRO_TIPOCAD" VARCHAR(20), "PRO_CUSTO" DECIMAL(7, 2), "PRO_VENDA" DECIMAL(7, 2), "PRO_DATCAD" TIMESTAMP, "PRO_ATIVO" VARCHAR(3), "PRO_OBS" BLOB SUB_TYPE TEXT SEGMENT SIZE 80, "PRO_UM" VARCHAR(10), "PRO_ALTERACAO" TIMESTAMP, "PRO_CHAVE" VARCHAR(15), PRIMARY KEY ("PRO_CODIGO")

OLÁ TENHO UM SISTEMA COM CONTROLE DE ESTOQUE, GOSTARIA DE FAZER UM REL ONDE TERIA OS DADOS: | Saldo Anterior | Entradas | Saidas | Estoque | Saldo anterior = Saldo dos produtos antes da data escolhida Entradas = Tudo o que entrou no periodo Saidas = Tudo o que saiu Estoque = Saldo anterior + Entradas - Saidas SEI QUE VOU DEVO UM SELECT MAS NÃO TENHO A MINIMA IDEIAS SE ALGUME DE DISPONIBILIZARA AGRADEÇO. TABELAS ABAIXO: ITEMS ESTÁ PARA TABELA DE SAIDA. CREATE TABLE "ENTRADA" ( "ENT_CODIGO" INTEGER NOT NULL, "ENT_PRODUTO" INTEGER NOT NULL, "ENT_QUANT" NUMERIC(15, 4), "ENT_VALOR" NUMERIC(15, 2), "ENT_USUARIO" INTEGER NOT NULL, "ENT_CADASTRO" TIMESTAMP, "ENT_FORNEC" INTEGER, "ENT_TIPO" VARCHAR(10), "ENT_NFISCAL" VARCHAR(15), "ENT_DATA" DATE, "ENT_OBS" BLOB SUB_TYPE TEXT SEGMENT SIZE 80, PRIMARY KEY ("ENT_CODIGO") CREATE TABLE "ITEMS" ( "ITE_MOV" INTEGER NOT NULL, "ITE_PROD" INTEGER NOT NULL, "ITE_VALOR" NUMERIC(9, 2), "ITE_QTD" INTEGER NOT NULL, "ITE_USUARIO" INTEGER NOT NULL, "ITE_CADASTRO" TIMESTAMP NOT NULL, PRIMARY KEY ("ITE_MOV", "ITE_PROD")

Resolvi dei um select na TABELA PAGTO SELECT PAGTO.*,FORMA.*, FUN_CODIGO,FUN_LOGIN FROM PAGTO,FORMA,FUNCIONARIO,VENDA WHERE PGT_CPS=:fcod AND PGT_CPS=VEN_CODIGO AND PGT_CODIGO=FGT_CODIGO AND PGT_USUARIO=FUN_CODIGO mudei o Lookup para, KeyFields= FGT_DESCRICAO, LookupDataset=CdsForma, LookupKeyField=FGT_DESCRICAO. , LookupResultField=FGT_DESCRICAO. i .... mudei para Onchange para FGT_DESCRICAO procedure TDm.CdsPagtoFGT_DESCRICAOChange(Sender: TField); Begim Dm.CdsPagtoPGT_CODIGO.AsInteger:=Dm.CdsFormaFGT_CODIGO.AsInteger; Dm.CdsPagtoPGT_CPS.AsInteger:=Dm.CdsMovVEN_CODIGO.AsInteger; Dm.CdsPagtoPGT_VALOR.AsFloat:=Dm.CdsItemTotalG.AsFloat; Dm.CdsPagtoPGT_USUARIO.AsInteger:=Dm.usuariocodigo; Dm.CdsPagtoPGT_CADASTRO.AsDateTime:=Date+Time; if CdsPagtoPGT_DATA.AsString=EmptyStr then CdsPagtoPGT_DATA.AsDateTime:=date; ficou beleza

Amigo, fiz as correções mas o erro ainda continua No campo lookup não existe o evendo Onclick. procedure TDm.CdsPagtoFORMAChange(Sender: TField); begin //Dm.CdsForma.Close; Dm.CdsPagtoPGT_CPS.AsInteger:=Dm.CdsMovVEN_CODIGO.AsInteger; Dm.CdsPagtoPGT_CODIGO.AsInteger :=Dm.CdsFormaFGT_CODIGO.AsInteger; Dm.CdsPagtoPGT_VALOR.AsFloat:=Dm.CdsItemTotalG.AsFloat; Dm.CdsPagtoPGT_USUARIO.AsInteger:=Dm.usuariocodigo; Dm.CdsPagtoPGT_CADASTRO.AsDateTime:=Date; Dm.CdsPagtoPGT_DATA.AsDateTime:=Date

Olá, Sou novo por aqui, mas vamos lá. TABELA= PAGTO > PGT_CODIGO..... TABELA= FORMA > FGT_CODIGO..... TABELA= VENDA > EN_CODIGO ..... Tenho um dbgrid onde criei um campo (Field Lookup) onde: KeyFields= PGT_CODIGO, LookupDataset=CdsForma, LookupKeyField=FGT_CODIGO, LookupResultField=FGT_DESCRICAO. Com a inteção abrir algo semelhante ao DBLookupComboBox dentro do grid. Até ai tudo bem, Porem quero salvar as informações necessarias dentro do grid onde uso o seguinte codigo. procedure TDm.CdsPagtoFORMAChange(Sender: TField); begin Dm.CdsPagtoPGT_CPS.AsInteger:=Dm.CdsMovVEN_CODIGO.AsInteger; Dm.CdsPagtoPGT_CODIGO.AsInteger :=Dm.CdsFormaFGT_CODIGO.AsVariant; Dm.CdsPagtoPGT_VALOR.AsFloat:=Dm.CdsItemTotalG.AsFloat; Dm.CdsPagtoPGT_USUARIO.AsInteger:=Dm.usuariocodigo; Dm.CdsPagtoPGT_CADASTRO.AsDateTime:=Now; Dm.CdsPagtoPGT_DATA.AsDateTime:=Date; Como visto na procedure estou inserindo no OnChange do Campo Lookup. Mas está o erro "stack overflow' Procurei no google mas todos só me dão o que significa o erro mas ainda não consegui resolver . Se alguém já passou por isso ou tem outra solução por favor me ajude .