Ir para conteúdo

POWERED BY:

Arquivado

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

PRSolucaoWeb

Exibição de campo decimal

Por , em ASP Clássico

Recommended Posts

Gilberto Jr    26

Gilberto Jr
Postado

Então da um response.write no seu input que vai o valor pra ver o que esta sendo passado.

 

https://www.facebook.com/webprogramation

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

No seu formulario digita algo no no input 

<input name="v_total_<%=i%>" type="text" class="select51" id="v_total_<%=i%>" onKeyUp="javascript:total1(quant_<%=i%>,v_total_<%=i%>)" value="<%=response.Write(formatcurrency(cdbl("100,00")))%>" size="7" alt="decimal"/>

 

e faz o response.write na pagina que recebe os dados.

response.write(request.form("v_total_"))

 

pra ve o que esta sendo passado.

 

Eu nao estou entendo porque o name esta v_total_<%=i%>

 

https://www.facebook.com/webprogramation

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Assim nesta aplicação exemplo, tenho um pedido, e neste pedido eu tenho um botão que vai clicando e gerando mais registros dentro deste pedido.

Então _<%=i%> utilizo para a gravação do id_<%=i%> de cada registro deste pedido.

 

Entendeu?

 

Obrigado



Coloquei essa função response.write(request.form("v_total_"&i)) response.end() na pagina aonde eu faço a gravação e ai apareceu isso:

 

R$ 100,00

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Continua o mesmo erro.

 

[Microsoft][ODBC SQL Server Driver]

Error converting data type varchar to numeric.

 

:cry:

 

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Da um response.write com o replace pra ver.

 

response.write(replace(request.form("v_total_"&i),"R$",""))
response.end

 

Veja se o valor esta ficando 100,00

 

https://www.facebook.com/webprogramation

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

era já pra ter solucionado trocando a vírgula e ponto, como não teve sucesso , veja a configuração da propriedade scale, verifique se está definida em 0, altere pra 2 e agora grava o decimal com 2 casas após a vírgula.

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Bom dia

Está assim scale 2.

No campo que eu faço a gravação o campo está definido como decimal (18,2).

 

Obrigado

 

 

Gilberto bom dia

 

 

Coloquei o response antes do update, conforme você explicou.

Quando mando gravar me retorna assim na tela: 100,00

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Gilberto bom dia

 

Ainda continuo com o mesmo erro.

Não sei mais o que fazer.

Poderia me dar uma luz para resolver este problema?

Por favor

 

Obrigado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

quando vc faz direto no bd, como ele fica ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

só para desencargo de consciência muda a virgula por ponto.

 

 

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

 

https://www.facebook.com/webprogramation

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

PRSolucaoWeb    0

PRSolucaoWeb
Postado

Gilberto olha segue a minha pagina que faz o update:

 

Os campos são:

 

v_total

sub_total

total_geral
desconto

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file ="../Connections/oConn.asp" -->

<%
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")

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!"
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Posta somente o SQL do update

 

https://www.facebook.com/webprogramation

 

Att;;



altera o script por esse 

<%
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(v_total)
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!"
%>

 

e veja o que vai aparecer no 

response.write(v_total)

que eu colquei no script

 

https://www.facebook.com/webprogramation

 

Att;

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gilberto Jr    26

Gilberto Jr
Postado

Então o erro esta ai. A coluna não deve aceitar valor null. E o valor que esta indo no v_total esta em branco.

 

Se esta em branco e a coluna não aceita valor null não vai funcionar mesmo.

 

https://www.facebook.com/webprogramation

 

Att;

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