[pgbr-geral] problema ao gravar campo numerico com delphi

Mon, 02 Mar 2009 12:36:05 -0800 

ola, estou migrando um sistema dem firebird para postgre, utilizo conexao via 
ado + clientdataset, mas não consigo gravar informações em campo numeric, segue 
minha rotina de importacao:

if q_servico.RecordCount > 0 then
         repeat
            if cds_servico.Locate('SE_COD', 
q_servico.FieldByName('SE_COD').AsInteger,[]) = false then
            begin
               cds_servico.Append;
               cds_servico.FieldByName('SE_COD').AsInteger   := 
q_servico.FieldByName('SE_COD').AsInteger;
               cds_servico.FieldByName('SE_DESC').AsString   := 
q_servico.FieldByName('SE_DESC').AsString;
               t := STRTOFLOAT (q_servico.FieldByName('SE_COMISSAO').AsSTRING);
               cds_servico.FieldByName('SE_COMISSAO').AsFloat := T;
               cds_servico.FieldByName('SE_TMPGARANT').AsInteger   := 
q_servico.FieldByName('SE_TMPGARANT').AsInteger;
               cds_servico.FieldByName('SE_STATUS').AsString := 
q_servico.FieldByName('SE_STATUS').AsString;
               t := q_servico.FieldByName('SE_VALOR').AsFloat;
               cds_servico.FieldByName('SE_VALOR').AsFloat   := t;
               cds_servico.Post;
               cds_servico.ApplyUpdates(0);
            end;
            Progresso.Progress := (q_servico.Recno * 100) div 
q_servico.RecordCount;
            q_servico.next;
            Application.ProcessMessages;
         until q_servico.eof;


porem da o erro: raised exception class EOleException with message "ERROR: 
column "se_comissao" is of type numeric but expression is of type money.

Como posso solucionar este problema, visto que tanto no firebird como no 
postgree o campo foi criado como numeric (9,2) ?

_______________________________________________
pgbr-geral mailing list
pgbr-geral@listas.postgresql.org.br
https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral

Responder a