 |
ActiveDelphi
.: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
 Enviada: Seg Nov 26, 2007 12:58 pm Assunto: Função para DateTime(Firebird) |
 |
|
Ola pessoal, como faço para criar uma função no Firebird, para que nao de esse erro,pois o seguinte:
tenoh o seguinte codigo no Onshow do form
| Código: | QuAtend.Open;
Tmp_Espera.CreateDataSet;
Estimativa;
PageControl1Change(sender); |
qdo abre a QuAtend(IBQuery), da o seguinte erro:
is not valid date and time , gostaria de tratar esse erro de alguma forma, mas nao estou conseguindo, qlqr sugestao poste ai...
abraços !
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
 |
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
| Enviada: Seg Nov 26, 2007 1:05 pm Assunto: |
|
|
de uma olhada neste link: http://www.activedelphi.com.br/forum/viewtopic.php?t=36622&highlight=data
se não resolver poste o código do seu select?
abraços.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso. |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Seg Nov 26, 2007 1:11 pm Assunto: |
|
|
ok, pestana vou dar uma olhada e volto a postar .
bye
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Seg Nov 26, 2007 1:17 pm Assunto: |
|
|
| wolverinefarah escreveu: |
ok, pestana vou dar uma olhada e volto a postar .
bye |
pestana deixa eu explica de uma forma melhor,
tip tenho uma caixa de data chamada dxdateedit, qdo seleciono uma data que tem registros e clico no botao de tempo, me retorna esse erro, qdo deixo em branco nao selecionando nenhum registro ele roda normal,
bye
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
| Enviada: Seg Nov 26, 2007 1:32 pm Assunto: |
|
|
você está fazendo a conversão da data selecionado no select? caso seja preciso!
qual o tipo deste campo data?
flw.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso. |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Seg Nov 26, 2007 1:43 pm Assunto: |
|
|
| pestana escreveu: | você está fazendo a conversão da data selecionado no select? caso seja preciso!
qual o tipo deste campo data?
flw. |
minha query está assim...
| Código: | Select Numeros.codmed,
Medico.Nome as Medico,
Count (Numeros.Recno),
Udf_div((Count (Numeros.Recno) * medico.tempo ),60) || ':' || Udf_Mod((Count (Numeros.Recno) * medico.tempo ),60) as HHMM
from Numeros inner join Medico on Numeros.codmed = Medico.codigo
where (Numeros.data = :Data) and ( medico.isprestador = 0) and (Numeros.Atendido = 0)
group by Numeros.codmed,
Medico.Nome,
medico.tempo
order by Medico.nome |
qdo abro a query no onshow do form da o erro.
bye[/code]
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Seg Nov 26, 2007 2:01 pm Assunto: |
|
|
| wolverinefarah escreveu: | | pestana escreveu: | você está fazendo a conversão da data selecionado no select? caso seja preciso!
qual o tipo deste campo data?
flw. |
minha query está assim...
| Código: | Select Numeros.codmed,
Medico.Nome as Medico,
Count (Numeros.Recno),
Udf_div((Count (Numeros.Recno) * medico.tempo ),60) || ':' || Udf_Mod((Count (Numeros.Recno) * medico.tempo ),60) as HHMM
from Numeros inner join Medico on Numeros.codmed = Medico.codigo
where (Numeros.data = :Data) and ( medico.isprestador = 0) and (Numeros.Atendido = 0)
group by Numeros.codmed,
Medico.Nome,
medico.tempo
order by Medico.nome |
qdo abro a query no onshow do form da o erro.
bye[/code] |
qdo o form é ativado, ele dispara essa procedure aqui, mas pelo visto esta errada.
| Código: | procedure TTempEstimadoBrw.QuAtendHHMMGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
inherited;
Text := FormatDateTime('HH:MM',StrToDate(QuAtendHHMM.Value));
end; |
bye
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Seg Nov 26, 2007 2:45 pm Assunto: |
|
|
| wolverinefarah escreveu: | | wolverinefarah escreveu: | | pestana escreveu: | você está fazendo a conversão da data selecionado no select? caso seja preciso!
qual o tipo deste campo data?
flw. |
minha query está assim...
| Código: | Select Numeros.codmed,
Medico.Nome as Medico,
Count (Numeros.Recno),
Udf_div((Count (Numeros.Recno) * medico.tempo ),60) || ':' || Udf_Mod((Count (Numeros.Recno) * medico.tempo ),60) as HHMM
from Numeros inner join Medico on Numeros.codmed = Medico.codigo
where (Numeros.data = :Data) and ( medico.isprestador = 0) and (Numeros.Atendido = 0)
group by Numeros.codmed,
Medico.Nome,
medico.tempo
order by Medico.nome |
qdo abro a query no onshow do form da o erro.
bye[/code] |
qdo o form é ativado, ele dispara essa procedure aqui, mas pelo visto esta errada.
| Código: | procedure TTempEstimadoBrw.QuAtendHHMMGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
inherited;
Text := FormatDateTime('HH:MM',StrToDate(QuAtendHHMM.Value));
end; |
bye |
pestana, vi aqui que esse erro, so acusa qdo clico depois do dia 08/11/2007, antes disso, ele roda normalmente.
bye
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Seg Nov 26, 2007 3:05 pm Assunto: |
|
|
| wolverinefarah escreveu: | | wolverinefarah escreveu: | | pestana escreveu: | você está fazendo a conversão da data selecionado no select? caso seja preciso!
qual o tipo deste campo data?
flw. |
minha query está assim...
| Código: | Select Numeros.codmed,
Medico.Nome as Medico,
Count (Numeros.Recno),
Udf_div((Count (Numeros.Recno) * medico.tempo ),60) || ':' || Udf_Mod((Count (Numeros.Recno) * medico.tempo ),60) as HHMM
from Numeros inner join Medico on Numeros.codmed = Medico.codigo
where (Numeros.data = :Data) and ( medico.isprestador = 0) and (Numeros.Atendido = 0)
group by Numeros.codmed,
Medico.Nome,
medico.tempo
order by Medico.nome |
qdo abro a query no onshow do form da o erro.
bye[/code] |
qdo o form é ativado, ele dispara essa procedure aqui, mas pelo visto esta errada.
| Código: | procedure TTempEstimadoBrw.QuAtendHHMMGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
inherited;
Text := FormatDateTime('HH:MM',StrToDate(QuAtendHHMM.Value));
end; |
bye |
pestana, vi aqui que esse erro, so acusa qdo clico depois do dia 08/11/2007, antes disso, ele roda normalmente. OBS:meu campo hora esta como String(vachar).
bye
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Seg Nov 26, 2007 11:50 pm Assunto: Re: Função para DateTime(Firebird) |
|
|
| wolverinefarah escreveu: | Ola pessoal, como faço para criar uma função no Firebird, para que nao de esse erro,pois o seguinte:
tenoh o seguinte codigo no Onshow do form
| Código: | QuAtend.Open;
Tmp_Espera.CreateDataSet;
Estimativa;
PageControl1Change(sender); |
qdo abre a QuAtend(IBQuery), da o seguinte erro:
is not valid date and time , gostaria de tratar esse erro de alguma forma, mas nao estou conseguindo, qlqr sugestao poste ai...
abraços ! |
"up"
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
| Enviada: Ter Nov 27, 2007 9:43 am Assunto: |
|
|
será que não é neste trecho que está ocorrendo o problema?
| Código: | | Numeros.data = :Data |
flw.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso. |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Ter Nov 27, 2007 11:57 am Assunto: |
|
|
| pestana escreveu: | será que não é neste trecho que está ocorrendo o problema?
| Código: | | Numeros.data = :Data |
flw. |
pq ? ai eu pego da tabela e o campo.
bye
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
pestana
Colaborador
Registrado: Sábado, 25 de Junho de 2005
Mensagens: 3147
Localização: Araras-SP
|
| Enviada: Ter Nov 27, 2007 12:45 pm Assunto: |
|
|
| wolverinefarah escreveu: | | pestana escreveu: | será que não é neste trecho que está ocorrendo o problema?
| Código: | | Numeros.data = :Data |
flw. |
pq ? ai eu pego da tabela e o campo.
bye |
foi mau eu não tinha reparado que você declarou o campo hora como string eu estava pensando que era o campo data, porque se fosse o campo data poderia dar erro de conversão de tipo string e date.
vou analisar direito o problema.
flw.
_________________
Ao invés de ficar desanimado no que deu de errado, olhe para frente, aprenda com os erros e veja o que ainda pode ser feito. A determinação e a persistência é uma das etapas para o sucesso. |
|
| Voltar ao Topo |
|
|
wolverinefarah
Colaborador
Registrado: Sábado, 17 de Junho de 2006
Mensagens: 1770
|
| Enviada: Ter Nov 27, 2007 2:57 pm Assunto: |
|
|
| pestana escreveu: | | wolverinefarah escreveu: | | pestana escreveu: | será que não é neste trecho que está ocorrendo o problema?
| Código: | | Numeros.data = :Data |
flw. |
pq ? ai eu pego da tabela e o campo.
bye |
foi mau eu não tinha reparado que você declarou o campo hora como string eu estava pensando que era o campo data, porque se fosse o campo data poderia dar erro de conversão de tipo string e date.
vou analisar direito o problema.
flw. |
pestana, é o seguinte qdo coloco essa procedure assim:
| Código: | procedure TTempEstimadoBrw.QuAtendHHMMGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
inherited;
Text := FormatDateTime('HH:MM',StrToDateTime(QuAtendHHMM.Value));
end |
da erro dizeendo que is not date and time value.
qdo tiro o time ou date ex.:
| Código: | procedure TTempEstimadoBrw.QuAtendHHMMGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
inherited;
Text := FormatDateTime('HH:MM',StrTo[b]DateouTime[/b](QuAtendHHMM.Value));
end |
is not valid time value.
bye
_________________
Fernando Farah
PROGRAMADOR PROGRESS
PROGRAMADOR DELPHI + FIREBIRD |
|
| Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
