procedure TFCadFis_Mvt_Ent.DGridPrincipalDrawFixedCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if ((ACol=0) and (QyMestre.BufferRowNum>0) and (DGridPrincipal.DataRow[ARow]>0)) then
    begin
      if      (QyMestre.BufferFieldByName('Identificacao').AsInteger=FIS_MVT_IDENTIFICACAO_ADVERTENCIA) then
        DGridPrincipal.Canvas.Brush.Color := clYellow
      else if (QyMestre.BufferFieldByName('Identificacao').AsInteger=FIS_MVT_IDENTIFICACAO_ERRO) then
        DGridPrincipal.Canvas.Brush.Color := clRed
      else if (QyMestre.BufferFieldByName('Identificacao').AsInteger=FIS_MVT_IDENTIFICACAO_IMPORTAR_NOVAMENTE) then
        DGridPrincipal.Canvas.Brush.Color := clBlue
      else
        DGridPrincipal.Canvas.Brush.Color := clBtnFace;
      DGridPrincipal.Canvas.FillRect(Rect);
    end;
end;