Hola y gracias de antemano. Tengo un problema bastante molesto, les cuento:
Tengo un DBEdit el cual segun el contenido (OC) filtra una tabla:
Código Delphi
[-]procedure TPRUEBAS.DBEdit1Change(Sender: TObject);
begin
BDatos.OCPRODUCTOSTAB.Filter := 'OC = ''' + DBEdit1.text + '''';
BDatos.OCPRODUCTOSTAB.Filtered := True;
end;
y esta tabla a la vez filtra otra segun su contenido (Este codigo es sacado de un problema anterior que me solucionaron ak):
Código Delphi
[-]var
Filtro: String;
begin
BDATOS.OCPRODUCTOSTAB.Filter := 'OC = ''' + DBEOC.Text + '''';
BDATOS.OCPRODUCTOSTAB.Filtered := True;
BDATOS.OCPRODUCTOSTAB.First;
if not BDATOS.OCPRODUCTOSTAB.Eof then
begin
Filtro := 'CODIGO = ' + chr(39) + BDATOS.OCPRODUCTOSTAB.FieldByName('CODIGO').ASstring + chr(39);
BDATOS.OCPRODUCTOSTAB.Next;
while not BDATOS.OCPRODUCTOSTAB.Eof do
begin
Filtro := Filtro + ' or CODIGO = ' + chr(39) + BDATOS.OCPRODUCTOSTAB.FieldByName('CODIGO').ASstring + chr(39);
BDATOS.OCPRODUCTOSTAB.Next
end;
BDATOS.PRODUCTOSSUMTAB.filter := Filtro;
BDATOS.PRODUCTOSSUMTAB.Filtered := True;
end;
BDatos.PRODUCTOSSUMTAB.First;
BDatos.OCPRODUCTOSTAB.First;
end;
Todo Ok, lo que pasa es cuando existe algun contenido como "84X-F5-22FF" tira el siguiente error:
Código:
"84X-F5-22FF is not a valid date and time"
siendo que no queda guardado como fecha, y en MySQL "CODIGO" es VARCHAR.
Cualquier ayuda bienvenida sea, de antemano gracias...
PD: Delphi 2010, Zeos 7.0.0, MySQL