RES: RES: [firebase-br] FB 1.5.2 Com Problemas

[Marcos Alexandre de Souza]

Resolvi isso da seguinte forma:

No Insert:
SQL = SQL & "'" &
Replace(Format(Lv.ListItems.Item(I).ListSubItems.Item(3).Text, "0.00"), ",",
".") & "',"

Pra visualizar:
ITM.SubItems(3) = Format(ObjRecItemVendaInterna.Fields("moValorUnitario"),
"###,##0.00")

-----Mensagem original-----
De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br]Em
nome de Prisma Sistemas - Moacir
Enviada em: quinta-feira, 5 de maio de 2005 15:44
Para: FireBase
Assunto: Re: RES: [firebase-br] FB 1.5.2 Com Problemas

Ricardo,

Na verdade o problema não é o Firebird, mas sim o formato dos campos
valores.

Vc deve passar os campos valores somente com o separador decimal que
deverá ser o ponto.

Verifique a formatação dada aos campos valores, ali esta o teu problema:

TxtmoPrecoVendaInterno.Text= 1234.56
SQL = SQL & "'" & Format(TxtmoPrecoVendaInterno.Text, "###,##0.00") &

o resultado seria algo do tipo '1.234,56'

o correto é vc passar '1234.56'


[ ]´s
Moacir


Ricardo Soares Ferreira escreveu:

>Não entendi nada!!!!
>
>Marcos Alexandre de Souza <malexandresouza em yahoo.com.br> escreveu:Boa
Tarde.
>To precisando de uma ajuda.
>
>Estou usando Visual Basic 6.0
>No meu banco de dados em Interbase Server 6 tenho o campo: Numeric(9,2)
para
>armazenar valores moeda.
>Uso a Seguinte linha para gravar no banco de dados:
>
>SQL = ""
>SQL = "INSERT INTO ESTOQUE (cdEstoque,"
>SQL = SQL & "cdProduto,"
>SQL = SQL & "moPrecoVendaUnitVarejo,"
>SQL = SQL & "moPrecoVendaUnitAtacado,"
>SQL = SQL & "moPrecoVendaInterno,"
>SQL = SQL & "nuQtdeEstTotal,"
>SQL = SQL & "nmHostAud,"
>SQL = SQL & "dtRegAud,"
>SQL = SQL & "cdProfSist) VALUES ( "
>
>SQL = SQL & TxtcdEstoque.Text & ","
>SQL = SQL & TxtCdProduto.Text & ","
>SQL = SQL & "'" & Format(TxtmoPrecoVendaUnitVarejo.Text, "###,##0.00")
>& "',"
>SQL = SQL & "'" & Format(TxtmoPrecoVendaUnitAtacado.Text,
>"###,##0.00") & "',"
>SQL = SQL & "'" & Format(TxtmoPrecoVendaInterno.Text, "###,##0.00") &
>"',"
>SQL = SQL & TxtnuQtdeEstTotal.Text & ","
>SQL = SQL & "'" & StrMaquina & "',"
>SQL = SQL & "'" & Format(Date, "m/d/yyyy") & "',"
>SQL = SQL & DblcdUsuario & ")"
>
>objCon.BeginTrans
>objCon.Execute SQL
>objCon.CommitTrans
>
>No Campo moPrecoVendaInterno por exemplo, os dados são salvos neste formato
>: 5032 que na verdade deveria ser 50,32.
>Quando mando exibir este valor 5032 na caixa de texto o valor é formatado
>para 5.032,00 .
>
>Já Tentei usar CCUR para formatar na hora de salvar mas não resolveu.
>
>Agradeço sua atenção.
>
>At.Marcos
>
>-----Mensagem original-----
>De: lista-bounces em firebase.com.br [mailto:lista-bounces em firebase.com.br]Em
>nome de Ricardo Soares Ferreira
>Enviada em: quinta-feira, 5 de maio de 2005 13:25
>Para: lista em firebase.com.br
>Assunto: [firebase-br] FB 1.5.2 Com Problemas
>
>Pessoal, favor me auxilie, antes eu tinha instalado o FB 1.5 e funcionava
>direito, agora instalei o FB 1.5.2 e dá os seguintes erros quando tento
>montar um BD aparece os erros, usando o Ibexpert:
>
>instalado o classic server: senha e nome não reconhecidos, mesmo usando
>SYSDBA e masterkey
>
>instalando o superserver: sistema não encontra o BD
>
>e usando o IButils
>"servidor não está instado"
>
>Obrigado
>Ricardo
>
>
>---------------------------------
>Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>Para editar sua configuração na lista, use o endereço
>http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas:
>http://search.gmane.org/search.php?group=firebase
>
>
>
>
>
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas:
http://search.gmane.org/search.php?group=firebase
>
>
>
>---------------------------------
>Yahoo! Acesso Grátis: Internet rápida e grátis. Instale o discador agora!
>______________________________________________
>FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
>Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
>Para consultar mensagens antigas:
http://search.gmane.org/search.php?group=firebase
>
>
>
>


--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.308 / Virus Database: 266.11.5 - Release Date: 4/5/2005


______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas:
http://search.gmane.org/search.php?group=rebase