Exibição de campo decimal

[PRSolucaoWeb 0]

Gilberto as colunas no sql server estão assim:

 

v_total - decimal(18,2) - marcado como: allow nulls

sub_total - decimal(18,2) - marcado como: allow nulls

desconto - decimal(18,2) - marcado como: allow nulls

total_geral - decimal(18,2) - marcado como: allow nulls

 

Obrigado

[Gilberto Jr 26]

E esse script, apaga o atual e coloca esse e depois você faz o teste preenchendo o formulario e em seguida clicando no submit.

 

<%
if session ("v_o_m_alterar") = 0 then
Response.redirect "erro.asp"
end if
 
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Buffer = FALSE
Session.TimeOut = 1440
Server.ScriptTimeOut = 999.999
 
codigo = request.QueryString("codigo")
no_os = request.QueryString("no_os")
id = request.QueryString("id")
 
Session.LCID = 4105
 
'Função para remover caracteres especiais dos números
Function RemoveReal(valor)
 if (valor <> "") then
  RemoveReal = Replace(valor,".",",")  'Troca vírgula por ponto
 end if
End Function
 
solicitado_por = Request.Form("solicitado_por")
ser_realizado = Request.Form("opt")
acessorios_env = Request.Form("acessorios_env")
equipamento = Request.QueryString("equipamento")
defeito_reclamado_sistema = Request.QueryString("defeito_reclamado_sistema")
defeito_detectado_sistema = Request.QueryString("defeito_detectado_sistema")
tecnico = Request.QueryString("tecnico")
lc_status = Request.Form("lc_status")
quant = Request.QueryString("quant")
situacao_of_om = Request.Form("situacao_of_om")
status_of_om = Request.Form("status_of_om")
tipo_coleta = Request.Form("opt2")
cliente_informado = Request.Form("cliente_informado")
contato = Request.Form("contato")
responsavel = Request.Form("responsavel")
observacoes = Request.Form("observacoes")
urgente = Request.Form("opt3")
gerar_cob = Request.Form("gerar_cob")
status_of_om = Request.Form("status_of_om")
expedicao = Request.Form("expedicao")
data_fabricacao = Request.Form("data_fabricacao")
num_os = Request.Form("num_os")
razao_social = Request.Form("razao_social")
v_total = replace(request.form("v_total"),"R$","")
sub_total = RemoveReal(Request.Form("sub_total"))
desconto = RemoveReal(Request.Form("desconto"))
total_geral = RemoveReal(Request.Form("total_geral"))
 
data_anterior_sistema = Request.Form("data_anterior_sistema")
data_retirada = Request.Form("data_retirada")
 
response.Write(request.form("v_total")&"<br />")
response.Write(Request.Form("sub_total")&"<br />")
response.Write(Request.Form("desconto")&"<br />")
response.Write(Request.Form("total_geral")&"<br />")
 
response.End()
 
 
function mask_data(obj)
obj = CDate(obj)
dia = Day(obj)
mes = Month(obj)
ano = Year(obj)
 
if dia < 10 then
dia = "0" & dia
end if
 
if mes < 10 then
mes = "0" & mes
end if
 
mask_data = ano &"-"& mes &"-"& dia &" "&time
end function
 
'Verificando quantidade de registros
Set os = server.createobject("adodb.recordset")
Set os = db_conn.execute ("SELECT COUNT(*) AS temp FROM TB_GERAR_OF_OM_CAD_ITENS")
 
num_rows = os("temp")
os.Close()
 
 
for i = 1 to num_rows
 
id = Request.form("id_"&i)
quant = Request.form("quant_"&i)
equipamento = Request.form("equipamento_"&i)
data_anterior_sistema = Request.form("data_anterior_sistema_"&i)
tecnico = Request.form("tecnico_"&i)
'v_total = RemoveReal(request.form("v_total_"&i))
v_total = replace(replace(request.form("v_total_"&i),"R$",""),",",".")
lc_status = Request.form("lc_status_"&i)
 
usuario_altera = session("usuario")
ip_altera = Request.ServerVariables("REMOTE_ADDR")
 
'response.write(replace(request.form("v_total_"&i),"R$",""))
'response.end
 
 'Atualiza informaçoes no INTERBASE 'TB_MANUTENCAO_CAD_ITENS'
 db_conn.execute ("update TB_GERAR_OF_OM_CAD_ITENS Set situacao_of_om = '"&situacao_of_om&"', solicitado_por = '"&solicitado_por&"', ser_realizado = '"&ser_realizado&"', acessorios_env = '"&acessorios_env&"', quant = '"&quant&"', equipamento = '"&equipamento&"', data_fabricacao = '"&data_fabricacao&"', tecnico = '"&tecnico&"', v_total = '"&v_total&"', cliente_informado = '"&cliente_informado&"', contato = '"&contato&"', informado_dia = '"&informado_dia&"', responsavel = '"&responsavel&"', observacoes = '"&observacoes&"', lc_status = '"&lc_status&"', fechado_por = '"&fechado_por&"', usuario_altera = '"&usuario_altera&"', ip_altera = '"&ip_altera&"', urgente = '"&urgente&"', gerar_cob = '"&gerar_cob&"', data_anterior_sistema = '"&data_anterior_sistema&"', data_retirada = '"&data_retirada&"', status_of_om = '"&status_of_om&"', num_os = '"&num_os&"', razao_social = '"&razao_social&"' WHERE id=" & cdbl(id))
 
 'Atualiza informaçoes no INTERBASE 'TB_GERAR_OF_OM_CAD'
 db_conn.execute ("update TB_GERAR_OF_OM_CAD Set situacao_of_om = '"&situacao_of_om&"', urgente = '"&urgente&"', fechado_por = '"&fechado_por&"', status_of_om = '"&status_of_om&"', num_os = '"&num_os&"', razao_social = '"&razao_social&"' WHERE no_os = "&Request.QueryString("no_os"))
 
next
set os = nothing
 
set user = server.createobject("adodb.recordset")
set user = db_conn.execute ("SELECT * FROM USER_SISTEMA_HCS order by id DESC")
 
data_acesso = Date()
 
if not(user.eof) then
 novo = user("id") + 1
else
 novo = 1
end if
 
usuario = session("usuario")
ip = Request.ServerVariables("REMOTE_ADDR")
 
db_conn.execute ("insert into USER_SISTEMA_HCS (id, usuario, ip, data_acesso, tela_acessada, codigo, no_os) Values('"&novo&"','"&usuario&"','"&ip&"','"&mask_data(data_acesso)&"','ALTERAR O.M','"&codigo&"','"&no_os&"')")
 
db_conn.Close()
 
 
 
Response.redirect "os_manutencao.asp?codigo="&codigo&"&no_os="&no_os&"&msg=INSERIDO COM SUCESSO!"
%>

 

https://www.facebook.com/webprogramation

 

Att;

[PRSolucaoWeb 0]

Exibiu assim:

 

15,00
0.00
15,00

[Gilberto Jr 26]

Então troca a virgula por ponto com replace.

 

https://www.facebook.com/webprogramation

 

Att;

[PRSolucaoWeb 0]

Mudei aqui:
v_total = replace(replace(request.form("v_total_"&i),"R$",""),".",",")

 

Continua com o erro:

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'

[Microsoft][ODBC SQL Server Driver]

Error converting data type varchar to numeric.

/sistema_os_atendimento_hcs_v.2.0/hcs/ef_altera_os_manutencao.asp, linha 111

 

Obrigado

[Gilberto Jr 26]

Mas você esta alterando o ponto por virgula e tem que ser ao contrario.

 

https://www.facebook.com/webprogramation

 

Att;

[PRSolucaoWeb 0]

Coloquei assim:

 

v_total = replace(replace(request.form("v_total_"&i),"R$",""),",",".")

 

Mas o erro continua.

 

Obrigado

[Gilberto Jr 26]

Eu te mandei uma MP. Quando ter da uma olhada lá.

 

https://www.facebook.com/webprogramation

 

Att;

[PRSolucaoWeb 0]

MP?

 

Obrigado

[Gilberto Jr 26]

MP são mensagens que envia para você.

 

Qualquer coisa entre em contato comigo via email gilberto@tecnogalli.com.br, skype: gilberto_21 ou gilberto@tecnogalli.com.br

 

https://www.facebook.com/webprogramation

 

Att;

[PRSolucaoWeb 0]

Gilberto boa tarde

Eu adicionei o seu skype poderia aceitar?

 

Obrigado