Jump to content


Instrutor_X's Content

There have been 1 items by Instrutor_X (Search limited from 30/03/2023)


Ordernar por                Order  

#1002322 Consulta Alteração Com Problema

Posted by Instrutor_X on 07/08/2010, 15:40 in Firebird/InterBase

Preciso fazer uma consulta que atualize o caixa, somente dos dados entrados num período.
Utilizo delphi 6 e Firebird com os componentes IBQuery e IBUpdate SQL. LIguei as duas pela propriedade updateobject.

Código sql:
var
Datap,DataAte:TDateTime;
a,integer;
begin
dmjm.IBQCaixaA.sql.Clear;
dmjm.IBQCaixaA.SQL.add('Select * from Caixa');
dmjm.IBQCaixaA.sql.add('where Caixa.Data >= '''+FormatDateTime('mm/dd/yyyy', Datap)+''' and Caixa.Data <= '''+FormatDateTime('mm/dd/yyyy', DataAte)+''' and FecharUsuario is null');
dmjm.IBQCaixaA.open;
dmjm.IBQCaixaA.First;
a:=dmjm.IBQCaixaA.RecordCount;
for i:=1 to a do
begin
dmjm.IBQCaixaA.edit;
dmjm.IBQCaixaAFecharUsuario.AsString:='S';
dmjm.IBQCaixaAUsufechar.AsString:=EDIT1.Text;
dmjm.IBQCaixaATotalCaixa.AsCurrency:=TotCaiGeral;
dmjm.IBQCaixaATotalGeralCaixa.AsCurrency:=TotCai;
dmjm.IBQCaixaATotalEspecie.AsCurrency:=TotEspecie;
dmjm.IBQCaixaAHOraFechar.AsString:=TIMETOSTR(time());
dmjm.IBQCaixaADataFechar.AsDateTime:=date();
dmjm.IBQCaixaAFecharperiodo.Asstring:='F';
dmjm.IBQCaixaAFechamento.AsString:=dmjm.IBQCaixaADataFechar.AsString + ' - ' + label20.Caption + ' - ' + label8.Caption;
if i=a then
begin
dmjm.IBQCaixaAListaHora.AsString:='L';
end;
dmjm.IBQCaixaATotalCreditosDia.AsCurrency:=TotCreditoDin + TotCreditoChe + TotCreditoCar;
dmjm.IBQCaixaATotalDebitosDia.AsCurrency:=TotDebDia;
dmjm.IBQCaixaATotAnterior.AsCurrency:=TotAnterior;
if edit1.Text=edit7.Text then
begin
dmjm.IBQCaixaATotalDinheiroDia.AsCurrency:=TotCreditoDin - TotDebitoDin + TotDinDiaL;
dmjm.IBQCaixaATotalChequeDia.AsCurrency:=TotCreditoChe - TotDebitoChe + TotcheDiaL;
dmjm.IBQCaixaATotalCartaoDia.AsCurrency:=TotCreditoCar - TotDebitoCar + TotCardial;
dmjm.IBQCaixaATotalvaleDia.AsCurrency:=TotvalDia + TotValAnterior;
end;
if edit1.Text<>edit7.Text then
begin
dmjm.IBQCaixaATotalDinheiroDia.AsCurrency:=TotCreditoDin - TotDebitoDin + TotDinDiaL;
dmjm.IBQCaixaATotalChequeDia.AsCurrency:=TotCreditoChe - TotDebitoChe + TotCheDiaL;
dmjm.IBQCaixaATotalCartaoDia.AsCurrency:=TotCreditoCar - TotDebitoCar + TotCarDiaL;
dmjm.IBQCaixaATotalvaleDia.AsCurrency:=TotvalDia + TotValAnterior + TotValDiaL;
end;
dmjm.IBQCaixaA.post;
dmjm.IBQCaixaA.Next;
end;
end;
dmjm.IBTransaction1.Commit;

////////////////////////////
ESTÁ DANDO O ERRO:
SQL ERROR CODE = -104
Token unknown - line 2, char 1 from '. Process stopped. Use step or run to continue

Não sei o que fazer, aonde errei, obrigado!
SQL




IPB Skin By Virteq