Ola Este não é um problema de postgresql, mas coloca no delphi asCurrency... deve resolver...
bye gilnei 2009/3/2, Wesller da Silva França <[email protected]>: > > > 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 > [email protected] > https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral > > -- (pt_BR; [email protected]) E9BA2383; wwwkeys.pgp.net _______________________________________________ pgbr-geral mailing list [email protected] https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral
