[firebase-br] Gravação de tabela campo TIME

[Reginaldo Martins Costa]

Olá!
Tenho a seguinte tabela:

Codigo - INTEGER
DtOcorrencia - DATE
HrOcorrencia - TIME
IdOcorrencia - CHAR - 2
TxObservacao - BLOB SUB_TYPE 0 SEGMENT SIZE 80

Gravo esta tabela com a seguinte procedure:

CREATE PROCEDURE GRAVAOCORR (
    CODIGO INTEGER,
    DTOCORRENCIA DATE,
    HROCORRENCIA TIME,
    IDOCORRENCIA CHAR(2),
    TXOBSERVACAO BLOB SUB_TYPE 2 SEGMENT SIZE 80)
AS
begin
  INSERT INTO HistoricoOcorr
  VALUES
  (:Codigo, :DtOcorrencia, :HrOcorrencia, :IdOcorrencia,
   :TxObservacao);

Ao chamar esta procedure pelo Delphi a gravação ocorre perfeitamente. Porém
se eu chama-la a partir de outra procedure desta forma:

    EXECUTE PROCEDURE GravaOcorr :Cod, current_date, current_time, 'CD',
      'Cadastrado na data';

Ocorre erro de "timestamp 0.0". Alguem já passou por isso? Sabe como
resolver?

Obrigado!

Reginaldo.