Hola
El problema es que usas dos
where en la misma consulta, supongo que lo que quieres hacer es lo siguiente:
Código Delphi
[-]
add ('select * from Mov_Huespedes');
add ('where fecha_huespedes = ');
add (''''+ls_Fecha+'''');
add ('and codigo_establecimiento ='); add (''''+ls_Codigo+'''');
un saludo