Aqui pongo un fragmento del codigo con el que tengo problemas
como pueden ver es en un oncalcfields de otro query y de ahi se obtienen las claves de los materiales para hacer el filtro.
Código:
procedure TfrExplota.qExplota4CalcFields(DataSet: TDataSet);
var
cont,cont2:integer;
i:integer;
nFactor,cuantos:Real;
bFound:boolean;
encontrados en las existencias de adminpaq
begin
With QExplota4 do begin
if(Dataset.fieldbyname('Cve').asstring<>'')then begin
moduloAdminpaq.qAdoInveAdminPaq.Filter:='producto='+quotedstr(Dataset.fieldbyname('Cve').asstring);
//aqui es donde manda el error, el codigo del producto sale del dataset en
//el que se esta ejecutando el oncalcfields, y de hecho esta sentencia
//funciona mientras la clave obtenida no traiga un guion