<%=request("mensagem")%>

<% Function GetDaysInMonth(iMonth, iYear) Dim dTemp dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)) GetDaysInMonth = Day(dTemp) End Function Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth) Dim dTemp dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) GetWeekdayMonthStartsOn = WeekDay(dTemp) End Function Function SubtractOneMonth(dDate) SubtractOneMonth = DateAdd("m", -1, dDate) End Function Function AddOneMonth(dDate) AddOneMonth = DateAdd("m", 1, dDate) End Function Dim dDate ' Date we're displaying calendar for Dim iDIM ' Days In Month Dim iDOW ' Day Of Week that month starts on Dim iCurrent ' Variable we use to hold current day of month as we write table Dim iPosition ' Variable we use to hold current position in table If IsDate(Request.QueryString("dia")) Then dDate = CDate(Request.QueryString("dia")) Else If IsDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Then dDate = CDate(Request.QueryString("month") & "-" & Request.QueryString("day") & "-" & Request.QueryString("year")) Else dDate = Date() If Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("dia")) <> 0 Then%>

A data informada não é válida. O calendário será setado para a data de hoje.

<% End If End If End If iDIM = GetDaysInMonth(Month(dDate), Year(dDate)) iDOW = GetWeekdayMonthStartsOn(dDate) %>

CALENDÁRIO NO MÊS DE <%= MonthName(Month(dDate)) & " " & Year(dDate) %> <% ' Write spacer cells at beginning of first row if month doesn't start on a Sunday. If iDOW <> 1 Then%> <%iPosition = 1 Do While iPosition < iDOW%> <%iPosition = iPosition + 1 Loop End If ' Write days of month in proper day slots iCurrent = 1 iPosition = iDOW Do While iCurrent <= iDIM ' If we're at the begginning of a row then write TR If iPosition = 1 Then%> <%End If ' If the day we're writing is the selected day then highlight it somehow. If iCurrent = Day(dDate) Then%> <%Else%> <%End If ' If we're at the endof a row then write /TR If iPosition = 7 Then%> <% iPosition = 0 End If ' Increment variables iCurrent = iCurrent + 1 iPosition = iPosition + 1 Loop ' Write spacer cells at end of last row if month doesn't end on a Saturday. If iPosition <> 1 Then Do While iPosition <= 7 %> <%iPosition = iPosition + 1 Loop%> <%End If %> DOM SEG TER QUA QUI SEX SAB     <%=iCurrent %>   <% If CStr(Len(iCurrent)) = CStr("1") Then dd = "0" & iCurrent Else dd = iCurrent End If If CStr(Len(Month(dDate))) = CStr("1") Then mm = "0" & Month(dDate) Else mm =Month(dDate) End If datapraver = dd & "/" & mm & "/" & Year(dDate) 'verifica se tem compras para marcar em vermelho set ververm = conexao.execute ("SELECT * FROM compras WHERE status <> 'Compra em Aberto' and datacompra='"&datapraver&"' ") %>   ><%=iCurrent%>     « Mês anterior - Mês Seguinte »

Legenda Não há pedidos no dia Realizados pedidos no dia Dia setado no calendário   Pesquisar na data:

<% 'CHAMA OS DEPARTAMENTOS CADASTRADOS Set rs = Server.CreateObject("adodb.recordset") registroporpagina = 10 RS.PageSize = registroporpagina 'quantidade de registros por página. Você pode alterar sem conforme precise. RS.CursorLocation = 3 RS.CacheSize = registroporpagina 'Vamos fazer a busca na tabela contatos sql = "SELECT * FROM compras WHERE status <> 'Compra em Aberto' and datacompra='"&request("dia")&"' ORDER by idcompra DESC" rs.Open sql,conexao,3 If rs.EOF Or rs.bof Then%> Nenhuma venda foi localizada na data selecionada

<% else IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> rs.PageCount then intpagina=rs.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta rs.AbsolutePage = intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 %> Foram efetuadas <%=rs.RecordCount %> vendas. Página <%=intpagina %> de <%=rs.PageCount %>

<% %>

<%'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec < rs.PageSize and not rs.EOF tatlis = 1 + hash(rs("totalcompra")) + hash(rs("frete")) - 1 if rs("cupom") <> "" then sql = "SELECT * FROM cupom WHERE codigo='"& hash(rs("cupom")) &"'" set cpc = conexao.execute(sql) if cpc("tipo")= "porcentagem" then valor_total_da_compra = tatlis - (tatlis * cpc("valor") / 100) elseif cpc("tipo") = "dinheiro" then valor_total_da_compra = tatlis - cpc("valor") end if else valor_total_da_compra = tatlis end if set cpc= nothing 'numiz = CInt(intpagina & "0") 'iz = iz + numiz iz = iz + 1 %> <% set cliente = conexao.execute("SELECT * FROM clientes WHERE email='"&rs("clienteid")&"'") tipofrete = rs("tipofrete") if tipofrete = "encomenda" then tipofrete = "Encomenda Normal" end if %>  » Nº <%=rs("idcompra")%> | <%= hash(cliente("nome")) %> Acões: ">Ver | ();">Excluir       Data da compra : <%=rs("datacompra")%>       Valor total: R$ <%=formatnumber(valor_total_da_compra,2)%> <% tcompra = hash(rs("totalcompra")) tfrete = hash(rs("frete")) Select case hash(rs("tipofrete")) Case "encomenda" entrega = "Encomenda Normal" Case "sedex" entrega = "Sedex Convencional" Case "sedex_10" entrega = "Sedex 10" Case "sedex_cobrar" entrega = "Sedex à Cobrar" Case "motoboy" entrega = loja("descricao_motoboy") Case "Transportadora" entrega = "Transportadora" Case "carta_registrada" entrega = "Carta Registrada" Case "fretegratis" entrega = "Frete Grátis" end select Select Case rs("status") Case "0" status = "Aguardando confirmação de Pagamento do Pedido." Case "1" status = "Pagamento confirmado. Encaminhado para envio." Case "2" status = "Produto enviado. Aguardando confirmação de recebimento." Case "3" status = "Produto entregue ao cliente. Venda Concluída!" Case "4" status = "Produto Extraviado. Aguardando retorno do produto ao lojista." Case "5" status = "Produto enviado para substituição ou garantia." Case "6" status = "Compra cancelada por fim do prazo para pagamento." Case "7" status = "Favor entrar em contato com o Lojista." Case "8" status = "Compra cancelada. Favor entrar em contato." end select Select case rs("pagamentovia") case "1" pg = "Boleto Bancário" case "2" pg = "Depósito ou Transferência Bancária" case "3" pg = "Sedex à Cobrar" case "4" pg = "Cartão de Crédito Visa" case "5" pg = "Cartão de Crédito Mastercard" case "7" pg = "PagSeguro" case "8" pg = "Pagamento Digital" end select %>       Frete para: <%= hash(rs("estadoentrega")) %>      Forma de Entrega: <%=entrega%>       Pagamento: <%=pg%> <%if rs("cupom") <> "" then%>       Utilizou cupom desconto: Valor Original R$ <%=formatnumber(tatlis,2)%> <%end if%>      <%=status%> <% rs.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF rs.EOF then response.write " " END IF Wend 'fim do loop%>
<% 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF (intpagina) <> 0 then %> Pagina: <% for i = 1 to RS.PageCount %> &pagina=<%=i%>"> [<%Response.Write i%>]    <%response.Write" "%> <%next%> <% END IF %>

<%END IF%>

<%=request("mensagem")%>

<% set cliente = conexao.execute("SELECT * FROM clientes WHERE email='"&rs("clienteid")&"'") estimativa = CDate(rs("datacompra")) + 10 If Mid(estimativa, 2, 1) = "/" Then estimativa = "0" & estimativa Else estimativa = estimativa End If If Mid(estimativa, 5, 1) = "/" Then estimativa = Mid(estimativa, 1, 3) & "0" & Mid(estimativa, 4, 99) Else estimativa = estimativa End If Select Case rs("estadoentrega") Case "AC" estadoz = "Acre" Case "AL" estadoz = "Alagoas" Case "AP" estadoz = "Amapá" Case "AM" estadoz = "Amazonas" Case "BA" estadoz = "Bahia" Case "CE" estadoz = "Ceará" Case "DF" estadoz = "Distrito Federal" Case "ES" estadoz = "Espirito Santo" Case "GO" estadoz = "Goiás" Case "MA" estadoz = "Maranhão" Case "MT" estadoz = "Mato Grosso" Case "MS" estadoz = "Mato Grosso do Sul" Case "MG" estadoz = "Minas Gerais" Case "PA" estadoz = "Pará" Case "PB" estadoz = "Paraiba" Case "PR" estadoz = "Parana" Case "PE" estadoz = "Pernambuco" Case "PI" estadoz = "Piauí" Case "RJ" estadoz = "Rio de Janeiro" Case "RN" estadoz = "Rio Grande do Norte" Case "RS" estadoz = "Rio Grande do Sul" Case "RO" estadoz = "Rondônia" Case "RR" estadoz = "Roraima" Case "SC" estadoz = "Santa Catarina" Case "SP" estadoz = "São Paulo" Case "SE" estadoz = "Sergipe" Case "TO" estadoz = "Tocantins" End Select %> <%= hash(cliente("nome")) %> (<%= hash(cliente("email")) %>) | Pedido Nº <%=rs("idcompra")%>
> >Aguardando confirmação de pagamento >Pagamento Confirmado. Encaminhado para Envio. >Pedido enviado. Aguardando confirmação de recebimento. >Pedido entregue. Pedido concluido. >Produto Extraviado. Aguardando produto. >Produto enviado para troca ou garantia. >Pedido cancelado por fim do prazo de pagamento >Favor entrar em contato >Pedido cancelado.
> Informe os dados do envio para que seu cliente possa localizar a entrega Data do Envio: Hora do Envio: Número Localizador: Observação: <%=mensagem%>
Dados para entrega dos produtos: Entrega via: <%=entrega%> Data da compra: <%=rs("datacompra")%> Endereço: <%= hash(rs("endentrega")) %> Bairro: <%= hash(rs("bairroentrega")) %> Cidade: <%= hash(rs("cidadeentrega")) %> Estado: <%= hash(rs("estadoentrega")) %> País: Brasil CEP: <%= hash(rs("cepentrega")) %> Telefone: <%= hash(rs("telentrega")) %>
Mensagem a ser inserida no cartão de presente
<%= hash(rs("msgpresente")) %>
<% Set ped = conexao.execute("SELECT * FROM pedidos WHERE idcompra = '" & rs("idcompra") & "';") If ped.EOF Then Else While Not ped.EOF if ped("especificacoes") <> "0" then spl = Split(ped("especificacoes"), "#", -1, 1) for i = 0 to Ubound(spl) set esp = conexao.execute("SELECT * FROM p_esp_estoque INNER JOIN p_esp ON p_esp_estoque.id_esp=p_esp.id WHERE p_esp_estoque.id='"&spl(i)&"'") if not esp.eof then especifi = especifi &""&esp("titulo")&": "&esp("valor")&" " end if next end if set esp = nothing Set prod = conexao.Execute("select * from produtos where idprod = " & ped("idprod") & ";") If prod.bof Or prod.EOF Then response.write "" else if prod("moeda") = "dolar" then preco_produto = formatNumber(prod("preco")*rs("cotacao"), 2) else preco_produto = formatNumber(prod("preco"), 2) end if preco = preco_produto quantidade = ped("quantidade") total = FormatNumber((quantidade * preco_produto), 2) If prod("foto1") = "grande.gif" then impeq="pequena.gif" else impeq=prod("foto1") end if%> <% end if ped.movenext wend end if tprodutos = hash(rs("totalcompra")) tfrete = hash(rs("frete")) totalcompra = formatnumber( 1 + tprodutos + tfrete - 1,2) %> Código Foto Produto Quantidade Preço Sub-Total O produto comprado já não está mais presente na loja <%=prod("idprod")%> " target="_blank"><%=prod("nome")%> <%=especifi%> <%=quantidade%> <%=preco%> <%=total%>
Valores e forma de pagamento <%IF rs("cupom") <> "" then sql = "SELECT * FROM cupom WHERE codigo='"& hash(rs("cupom")) &"'" set cpc = conexao.execute(sql) %> <%end if%> Total em Produtos: R$ <%=tprodutos%> Valor do Frete: R$ <%=formatnumber(tfrete,2)%> Total da Compra: R$ <%=totalcompra%>   Cupom Desconto: <%=cpc("codigo")%> Valor do Desconto: <% if cpc("tipo") = "porcentagem" then response.write cpc("valor") &"%" elseif cpc("tipo")="dinheiro" then response.write "R$ "& cpc("valor") end if%> do valor total da compra   Pagamento: <%=pg%> <%=status%> <% if rs("pagamentovia") = "1" or rs("pagamentovia") = "2" then %> <%end if%> <%if rs("pagamentovia") = "4" then%> <%end if%> <%if rs("pagamentovia") = "5" then%> <%end if%> <% valor_total = 1 + hash(rs("totalcompra")) + hash(rs("frete")) - 1 if rs("pagamentovia") = "1" then tatlis = valor_total - (valor_total * boleto("desconto") / 100) porcentagem = boleto("desconto") elseif rs("pagamentovia") = "2" then tatlis = valor_total - (valor_total * deposito("desconto") / 100) porcentagem = deposito("desconto") end if %> Desconto: <%=porcentagem%>% no valor total da compra. <% if rs("pagamentovia") <> "1" and rs("pagamentovia") <> "2" then tatlis = 1 + hash(rs("totalcompra")) + hash(rs("frete")) - 1 end if if rs("cupom") <> "" then sql = "SELECT * FROM cupom WHERE codigo='"& hash(rs("cupom")) &"'" set cpc = conexao.execute(sql) if cpc("tipo")= "porcentagem" then subt = tatlis - (tatlis * cpc("valor") / 100) elseif cpc("tipo") = "dinheiro" then subt = tatlis - cpc("valor") end if else subt = tatlis end if set cpc= nothing %> Valor a ser pago: R$ <%=formatnumber(subt,2)%> Forma de Pagamento: <%= hash(rs("forma")) %> parcela(s) TID da Transação: <%= hash(rs("tid")) %> Número de Autorização: <%= rs("nr_autorizacao") %> Forma de Pagamento: <%= hash(rs("forma")) %> parcela(s) Número do Cartão Mascarado:<%= hash(rs("nr_mascarado")) %> Número de Autorização:<%= rs("nr_autorizacao") %> Número Sequencial Único:<%= hash(rs("nr_sqn")) %> Número de Comprovante de Venda:<%= hash(rs("nr_cv")) %> Número de Autenticação:<%= hash(rs("nr_autenticacao")) %> Origem da Autorização:<%= hash(rs("nr_bin")) %>

<%=request("mensagem")%>

<%end if%>

Filtragem de Dados - Escolha os tipos de pedidos que deseja visualizar
<%if request("filtro")="0" then response.write "" end if%>Aguardando Pagamento<%if request("filtro")="0" then response.write "" end if%> - <%if request("filtro")="1" then response.write "" end if%> Pagamento Confirmado<%if request("filtro")="1" then response.write "" end if%> - <%if request("filtro")="2" then response.write "" end if%>Pedido Enviado<%if request("filtro")="2" then response.write "" end if%> - <%if request("filtro")="3" then response.write "" end if%>Pedido Concluído<%if request("filtro")="3" then response.write "" end if%>