<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: lista_pedidos.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 23/08/07
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.Locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-
If permissao = "write" Then
estilo = "itensPedido_write"
ElseIf permissao = "read" Then
estilo = "itensPedido_read"
End if
Set RS_Cambios = CreateObject("ADODB.Recordset")
Set RS_Cambios.ActiveConnection = Conexao
RS_Cambios.CursorLocation = 3
RS_Cambios.CursorType = 0
RS_Cambios.LockType = 1
RS_Cambios.Open "SELECT valor_moeda, simbolo_moeda FROM IdiomaseCambios WHERE sigla_idioma='"&varLang&"'", Conexao
varValor_Cambio = RS_Cambios("valor_moeda")
VarSimboloMoeda = RS_Cambios("simbolo_moeda")
RS_Cambios.Close
Set RS_Cambios = Nothing
'Atualiza a forma de pagamento no XML do pedido
If Request("id_transacao") <> "" And Request("tipo") <> "" Then
If Request("id_transacao") <> "" Then
session("id_transacao") = Request("id_transacao")
End if
set docxml=server.createobject("microsoft.xmldom")
existe_pedidoTemp = docxml.load(Application("DiretorioPedidos")&session("id_transacao")&".xml")
If existe_pedidoTemp=true then
docxml.load(Application("DiretorioPedidos")&session("id_transacao")&".xml")
set pedido=docxml.documentElement
Set dados_pedido = pedido.SelectSingleNode("dados_pedido")
Set objAtualizaPedido = pedido.selectSingleNode("dados_pedido[@id_transacao="&session("id_transacao")&"]")
dados_pedido.SetAttribute "forma_pagamento",request("tipo")
If request("tipo") = "Boleto" Then
dados_pedido.SetAttribute "BoletoTipo",request("BoletoTipo")
End if
docxml.save(Application("DiretorioPedidos")&session("id_transacao")&".xml")
Else
Response.redirect "default.asp?lang="&varLang
End if
set docxml = Nothing
End If
'Ajusta a URL da loja para uso
If Session("URLloja") <> "" Then
varURLloja = Session("URLloja") & "/"
End If
%>