Adoitebibuscar.close;
Adoitebibuscar.Clear;
Adoitebibuscar.SQL.Text := 'Select codigo, fecha, itebis From itebis ';
If EdCodBuscar.text <> ' ' then
begin
Adoitebibuscar.sql.add('where codigo = '+EdCodBuscar.Text);
AdoitebiBuscar.Active := True;
EdCodBuscar.text:= AdoItebiBuscar.Fields[0].AsString;
end;
If EdFechaBuscar.text <> ' ' then
begin
Adoitebibuscar.sql.add('where fecha = '+EdFechaBuscar.text);
AdoitebiBuscar.Active := True;
EdFechaBuscar.text:= dateToStr(AdoItebiBuscar.Fields[0].AsdateTime);
end;
If EdItebiBuscar.text <> ' ' then
begin
Adoitebibuscar.sql.add('where itebis = '+EdItebiBuscar.text);
AdoitebiBuscar.Active := True;
EdItebiBuscar.Text:= AdoItebiBuscar.Fields[0].AsString;
end;