Aplicação exemplo: distinguindo dados com qualidade ruim no Relatório de Seção.

Este aplicativo mostra como distinguir, em um relatório do Elipse E3, dados com qualidade ruim. Dados de baixa qualidade podem ter sido gerados devido a problemas de comunicação, por exemplo. Para isto, criamos um script no relatório onde testamos a qualidade do tag a ser plotado.

Sub Detail_Format
  if Me.Field4.Text < 192 then
    Me.Field2.ForeColor = System.Drawing.Color.Red
  else
    Me.Field2.ForeColor = System.Drawing.Color.Black
  end if

  if Me.Field5.Text < 192 then
    Me.Field3.ForeColor = System.Drawing.Color.Red
  else
    Me.Field3.ForeColor = System.Drawing.Color.Black
  end if
End Sub

Sub Detail_Format
  if Me.Field4.Text < 192 then
    Me.Field2.ForeColor = System.Drawing.Color.Red
  else
    Me.Field2.ForeColor = System.Drawing.Color.Black
  end if

  if Me.Field5.Text < 192 then
    Me.Field3.ForeColor = System.Drawing.Color.Red
  else
    Me.Field3.ForeColor = System.Drawing.Color.Black
  end if
End Sub

Se a qualidade do dado for boa, ele será impresso na cor preta. Caso contrário, o dado será impresso em vermelho.

Anexos:

AppBadQualityReport.zip