Imagem Assine nossa RSS
Novidades por email
30
dezembro
2009




Olá,

Bom pessoal, de uma hora para outra alguns lojistas começaram a reclamar que estava dando erro para atualizar informações de seus produtos. Intrigado pesquisei e percebi que dava problema sempre por causa de alterações no peso e preço.

No forum da locaweb depois de resolver encontrei o seguinte tópico http://forum.locaweb.com.br/showthread.php?t=6402 mas deixo abaixo minha solução:

Abra o arquivo painelctrl/ADM_insereAltProduto.asp:

OBS: NÃO COPIE E COLE OS CÓDIGOS DO POST O MESMO É SÓ PARA REFERENCIA.  UM DOS PROBLEMAS QUE VAI DAR SE TENTAR COPIAR O CÓDIGO DO POST É COM RELAÇÃO AS ASPAS, QUE NO POST ESTÃO ASSIM ” POR PADRÃO. PARA EVITAR ERROS DIGITE AS ASPAS DUPLA SE PRETENDE  COPIAR E COLAR .

Retire a  linha em vermelho(este trecho esta entre alinha 510 a 546 aproximadamente):

If preco_unitario <> “” Then
RS_Produto(“preco_base”) = preco_unitario
RS_Produto(“preco_unitario”) = preco_unitario
End if

RS_Produto(“quantidade_produto”) = quantidade_produto

RS_Produto(“peso”) = peso_produto

RS_Produto(“destaque_vitrine”) = destaque_vitrine

RS_Produto(“promocao”) = promocao
RS_Produto(“desconto”) = desconto

RS_Produto(“data_inicio”) = dataInicio
RS_Produto(“data_fim”) = dataFim

E adicione a linha vermelha da seguinte forma:

If preco_unitario <> “” AND myFileUpload.Form(“acao_admin”) = “novo registro”  Then
RS_Produto(“preco_base”) = preco_unitario
RS_Produto(“preco_unitario”) = preco_unitario
End if

RS_Produto(“quantidade_produto”) = quantidade_produto

RS_Produto(“destaque_vitrine”) = destaque_vitrine

RS_Produto(“promocao”) = promocao
RS_Produto(“desconto”) = desconto

RS_Produto(“data_inicio”) = dataInicio
RS_Produto(“data_fim”) = dataFim

Agora na parte abaixo adicione a linha vermelha (este trecho fica entre a linha 455 a 475 aproximadamente):

End If

‘Se a se acao_admin for novo registro
ElseIf myFileUpload.Form(“acao_admin”) = “novo registro” Then
RS_Produto.Open “SELECT Produtos.* FROM Produtos”, Conexao
‘Metodo que define a ação de novo registro
RS_Produto.AddNew
‘Registra o novo codigo_produto
RS_Produto(“codigo_produto”) = codigo_produto
RS_Produto(“peso”) = peso_produto
End if

Agora logo depois do código “RS_Produto.Update” adicione (entre as linhas 568 a 580 aproximadamente) adicione:

If myFileUpload.Form(“acao_admin”) = “alterar registro” Then
Conexao.execute “UPDATE Produtos SET peso = ‘”& peso_produto &”‘, preco_base= ‘”&preco_unitario&”‘, preco_unitario=’”&preco_unitario&”‘ WHERE codigo_chave = ” & Replace(VetorCodigoChave,”,”,”") & ” AND sigla_idioma = ‘”& Trim(VetorIdioma) &”‘”
End If

Espero ter ajudado.

Abraço.

Posts Relacionados:




Todo o conteúdo deste site é protegido pelos direitos autorais de Copyright © Surgimento 2005 - 2009
Posts (RSS) e Comentários (RSS).