[Resolvido] Alterar preços

[l_nando 0]

Pessoal, bom dia!

 

Estou com uma pequena dificuldade.

Quero em certo momento alterar os preços de toda minha tabela que contém mais ou menos uns 250 ítens.Assim, os produtos tem seus valores respectivos e quando for necessário, quero acrescentar 15% ou dar um desconto de 20% mas em todos os produtos de uma só vez.

 

Tem como?

 

Valeu!

 

Abraço.

[Vinicius Ianni 189]

em asp seria algo tipo:

rs("preco") = preco

preco = cdbl(preco) * 0,20

[l_nando 0]

Mas a alteração teria que ser feita por um update na tabela, correto?

 

E outra coisa, a porcentagem de desconto ou acréscimo vai ser digitada de um form antes.

 

Vlw!

[Patrique 0]

Para isso crie uma function

 

Function ajustevalor(porcentagem,valor,tipo)
   por = porcentagem
   val = valor
   tip = tipo
   if tipo = "desconto" Then
      'aqui vai o calculo do desconto
   ElseIf tipo = "juros" Then
      'aqui vai o calculo dos juros
   Else
      'entra aqui caso não queira aplicar nem desconto nem juros
   End If
Enf Function

Com isso basta chamar a function assim

 

Response.Write(ajustevalor(15,35,"desconto"))

Neste exemplo acima... 15 representa a porcentagem 35 representa o calor e desconto representa se será dado um desconto sobre o valor do produto ou se dará um juros ou deixara o mesmo valor.

 

ou seja.... basta chamar a function em todos os valores e especificar pela function qual o valor do produto e decidir se deixara a mesma coisa ou aplicara juros ou desconto.

[l_nando 0]

Cara, pensei que poderia ser mais simples, sem funções e tal.

 

Por exemplo, tenho um form com um único textbox e a partir daí eu digito o valor do desconto (0,15) por exemplo, quando eu clicar em atualizar esse desconto seria aplicado em todos os valores da tabela por forma de update.

 

Este cálculo eu sei fazer mas sem alterar em bd.

 

vlw.

[augustoclaro 2]

Olá. Para fazer do jeito que vce quer:

 

<%
valor = request.form("valor")
set conn = server.createobject("ADODB.Connection")
conn.open "string de conexão"
set rs = server.createobject("ADODB.Recordset")
sql = "select * from produtos"
rs.open sql,conn,3,3
if not rs.eof then
	do until rs.eof
		preco = rs("preco")
		preco = cdbl(preco) + cdbl(preco)*cdbl(valor)
		rs("preco") = preco
		rs.movenext
	loop
	rs.update
end if
rs.close
conn.close
%>

 

Espero que te ajude.

[Patrique 0]

Se quiser fazer... as vezes... desconto... outras juros e outras deixar o valor real, terá que fazer daquela maneira, a function é bem mais prática, podendo depois ser utilizada em outras seções.

 

A questão é essa, se não precisasse dar descontos ou juros bastaria utilizar desta forma com que o augusto postou, mas como tem que as vezes fazer calculo de porcentagem ou juros dependendo da info, é aconselhável o uso de uma function pre programada que faça isso.

[augustoclaro 2]

também acho que uma função seria bem mais prático.

 

mas como ele não quer usar funções, pode usar do jeito que eu postei.

 

e você pode dar descontos do jeito que eu fiz também atribuindo valores negativos:

 

para juros de 15% coloque 0,15, e para descontos de 15%, coloque -0,15

 

Mas ainda axo que vce deve fazer como o Patrique sugeriu.

[Mário Monteiro 179]

Se é de 15 % para tudo basta um update mesmo

 

UPDATE TABELA SET CAMPO = 0.85 * CAMPO

 

Agora isso não terá volta

[l_nando 0]

Pessoal, desculpa a demora para responder, é que tive que resolver umas coisas.

 

Mas vamos lá:

 

Tentei fazer do jeito que o augustoclaro mostrou e do jeito que o mario mostrou tbm, já que não manjo de funções, mas está dando o seguinte erro:

 

An error occurred on the server when processing the URL. Please contact the system administrator.

If you are the system administrator please click here to find out more about this error.

 

 

o que pode ser?

 

só aparece nesta aplicação, nas outras do mesmo sistema estão rodando normalmente.

 

vlw!

[augustoclaro 2]

cara.

 

Vá no seu IIS

 

Dê dois cliques em asp

 

Aumente o menu "Propriedades de depuração"

 

e Coloque "Enviar erros ao navegador" como True

 

Clique em Aplicar.

 

Depois atualize a página e poste aqui o que aparecer.

[l_nando 0]

É esse o erro:

 

Microsoft JET Database Engine erro '80040e14'

 

Erro de sintaxe na instrução UPDATE.

 

/produtos/V000002.asp, linha 16

 

 

cód:

 

sql = "update PROD set"
sql = sql & " VALOR = " & preco & "* VALOR "

essa é a linha:

bco.execute(sql)

 

Valeu!

[augustoclaro 2]

antes da linhda do erro coloque:

 

response.write sql
response.end

e posta o resultado.

[l_nando 0]

Segue:

 

update PROD set VALOR = 0,15* VALOR

[augustoclaro 2]

tenta colocar a sqll exatamente como o Mário Monteiro te passou, sem puchar nada. se dér certo, aí sim vce substitui o valor pelo request.form

[l_nando 0]

Desculpa minha ignorancia, mas não é desta forma que passei?

 

pois não entendi.

[augustoclaro 2]

sim, mas tenta sem puxar, sem o " & preco & ", tenta com o valor normal, e vê se o code funciona

[l_nando 0]

Sem o " & preco & ", funcionou.

 

Como faço para funcionar agora?

 

 

Valeu!

[augustoclaro 2]

posta o code do jeito q vce usou

[Patrique 0]

sql = "update PROD set"
sql = sql & " VALOR = '" & preco & "'* VALOR "

Tenta colocar aspas simples como o modelo acima.

 

[]'s