Fórum Qualo erro? #40016
11/11/2003
0
IBQuery2.close;
IBQuery2.SQL.Clear;
IBQuery2.SQL.Add(´UPDATE MANIFESTO SET MANIFESTO = (Copy(IBQuery2Manifesto.AsString,1,4)) + (Copy(IBQuery2Origem.AsString,1,2) + ´/´ + (Copy(IBQuery2DtEntrada.AsString,9,2))), ATRAZO = (IntToStr(Trunc(Date-StrToDate(IBQuery2DtVencimento.Text))))´);
IBQuery2.SQL.ADD(´WHERE DtPagamento IS NULL´);
IBQuery2.ExecSQL;
IBQuery2.SQL.Clear;
IBQuery2.SQL.Add(´UPDATE MANIFESTO SET MANIFESTO = (Copy(IBQuery2Manifesto.AsString,1,4)) + (Copy(IBQuery2Origem.AsString,1,2) + ´/´ + (Copy(IBQuery2DtEntrada.AsString,9,2))), ATRAZO = (IntToStr(Trunc(Date-StrToDate(IBQuery2DtVencimento.Text))))´);
IBQuery2.SQL.ADD(´WHERE DtPagamento IS NULL´);
IBQuery2.ExecSQL;
Virus69
Curtir tópico
+ 0
Responder
Posts
12/11/2003
Afarias
oi :) olha, vamos deixar claro uma coisa?:: VC QUE DIZ QUAL O ERRO!!! e o pessoal do fórum tenta ajudar a resolver. O Fórum não é um jogo de advinhação!! ok?! 8)
aproveitando, no q dá pra perceber, a linha abaixo está errada::
IBQuery2.SQL.Add(´UPDATE MANIFESTO SET MANIFESTO = (Copy ...
vc devia ´fechar´ a string para concatenar com o copy, etc... ex:
IBQuery2.SQL.Add(´UPDATE MANIFESTO SET MANIFESTO = (´ + Copy ...
T+
aproveitando, no q dá pra perceber, a linha abaixo está errada::
IBQuery2.SQL.Add(´UPDATE MANIFESTO SET MANIFESTO = (Copy ...
vc devia ´fechar´ a string para concatenar com o copy, etc... ex:
IBQuery2.SQL.Add(´UPDATE MANIFESTO SET MANIFESTO = (´ + Copy ...
T+
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)