<% '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# ' Loja Exemplo Locaweb ' Versão: 6.4 ' Data: 02/05/07 ' Arquivo: ADM_envia_remessaDirect.asp ' Versão do arquivo: 0.0 ' Data da ultima atualização: 02/05/07 ' '----------------------------------------------------------------------------- ' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt '-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-# %> <% 'Carrega a configuração dos caminhos a serem usuados na Loja Call identifica_caminhos() varLang = Application("varLang") varSkin = "default" 'Verifica quais os idiomas configurados na loja checkIdiomaTemp = Split(Application("idiomasconfigurados"),",") 'Assume a string dos idiomas configurados checkIdioma = Application("idiomasconfigurados") ' Desloga o usuário da administração If Request("logoff") = "yes" Then session.abandon response.redirect "default.asp" End If Server.execute("../config/templates/"&varLang&"/textos_lang.asp") %> <% ' Esta página só pode ser acessada se o visitante já se autenticou checa_senha() 'Verifica se o perfil de usuário permite acesso a esta página Call checa_perfil_admin(""&ADMPed&","&ADMRelat&"") response.Clear() response.Charset = "" response.ContentType = "application/vnd.ms-excel" Call abre_conexao(conexao) Set RS_RemessaDirect = Server.CreateObject("ADODB.Recordset") RS_RemessaDirect.CursorLocation = 3 RS_RemessaDirect.CursorType = 0 RS_RemessaDirect.LockType = 3 'Monta query conforme parametros postados. Query_RemessaDirect = "SELECT * FROM Pedidos WHERE tipo_frete = 'DIRECT EXPRESS' and num_remessa = ''" 'Executa query de consulta. RS_RemessaDirect.Open Query_RemessaDirect, Conexao If Not RS_RemessaDirect.Eof Then %> <% While Not RS_RemessaDirect.EOF Call PreparaDado(RS_RemessaDirect("cep_cobranca"),"CEP",cep_b1,cep_b2,vazio,vazio,vazio) Set RS_Quantidade = Server.CreateObject("ADODB.Recordset") RS_Quantidade.CursorLocation = 3 RS_Quantidade.CursorType = 0 RS_Quantidade.LockType = 3 Query_Quantidade = "SELECT SUM(quantidade) AS quantidadeItens FROM Pedido_Item WHERE codigo_pedido = "&RS_RemessaDirect("codigo_pedido")&"" RS_Quantidade.Open Query_Quantidade, Conexao 'Deffine o tipoPessoa - Juridica ou Fisica. If RS_RemessaDirect("cnpj_entrega") <> "" Then tipoPessoa = "J" cpfcnpj = RS_RemessaDirect("cnpj_entrega") Else tipoPessoa = "F" cpfcnpj = RS_RemessaDirect("cpf_entrega") End if %> <% Conexao.execute = "UPDATE Pedidos SET num_remessa = 'Aguardando número de remessa'" Set RS_Quantidade = Nothing RS_RemessaDirect.MoveNext Wend %>

Cd. do Remetente

Cd. Produto (DIRECT)

Nº NOTA FISCAL

AR

QTDE. VOLUMES

VALOR NOTA FISCAL

NOME

ENDEREÇO

COMPLEMENTO

BAIRRO

CIDADE

UF

PAÍS

CEP

EMAIL

DDD

TELEFONE

NÚMERO DO PEDIDO

PESO

TIPO DE PESSOA

CGC / CPF

Qtd. Vol Retornar

Tipo de Endereco

Data Entrega

COD

QTDE PARCELAS

VENCTO 1ª PARCELA

VALOR

FORMA DE PAGTO

VENCTO 2ª PARCELA

VALOR

FORMA DE PAGTO

VENCTO 3ª PARCELA

VALOR

FORMA DE PAGTO

VENCTO 4ª PARCELA

VALOR

FORMA DE PAGTO

VENCTO 5ª PARCELA

VALOR

FORMA DE PAGTO

VENCTO 6ª PARCELA

VALOR

FORMA DE PAGTO

OBS1

OBS2

OBS3

<%=Application("ContaDirectExpress")%>

1

N

<%=RS_Quantidade("quantidadeItens")%>

<%=RS_RemessaDirect("subtotal")%>

<%=RS_RemessaDirect("nome_entrega")%>

<%=RS_RemessaDirect("logradouro_entrega")%>, <%=RS_RemessaDirect("numero_entrega")%>

<%=RS_RemessaDirect("complemento_entrega")%>

<%=RS_RemessaDirect("bairro_entrega")%>

<%=RS_RemessaDirect("cidade_entrega")%>

<%=RS_RemessaDirect("estado_entrega")%>

<%=RS_RemessaDirect("pais_entrega")%>

<%=cep_b1%>-<%=cep_b2%>

<%=RS_RemessaDirect("email_entrega")%>

<%=RS_RemessaDirect("ddd_entrega")%>

<%=RS_RemessaDirect("telefone_entrega")%>

<%=RS_RemessaDirect("codigo_pedido")%>

<%=RS_RemessaDirect("peso_total")%>

<%=tipoPessoa%>

<%=cpfcnpj%>

C

N

<%=RS_RemessaDirect("instrucoes")%>

<% Else Response.write "Sem registro para remessa." End if 'Fecha a conexão com o banco e libera da memória. Conexao.Close Set Conexao = Nothing %>