Gravação de campo data

[Adriano Cezar]

Estou com problema para gravação Data em uma tabela.
Os campos que são diferentes do tipo data gravam normalmente, porém os
campos do tipo data não gravam e também não dão nenhum erro, segue a
rotina:

procedure TPropostaDAO.PAtualizaStatusServicoProposta(ClientServico :
TClientDataSet;
vID_STATUS, vID_STATUSPROPOSTA : Integer);
var
sqlDataSet : TSQLDataSet;
begin
try
sqlDataSet := TSQLDataSet.Create(nil);
sqlDataSet.SQLConnection := DmPrincipal.SQLConexaoFB;
sqlDataSet.CommandText := 'update PROPOSTA_SERVICOS set
'+
' ID_STATUS = :ID_STATUS,
'+
' VL_PAGO = :VL_PAGO,
'+
' DT_PAGAMENTO = :DT_PAGAMENTO,
'+
' DT_REALIZADO = :DT_REALIZADO,
'+
' DT_REJEITADO = :DT_REJEITADO,
'+
' MOTIVO_REJEICAO = :MOTIVO_REJEICAO
'+
' where ID_PROPOSTA = :ID_PROPOSTA and
'+
' ID_SERVICO = :ID_SERVICO
';

sqlDataSet.ParamByName('ID_PROPOSTA' ).AsInteger :=
ClientServico.FieldByName('ID_PROPOSTA' ).AsInteger ;
sqlDataSet.ParamByName('ID_SERVICO' ).AsInteger :=
ClientServico.FieldByName('ID_SERVICO' ).AsInteger ;
sqlDataSet.ParamByName('ID_STATUS' ).AsInteger :=
ClientServico.FieldByName('ID_STATUS' ).AsInteger ;
sqlDataSet.ParamByName('DT_PAGAMENTO' ).AsDateTime :=
ClientServico.FieldByName('DT_PAGAMENTO' ).AsDateTime;
sqlDataSet.ParamByName('VL_PAGO' ).AsFloat :=
ClientServico.FieldByName('VL_PAGO' ).AsFloat ;
sqlDataSet.ParamByName('DT_REALIZADO' ).AsDateTime :=
ClientServico.FieldByName('DT_REALIZADO' ).AsDateTime;
sqlDataSet.ParamByName('DT_REJEITADO' ).AsDateTime :=
ClientServico.FieldByName('DT_REJEITADO' ).AsDateTime;
sqlDataSet.ParamByName('MOTIVO_REJEICAO').AsString :=
ClientServico.FieldByName('MOTIVO_REJEICAO').AsString ;
sqlDataSet.ExecSQL;


PAlteraStatusProposta(ClientServico.FieldByName('ID_PROPOSTA').AsInteger,
vID_STATUSPROPOSTA);
finally
FreeAndNil(sqlDataSet);
end;
end;

[Thiago Borges de Oliveira]

Adriano,

Os campos armazenam somente Data ou s锟給 Timetamp?

No primeiro caso, tente utilizar .AsDate, ao inv锟絪 de .AsDateTIme.

--
Thiago Borges

On 20/05/2010 14:38, Adriano Cezar wrote:
> Estou com problema para grava锟斤拷o Data em uma tabela.
> Os campos que s锟給 diferentes do tipo data gravam normalmente, por锟絤 os
> campos do tipo data n锟給 gravam e tamb锟絤 n锟給 d锟給 nenhum erro, segue a