| > style=font-size:11px;color:ffffff> <%=strLg%> | > style=font-size:11px;color:ffffff> <%=strLg59%> | > style=font-size:11px;color:ffffff> <%=mid(strLg58,1,5)%>. | > style=font-size:11px;color:ffffff> <%=mid(strLg60,1,9)%>. | > style=font-size:11px;color:ffffff> <%=strLg61%> |
<%
'Chama as quantidades compradas
set rs2 = abredb.Execute("SELECT idprod,quantidade FROM pedidos where idcompra='"&compra&"';")
while not rs2.eof
quantidade = rs2("quantidade")
codigo=rs2("idprod")
set rs = abredb.Execute("SELECT nome,preco,precovelho FROM produtos where idprod="&codigo&";")
'Calcula os valores do produto
valor = rs("preco") * quantidade
preconormal = formatnumber(rs("preco"),2)
precototal = formatnumber(valor,2)%>
| style=font-size:11px;color:000000>#<%=codigo%> | style=font-size:11px;color:000000><%=rs("nome")%> | style=font-size:11px;color:000000><%=quantidade%> | style=font-size:11px;color:000000><%= strLgMoeda & " " & preconormal%> | style=font-size:11px;color:000000><%= strLgMoeda & " " & precototal%> |
<%
rs2.movenext
wend
rs.close
set rs = nothing
rs2.close
set rs2 = nothing
'Chama os dados do produto
set valor = abredb.Execute("SELECT status,datacompra,frete,totalcompra,pagamentovia FROM compras where pedido="&variavel&";")
'Formata o valor da compra
totalcompra = Cripto(valor("totalcompra"),false)
totalfrete = Cripto(valor("frete"),false)
status = valor("status")
pagamento = valor("pagamentovia")
intcomprasz = totalcompra + 1 + totalfrete - 1
comprasz = intcomprasz
comprasz = replace(comprasz,"-","")
data = valor("datacompra")
valor.close
set valor = nothing
'Mostra o tipo de pagamento
Select Case pagamento
Case 0
ver = strLg96&": Visa"
Case 1
ver = strLg96&": Mastercard"
Case 2
ver= strLg96&": Dinners"
Case 3
ver = strLg96&": American Express"
Case 4
ver = strLg190
Case 5
ver = strLg191
Case 6
ver = strLg192
Case 7
ver = strLg256
End Select
'Mostra o status da compra
if status = "0" then
estatus = strLg193
end if
if status = "1" then
estatus = strLg194
end if
if status = "2" then
estatus = strLg195
end if
if status = "3" then
estatus = strLg196
end if
if status = "4" then
estatus = strLg197
end if
if status = "5" then
estatus = strLg198
end if
if status = "6" then
estatus = strLg199
end if
'Formata os valores da compra
comprazw = formatnumber(comprasz,2)
totalfretezw = formatnumber(totalfrete,2)
totalcomprazw = formatnumber(totalcompra,2)
'Formata a data
if len(day(data)) = 1 then
diadata = "0"&day(data)
else
diadata = day(data)
end if
if len(month(data)) = 1 then
mesdata = "0"&month(data)
else
mesdata = month(data)
end if
entdiax = cdate(data) + diasentrega
if len(day(entdiax)) = 1 then
diadatax = "0"&day(entdiax)
else
diadatax = day(entdiax)
end if
if len(month(entdiax)) = 1 then
mesdatax = "0"&month(entdiax)
else
mesdatax = month(entdiax)
end if
%>
<%end if%>