[[basti]]

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 ='); // sustituye el where por and
 add (''''+ls_Codigo+'''');

un saludo