[Resolvido]Dúvida com a função SeImed

Bom dia!
Tenho um relatório com dois campos acoplados, prev (preventivo de horas) e horaparcial (total de horas agrupadas pela ordem de serviço - OS).
Estou tentando criar alguns alertas no cabeçalho da OS usando a função "SeImed" para indicar que se horaparcial for igual a prev, então me retorne no campo o alerta "100% finalizado".
O grande problema é que quando vou usar o sinal de menor (<) ou maior (>) e o indicador "" (sequencia de comprimento zero) não dá certo. Só retorna os 100% da expressão com o sinal igual (=).
Estou criando 3 campos separados não acoplados para os 3 alertas quando igual, menor ou maior.

Exemplo das expressões que usei:

=SeImed([prev]=[horaparcial];"100%";"")
=SeImed([prev]>[horaparcial];"abaixo do previsto";"")
=SeImed([prev]<[horaparcial];"acima do previsto";"")

Gostaria de incluir todas na mesma expressão e mesmo separados não estão dando certo. Os campos ficam em branco e só funciona na expressão com sinal =.

Exemplo do relatório:

1001-11 Nome da Ordem de Serviço - Preventivo - HorasParcial - Alerta
(cabeçalho agrupado pelo número da ordem 1001-11)

Fulano - 10:00
Sicrano - 02:30
Beltrano - 02:00
(Aqui os nomes dos funcionários estão agrupados em outro cabeçalho e exibe a soma total das horas gastas nesta OS.
A soma parcial está no cabeçalho em HorasParcial).

Qualquer luz será bem vinda.
Obrigado

Coloque no evento VBA ao formatar do Detalhe no relatorio;

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [prev] = [horaparcial] Then
Me.SuaCaixaTexto1.Value = "100%"
Else
Me.SuaCaixaTexto1 = ""
End If

If [prev] > [abaixo do previsto] Then
Me.SuaCaixaTexto2.Value = "abaixo do previsto"
Else
Me.SuaCaixaTexto2 = ""
End If

If [prev] < [horaparcial] Then
Me.SuaCaixaTexto3.Value = "acima do previsto"
Else
Me.SuaCaixaTexto3 = ""
End If
End Sub

Obrigado! Vou tentar e dou um retorno!

Juliano

Olá, fiz como disse mas o resultado continua dando no mesmo. A expressão com o sinal < está retornando somente o texto "abaixo do esperado" nos três modos.
Inseri o código na seção Detalhes mas essa seção não está sendo usada porque todo o relatório é agrupado.
Mesmo assim obrigado pela força.

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If [prev1] = [totalparcial1] Then
Me.alerta1.Value = "100%"
Else
Me.alerta1 = ""
End If

If [prev1] > [totalparcial1] Then
Me.alerta2.Value = "abaixo do esperado"
Else
Me.alerta2 = ""
End If

If [prev1] < [totalparcial1] Then
Me.alerta3.Value = "acima do esperado"
Else
Me.alerta3 = ""
End If
End Sub

Podes fazer isso usando formatação condicional tambem.

Se o amigo estiver a utilizar Texto nesses campos das horas, nunca irá conseguir.

Se tiver a utilizar formato hora, então podemos converter em decimal e comparar.

Sim, o campo "prev" está no formato número mas o de "horaparcial" é a soma dos campos de horas que estão no cabeçalho de funcionários e suas horas gastas. Esses campos são formato hora abreviada. Como ambos mostram a máscara 00:00, fiz um espelho dos dois para exibir 00,00. Foram "transformados" em decimal mas os campos não tem formato.

A expressão utilizada para a soma acima de 24 horas é:

=Formato(Int(Soma(Formato([horadia];"hh")))+Int((Soma(Formato([horadia];"nn")))/60);"00") & ":" & Formato((Soma(Formato([horadia];"nn")))-Int((Soma(Formato([horadia];"nn")))/60)*60;"00")

Logo o campo não é acoplado e não possui formatação. A própria expressão insere uma máscara para indicar que são horas.

Obrigado

Juliano

Caro Criquio, como insiro uma expressão na formatação condicional? Pelo que entendo ela usa expressões simples e formata o campo conforme a expressão utilizada.
Posso inserir a expressão com "SeImed"?
Obrigado

Juliano

Seria assim: no campo Condição, você escolhe A expressão no lugar de Valor do campo e insere a expressão:

SeImed([prev]=[horaparcial];"100%";SeImed([prev]>[horaparcial];"abaixo do previsto";"acima do previsto")

Como expliquei acima, não funciona para texto.

Nenhuma formula pode dizer que "Joao" > "Criquio".

Posso fazer aqui uma função para isso, mas dessas maneiras não funfará.

Eu imaginei que o amigo estava a trabalhar com horas.

Vamos lá ver se funfa....

1º Delete todos os Seimed`s que tiver por ae.

Cole isto tudo dentro do evento VBA ao formatar no detalhe do seu relatorio;


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [prev1] = ConverteTextoEmDecimal([totalparcial1]) Then
Me.alerta1.Value = "100%"
Else
Me.alerta1 = ""
End If

If [prev1] > ConverteTextoEmDecimal([totalparcial1]) Then
Me.alerta2.Value = "abaixo do esperado"
Else
Me.alerta2 = ""
End If

If [prev1] < ConverteTextoEmDecimal([totalparcial1]) Then
Me.alerta3.Value = "acima do esperado"
Else
Me.alerta3 = ""
End If
End Sub

Public Function ConverteTextoEmDecimal(Optional MinhaHora As String) As Double
If IsEmpty(MinhaHora) Then MinhaHora = "00:00:00"
Dim H As Integer
Dim M As Double
H = IIf(Val(Left(MinhaHora, 2)) > 0, Val(Left(MinhaHora, 2)), 0)
If Val(Mid(MinhaHora, 4, 2)) > 0 Then
M = Val(Mid(MinhaHora, 4, 2))
M = ((M / 60) * 100) / 100
Else
M = 0
End If
ConverteTextoEmDecimal = Round(H + M, 2)
End Function

Exemplo aqui para lhe mostrar o caminho das pedras;

http://dl.dropbox.com/u/771097/Juliano.rar

Obrigado Paulo. Vou estudar e mando um retorno!

Oi Paulo, fiz o que você sugeriu mas continua dando erro.
Estou disponibilizando uma réplica do sistema para analisar a tabela e o relatório. Quando abrir o relatório virá a pergunta de ano e mês. Digite 09 para 2009 e 11 para novembro.
Os campos de borda vermelha são temporários. Eles ficarão invisiveis. É só para acompanhar os resultados.

http://www.4shared.com/document/E08oJD8r/Controle_de_OS_-maximoaccess.html

Obrigado pela força

Juliano

Criquio, somente o campo em que o funcionário lança suas horas (horadia) é no formato de horas (hora abreviada). Todos os campos não-acoplados dos relatórios buscam os dados desse campo Horadia.
Vou tentar sua dica e mando um retorno.
Obrigado

Nada melhor que vermos onde estamos a mexer...

Veja o simples;

http://dl.dropbox.com/u/771097/Controle_de_OS_-maximoaccess_OLD.rar

Obrigado Paulo! Agora sim os resultados sairam. Vez ou outra me aparece um relatório assim para quebrar a cabeça. Obrigado e até a próxima encrenca..eheh!
Abraço

Juliano

Valew pelo retorno o forum agradece.