Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

weslei.conexao

Problema com valor moeda

Por , em ASP Clássico

Recommended Posts

weslei.conexao    0

weslei.conexao
Postado

Olá pessoal, tem um form que quando digito o valor ex: 12,00 e clico no botão atualizar ele faz o update e grava 120,00 e clico em atualizarde novo ele mostra 1200,00 ...uso access o campo está setado como moeda, isso só acontece no terra, por que na minha maquina local ta funcionando certinho. Alguem pode me ajudar?? estou usando <%Session.lcid=1046%>

meu update está assim

expSQL = "update TB_Veiculos set"

ExpSql=ExpSql &" Despesa1 = '" & request.form("txtDesp1") &"', VL_Despesa1 = '"& replace(request.form("txtValorDesp1"), ".", "")&"',"

ExpSql=ExpSql &" Despesa2 = '" & request.form("txtDesp2") &"', VL_Despesa2 = '"& replace(request.form("txtValorDesp2"), ".", "")&"',"

ExpSql=ExpSql &" ObservacaoAdmin='" & request.form("txtobs")& "' where ch_veiculo =" & codAlt

Compartilhar este post

Link para o post
Compartilhar em outros sites

Adelar Tiemann jr    0

Adelar Tiemann jr
Postado

Aew

 

uma dica ae

 

faz uma funcao:

 

faz ela assim:

CODE
function gravarValor(valor)

dim valorNovo

valorNovo =

valorNovo = replace(valor,".","")

valorNovo = replace(valorNovo ,",",".")

gravarValor = valorNovo

end funcrion

 

ai você chama a funcao assim

 

teste = gravarValor(request.form("txtValorDesp1"))

 

 

pronto ele ja ira te retornar o valor certinho

ai no lugar de teste pode por onde que você vai querer aquele valor

 

vlw ae

Compartilhar este post

Link para o post
Compartilhar em outros sites

weslei.conexao    0

weslei.conexao
Postado

Valeu a dica Adelar fiz assim 

valorDesp1 = replace(Request.Form("txtValorDesp1"),",",".") 
valorDesp2 = replace(Request.Form("txtValorDesp2"),",",".")
Aí no update

 

expSQL = "update TB_Veiculos set"
ExpSql=ExpSql &" Despesa1 = '" & request.form("txtDesp1") &"', VL_Despesa1 = '"& valorDesp1 &"'," 
ExpSql=ExpSql &" Despesa2 = '" & request.form("txtDesp2") &"', VL_Despesa2 = '"& valorDesp2 &"'," 
ExpSql=ExpSql &" ObservacaoAdmin='" & request.form("txtobs")& "' where ch_veiculo =" & codAlt

Agora inverteu ,No servidor terra funcinou, só que agora no minha maquina local se digito 12,00 aparece 120,00. Que será que ta acontecendo??

Compartilhar este post

Link para o post
Compartilhar em outros sites

Adelar Tiemann jr    0

Adelar Tiemann jr
Postado

Ae

 

caso tenha uma global.asa

coloque isso no session onStart

 

Session.LCID = 1046

 

deve dar um geito intao

 

isoo é para ficar no padrao PT por assim dizer

 

:D

 

vlw ae

Compartilhar este post

Link para o post
Compartilhar em outros sites

weslei.conexao    0

weslei.conexao
Postado

Adelar eu não tenho uma global.asa mas eu uso Session.LCID = 1046 na propria pagína, entre as tags head veja!!!

 

<!-- #include file="conexao.asp" -->
<!-- #include file="valida.asp" -->
<!--#include file="VerificaUsuario.asp"-->

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
	<HEAD>
<%Session.lcid=1046%> 		
<title>***Cardoso Veículos***</title>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito