RotinaMultaLocacao

Bom dia Carlos,
  Você mandou o banco de dados, e o sistema, mas não mandou sua duvida. O que seria ?

Abraço

Wesley Y

tentei renviar outra video tenta ai

Ola Carlos,

  Pelo que vi você quer criar uma rotina com 2 turnos de 7 as 19 e de 20 as 20:59 e 06:59 as 21 , se for isso faça o seguinte;

function TForm1.RetonarTurno(HrAtual: String): String;
begin
  if ( (StrToTime(HrAtual) >= StrToTime('07:00:00')) and (StrToTime(HrAtual) < StrToTime('19:00:00'))) then
     Result := 'Esta no Horadio do 1º Turno'
  else
  if ( (StrToTime(HrAtual) >= StrToTime('20:00:00')) and (StrToTime(HrAtual) < StrToTime('20:59:59'))) then
     Result := 'Horario de Tolerancia'
  else
  if ( (StrToTime(HrAtual) <= StrToTime('21:00:00')) and (StrToTime(HrAtual) < StrToTime('06:59:59'))) then
     Result := 'Esta no Horadio do 2º Turno'
end;
   E sobre atualizar no Relatório de Locados, você pode fazer na hora de abrir o form, sem problemas, e se possível ainda faça na hora que o sistema for aberto, para ter certeza de que será atualizado ao menos uma vez.

   Sobre as refactorys, segue abaixo o link da mesma [ video.devmedia.com.br/RodrigoCarreiro/Consultoria/Chamado778.zip ] , seguindo solicitação do Rodrigo, o mesmo falou para você salvar os videos na sua máquina, pois podem ser removidos a qualquer momento.

Att,

Wesley Y

Ola Wesley Bom na verdade e quase isso mais ainda falta algo vou tentar ser mais claro pra vc entender melhor     horario de trabalho turno dias  vai das 07:00 as 19:00 tolerancia maxima para devolução do radio 20:00 se execeder cobra multa de x da mesma forma funciona o turno da noite. Na outra ipotese vamos imaginar que o camarada locou um radio de 01/01/2009 as 07:00 e devolveu as 18:00 o valor da diaria sera uma somente , outro camarada locou um radio nesse mesmo horario mais o devolveu as 21:00 o sistema tem que entender que sao duas diarias pois 21:00 exedeu o horario limite de trabalho que vai de 07:00 as 19:00 e que tem uma hora de tolerancia incerrando assim as 20:00   vamos imaginar ainda que um terceiro camarada locou um radio de 01/01/2009 as 07:00 e o devolveu no dia 02/01/2009 as 23:00 a funcao tem que entender que houve :      uma diaria no dia 01/01 que terminou as 20:00 e se inciou outra que encerrou as 08:00 e ja comecou outra que terminou as 20:00 e comecou outra concluindo         seriam 4 locacoes isso que a funcao tem que fazer, determinar que os horarios de trabalhos vao de 07:00 as 19:00 e das 19:00 as 07:00 do dia seguinte cada um com uma hora de tolerancia no maximo e que se exeditos iniciam uma nova locacao somando com aquela ja esta cadastrado no sistema como funciona na verdade um sistema de locadoras   e por ai

Ola Wesley Bom na verdade e quase isso mais ainda falta algo vou tentar ser mais claro pra vc entender melhor     horario de trabalho turno dias  vai das 07:00 as 19:00 tolerancia maxima para devolução do radio 20:00 se execeder cobra multa de x da mesma forma funciona o turno da noite. Na outra ipotese vamos imaginar que o camarada locou um radio de 01/01/2009 as 07:00 e devolveu as 18:00 o valor da diaria sera uma somente , outro camarada locou um radio nesse mesmo horario mais o devolveu as 21:00 o sistema tem que entender que sao duas diarias pois 21:00 exedeu o horario limite de trabalho que vai de 07:00 as 19:00 e que tem uma hora de tolerancia incerrando assim as 20:00   vamos imaginar ainda que um terceiro camarada locou um radio de 01/01/2009 as 07:00 e o devolveu no dia 02/01/2009 as 23:00 a funcao tem que entender que houve :      uma diaria no dia 01/01 que terminou as 20:00 e se inciou outra que encerrou as 08:00 e ja comecou outra que terminou as 20:00 e comecou outra concluindo         seriam 4 locacoes isso que a funcao tem que fazer, determinar que os horarios de trabalhos vao de 07:00 as 19:00 e das 19:00 as 07:00 do dia seguinte cada um com uma hora de tolerancia no maximo e que se exeditos iniciam uma nova locacao somando com aquela ja esta cadastrado no sistema como funciona na verdade um sistema de locadoras   e por ai

Ola Wesley Bom na verdade e quase isso mais ainda falta algo vou tentar ser mais claro pra vc entender melhor     horario de trabalho turno dias  vai das 07:00 as 19:00 tolerancia maxima para devolução do radio 20:00 se execeder cobra multa de x da mesma forma funciona o turno da noite. Na outra ipotese vamos imaginar que o camarada locou um radio de 01/01/2009 as 07:00 e devolveu as 18:00 o valor da diaria sera uma somente , outro camarada locou um radio nesse mesmo horario mais o devolveu as 21:00 o sistema tem que entender que sao duas diarias pois 21:00 exedeu o horario limite de trabalho que vai de 07:00 as 19:00 e que tem uma hora de tolerancia incerrando assim as 20:00   vamos imaginar ainda que um terceiro camarada locou um radio de 01/01/2009 as 07:00 e o devolveu no dia 02/01/2009 as 23:00 a funcao tem que entender que houve :      uma diaria no dia 01/01 que terminou as 20:00 e se inciou outra que encerrou as 08:00 e ja comecou outra que terminou as 20:00 e comecou outra concluindo         seriam 4 locacoes isso que a funcao tem que fazer, determinar que os horarios de trabalhos vao de 07:00 as 19:00 e das 19:00 as 07:00 do dia seguinte cada um com uma hora de tolerancia no maximo e que se exeditos iniciam uma nova locacao somando com aquela ja esta cadastrado no sistema como funciona na verdade um sistema de locadoras   e por ai   wesley sei que isso nao e com tigo nao mas fala para o pessoal responsavel pelo site que isso aqui ta meio doidao eu clico no botao gravar e nada penso que nao esta registrando o chamado e quando vou ver abri varios

Ola Wesley Bom na verdade e quase isso mais ainda falta algo vou tentar ser mais claro pra vc entender melhor     horario de trabalho turno dias  vai das 07:00 as 19:00 tolerancia maxima para devolução do radio 20:00 se execeder cobra multa de x da mesma forma funciona o turno da noite. Na outra ipotese vamos imaginar que o camarada locou um radio de 01/01/2009 as 07:00 e devolveu as 18:00 o valor da diaria sera uma somente , outro camarada locou um radio nesse mesmo horario mais o devolveu as 21:00 o sistema tem que entender que sao duas diarias pois 21:00 exedeu o horario limite de trabalho que vai de 07:00 as 19:00 e que tem uma hora de tolerancia incerrando assim as 20:00   vamos imaginar ainda que um terceiro camarada locou um radio de 01/01/2009 as 07:00 e o devolveu no dia 02/01/2009 as 23:00 a funcao tem que entender que houve :      uma diaria no dia 01/01 que terminou as 20:00 e se inciou outra que encerrou as 08:00 e ja comecou outra que terminou as 20:00 e comecou outra concluindo         seriam 4 locacoes isso que a funcao tem que fazer, determinar que os horarios de trabalhos vao de 07:00 as 19:00 e das 19:00 as 07:00 do dia seguinte cada um com uma hora de tolerancia no maximo e que se exeditos iniciam uma nova locacao somando com aquela ja esta cadastrado no sistema como funciona na verdade um sistema de locadoras   e por ai   wesley sei que isso nao e com tigo nao mas fala para o pessoal responsavel pelo site que isso aqui ta meio doidao eu clico no botao gravar e nada penso que nao esta registrando o chamado e quando vou ver abri varios

OK carlos,

Vou analisar melhor, e logo te retornarei.

Att,

Wesley Y

Tudo bem, quando tiver a resposta vc posta aqui

Olá Carlos,


Fiz aqui uma rotina para calcular quantos dias você terá entre o período, veja se é isso que você esta querendo, falta ainda as horas, mas me fale se seria isso.


procedure TForm1.CalculaDiaria(DtHrPedido: TDateTime);
Var
  DtHrAtual : TDateTime;
  Dias : Integer;
  Horas : Integer;
begin
  DtHrAtual := Date; //Data/Hora Atual para executar a devolução
  Dias  := DaysBetween(DtHrPedido,DtHrAtual);
  Horas := HoursBetween(DtHrPedido,DtHrAtual);
  if (Horas div 24) > 0 then //Dividindo as horas por 24 para saber quantos dias existem
  begin
    ShowMessage('Mais de 1 dia');
  end
  else
    ShowMessage('Menos de 1 dia');

  ShowMessage(' Dias : ' +IntToStr (Dias)+#13+
              ' Hora : ' +IntToStr (Horas));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CalculaDiaria(StrToDateTime('27/09/2009 10:00:00'));
end;




Att,

Wesley Y

Ola Wesley vou estudar essa rotina e ja te retorno