rjcerri

DataMrp.ZQueryMrpmat.SQL.Clear; DataMrp.ZQueryMrpmat.SQL.Add('update mrpmatprima set falta=:fal,total=:tot where simulacao=:simu and qtdmatprima > estoque '); DataMrp.ZQueryMrpmat.Parambyname('simu').asinteger:=strtoint(txtsimulacao.text); DataMrp.ZQueryMrpmat.Parambyname('fal').asfloat:=DataMrp.ZQueryMrpmat.fieldbyname('qtdmatprima').asfloat-DataMrp.ZQueryMrpmat.Fieldbyname('estoque').asfloat; DataMrp.ZQueryMrpmat.Parambyname('tot').asfloat:=DataMrp.ZQueryMrpmat.fieldbyname('preço').AsFloat*DataMrp.ZQueryMrpmat.fieldbyname('falta').AsFloat; DataMrp.ZQueryMrpmat.ExecSQL; dei mole no parametro tot, mas mesmo assim continua dando aquela mensagem de erro.

DataMrp.ZQueryMrpmat.SQL.Clear; DataMrp.ZQueryMrpmat.SQL.Add('update mrpmatprima set falta=(:fal) and total=(:tot) where simulacao=:simu and qtdmatprima > estoque '); DataMrp.ZQueryMrpmat.Parambyname('simu').asinteger:=strtoint(txtsimulacao.text); DataMrp.ZQueryMrpmat.Parambyname('fal').asfloat:=DataMrp.ZQueryMrpmat.fieldbyname('qtdmatprima').asfloat-DataMrp.ZQueryMrpmat.Fieldbyname('estoque').asfloat; DataMrp.ZQueryMrpmat.ExecSQL; estou usando esse comando acima e da essa mensagem de erro. 'no argument for format "%s' ,process stop' não posso usar o update dessa forma? estou tentando passar para o paremetro Fal o resultado entre dois campos dessa mesma tabela.

Obrigado pela dica, mas eu não estava Setando as transações como ReadCommited, agora esta funcionando.

if edit1.Text <> '' then begin DataModulederma.ZQueryPadrao.SQL.Clear; DataModulederma.ZQueryPadrao.SQL.Add('select * from padrão where codigo starting:cod order by codigo'); DataModulederma.ZQueryPadrao.ParamByName('cod').AsInteger:=strtoint(edit1.Text); DataModulederma.ZQueryPadrao.Filtered:=true; DataModulederma.ZQueryPadrao.Open; end; estou usando assim no evento onchange, fui fazer um teste com dois usuarios, gravei um produto e depois fui na tela de consulta na minha maquina, aparece mas na outra maquina ele não aparece, o outro usuario tem que sair totalmente do sistema e quando entra novamente o produto aparece na consulta, estou usando o componente Zeos, todas as minhas telas de consulta esta assim.

Tudo bem eu deveria usar ali o operador "div" para divisões inteiras ou então usar uma função para "converter" o ponto-flutuante para inteiro, como por exemplo Round() ou Trunc() , usei o round e passou desse erro que era na compilação mas agora quando estou rodando ele esta dando o erro de field not found não sei mas o que fazer. No update eu não posso dizer que o campo que sera alterado recebera outro campo da mesma tabela se no comando eu não sito ele?

DataCliente.DMCliente.ZQueryTranspro.SQL.Add('update transpro set dirseg=(:dir), tempressu=(:temp) where codigo=:cod'); DataCliente.DMCliente.ZQueryTranspro.ParamByName('dir').AsInteger:=DataCliente.DMCliente.ZQueryTranspro.fieldbyname('ideal').AsInteger;/100*60; quando coloco assim da erro na hora de compilar (Tipo incompativel extended com integer) DataCliente.DMCliente.ZQueryTranspro.ParamByName('temp').AsInteger:=DataCliente.DMCliente.ZQueryTranspro['ideal']/100*60; E assim da erro rodando (field ideal not found) não tenho a menor ideia

registrar? Não eu já uso, e não dava esse erro tenho um datamodule com varios zquerys mas só esse esta dando esse erro, e não deixa nem deletar ele.

Estou o componente Zeos já algum tempo mas do nada na hora de roda o exe ele da uma mensagem: DataBase connection component is not assigned Depois de tentar achar o erro tentei apagar o componente Zquery, mas qualquer coisa que eu faça com ele, trava o delphi ai só fechando e abrindo denovo. aqui são duas maquinas a minha e a cliente e a do outro programador a servidor, esse erro deu no mesmo dia que a maquina servidor deu pau e teve que instalar o win98 denovo.

Obrigado, progr'amador!!!

E eu sei, não tem necessidade de colocar o DataCliente. posso começar já do DMcliente. Abs.

Obrigado, mas no caso do while já me disseram que e lento e que a sql e mais rapido. Usando o select sum a utima linha ficaria assim mesmo? label4.Caption:=IntToStr(ZQueryBaixaVenda.FieldByName('quantidade').AsFloat);

Não sei como fazer isso, antes usava um while com a tabela, só que estou migrando para o firebird e tenho que usar query. Estou tentando pegar a soma de uma consulta. ZQueryBaixaVenda.SQL.Clear; ZQueryBaixaVenda.SQL.Add('select codigoproduto,descricao,cliente,quantidade from baixavenda where dataent between :per1 and :per2 and cliente=:nome and codigoproduto=:cod'); ZQueryBaixaVenda.ParamByName('per1').AsDateTime:=strtodatetime(maskedit1.Text); ZQueryBaixaVenda.ParamByName('per2').AsDateTime:=strtodatetime(maskedit2.Text); ZQueryBaixaVenda.ParamByName('nome').AsString:=edit2.Text; ZQueryBaixaVenda.ParamByName('cod').AsInteger:=strtoint(edit1.Text); ZQueryBaixaVenda.Open; label6.Caption:=DataCliente.DMcliente.ZQueryBaixaVenda['descricao']; label4.Caption:=inttostr(DataCliente.DMcliente.ZQueryBaixaVenda['quantidade']); o label4 deveria receber essa soma, mas não tenho a menor idea.