tengo este codigo :
Código Delphi
[-]
COBROS.First;
WHILE NOT COBROS.Eof DO BEGIN
comisiones.Active:=true;
COMISIONES.First;
WHILE NOT COMISIONES.EOF DO BEGIN
IF COMISIONESFACTURA.AsInteger=COBROSFACTURA.AsInteger THEN BEGIN
COMISIONES.EDIT;
COMISIONESESTADO.AsString:='SI';
COMISIONESFECHAPAGADA.AsString:=DATETOSTRFECHA.DATETIME);
COMISIONES.POST;
END;
COMISIONES.NEXT
END;
COBROS.NEXT;
END;
Bien si el sistema no encuentra ninguna factura en la tabla comisiones , todo bien, pero si la alla una se enclica el while, nunca sale.
Con sql y access , lo hace bien el problema lo encontre con mysql.
Agradezco cualquier orientacion
Estoy usando un mysqlquery de los componentes de dacmysql