Alias acho que não precisa o formatfloat... bem, mas isto tu olha no help que eu não me lembro mais... o que eu tenho certeza é o currency para a odbc funcionar... :-)
bye gilnei 2009/3/3 Gilnei M. Oliveira <[email protected]>: > Hi again > > agora tenho um pouquinho de tempo para detalhar... faça isto: > > cds_servico.FieldByName('SE_COMISSAO').AsFloat := > FormatFloat('###,###,###.00', > q_servico.FieldByName('SE_COMISSAO').AsCurrency); > > bye > > gilnei > > PS: Não uso delphi há uns 4 ou 5 anos... então acho que a sintaxe é > esta de memória... > mas era mais ou menos assim que eu fazia isto... boa sorte, cargas > sempre são maliciosas... > PS2: Lembre currency são 4 digitos após a virgula, cuidado para não > perder nada... > > > > 2009/3/2, Gilnei M. Oliveira <[email protected]>: >> 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 >> > > > -- > (pt_BR; [email protected]) > E9BA2383; wwwkeys.pgp.net > -- (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
