Dei uma mudada para diminuir os códigos,
####FUNÇÃO###############
function TRelfrmHoras.DifHora(Inicio, Fim: String): String;
{Retorna a diferença entre duas horas}
Var H1, H2, Total: TDateTime;
begin
H1 := StrToTime(Inicio);
H2 := StrToTime(Fim);
Total := H2 - H1;
Result := TimeToStr(Total);
end;
PROCEDURE BEFOREPRINT
procedure TRelfrmHoras.qrRepBeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
var Hr1, Hr2: String;
Var i: Integer;
begin
for i:= 0 to queryRelHora.RecordCount do
begin
if queryRelHora.Fields[4].AsString = '1' then
begin
lblAtendimento.Caption := 'Visita';
// ShowMessage('visita');
end else begin
//ShowMessage('remoto'); // NÃO ESTA MUDANDO...SOH APARECE REMOTO NA
IMPRESSAO
lblAtendimento.Caption := 'Remoto';
end;
Hr1 := queryRelHora.Fields[7].AsString; //ext_hrini
Hr2 := queryRelHora.Fields[8].AsString; //ext_hr
// ShowMessage(Hr1);
lblTempo.Caption := DifHora(Hr2,Hr1); // AGORA DA UM ERRO DE
CONVERSAO(ECONVERTERROR)
queryRelHora.Next;
end;
Rodrigo Mota
-----Mensagem original-----
De: [email protected] [mailto:[EMAIL PROTECTED]
Em nome de Andreano Lanusse
Enviada em: quinta-feira, 15 de setembro de 2005 14:31
Para: [email protected]
Assunto: RES: [delphi-br] Erro Estranho DateTime
Rodrigo,
Access Violation ocorre quando você tenta acessar um objeto que não está
criado.
Muito provavelmente o DataSetField ou DataSet está sem associação.
Debuga a aplicação e me diga em que linha que ocorre o erro.
[]'s
Andreano Lanusse
System Engineer
Borland Latin America
[EMAIL PROTECTED] <mailto:[EMAIL PROTECTED]> - www.borland.com.br
<blocked::http://www.borland.com.br/>
A Borland Software é líder global em soluções independentes de
plataforma para o Software Delivery Optimization, auxiliando nossos
clientes a resolverem as restrições no desenvolvimento de aplicações nos
dias de hoje, para maximizar o valor do negócio de seu software.
________________________________
De: [email protected] [mailto:[EMAIL PROTECTED]
Em nome de Rodrigo Mota
Enviada em: quinta-feira, 15 de setembro de 2005 10:44
Para: [email protected]
Assunto: [delphi-br] Erro Estranho DateTime
Galera tenho essa função, que retorna a diferença de hora e tal. Ela
funciona
function TRelfrmHoras.DifHora(Inicio, Fim: String): String;
{Retorna a diferença entre duas horas}
Var H1, H2, Total: TDateTime;
begin
H1 := StrToTime(Inicio);
H2 := StrToTime(Fim);
Total := H2 - H1;
Result := TimeToStr(Total);
end;
Estou usando ela no evento do quick rep BeforePrint
lblTempo.Caption :=
DifHora(queryRelHora.DataSetField.DataSet.FieldByName('ext_hrfim').Text,
queryRelHora.DataSetField.DataSet.FieldByName('ext_hrini').Text);
esta dando um Access Violation.....violento....estou usando a TSqlQuery
do Dbexpress e db SQLServer os dois campos
são Varchar(5)
quem puder ajudar...ja agradeço qq sugestão....
Rodrigo Mota
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12frbmh34/M=365837.7000707.7924794.2369893/D
=brclubs/S=2137111264:HM/Y=BR/EXP=1126799098/A=2950750/R=2/id=noscript/S
IG=10tift5qr/*http://br.movies.yahoo.com/
<http://br.rd.yahoo.com/SIG=12frbmh34/M=365837.7000707.7924794.2369893/D
=brclubs/S=2137111264:HM/Y=BR/EXP=1126799098/A=2950750/R=2/id=noscript/S
IG=10tift5qr/*http:/br.movies.yahoo.com/> >
________________________________
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo! <http://br.yahoo.com/info/utos.html> .
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
<http://br.rd.yahoo.com/SIG=12fl0cgbq/M=365837.7000707.7924794.2369893/D
=brclubs/S=2137111264:HM/Y=BR/EXP=1126812602/A=2950750/R=2/id=noscript/S
IG=10tift5qr/*http:/br.movies.yahoo.com/>
<http://br.i1.yimg.com/br.yimg.com/i/br/ads6/0829_lrec_cinema_calendario
.gif>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
<http://br.yahoo.com/info/utos.html> Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
