ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Ajuda a montar a regra de negocio? **Concluído**

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qui Out 20, 2011 1:28 pm    Assunto: Ajuda a montar a regra de negocio? **Concluído** Responder com Citação

A regra aqui é a seguinte:
Se o tempo de duração do serviço la na produtividade do profissional
for maior que zero e menor que o intervalo padrão
então obtemos o valor da duração do serviço do profissional
se a duração do servico la na produtividade do profissional for menor
que a posição marcada na agenda pega a duração do profissional na agenda

Tenho aqui
iDuracaoProfissional = 12
Intervalo_Padrao = 60
UpDown_Duracao.Position = 120


Código:
  if ((iDuracaoProfissional > 0) and (iDuracaoProfissional < Intervalo_Padrao)) or
           (UpDown_Duracao.Position < iDuracaoProfissional) then
          UpDown_Duracao.Position := iDuracaoProfissional;


Preciso na regra trazer o resultado de 120 no UpDown_Duracao.Position que esta recebendo, mais não consegui montar a regra.

Obrigado.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree


Editado pela última vez por adriano_servitec em Qua Nov 02, 2011 10:29 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
leonam
Novato
Novato


Registrado: Quinta-Feira, 6 de Janeiro de 2011
Mensagens: 8

MensagemEnviada: Qua Nov 02, 2011 5:03 pm    Assunto: Responder com Citação

Já tentou quebrar em IFs simples? Comigo isso costuma resolver.

Tipo:
Código:

if (iDuracaoProfissional > 0) then
  if (iDuracaoProfissional < Intervalo_Padrao) then
    UpDown_Duracao.Position := iDuracaoProfissional
  else
    if (UpDown_Duracao.Position < iDuracaoProfissional) then
      UpDown_Duracao.Position := iDuracaoProfissional;


Só para exemplificar.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
adriano_servitec
Colaborador
Colaborador


Registrado: Sexta-Feira, 30 de Janeiro de 2004
Mensagens: 17618

MensagemEnviada: Qua Nov 02, 2011 10:28 pm    Assunto: Responder com Citação

leonam escreveu:
Já tentou quebrar em IFs simples? Comigo isso costuma resolver.

Tipo:
Código:

if (iDuracaoProfissional > 0) then
  if (iDuracaoProfissional < Intervalo_Padrao) then
    UpDown_Duracao.Position := iDuracaoProfissional
  else
    if (UpDown_Duracao.Position < iDuracaoProfissional) then
      UpDown_Duracao.Position := iDuracaoProfissional;


Só para exemplificar.
Nossa, nem lembrava mais deste post amigo.

Mais ja tinha resolvido, mesmo assim muito obrigado por responder.
_________________
Jogo seu smartphone? Acesse o link e confira.
https://play.google.com/store/apps/details?id=br.com.couldsys.rockdrum
https://play.google.com/store/apps/details?id=br.com.couldsys.drumsetfree
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB