Skip to main content
1 de 2

error en IF, debe estar entre parentesis

IF (CONDICIÓN 1) AND (CONDICIÓN 2) then
begin
  Instrucción
end;

Sln:

procedure TfMain.gridDBColumnGrid1DBTableView1FECHAINICOStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
var
  AColumnFechaInicio, AColumnFechaFin: TcxCustomGridTableItem;
begin
  AColumnFechaInicio := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAINICO');
   AColumnFechaFin := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAFIN');
  if (Hoy >= IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30)) and (Hoy >= ARecord.Values[AColumnFechaFin.Index]) then
  
  begin
    AStyle := cxStyleGreen;
  end;
end;