GARANTIR DESCONTO

Fórum Problemas com Interbase #51975

04/08/2005

0

Amigos to com um sério problema com Interbase, estou utilizando os seguintes componentes: DBX, Clientdataset, e quero fazer uma filtragem com o seguinte codigo:

-------------------------------------------------------------------------------------
procedure TFormDocEnviado.BitBtn1Click(Sender: TObject);
var
inicio, final: string;
begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
Inicio := DateToStr(DateTimePicker1.Date);
Final := DateToStr(DateTimePicker2.Date);
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text := ´SELECT * FROM DOC_ENVIADO_ANEXO WHERE DATA_RECEBIMENTO >=:pInicial and DATA_RECEBIMENTO<=:pFinal ORDER BY DATA_RECEBIMENTO´;
SQLQuery1.ParamByName(´pInicial´).AsDateTime := StrToDate(Inicio);
SQLQuery1.ParamByName(´pFinal´).AsDateTime := StrToDate(Final);
SQLQuery1.Open;
DBGrid1.SetFocus
end;
end;
-------------------------------------------------------------------------------------

E Estou recebendo a seguinte mensagem quando eu clico no botão para filtrar: Unassigned Code!!

O que é isso????

[color=green:f221f05ae6]Movido de Delphi para Interbase/Firebird[/color:f221f05ae6]


Bruno.preste.ap

Bruno.preste.ap

Responder

Posts

04/08/2005

Kenio_c

Ola bruno, o q esta acontecendo é um erro de sintaxe, onde o seus valores passados das datas estao errados, o interbase so recebe datas no estilo americano mm/dd/yyyy, o q é inverso da data nossa aki, utilizi assim

procedure TFormDocEnviado.BitBtn1Click(Sender: TObject);
var

begin
If DateTimePicker2.Date < DateTimePicker1.Date Then
begin
ShowMessage(´Intervalo de datas inválido, a data inicial é maior que a data final!´);
DateTimePicker2.Date := DateTimePicker1.Date;
end
Else
begin
SQLQuery1.Close;
SQLQuery1.SQL.Clear;
SQLQuery1.SQL.Text := ´SELECT * FROM DOC_ENVIADO_ANEXO WHERE DATA_RECEBIMENTO >=:pInicial and DATA_RECEBIMENTO<=:pFinal ORDER BY DATA_RECEBIMENTO´;
SQLQuery1.ParamByName(´pInicial´).AsDateTime := DateTimePicker1.Date;
SQLQuery1.ParamByName(´pFinal´).AsDateTime := DateTimePicker2.Date;
SQLQuery1.Open;
DBGrid1.SetFocus
end;
end;


Caso nao funcione, tenho uma funcao que converte nossa estilo de data em data americana


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar