Problema com formatação de moeda

pastoverdejante · Abril 2, 2009

Aproveitando a deixa eu tenho um outro problema com ASP.

Neste código eu coloco um valor por exemplo R$ 1.500,00 e no site aparece R$ 1,50

Descobri que se eu inserir um valor desta forma R$ 1500 no site aparece R$ 1.500,00

Gostaria muito de resolver este problema.

Desde já agradeço!

<!-- #include file="Includes/BarraCima.asp" -->
<!--#include file="Includes/Form2.asp"-->
<!-- #include file="Includes/Upload.asp" -->
<!-- #include file="Includes/EnvioEmail.asp" -->
<%
Dim VarAct
Dim objSecoes
Dim objPlanos
Dim VarCodAutenticacao

Set objSecoes = Conn.Execute("SELECT Cod, Secao FROM Secoes ORDER BY Secao")
Set objPlanos = Conn.Execute("SELECT Cod, Plano FROM Planos ORDER BY Cod")

VarAct = Request.QueryString("Act")
VarCodAutenticacao = GerarChave(06)

Dim objEstados2
Set objEstados2 = Conn.Execute("Select Cod, Estado from Estados order by Estado asc")
%>
<script LANGUAGE="Javascript">
<!--
//
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</SCRIPT>
  <tr>
	<td valign="top">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
	  <tr>
		<td width="150" align="center" valign="top" bgcolor="#F9F9F9"><!-- #include file="Includes/BarraEsq.asp" --></td>
		<td align="center" valign="top" bgcolor="#FFFFFF">
<%
'------------------------------------------------------------------------------------		
If Session("Usuario") = "" Then 'Apresenta mensagem ao usuário quando a sessão dele expira
	
	response.write "<br /><br /><div align='center' class='TextoCinzaEscuro'>Sua sessão expirou. Clique <a href='"&EndLocal&"MeuAnuncio.asp' class='TituloCinzaEscuro'>AQUI</a> para efetuar seu login!</div>"	
	
Else
'------------------------------------------------------------------------------------		

%>			
		  <table width="468" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
		  </tr>
		  <tr>
			<td align="center" class="TituloCinzaMedio">INSERÇÃO DE ANÚNCIO </td>
		  </tr>
		  <tr>
			<td align="center"> </td>
		  </tr>
		  <tr>
			<td align="center">
<%
			Dim VarNomeProduto
			Dim VarBreveDescricao
			Dim VarDescricao
			Dim VarValor
			Dim VarFormaPagamento
			Dim VarEstado
			Dim VarCidade
			Dim VarSecao
			Dim VarPlano
			Dim VarLocal
			Dim VarFoto
			Dim VarFoto1
			Dim VarFoto2
			Dim VarFoto3
			Dim VarFoto4
			Dim VarFoto5
			Dim Foto1
			Dim Foto2
			Dim Foto3
			Dim Foto4
			Dim Foto5
			Dim VarMesPagamento
			Dim InsBd
			Dim x
		
			If VarAct = "Cadastrar" Then
			
				'-------------------------------------------------------------					
				Dim Uploader, File
				Set Uploader = New FileUploader

				Uploader.Upload()
					
				If Uploader.Files.Count > 0 Then
					For Each File In Uploader.Files.Items
						File.SaveToDisk CaminhoFoto
						VarFoto = VarFoto &"|"& File.FileName
					Next
				VarFoto = Right(VarFoto, Len(VarFoto)-1)
				VarFoto = Split(VarFoto, "|")
				End If
					
				VarNomeProduto = Replace(Uploader.Form("NomeProduto"),"'","''")
				VarBreveDescricao = Replace(Uploader.Form("BreveDescricao"),"'","''")
				VarDescricao = Replace(Replace(Uploader.Form("Descricao"),vbcrlf,"<br>"),"'","''")
				'VarValor = Trim(Replace(Replace(Uploader.Form("Valor"),"'","''"),".",""))
				VarValor = Trim(Replace(Uploader.Form("Valor"),"'","''"))
				VarFormaPagamento = Replace(Uploader.Form("FormaPagamento"),"'","''")
				VarCidade = Uploader.Form("Cidade")
				VarEstado = Uploader.Form("Estado")
				VarSecao = Uploader.Form("Secao")
				VarPlano = Uploader.Form("Plano")
													
				If VarNomeProduto = "" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Insira o nome do produto!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarBreveDescricao = "" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Insira uma breve descrição!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarDescricao = "" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Insira uma descrição!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarValor = "" or not IsNumeric(VarValor) Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Insira o valor do produto!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarFormaPagamento = "" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Insira a forma de pagamento!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarEstado = "" or VarEstado = "Selecione um estado" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Selecione um estado!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarCidade = "" or VarCidade = "Digite uma cidade" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Digite uma cidade!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarSecao = "" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Selecione a seção!<br><br>"& Voltar &"</td></tr>"
				ElseIf VarPlano = "" or VarPlano = "Selecione o plano" Then
					Response.Write "<tr><td align='center' class='TituloVermelho'>Selecione o plano!<br><br>"& Voltar &"</td></tr>"
				Else
				
					Dim objPlano, EstadoSel, SecaoSel
					Set objPlano = Conn.Execute("SELECT Local, Plano FROM Planos WHERE Cod = "& VarPlano)
					Set EstadoSel = Conn.Execute("SELECT Estado FROM Estados WHERE Cod = "& VarEstado)
					Set SecaoSel = Conn.Execute("SELECT Secao FROM Secoes WHERE Cod = "& VarSecao)
				
					If objPlano("Local")<>4 AND objPlano("Local")<>5 AND Uploader.Files.Count = 0 Then
						Response.Write "<tr><td align='center' class='TituloVermelho'>O plano que você escolheu exige no mínimo 01(uma) foto!<br><br>"& Voltar &"</td></tr>"
				
					Else
						With Response
						.Write "<table align='center' width='90%'>"
						.Write "<form action='InsAnuncio.asp?Act=Confirma' method='post' name='Inserir'>"
						.Write "<input type=hidden value='"&VarNomeProduto&"' name='NomeProduto'>"
						.Write "<input type=hidden value='"&VarBreveDescricao&"' name='BreveDescricao'>"
						.Write "<input type=hidden value='"&VarDescricao&"' name='Descricao'>"
						.Write "<input type=hidden value='"&VarValor&"' name='Valor'>"
						.Write "<input type=hidden value='"&VarFormaPagamento&"' name='FormaPagamento'>"
						.Write "<input type=hidden value='"&VarEstado&"' name='Estado'>"
						.Write "<input type=hidden value='"&VarCidade&"' name='Cidade'>"
						.Write "<input type=hidden value='"&VarSecao&"' name='Secao'>"
						.Write "<input type=hidden value='"&VarPlano&"' name='Plano'>"
						.Write "<input type=hidden value='"&objPlano("Local")&"' name='Local'>"
						If Uploader.Files.Count > 0 Then
							.Write "<input type=hidden value='"&VarFoto(0)&"' name='Foto1'>"
						Else
							.Write "<input type=hidden value='SemFoto.gif' name='Foto1'>"
						End If
						If Uploader.Files.Count > 1 Then
							.Write "<input type=hidden value='"&VarFoto(1)&"' name='Foto2'>"
						Else
							.Write "<input type=hidden value='SemFoto.gif' name='Foto2'>"
						End If
						If Uploader.Files.Count > 2 Then
							.Write "<input type=hidden value='"&VarFoto(2)&"' name='Foto3'>"
						Else
							.Write "<input type=hidden value='SemFoto.gif' name='Foto3'>"
						End If
						If Uploader.Files.Count > 3 Then
							.Write "<input type=hidden value='"&VarFoto(3)&"' name='Foto4'>"
						Else
							.Write "<input type=hidden value='SemFoto.gif' name='Foto4'>"
						End If
						If Uploader.Files.Count > 4 Then
							.Write "<input type=hidden value='"&VarFoto(4)&"' name='Foto5'>"
						Else
							.Write "<input type=hidden value='SemFoto.gif' name='Foto5'>"
						End If
						.Write "<tr><td colspan='2' class='TituloCinzaEscuro' align='center'>Confira seus dados abaixo: </td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Nome do Produto: </td><td class='TituloAzulEscuro'>" & VarNomeProduto & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Breve Descrição: </td><td class='TituloAzulEscuro'>" & VarBreveDescricao & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Descrição: </td><td class='TituloAzulEscuro'>" & VarDescricao & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Valor: </td><td class='TituloAzulEscuro'>R$" & FormatNumber(VarValor, 2) & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Forma de Pagamento: </td><td class='TituloAzulEscuro'>" & VarFormaPagamento & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Estado: </td><td class='TituloAzulEscuro'>" & EstadoSel("Estado") & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Cidade: </td><td class='TituloAzulEscuro'>" & VarCidade & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Seção: </td><td class='TituloAzulEscuro'>" & SecaoSel("Secao") & "</td></tr>"
						.Write LinhaHorizontal
						.Write "<tr><td class='TituloCinzaEscuro'>Plano: </td><td class='TituloAzulEscuro'>" & objPlano("Plano") & "</td></tr>"
						.Write LinhaHorizontal
						If Uploader.Files.Count > 0 Then
							.Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 1: </td></tr>"
							.Write "<tr><td colspan='2' align='center'><img src='"&LocalFoto&VarFoto(0)&"' width='250'></td></tr>"
						Else
							.Write "<tr><td class='TituloCinzaEscuro'>Foto 1: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
						End If
						.Write LinhaHorizontal
						If Uploader.Files.Count > 1 Then
							.Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 2: </td></tr>"
							.Write "<tr><td colspan='2' align='center'><img src='"&LocalFoto&VarFoto(1)&"' width='250'></td></tr>"
						Else
							.Write "<tr><td class='TituloCinzaEscuro'>Foto 2: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
						End If
						.Write LinhaHorizontal
						If Uploader.Files.Count > 2 Then
							.Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 3: </td></tr>"
							.Write "<tr><td colspan='2' align='center'><img src='"&LocalFoto&VarFoto(2)&"' width='250'></td></tr>"
						Else
							.Write "<tr><td class='TituloCinzaEscuro'>Foto 3: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
						End If
						.Write LinhaHorizontal
						If Uploader.Files.Count > 3 Then
							.Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 4: </td></tr>"
							.Write "<tr><td colspan='2' align='center'><img src='"&LocalFoto&VarFoto(3)&"' width='250'></td></tr>"
						Else
							.Write "<tr><td class='TituloCinzaEscuro'>Foto 4: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
						End If
						.Write LinhaHorizontal
						If Uploader.Files.Count > 4 Then
							.Write "<tr><td class='TituloCinzaEscuro' colspan='2'>Foto 5: </td></tr>"
							.Write "<tr><td colspan='2' align='center'><img src='"&LocalFoto&VarFoto(4)&"' width='250'></td></tr>"
						Else
							.Write "<tr><td class='TituloCinzaEscuro'>Foto 5: </td><td class='TituloAzulEscuro'>Nenhuma</td></tr>"
						End If
						.Write LinhaHorizontal
						.Write FCampos(14) 'Confirmar / Corrigir
						.Write "</form></table>"
						End With
					End If
				End If
				
			ElseIf VarAct = "Confirma" Then
		
					
If Session("Usuario") = "" Then 'Apresenta mensagem ao usuário quando a sessão dele expira
	response.write "<div align='center' class='TextoCinzaEscuro'>Sua sessão expirou. Clique <a href='"&EndLocal&"MeuAnuncio.asp' class='TituloCinzaEscuro'>AQUI</a> para efetuar seu login!</div>"	
	response.end
End If

				
				VarNomeProduto = Replace(Request.Form("NomeProduto"),"'","''")
				VarBreveDescricao = Replace(Request.Form("BreveDescricao"),"'","''")
				VarDescricao = Replace(Replace(Request.Form("Descricao"),vbcrlf,"<br>"),"'","''")
				VarValor = Trim(Replace(Replace(Request.Form("Valor"),"'","''"),"R$",""))
				VarFormaPagamento = Replace(Request.Form("FormaPagamento"),"'","''")
				VarCidade = Request.Form("Cidade")
				VarEstado = Request.Form("Estado")
				VarSecao = Request.Form("Secao")
				VarPlano = Request.Form("Plano")
				VarLocal = Request.Form("Local")
				VarFoto1 = Request.Form("Foto1")
				VarFoto2 = Request.Form("Foto2")
				VarFoto3 = Request.Form("Foto3")
				VarFoto4 = Request.Form("Foto4")
				VarFoto5 = Request.Form("Foto5")
				VarMesPagamento = (Month(Date))
				
				Set InsBd = Server.CreateObject("ADODB.Recordset")
					InsBd.CursorLocation = adUseServer
					InsBd.CursorType = adOpenKeyset
					InsBd.LockType = adLockOptimistic
					InsBd.Open "Anuncios", Conn, , , adCmdTable
					InsBd.AddNew
						InsBd("NomeProduto") = VarNomeProduto
						InsBd("BreveDescricao") = VarBreveDescricao
						InsBd("Descricao") = VarDescricao
						InsBd("Valor") = VarValor
						InsBd("FormaPagamento") = VarFormaPagamento
						InsBd("CodEstado") = VarEstado
						InsBd("Cidade") = VarCidade
						InsBd("CodSecao") = VarSecao
						InsBd("CodPlano") = VarPlano
						InsBd("CodLocal") = VarLocal
						InsBd("Foto1") = VarFoto1
						InsBd("Foto2") = VarFoto2
						InsBd("Foto3") = VarFoto3
						InsBd("Foto4") = VarFoto4
						InsBd("Foto5") = VarFoto5
						InsBd("MesPagamento") = VarMesPagamento
						InsBd("CodAnunciante") = Session("Usuario")
						InsBd("Ativacao") = False
						InsBd("Status") = False
						InsBd("Secao") = VarCodAutenticacao
						InsBd("DataDe") = "1/1/2000"
						InsBd("DataAte") = FormataData(Date())
						InsBd.Update
						InsBd.Close
					Set InsBd = Nothing
					
					Dim VarConfEmail
							
					VarConfEmail = "<link href="& EndLocal & "Includes/Styles.css rel=stylesheet type=text/css>"
					VarConfEmail = VarConfEmail & "<table border='0' cellpadding='0' cellspacing='0' width='370' height='270' background='"& EndLocal &"Imagens/FundoConfAnuncio.gif'>"
					VarConfEmail = VarConfEmail & "<tr>"
					VarConfEmail = VarConfEmail & "<td>"
					VarConfEmail = VarConfEmail & "<table border=0 cellpadding=0 cellspacing=0 width='100%'>"
					VarConfEmail = VarConfEmail & "<tr>"
					VarConfEmail = VarConfEmail & "<td>"
					VarConfEmail = VarConfEmail & " "
					VarConfEmail = VarConfEmail & "</td>"
					VarConfEmail = VarConfEmail & "</tr>"
					VarConfEmail = VarConfEmail & "<tr>"
					VarConfEmail = VarConfEmail & "<td>"
					VarConfEmail = VarConfEmail & "<center><a href='"& EndLocal &"ConfirmacaoAnuncio.asp?Act=1&CodAutenticacao="& VarCodAutenticacao &"' class='TituloCinzaEscuro' target='_blank'>Clique aqui para confirmar a ativação de seu anúncio!</a></center>"
					VarConfEmail = VarConfEmail & "</td>"
					VarConfEmail = VarConfEmail & "</tr>"
					VarConfEmail = VarConfEmail & "</table>"
					VarConfEmail = VarConfEmail & "</td>"
					VarConfEmail = VarConfEmail & "</tr>"
					VarConfEmail = VarConfEmail & "</table>"
					
					Dim objCliente
					Set objCliente = Conn.Execute("SELECT Email FROM Anunciantes WHERE Cod="&Session("Usuario"))
					
					vEmailNomeRemetente = Titulo ' Remetente (Nome)
					vEmailRemetente = EmailPadrao ' Remetente (Email)
					vEmailNomeDestinatario = objCliente("Email") ' Destinatário (Nome)
					vEmailDestinatario = objCliente("Email") ' Destinatário (Email)
					vEmailRetorno = EmailPadrao ' Remetente
					vEmailAssunto = "Confirmação de inserção de anúncio." ' Assunto
					vEmailCorpo = VarConfEmail ' Corpo
	
					Call EnvioEmail()
					
				Response.Write "<tr><td align='center' class='TituloVermelho'>Você acaba de receber um e-mail de confirmação.<br>Para que possa ativar seu anúncio, entre no mesmo e acesse o link!</td></tr>"
			
			Else
			%>
			<table align="center">
			<form action="InsAnuncio.asp?Act=Cadastrar" method="Post" name="Cadastrar" enctype="multipart/form-data">
				<%=CamposObrigatorios%>
				<%
				With Response
					.Write LinhaHorizontal
					.Write FCampos(1)
					.Write LinhaHorizontal
					.Write FCampos(2)
					.Write LinhaHorizontal
					.Write FCampos(3)
					.Write LinhaHorizontal
					.Write FCampos(4)
					.Write LinhaHorizontal
					.Write FCampos(5)
					.Write LinhaHorizontal
				End With
				%>
				<tr>
					<td class="TituloCinzaEscuro">Estado:</td>
					<td>
						<select name="Estado" class="Form13319">
						<option selected>Selecione um estado</option>
					<% While Not objEstados2.EOF %>
					<option value="<%=objEstados2("Cod")%>"><%=objEstados2("Estado")%></option>
					  <% objEstados2.MOVENEXT : Wend %>
						</select>
					</td>
				</tr>
				<%=LinhaHorizontal%>
				<tr>
					<td class="TituloCinzaEscuro">Cidade:</td>
					<td><input name="Cidade" type="text" class="Form13319" onFocus="java script:this.value=''" value="Digite uma cidade" size="1">
						  <span class='TextoCinzaMascara'> (Ex:itapecerica)</span></td>
				</tr>
				<%=LinhaHorizontal%>
				<tr>
				  <td class="TituloCinzaEscuro">Seção:*</td>
				<td>
				  <select name="Secao" size="1" class="Form13319">
					<option selected value="">Selecione a seção</option>
					<%
					While not objSecoes.EOF
						Response.Write "<option value='"& objSecoes("Cod") &"'>"& objSecoes("Secao") &"</option>"
					objSecoes.MoveNext : Wend						
					%>
				</select>
				</td>
				</tr>
				<%=LinhaHorizontal%>
				<tr>
				  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro"> </td>
				</tr>
				<%=LinhaHorizontal%>
				<tr>
				  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Fotos</td>
				</tr>
				<%
				With Response
					.Write LinhaHorizontal
					.Write FCampos(6)
					.Write LinhaHorizontal
					.Write FCampos(7)
					.Write LinhaHorizontal
					.Write FCampos(8)
					.Write LinhaHorizontal
					.Write FCampos(9)
					.Write LinhaHorizontal
					.Write FCampos(10)
					.Write LinhaHorizontal
				End With
				%>
				<tr>
				  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro"> </td>
				</tr>
				<%=LinhaHorizontal%>
				<tr>
				  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro" bgcolor="#DDDDDD">Plano</td>
				</tr>
				<%=LinhaHorizontal%>
				<tr>
				  <td height="20" colspan="2" align="center">
					  <select name="Plano" class="Form17019">
					  <option selected>Selecione o plano</option>
					  <%
					  While not objPlanos.EOF
					  Response.Write "<option value='"& objPlanos("Cod") &"'>"& objPlanos("Plano")&"</option>"
					  objPlanos.MoveNext
					  Wend
					  %>
					</select> <a href="#" class="TextoCinzaEscuro" onClick="MM_openBrWindow('PopPlanos.asp','','scrollbars=yes,width=600,height=300')">Conheça nossos planos</a>
				  </td>
				</tr>
				<%=LinhaHorizontal%>
				<tr>
				  <td height="20" colspan="2" align="center" class="TituloCinzaEscuro"> </td>
				</tr>
				<%
				With Response
					.Write FCampos(11)
				End With
				%>
				<tr>
					<td height="30" colspan="2" align="center" valign="bottom"><%=Voltar%></td>
				</tr>
			  </form>
			</table>
			<% End If %>
			</td>
		  </tr>
		</table>
			
<%

'------------------------------------------------------------------------------------		
End If
'------------------------------------------------------------------------------------		

%>			
		  
		</td>
		<td width="150" align="center" valign="top" bgcolor="#F8F8F8"><!-- #include file="Includes/BarraDir.asp" --></td>
	  </tr>
	</table>
	</td>
  </tr>
<!-- #include file="Includes/Rodape.asp" -->

hargon · Abril 2, 2009

Não entendi. O valor a ser formatado é 1.500,00 ou 1500? Pq se for a primeira opção não há nada para formatar.

xanburzum · Abril 3, 2009

usa o SESSION.LCID=1046 e FormatCurrency

pastoverdejante · Abril 3, 2009

Não entendi. O valor a ser formatado é 1.500,00 ou 1500? Pq se for a primeira opção não há nada para formatar.

O valor é de R$ 1.500,00.

Mas o estranho é que eu digito (on line) o valor R$ 1.500,00 e ele até aceita, mas depois de confirmar

o valor muda automaticamente para R$ 1,50

Eu testei este procedimento acima digitando o valor de R$ 1500 e assim funciona! on line fica certo R$ 1.500,00

Será que o problema está em outra pasta de códigos?

Obrigado!

hargon · Abril 3, 2009

Provavelmente pq seu campo no banco de dados está reconhecendo o . como virgula. 1.500 = 1,5.

Qual banco de dados está usando? Qual o tipo do campo?

pastoverdejante · Abril 3, 2009

Provavelmente pq seu campo no banco de dados está reconhecendo o . como virgula. 1.500 = 1,5.

Qual banco de dados está usando? Qual o tipo do campo?

estou usando BD acess, eu abri ele e está usando R$ 1.500,00

hargon · Abril 3, 2009

Você colocou uma máscara no campo moeda do banco, correto?

Você terá que inserir os dados sem formatação.

Ted k' · Abril 3, 2009

poderia fazer a mesma coisa que citei com o amigo aqui tbm:

http://forum.imasters.com.br/index.php?showtopic=338687

pastoverdejante · Abril 4, 2009

Você colocou uma máscara no campo moeda do banco, correto?

Você terá que inserir os dados sem formatação.

eu abri o bd em acess e verifiquei a formatação

estava R$ 1.500,00

e estava automático

obrigado

hargon · Abril 4, 2009

Resolvido?

Retirou a formatação?

pastoverdejante · Abril 4, 2009

Resolvido?

Retirou a formatação?

eu ainda não consegui resolver este problema amigo

eu gostaria de saber se este erro pode ser somente no bd?

obrigado

hargon · Abril 4, 2009

É como eu disse, você pode tirar a formatação antes de gravar no banco de dados ou você pode retirar a máscara do campo no banco de dados.

Prefiro tirar a máscara do campo no banco de dados.

pastoverdejante · Abril 4, 2009

É como eu disse, você pode tirar a formatação antes de gravar no banco de dados ou você pode retirar a máscara do campo no banco de dados.

Prefiro tirar a máscara do campo no banco de dados.

eu estive verificando no db e mudei tudo que consegui

n possui nenhuma máscara

eu acho q o problema está no script será que não?

obg

hargon · Abril 4, 2009

Se no bd não possui mais mascara nenhuma, você deve gravar no banco como inteiro e formatar somente quando for visualizar a informação. É isso que está fazendo?

pastoverdejante · Abril 4, 2009

Se no bd não possui mais mascara nenhuma, você deve gravar no banco como inteiro e formatar somente quando for visualizar a informação. É isso que está fazendo?

sim eu abri o db e lá aparece tudo certo R 1.500,00 ele registra certo desde que ao digitar no site seja 1500 e não possui mascaras

nesse script acima se você digitar o valor ele obedece tudo ex: R$ 1.500,00 só que na hora de visualizar ele transforma em R$ 1,50

será que no script n tem q mudar alguma coisa?

obg!

olha oq eu achei!

uma pasta chamada resultado.asp

a linha 305 tem isso:

<td class="TituloCinzaEscuro">Preço: <%=FormatCurrency(objResultado("Valor"), 2)%></td>

<!-- #include file="Includes/BarraCima.asp" -->
<%
Dim StrSql, StrSql2, CodEstado, Cidade, CodSecao, objResultado
Dim VarPagina, IntI, TotaldePaginas, VarAct, BuscaVazia, PalavraChave

VarAct = Request.QueryString("Act")

If Request.QueryString("Pagina") = "" Then
	VarPagina = 1
Else
	VarPagina = Request.QueryString("Pagina")
	SELECT case VarAct
		Case "Anterior"
			VarPagina = VarPagina - 1
		Case "Proxima"
			VarPagina = VarPagina + 1
	End select
End If

CodEstado = Request.QueryString("Estado")
Cidade = Request.QueryString("Cidade")
CodSecao = Request.QueryString("Secao")
PalavraChave = Replace(Request.Querystring("Palavra"),"'","''")

If CodEstado="Selecione o estado" Then
	CodEstado="0"
End If

If Cidade = "Digite a cidade" OR Cidade = "" Then
	Cidade=""
end If

If CodSecao="Escolha a Seção" Then
	CodSecao=""
end If

If PalavraChave = "O que deseja procurar?" Then
	PalavraChave = ""
End If

If CodEstado="0" AND Cidade="" AND CodSecao="" AND PalavraChave="" Then
BuscaVazia = "1"
Else
If CodEstado="0" and Cidade="" AND PalavraChave="" Then
	StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE CodSecao="&CodSecao&" AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
Else
	If Cidade="" and CodSecao="" AND PalavraChave="" then
		StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE CodEstado="&CodEstado&" AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
	Else
		If Cidade="" AND PalavraChave="" then
			StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE CodEstado="&CodEstado&" and CodSecao="&CodSecao&" AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
		Else
			If CodSecao="" AND PalavraChave="" Then
				StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE CodEstado="&CodEstado&" and Cidade='"&Cidade&"' AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
			Else
				If CodEstado="0" and Cidade="" and CodSecao="" Then
					StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE (NomeProduto LIKE '%"&PalavraChave&"%' OR BreveDescricao LIKE '%"&PalavraChave&"%' OR Descricao LIKE '%"&PalavraChave&"%') AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
				Else
					If CodEstado="0" and Cidade="" Then
						StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE (NomeProduto LIKE '%"&PalavraChave&"%' OR BreveDescricao LIKE '%"&PalavraChave&"%' OR Descricao LIKE '%"&PalavraChave&"%') AND CodSecao="&CodSecao&" AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
					Else
						If Cidade="" and CodSecao="" Then
							StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE (NomeProduto LIKE '%"&PalavraChave&"%' OR BreveDescricao LIKE '%"&PalavraChave&"%' OR Descricao LIKE '%"&PalavraChave&"%') AND CodEstado="&CodEstado&" AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
						Else
							If Cidade="" Then
								StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE (NomeProduto LIKE '%"&PalavraChave&"%' OR BreveDescricao LIKE '%"&PalavraChave&"%' OR Descricao LIKE '%"&PalavraChave&"%') AND CodEstado="&CodEstado&" and CodSecao="&CodSecao&" AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
							Else
								If PalavraChave="" Then
									StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE CodEstado="&CodEstado&" and Cidade='"&Cidade&"' and CodSecao="&CodSecao&" AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
								Else
									If CodSecao="" Then

										StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE (NomeProduto LIKE '%"&PalavraChave&"%' OR BreveDescricao LIKE '%"&PalavraChave&"%' OR Descricao LIKE '%"&PalavraChave&"%') AND CodEstado="&CodEstado&" and Cidade='"&Cidade&"' AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
									Else
										If CodEstado="0" and Cidade="" and CodSecao="" Then
											StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE (NomeProduto LIKE '%"&PalavraChave&"%' OR BreveDescricao LIKE '%"&PalavraChave&"%' OR Descricao LIKE '%"&PalavraChave&"%') AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
										Else
											StrSql="SELECT Cod, CodPlano, Foto1, NomeProduto, BreveDescricao, Valor FROM Anuncios WHERE (NomeProduto LIKE '%"&PalavraChave&"%' OR BreveDescricao LIKE '%"&PalavraChave&"%' OR Descricao LIKE '%"&PalavraChave&"%') AND CodEstado="&CodEstado&" and CodSecao="&CodSecao&" and Cidade='"&Cidade&"' AND Ativacao=1 AND Status=1 AND DataDe <= #"&FormataData(Date()) &"# AND DataAte >= #"&FormataData(Date()) &"#"
										End If
									End If
								End If
							End If
						End If
					End If
				End If
			End If
		End If
	End If

End If
End If

If Not BuscaVazia = "1" Then
Set objResultado = Server.CreateObject("ADODB.RecordSet")
objResultado.CursorLocation = adUseClient
objResultado.CursorType = adOpenStatic
objResultado.CacheSize = TotalPorPagina
objResultado.Open StrSql, Conn, , , adCmdText
End If
%>
  <tr>
	<td valign="top">
	<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
	  <tr>
		<td width="150" align="center" valign="top" bgcolor="#F9F9F9"><!-- #include file="Includes/BarraEsq.asp" --></td>
		<td align="center" valign="top" bgcolor="#FFFFFF">
		  <table width="468" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<td height="10"><img src="Imagens/Blank.gif" width="1" height="1"></td>
		  </tr>
		  <tr>
			<td align="center" class="TituloCinzaMedio">RESULTADO DA PESQUISA </td>
		  </tr>
		  <tr>
			<td align="center"> </td>
		  </tr>
		  <%
			If BuscaVazia = "1" Then
			  Response.Write "<tr><td align='center' class='TextoCinzaEscuro'>Escolha no mínimo um critério para a busca.</td></tr><tr><td align=center><br>"&voltar&"</td></tr>"
			Else
			%>
		  <tr>
			<td height="20" align="right" class="TextoCinzaEscuro">Foram encontrados <%=objResultado.RecordCount%> resultados.</td>
		  </tr>
		  <%=LinhaHorizontal3%>
		  <%
			  objResultado.PageSize = TotalPorPagina
			
			If objResultado.EOF Then
				  Response.Write "<tr><td align='center' class='TituloVermelho'>Não há resultado para sua pesquisa.</td></tr>"&LinhaHorizontal3&"<tr><td align=center>"&voltar&"</td></tr>"
			  Else
			  objResultado.AbsolutePage = VarPagina
			  TotaldePaginas = objResultado.PageCount
			
			  For intI = 1 to objResultado.PageSize

			Dim objPlano
			Set objPlano = Conn.Execute("SELECT Destaque FROM Planos WHERE Cod="&objResultado("CodPlano"))
			%>
		  <tr>
			<td align="center" <% If objPlano("Destaque")=True Then Response.Write CorDestaque End If %>>
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
			  <tr>
				<td width="64"><a href="MaisAnuncio.asp?CodProduto=<%=objResultado("Cod")%>"><img src="<%=LocalFoto&objResultado("Foto1")%>" width="64" border="0"></a></td>
				<td valign="top">
				  <table width="100%" border="0" cellspacing="3" cellpadding="0">		  
					  <tr>
					<td class="TituloCinzaEscuro"><%=objResultado("NomeProduto")%></td>
					  </tr>
					  <tr>
					<td class="TextoCinzaEscuro"><%=objResultado("BreveDescricao")%></td>
					  </tr>
					  <tr>
					<td class="TituloCinzaEscuro">Preço: <%=FormatCurrency(objResultado("Valor"), 2)%></td>
					</tr>			  
				</table>
				</td>
				<td width="70" align="center" valign="bottom" class="TextoCinzaEscuro"><a href="MaisAnuncio.asp?CodProduto=<%=objResultado("Cod")%>" class="TextoCinzaEscuro">Mais info</a></td>
			  </tr>
			</table>
			</td>
		  </tr>
		  <tr>
			  <td height="18" colspan="3"><img src="Imagens/LinhaBarras.gif" width="100%" height="1"></td>
			</tr>
		  <%
			  objResultado.MoveNext
			  If objResultado.EOF Then Exit For
			  Next
			%>
		  <tr>
			<td colspan="3">
			<table width="100%" border="0" cellspacing="0" cellpadding="0">
				<tr>
		   		<td width="35%" class="TextoCinzaEscuro">Página <%=VarPagina%> de <%=TotaldePaginas%></td>
		   		<td width="65%" align="right">
				<%
				If VarPagina > 1 Then
				Response.Write "<a href='" & Request.ServerVariables("SCRIPT_NAME") &"?Pagina="& VarPagina &"&Act=Anterior&Estado="&CodEstado&"&Cidade="&Cidade&"&Secao="&CodSecao&"&Palavra="&PalavraChave&"' class='TextoCinzaEscuro'>Anterior</a> | "
				End if
	
				If VarPagina <> TotaldePaginas Then
				Response.Write "<a href='" & Request.ServerVariables("SCRIPT_NAME") &"?Pagina=" & VarPagina &"&Act=Proxima&Estado="&CodEstado&"&Cidade="&Cidade&"&Secao="&CodSecao&"&Palavra="&PalavraChave&"' class='TextoCinzaEscuro'>Próxima</a>"
				End If
				%>
		   		</td>
		 	  </tr>
	   		</table>
			</td>
			</tr>
		  <%
		  End If
		  End If
		  %>
		</table>
		</td>
		<td width="150" align="center" valign="top" bgcolor="#F8F8F8"><!-- #include file="Includes/BarraDir.asp" --></td>
	  </tr>
	</table>
	</td>
  </tr>
<%
' finaliza/destroi os objetos
If Not BuscaVazia = "1" Then
objResultado.Close
Set objResultado = Nothing
End If
%>
<!-- #include file="Includes/Rodape.asp" -->

xanburzum · Abril 4, 2009

você tentou usar o session.LCID e FormatCurrency,

exemplo

session.LCID="1046"


valor=20000.578 
response.write(FormatCurrency(valor,2))

pastoverdejante · Abril 4, 2009

você tentou usar o session.LCID e FormatCurrency,

exemplo
session.LCID="1046"


valor=20000.578 
response.write(FormatCurrency(valor,2))

Amigo eu não entendi sua colocação

Sou iniciante :)

Se você puder me ajudar melhor eu agradeço.

xanburzum · Abril 4, 2009

coloca o <% session.LCID="1046"%> no inicio do código e

usa o FormatCurrency para exibir o valor, por exemplo, se você recupera o recordset, use como:

FormatCurrency(objResultado("Valor"),2), que na verdade você ja esta usando...

como esta o tipo de dado no campo Valor ?

pastoverdejante · Abril 5, 2009

coloca o <% session.LCID="1046"%> no inicio do código e

usa o FormatCurrency para exibir o valor, por exemplo, se você recupera o recordset, use como:

FormatCurrency(objResultado("Valor"),2), que na verdade você ja esta usando...

como esta o tipo de dado no campo Valor ?

amigo eu visualizei o db e está assim R$ 1.500,00 mas lembrando q este valor é obtido qdo eu digito no site assim R$ 1500 somente

xanburzum · Abril 5, 2009

desculpe, nao entendi...

você usando o FormatCurrency(objResultado("Valor"),2)

assim, qual resultado obtido...

Arquivado

Problema com formatação de moeda

Recommended Posts

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

pastoverdejante 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169