tengo un formulario con un dbgrid con los siguientes campos:
id
descripcion
precio
recargo
pendiente
fechalimitedepago
y estoy utilizando el siguiente codigo para que cuando la fecha limite de pago sea mayor que la fecha actual del sistema me coloque la fila del dbgrid de color rojo resaltando o para dar entender que ese cargo esta vencido:
Código Delphi
[-]
procedure TFCXC.DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
VAR FLG:BOOLEAN;
begin
if (STRTODATE(DMDATOS.AQFACTURADFECHA_LIMITE_DE_PAGO.ASSTRING) > NOW()) then
BEGIN
dbgrid2.canvas.brush.color := clred;
dbgrid2.DefaultDrawColumnCell(rect,DataCol,Column,State);
END;
end;
ahora lo que quiero que haga ademas de ponerme la fila en rojo es que el campo recargo automaticamente me coloque 100 que es lo que se cobra por mora.
diganme si puedo colocarlo en ese mismo codigo, o si tienen una mejor idea de donde podria ejecutar para que me coloque el monto por mora seria un exito...
Gracias, espero haberme explicado bien