Surgimento » LojaExemplo

LojaExemplo: Como aumentar a quantidade geral de produtos na vitrine

Jeann — Fri, 22 Oct 2010 20:49:48 +0000

Olá,

Achei que já tinha postado isso porem me enviaram e-mail com essa dúvida.

Primeiro abra o arquivo “ADM_altera_config_dados_gerais.asp” e mude só a parte em vermelho para a quantidade que deseja que seja o limite da vitrine:

Num. de produtos na vitrine:

Logo após entre em seu administrativo e clique no link “Dados gerais da loja” e escolha a quantidade que quer. Repare que agora as opçoes que pode escolher são diferentes e vai até o numero que definiu.

Abraço

LojaExemplo: Relatorio de produtos vendidos

Jeann — Tue, 24 Aug 2010 14:07:54 +0000

Olá

Estava olhando em posts antigos no forum.locaweb.com.br e achei uma contribuição interessante do usuario Marcio Soares. O link do post é: http://forum.locaweb.com.br/showthread.php?t=4889&highlight=ADM_lista_produtos_vendidos.asp

Para adicionar em sua loja basta baixar o arquivo clicando aqui e adicionar dentro da pasta painelctrl de sua loja.

Abra o arquivo “painelctrl/ADM_menu.asp” e adicione o trecho em vermelho:

RELATÓRIOS

Usuários compradores

Usuários cadastrados

Buscar Pedidos

Produtos Vendidos

Feito!

Obrigado pela contribuição Marcio.

Até a próxima!

LojaExemplo: Como ocultar categorias sem produtos

Jeann — Mon, 23 Aug 2010 17:45:38 +0000

Olá.

Algo que muitas vezes acontece (e eu considero bem chato) é quando o cliente entra em uma loja com muitas categorias, porém várias delas estão sem nenhum produto cadastrado. Isso pode gerar uma desistência do cliente em navegar em sua loja.

Como lojistas, vemos como sendo mais prático cadastrar todas as categorias para só depois ir colocando os produtos. E é isso que causa o desconforto citado acima.

Para resolver este problema, esse script permitirá cadastrar as categorias à vontade, e só vão aparecer na loja as categorias que já tiverem algum produto cadastrado, evirando assim que o cliente entr em categorias vazias.

Entre no arquivo “funcoes.asp” e procure a “função menu_categorias()”. Adicione o trecho vermelho:

Else

‘Loop dos registros encontrados na tebela categorias

DO UNTIL RS_Categorias.EOF

‘ ######################## trecho retira categoria

Set RS_Produtos_categoria = Server.CreateObject(“ADODB.Recordset”)

Set RS_Produtos_categoria.ActiveConnection = Conexao

RS_Produtos_categoria.CursorLocation = 3

RS_Produtos_categoria.CursorType = 0

RS_Produtos_categoria.LockType = 1

‘Executa a query de consulta

RS_Produtos_categoria.Open “SELECT codigo_categoria FROM Produtos WHERE codigo_categoria = ” & RS_Categorias(“codigo_categoria”) & ” AND disponivel=1 “

if not RS_Produtos_categoria.EOF Then

‘ ######################## fim trecho retira categoria

‘Atribui o calor do codigo_categoria a session(“codigo_categoria”)

session(“codigo_categ”) = RS_Categorias(“codigo_categoria”)

‘Query de consulta a tabela subcategorias

Query_subcategorias = “SELECT codigo_chave, codigo_subcategoria, codigo_categoria, nome_subcategoria, descricao_subcategoria, sigla_idioma FROM Subcategorias WHERE codigo_categoria = ” & session(“codigo_categ”) & ” AND sigla_idioma = ‘”&varLang&”‘ ORDER BY nome_subcategoria”

Um pouco mais abaixo, adicione o trecho em vermelho:

‘Loop dos registros encontrados na tebela categorias

DO UNTIL RS_SubCategorias.EOF

‘ ######################## trecho retira subcategoria

Set RS_Produtos_subcategoria = Server.CreateObject(“ADODB.Recordset”)

Set RS_Produtos_subcategoria.ActiveConnection = Conexao

RS_Produtos_subcategoria.CursorLocation = 3

RS_Produtos_subcategoria.CursorType = 0

RS_Produtos_subcategoria.LockType = 1

‘Executa a query de consulta

RS_Produtos_subcategoria.Open “SELECT codigo_subcategoria FROM Produtos WHERE codigo_subcategoria = ” & RS_SubCategorias(“codigo_subcategoria”) & ” AND disponivel=1 “

if not RS_Produtos_subcategoria.EOF Then

‘ ######################## fim trecho retira subcategoria

If CDbl(RS_SubCategorias(“codigo_subcategoria”)) = CDbl(request(“codigo_subcategoria”)) Then

Response.write “ - ” & RS_SubCategorias(“nome_subcategoria”) & “
”

Else

Response.write “ - ”& fontcolor & RS_SubCategorias(“nome_subcategoria”) & “
”

End if

‘ ######################## trecho retira subcategoria

End if ’ fim do loop da função sumir subcategoria

RS_Produtos_subcategoria.Close

Set RS_Produtos_subcategoria = Nothing

‘ ######################## fim trecho retira subcategoria

RS_SubCategorias.MoveNext

LOOP

%>

<%

End If

%>

/<%=varSkin%>/regua1x1.gif” height=”1″>

<%

‘Fecha e libera da memória o objeto de Recordset de consulta a tabela Subcategorias

RS_SubCategorias.Close

Set RS_SubCategorias = Nothing

‘ ######################## trecho retira categoria

End if ’ fim do loop da função sumir categoria

RS_Produtos_categoria.Close

Set RS_Produtos_categoria = Nothing

‘ ######################## fim trecho retira categoria

RS_Categorias.MoveNext

Feito.

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

Até a próxima!

Abraço.

LojaExemplo: Como mostrar os ultimos posts de seu blog em sua loja

Jeann — Fri, 20 Aug 2010 14:11:24 +0000

Olá,

Esse post foi baseado nos códigos do Alexandre de Luccia deste post.

O formato que vou disponibilizar seria diferente da forma como esta o código original. Ficará assim:

10/02/2010 - Como criar uma pagina só com produtos em promoção

11/02/2010 – Como criar uma pagina só com produtos em promoção 2

12/02/2010 – Como criar uma pagina só com produtos em promoção 3

13/02/2010 – Como criar uma pagina só com produtos em promoção 4

Data – titulo do post

Bom vamos lá!!

Baixe o arquivo feed.asp

Logo no começo do arquivo “feed.asp” adicione o endereço de feed de seu blog na parte em vermelho:

<%

‘ Script ASP Para leitura de arquivos de RSS.

url = “http://www.surgimento.com.br/feed/” ‘Aqui vai o endereço do arquivo RSS, ou do arquivo “gerador”

‘ Criando Objeto XML

Set objXML = Server.CreateObject(“msxml2.DOMDocument.3.0″)

objXML.async = false

No trecho abaixo pode mudar a quantidade de links que deseja que apareça:

‘Definindo quantidade de notícias que será exibida

if contador < 5 then

contador = contador + 1

Pode adicionar os links onde desejar em sua loja, é só adicionar o trecho todo abaixo (o marcado em vermelho é o caminho onde colocou o feed.asp no meu caso deixei na raiz):

feed.asp” –>

Agora é só formar a aparencia do código baseado no layout que tem.

Abraço e até a próxima.

LojaExemplo: Como fazer importacao dos dados entre lojas de versão 6.5

Jeann — Thu, 19 Aug 2010 13:40:29 +0000

Olá,

Estarei mostrando como fazer importação dos dados de uma Loja Exemplo versão 6.5 para outra da mesma versão.

AVISO: isso não irá funcionar em lojas de versão diferente ou em lojas que sejam 6.5 mas que tenham alguma modificão nas tabelas. As mesmas devem ter exatamente a mesma estrutura. Aqui mostro apenas como importar dados de lojas de mesma base. A migração de dados é outra história por trazer dados de uma base um pouco diferente do que já existe. Ou seja, o profissional precisa repassar todas as tabelas campo por campo e igualar toda a estrutura das bases de dados para só assim trazer os dados. É um serviço trabalhoso e cobrado pelos programadores.

Bom vamos lá!

Entre no painel de controle de sua hospedagem, e abaixo do texto “Hospedagem de sites” clique em “Gerenciar Hospedagem”:

Logo após, clique no ícone do Myqsl:

Agora serão carregadas todas as bases de dados que possui na hospedagem. Para aparecer a configuração delas, clique na seta preta correspondente à base de dados que deseja administrar.

Clique no botão “Administrar” :

Abrirá uma janela pedindo o login (que pode ser visto na tela anterior, antes de clicar em “Administrar”) e a senha do banco de dados. Normalmente quando a base de dados é criada a senha é a mesma da hospedagem.

Com as bases abertas clique na tabela que deseja importar os dados:

Logo após clique em “exportar” :

Deixe tudo da forma como está abaixo, desmarcando tudo que esta marcardo no bloco de estrutura e marcando “Inserções completas”:

Selecione abaixo a opção “Enviado” e clique em executar :

Agora salve o arquivo e abra o banco de dados que quer adicionar os produtos exportados. No outro banco de dados, clique na mesma tabela que vai importar, carregue o arquivo SQL que exportou a pouco, e mantenha os dados como na imagem abaixo e clique em “executar”.

Fazendo isso lembre-se de copiar toda a pasta “config/imagens_conteudo” pelo FTP da nova loja.

O processo explicado acima é apenas uma possibilidade de como fazer. Existem muitas formas de fazer essa importação. Caso não queira perder tempo fazendo isso tabela por tabela, pode exportar tudo de uma vez clicando na base de dados, ao invés de uma ou outra tabela. Seguindo os mesmos passos você irá exportar e importar todas as tabelas em apenas um passo.

Abraço, e até a próxima.

LojaExemplo: Retirar calculo de frete do PagSeguro mantendo o calculado pela loja

Jeann — Wed, 18 Aug 2010 21:18:50 +0000

Olá

Respondendo ao post:

http://forum.locaweb.com.br/showthread.php?t=2242

Atualmente, quando se instala o módulo de PagSeguro Uol na Loja Exemplo, se não configurar a opção certa no PagSeguro o mesmo faz o cálculo do frete e ignora o calculado na loja. Para evitar isso entre em sua conta do PagSeguro e clique em “Preferencias”, e depois em “frete”:

Agora é necessário escolher a 3º opção “Frete adicional com valor fixo” com o campo “Valor fixo para os itens adicionais”, marcado com R$ 0,00 como mostrado na imagem abaixo:

Com isso o PagSeguro não irá calcular o frete, e irá permanecer o valor calculado na loja.

Espero ter ajudado.

Até mais!

LojaExemplo: Criando uma pagina so com produtos em promocao

Jeann — Fri, 13 Aug 2010 15:53:51 +0000

Olá,

Caso queira adicionar um banner na sua loja que quando clicado carregue todos os produtos que estão marcados como “promoção” no administrativo siga esse post. Além do banner, poderá também deixar em cima das categorias de sua loja como se fosse uma delas. Com isso você pode mostrar o mesmo produto tanto na categoria que foi cadastrado quanto no link de promoções.

Para deixar um link logo acima das categorias como na imagem acima, abra o arquivo “funcoes/funcoes.asp” e adicione os trechos em vermelho:

RS_Categorias.Open Query_categorias

If RS_Categorias.EOF then

%>

<%= Application(“MenuTxtCatVazio”)%>

<%

Else

%>

/<%=varSkin%>/seta.gif” width=”6″ height=”7″ border=”0″> PROMOÇÕES

/<%=varSkin %>/regua1x1.gif” height=”1″>

<%

‘Loop dos registros encontrados na tebela categorias

DO UNTIL RS_Categorias.EOF

‘Atribui o calor do codigo_categoria a session(“codigo_categoria”)

session(“codigo_categ”) = RS_Categorias(“codigo_categoria”)

‘Query de consulta a tabela subcategorias

Query_subcategorias = “SELECT codigo_chave, codigo_subcategoria, codigo_categoria, nome_subcategoria, descricao_subcategoria, sigla_idioma FROM Subcategorias WHERE codigo_categoria = ” & session(“codigo_categ”) & ” AND sigla_idioma = ‘”&varLang&”‘ ORDER BY nome_subcategoria”

Agora, mais abaixo, na função “exibe_produtos()” adicione o trecho em vermelho. Isso fará com que carregue os produtos em promoções sempre que abrir esse link produtos.asp?tipo_busca=ofertas :

ElseIf request(“tipo_busca”) = “ofertas” Then

Query_produtos = “SELECT Produtos.codigo_produto, Produtos.codigo_categoria, Produtos.codigo_subcategoria, Produtos.codigo_marca, Produtos.codigo_produto_loja, Produtos.nome_produto, Produtos.descricao_produto, Produtos.autor, Produtos.codigo_isbn, Produtos.tamanhos, Produtos.cores, Produtos.preco_base, Produtos.preco_unitario, Produtos.desconto, Produtos.moeda, Produtos.quantidade_produto, Produtos.img_produtoPQN, Produtos.img_produtoGRD, Produtos.img_produto_adic01PQN, Produtos.img_produto_adic01GRD, Produtos.img_produto_adic02PQN, Produtos.img_produto_adic02GRD, Produtos.img_produto_adic03PQN, Produtos.img_produto_adic03GRD, Produtos.peso, Produtos.destaque_vitrine, Produtos.promocao, Produtos.data_inicio, Produtos.data_fim, Produtos.disponivel, Produtos.sigla_idioma , Produtos.sem_preco FROM Categorias INNER JOIN Produtos ON Categorias.codigo_categoria = Produtos.codigo_categoria WHERE Produtos.sigla_idioma = ‘”&varLang&”‘ AND Categorias.sigla_idioma = ‘”&varLang&”‘ AND Produtos.disponivel = 1 AND Produtos.promocao = 1 ” & queryORDERBY

‘ Habilita a possibilidade de ordem dos produtos

exibeOrdemProd = True

Pronto! Agora poderá colocar o link “produtos.asp?tipo_busca=ofertas” em algum banner ou como link.

Abraço e até a próxima.

LojaExemplo: Como resolver o problema ao atualizar o frete personalizado

Jeann — Thu, 12 Aug 2010 15:00:37 +0000

Olá,

Atualmente alguns lojistas não vem obtendo sucesso ao atualizar o frete personalizado da Loja Exemplo. Em alguns casos dá o erro abaixo:

Microsoft Cursor Engine error ’80040e38′

Row cannot be located for updating. Some values may have been changed since it was last read.

/loja/painelctrl/ADM_altera_valores_frete.asp, line 52

Para resolver o problema, entre no arquivo “painelctrl/ADM_altera_valores_frete.asp” e adicione os trechos em vermelho:

RS_Produto.Open “SELECT codigo_frete, UF, Localidade, indicador, km, p0, p1, p2, p3, p4, p5, p6, p7, p8, p9, p10, p11, p12, p13, p14, p15, p16, p17, p18, p19, p20, p21, p22, p23, p24, p25, p26, p27, p28, p29, p30, advalorem from Tabela_frete_personalizado WHERE codigo_frete =”&I&””, Conexao

If request(“valorPadrao”) <> “” And Request(“ativaValorPadrao”) = “sim” Then

‘Caso o usuário defina um valor de frete único para todas as regiões

valor_basePadrao = replace(request(“valorPadrao”),”.”,””)

valor_basePadrao = replace(valor_basePadrao,”,”,”.”)

Conexao.execute “UPDATE Tabela_frete_personalizado SET P”&o&”=’”&Trim( valor_basePadrao)&”‘ WHERE codigo_frete =’”&I&”‘ “

‘RS_Produto(“P”&o) = valor_basePadrao RETIRE ESSA LINHA OU COMENTE ELA

Else

‘Caso o usuário defina um valor de frete diferente para cada região.

valor_base = replace(valor_fr(I),”.”,””)

valor_base = replace(valor_base,”,”,”.”)

Conexao.execute “UPDATE Tabela_frete_personalizado SET P”&o&”=’”&valor_base&”‘ WHERE codigo_frete =’”&I&”‘ “

‘RS_Produto(“P”&o) = Trim(valor_base) RETIRE ESSA LINHA OU COMENTE ELA

End if

‘RS_Produto.Update RETIRE ESSA LINHA OU COMENTE ELA

Isso deverá resolver.

Até a próxima!

Abraço

LojaExemplo: Como mostrar prazo de entrega para seu cliente

Jeann — Wed, 11 Aug 2010 15:05:10 +0000

Olá,

Essa modificação é para mostrar o prazo de entrega do PAC, Sedex e E-sedex consultando direto nos Correios. Estou me baseando no arquivo cep_frete.asp disponibilizado pelo Phil.

O restante das formas de entrega, caso estejam habilitadas, você pode digitar no administrativo que irá aparecer na hora do cliente calcular, assim como é mostrado o Sedex e Pac na imagem acima.

Abra o arquivo “cep_frete.asp” de sua loja (lembrando que precisa estar com as atualizações do Phil) e adicione os trechos em vermelho:

msgErro = oNode.selectSingleNode(“MsgErro”).Text

nodeValorAR = oNode.selectSingleNode(“ValorAvisoRecebimento”).Text

prazo = oNode.selectSingleNode(“PrazoEntrega”).Text

‘O valor do aviso de recebimento já está incluso.. O valor da caixa é adicionado(2.0)

Valor = CDbl(nodeValor) + 1.1

if cod = “40010″ then

if (nodeValor = 0) then

valorSedex = “vazio”

if msgErro <> “” then

session(“statustemp_Sedex”) = msgErro

else

session(“statustemp_Sedex”) = “erro”

end if

else

valorSedex = CDBl(Valor) + CDBl(ADDSedex)

end if

session(“prazo_sedex”) = prazo

elseif cod = “41106″ then

if (nodeValor = 0) then

valorPac = “vazio”

if msgErro <> “” then

session(“statustemp_Pac”) = msgErro

else

session(“statustemp_Pac”) = “erro”

end if

else

valorPac = CDBl(Valor) + CDBl(ADDPAC)

end if

session(“prazo_pac”) = prazo

elseif cod = “81019″ then

if (nodeValor = 0) then

valorESedex = “vazio”

if msgErro <> “” then

session(“statustemp_ESedex”) = msgErro

else

session(“statustemp_ESedex”) = “erro”

end if

else

valorESedex = CDBl(Valor) + CDBl(ADDESedex)

end if

session(“prazo_Esedex”) = prazo

end if

next

Else

valorSedex = “0″

valorPac = “0″

valorESedex = “0″

session(“statustemp_Sedex”) = “erro”

session(“statustemp_Pac”) = “erro”

session(“statustemp_ESedex”) = “erro”

End If

set objXmlHttp = nothing

set objXmlDom = Nothing

Mais abaixo adicione os trechos em vermelho:

Function Frete_Correios(FctCEP,FctPeso)

(..)

‘Monta string de valores para post

informacoes = informacoes & OpcaoFrete(“SEDEX”,Frete_sedex, Frete_sedex_erro,session(“prazo_sedex”))

End Function

‘############### ESEDEX ###############

Function Frete_CorreiosEsedex(FctCEP,FctPeso)

(..)

‘Monta string de valores para post

informacoes = informacoes & OpcaoFrete(“E-SEDEX”,Frete_Esedex, Frete_Esedex_erro,session(“prazo_Esedex”))

End Function

‘############### PAC ###############

Function Frete_CorreiosPAC(FctCEP,FctPeso)

(..)

informacoes = informacoes & OpcaoFrete(“PAC”,Frete_PAC, Frete_PAC_erro,session(“prazo_pac”))

End Function

‘############### DIRECT EXPRESS ####################

Function Frete_DirecExpress(FctCEP,FctPeso)

(..)

informacoes = informacoes & OpcaoFrete(“DIRECT EXPRESS”, Frete_DirecExpressVlr,Frete_DirecExpress_erro, pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaDirectExpress”))

Set HttpObjSend = Nothing

Else

Response.write “Error: (” & HttpObjSend.Status & “) ” & HttpObjSend.statusText

End If

End Function

‘############### FEDEX INTERNACIONAL ###############

Function Frete_FEDEX(FctPAIS,FctZIP,FctPESO)

(..)

informacoes = informacoes & OpcaoFrete(“FEDEX”,Frete_fedex,Frete_fedex_erro, pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaFedex”))

End Function

‘############### FRETE RETIRAR NA LOJA ###############

Function Frete_RetirarLoja()

VarFrete_retirarloja = “0″

VarFrete_retirarloja_erro = “ok”

informacoes = informacoes & OpcaoFrete(“RETIRAR NA LOJA”,FormatNumber(VarFrete_retirarloja), VarFrete_retirarloja_erro,pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaRetirarNaLoja”))

End Function

‘############### FRETE TRANSPORTADORA A COBRAR ###############

Function Frete_Transportadora()

VarFrete_transportadora = “0″

VarFrete_transportadora_erro = “ok”

informacoes = informacoes & OpcaoFrete(“TRANSPORTADORA A COBRAR”,FormatNumber(VarFrete_transportadora),VarFrete_transportadora_erro, pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaTransportadora”))

End Function

‘############### FRETE PERSONALIZADO ###############

Function Frete_Personalizado(Cidade,UF,FctPeso)

(..)

informacoes = informacoes & OpcaoFrete(UCase(pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”NomeFretePersonalizado”)), Frete_Person,Frete_Person_erro,pegaValorAtrib(Application(“XMLArquivoConfiguracao”), “dados/configuracao_dados”,”PrazoEntregaFretePersonalizado”))

End Function

‘############### FIM – OPÇÕES DE FRETE ###############

‘Funcao para montar as opções de frete

Function OpcaoFrete(tipo,valor,erro,prazo)

OpcaoFrete = tipo & “:” & valor & “:” & erro & “:” & prazo& “#”

End Function

Agora, no arquivo “funcoes/funcoes_js.js” adicione o trecho e vermelho:

// Insere o option na tabela

var x=document.getElementById(CEP).insertRow(1)

var y=x.insertCell(0)

x.height=”10″

x.bgColor=color

y.innerHTML=”” + array_frete[0] + ” ( ” + vlrFRETE_VIS + ” ) Prazo de entrega de ” +array_frete[3]+” dias ”

count+=1;

}

Pronto, até a proxima.

Abraço.

LojaExemplo: Veja o estoque do produto ao fazer a pesquisa

Jeann — Tue, 10 Aug 2010 16:21:16 +0000

Olá,

Vou mostrar uma melhoria simples que pode ajudar bastante na identificação do produto a ser atualizado o estoque.

Abra o arquivo painelctrl/ADM_lista_produto.asp e adicione o trecho em vermelho :

CATEGORIA

ESTOQUE

<%

If request(“pesquisar”) <> “” Then

Set RS_Produto = Server.CreateObject(“ADODB.Recordset”)

RS_Produto.CursorLocation = 3

RS_Produto.CursorType = 0

RS_Produto.LockType = 3

query = ”SELECT Produtos.codigo_produto, Produtos.nome_produto, Produtos.quantidade_produto, Categorias.codigo_categoria, Categorias.nome_categoria FROM Produtos INNER JOIN Categorias ON Produtos.codigo_categoria = Categorias.codigo_categoria WHERE Produtos.sigla_idioma = ‘” & varLang & “‘ AND Categorias.sigla_idioma = ‘” & varLang & “‘”

If request(“codigo_categoria”) <> “” Then

Mais abaixo, no mesmo arquivo, adicione os trechos em vermelho:

<%=RS_Produto(“nome_categoria”)%>

<%=RS_Produto(“quantidade_produto”)%>

<%

norep = RS_Produto(“codigo_produto”)

End if

RS_Produto.MoveNext

Wend

End If

RS_Produto.Close

Set RS_Produto = nothing

Else

%>

4” align=”center”>O resultado da busca será exibido aqui.

Espero ter ajudado.

Abraço.