Amigo Lenny, el de los "casos fantasma", esta vez tampoco pusisite la linea que genera el error... pero supongo que debe ser en la línea
Código Delphi
[-]BDATOS.PRODUCTOSSUMTAB.Filtered := True;
Lo único que se me ocurre es que en tu dataset tengas creado un campo persisitntes que no sea varchar, sino que este definido con otro tipo de dato, por ejemplo float o datetime... "pero es solo un globo al aire" (es decir no estoy seguro)...
Considero que, como la vez pasada, no deberías mirar en tu codigo, sino en tu dataset (eventos, propiedades, campos persistentes).
Por otro lado, no se si los Zeos, tengan algún Bug conocido en donde las cadenas de tipo XX-XX-XXXX las interprete como fecha...
y para que no parezca que no hubo aporte:
has probado utilizar la función QuotedStr?
Código Delphi
[-]chr(39) + BDATOS.OCPRODUCTOSTAB.FieldByName('CODIGO').ASstring + chr(39)
Código Delphi
[-]QuotedStr(BDATOS.OCPRODUCTOSTAB.FieldByName('CODIGO').ASstring)
A mi me parece mas manejable cuando hay muchos paréntesis y concatenación de cadenas...
Nos cuentas como te va...