Fórum Problemas para atualizar estoque! #174192
11/08/2003
0
Olá pessoal!
Estou desenvolvendo um programa usando o Interbase/Firebird versão 0.94. Estou usando a paleta DbExpress para acesso as tabelas. O problema que estou encontrando é para atualizar o estoque pois já tentei de duas formas e não consigo fazer com que a minha tabela de estoque atualize. Segue abaixo as formas que tentei:
1ª tentativa:
DM.SqlClientdataSet4.commandtext:=´UPDATE ESTOQUE set QUANT=QUANT + :NOVAQUANT´ +
WHERE COD_PROD = :CODPROD´;
DM.SqlClientdataSet4.Parambyname(´NOVAQUANT´).asinteger:=strtoint(DBedit2.text);
DM.SqlClientdataSet4.Parambyname(´CODPROD´).asstring:=DBedit3.text;
DM.SqlClientdataSet4.execSql;
2ª Tentativa:
DM.ESTOQUE.Locate(´COD_PROD´,DM.PRODVENDASCOD_PROD.asstring,[]);
DM.ESTOQUE.edit;
DM.ESTOQUEQuantidade.asinteger:=DM.ESTOQUEQUANT.asinteger-DM.PRODVENDASQUANT.asinteger;
DM.ESTOQUE.APPLYUPDATES(-1);
Será que alguém pode me ajudar?
Estou desenvolvendo um programa usando o Interbase/Firebird versão 0.94. Estou usando a paleta DbExpress para acesso as tabelas. O problema que estou encontrando é para atualizar o estoque pois já tentei de duas formas e não consigo fazer com que a minha tabela de estoque atualize. Segue abaixo as formas que tentei:
1ª tentativa:
DM.SqlClientdataSet4.commandtext:=´UPDATE ESTOQUE set QUANT=QUANT + :NOVAQUANT´ +
WHERE COD_PROD = :CODPROD´;
DM.SqlClientdataSet4.Parambyname(´NOVAQUANT´).asinteger:=strtoint(DBedit2.text);
DM.SqlClientdataSet4.Parambyname(´CODPROD´).asstring:=DBedit3.text;
DM.SqlClientdataSet4.execSql;
2ª Tentativa:
DM.ESTOQUE.Locate(´COD_PROD´,DM.PRODVENDASCOD_PROD.asstring,[]);
DM.ESTOQUE.edit;
DM.ESTOQUEQuantidade.asinteger:=DM.ESTOQUEQUANT.asinteger-DM.PRODVENDASQUANT.asinteger;
DM.ESTOQUE.APPLYUPDATES(-1);
Será que alguém pode me ajudar?
E_marcello
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)