alterando campos de frete

[powerwww 0]

Boa noite pessoal, estou com um problema, ao alterar o frete de um determinado campo, digito o seguinte valor "5,60" e quando clico em alterar o valor vai para 560,00, alguem sabe onde esta o erro? sera a configuração de valores no painel de controle ou no access mesmo? Obrigadoabaixo segue o codigo <input name="Quilo" type="text" class="FormCPF" id="Quilo" value="<%=FormatNumber(Frete("ValorQuilo"),2)%>"><input name="Base" type="text" class="FormCPF" id="ValorBase2" value="<%=FormatNumber(Frete("ValorBase"),2)%>"> <% Else Dim VarBase Dim VarQuilo Dim VarRegiao VarRegiao = Request.Form("Regiao") VarQuilo = Replace(Request.Form("Quilo"), ",", ".") VarBase = Replace(Request.Form("Base"), ",", ".") Dim AltBd Set AltBd = Server.CreateObject("ADODB.Recordset") AltBd.CursorLocation = adUseServer AltBd.CursorType = adOpenForwardOnly AltBd.LockType = adLockOptimistic AltBd.Open "SELECT * FROM Frete WHERE Cod="& VarRegiao, Banco, , , adCmdText AltBd("ValorBase") = VarBase AltBd("ValorQuilo") = VarQuilo AltBd.Update AltBd.Close Set AltBd = Nothing Response.Redirect "AltFrete.asp" %>

[vicoluis 0]

tente tirar o format number e veja se da o mesmo erro...

[powerwww 0]

tente tirar o format number e veja se da o mesmo erro...

amigo, deu erro

[vicoluis 0]

<input name="Quilo" type="text" class="FormCPF" id="Quilo" value="<%=Frete("ValorQuilo")%>"><input name="Base" type="text" class="FormCPF" id="ValorBase2" value="<%=Frete("ValorBase")%>">

tentou assim??? qual erro deu?

[powerwww 0]

<input name="Quilo" type="text" class="FormCPF" id="Quilo" value="<%=Frete("ValorQuilo")%>"><input name="Base" type="text" class="FormCPF" id="ValorBase2" value="<%=Frete("ValorBase")%>">

tentou assim??? qual erro deu?

ae, quando coloco 1,23 e 0,8 fica 123 e 8

[vicoluis 0]

cara, para formatar os valores acho que fica melhor em JS... da uma olhada neste topico http://forum.wmonline.com.br/index.php?showtopic=97124

tipo, o unico erro que ta dando é com as virgulas né? este JS que postei la resolve seu problema... mas se num resolver berra ai...

[explore 3]

Permaneça com o format mais deixe no final da linha asp o Valor de "0"

 

crie uma variavel que faz o format aceitar fica mais facil!!!!!!

 

não sei se vai funcionar mais qual quer coisa fala o que o amigo de cima falo berra ai

ASP [/tr][tr]

<% Else

 

Dim VarBase

Dim VarQuilo

Dim VarRegiao

 

VarRegiao = Request.Form("Regiao")

VarQuilo = Replace(Request.Form("Quilo"), ",", "." -0)

VarFormat = Response.Write("Format" -0)

VarBase = Replace(Request.Form("Base"), ",", "." -0)

 

Dim AltBd

Set AltBd = Server.CreateObject("ADODB.Recordset")

AltBd.CursorLocation = adUseServer

AltBd.CursorType = adOpenForwardOnly

AltBd.LockType = adLockOptimistic

AltBd.Open "SELECT * FROM Frete WHERE Cod="& VarRegiao, Banco, , , adCmdText

 

AltBd("ValorBase") = VarBase

AltBd("ValorQuilo") = VarQuilo

 

AltBd.Update

 

AltBd.Close

Set AltBd = Nothing

 

Response.Redirect "AltFrete.asp"

 

%>

[/tr]

 

Falo!!!!!!

 

Webmaster Apolo

www.cartoondesign.kit.net

[powerwww 0]

cara, para formatar os valores acho que fica melhor em JS... da uma olhada neste topico http://forum.wmonline.com.br/index.php?showtopic=97124tipo, o unico erro que ta dando é com as virgulas né? este JS que postei la resolve seu problema... mas se num resolver berra ai...

cara, com certeza deve ser uma coisa bem simples, mas vamos ver se há outra opinões. obrigado

[powerwww 0]

Permaneça com o format mais deixe no final da linha asp o Valor de "0"

 

crie uma variavel que faz o format aceitar fica mais facil!!!!!!

 

não sei se vai funcionar mais qual quer coisa fala o que o amigo de cima falo berra ai

ASP [/tr][tr]

<% Else

 

Dim VarBase

Dim VarQuilo

Dim VarRegiao

 

VarRegiao = Request.Form("Regiao")

VarQuilo = Replace(Request.Form("Quilo"), ",", "." -0)

VarFormat = Response.Write("Format" -0)

VarBase = Replace(Request.Form("Base"), ",", "." -0)

 

Dim AltBd

Set AltBd = Server.CreateObject("ADODB.Recordset")

AltBd.CursorLocation = adUseServer

AltBd.CursorType = adOpenForwardOnly

AltBd.LockType = adLockOptimistic

AltBd.Open "SELECT * FROM Frete WHERE Cod="& VarRegiao, Banco, , , adCmdText

 

AltBd("ValorBase") = VarBase

AltBd("ValorQuilo") = VarQuilo

 

AltBd.Update

 

AltBd.Close

Set AltBd = Nothing

 

Response.Redirect "AltFrete.asp"

 

%>

[/tr]

 

Falo!!!!!!

 

Webmaster Apolo

www.cartoondesign.kit.net

ao mudar o codigo aparece o seguinte erro

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: '[string: "."]'

/final/www/painel/AltFrete.asp, line 99

 

 

linha 99

 

VarQuilo = Replace(Request.Form("Quilo"), ",", "." -0)

 

???

[Mário Monteiro 179]

poe uma virgula antes de -0

[powerwww 0]

poe uma virgula antes de -0

deu erro na mesma linha Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A0005)Chamada de procedimento ou argumento inválido: 'Replace'/final/www/painel/AltFrete.asp, line 99

[Mário Monteiro 179]

poe uma virgula antes de -0

deu erro na mesma linha Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A0005)Chamada de procedimento ou argumento inválido: 'Replace'/final/www/painel/AltFrete.asp, line 99

então tira este -0 mesmo...faz só assim...VarQuilo = Replace(Request.Form("Quilo"), ",", ".")

[powerwww 0]

poe uma virgula antes de -0

deu erro na mesma linha Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A0005)Chamada de procedimento ou argumento inválido: 'Replace'/final/www/painel/AltFrete.asp, line 99

então tira este -0 mesmo...faz só assim...VarQuilo = Replace(Request.Form("Quilo"), ",", ".")

dai volta pro mesmo codigo que tava dando o erro lá do começo, coloco 0,1 e vai para 1,0

[powerwww 0]

poe uma virgula antes de -0

deu erro na mesma linha Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A0005)Chamada de procedimento ou argumento inválido: 'Replace'/final/www/painel/AltFrete.asp, line 99

então tira este -0 mesmo...faz só assim...VarQuilo = Replace(Request.Form("Quilo"), ",", ".")

dai volta pro mesmo codigo que tava dando o erro lá do começo, coloco 0,1 e vai para 1,0

ae galera, me dê umas dicas

[vicoluis 0]

cara, pode parecer meio besta... mas agora reparei que eu tava com um problema que nem o seu, e consegui resolver...

 

assim:

 

ASP [/tr][tr]VarQuilo = Replace(Request.Form("Quilo"), ".", "")

VarBase = Replace(Request.Form("Base"), ".", "")

[/tr]

 

 

num sei se para você resolve...