| <%=Application("FcontusuTxtNome")%>: <%= FctRS_Usuarios("nome" & cod_coluna) %> |
|
| <%=Application("FcontusuTxtDataNasc")%>: <%= FormataDado(FctRS_Usuarios("data_nascimento" & cod_coluna),"DATA_NASCIMENTO")%> |
<%=Application("FcontusuTxtCPF")%>: <%= FormataDado(FctRS_Usuarios("CPF" & cod_coluna),"CPF") %> |
<%=Application("FcontusuTxtRG")%>: <%= FctRS_Usuarios("rg" & cod_coluna) %> |
|
<% If FctRS_Usuarios("razaosocial" & cod_coluna) <> "" Then %>
| <%= Application("FcontusuTxtRazaoSocial")%>: <%= FctRS_Usuarios("razaosocial" & cod_coluna) %> |
|
| <%= Application("FcontusuTxtCNPJ")%>: <%= FormataDado(FctRS_Usuarios("cnpj" & cod_coluna),"CNPJ")%> |
|
| <%= Application("FcontusuTxtInscricaoEstadual")%>: <%= FctRS_Usuarios("inscricaoestadual" & cod_coluna)%> |
|
<% End If %>
|
<%= Application("FcontusuTxtEnd")%>: <%= FctRS_Usuarios("logradouro" & cod_coluna) %>
|
<%= Application("FcontusuTxtNum")%>: <%= FctRS_Usuarios("numero" & cod_coluna) %>
|
|
|
<%= Application("FcontusuTxtComp")%>: <%= FctRS_Usuarios("complemento" & cod_coluna) %>
|
<%=Application("FcontusuTxtBairro")%>: <%= FctRS_Usuarios("bairro" & cod_coluna) %>
|
<%=Application("FcontusuTxtCEP")%>: <%= FormataDado(FctRS_Usuarios("cep" & cod_coluna),"CEP")%>
|
|
|
<%=Application("FcontusuTxtCidade")%>: <%= FctRS_Usuarios("cidade" & cod_coluna) %>
|
<%=Application("FcontusuTxtEstado")%>: <%= FctRS_Usuarios("estado" & cod_coluna) %>
|
<%=Application("FcontusuTxtPais")%>: <%= Cria_Combo_Paises(FctRS_Usuarios("pais" & cod_coluna),"decodifica","") %>
|
|
|
<%=Application("FcontusuTxtTel")%>: (<%= FctRS_Usuarios("ddd" & cod_coluna) %>) <%= FctRS_Usuarios("telefone" & cod_coluna) %>
|
|
<%
If cod_coluna = "_entrega" Then %>
|
<%=Application("FcontusuTxtMail")%>: <%= FctRS_Usuarios("email_entrega")%>
|
|
<%
End If
If cod_coluna = "_entrega" and request("status") = "" Then%>
|
<%=Application("FcontusuTxtOBS")%>: <%= FctRS_Usuarios("instrucoes") %>
|
|
<%
End If
%>
<%
End Sub
'########################################################################################################
'--> FIM SUB Mostra_Endereco
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION lista_ItensPedidosContaUsuario
' - Lista todos os pedidos de um determinado usuário cadastrado
' -
'##########################################################################################################
Function lista_ItensPedidosContaUsuario(userid,codigo,FctAdicional)
Call abre_conexao(conexao)
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
Set FctRS_Pedidos = Server.CreateObject("ADODB.Recordset")
FctRS_Pedidos.CursorLocation = 3
FctRS_Pedidos.CursorType = 0
FctRS_Pedidos.LockType = 3
If request("orderby") <> "" Then
orderby = request("orderby")
else
orderby = "codigo_pedido"
End If
If FctAdicional = "imprimirBoleto" Then
imprimirBoleto = "AND Pedidos.pago = 0 AND Pedidos.forma_pagamento = 'Boleto' OR Pedidos.USER_ID ='" & userid & "' AND Pedidos.pago = 0 AND Pedidos.forma_pagamento = 'CobreBem' OR Pedidos.USER_ID ='" & userid & "' AND Pedidos.boleto_emitido = 1 AND Pedidos.pago = 0"
End if
FctRS_Pedidos.Open "SELECT Pedido_Item.codigo_produto, Pedido_Item.codigo_cor, Pedido_Item.codigo_tamanho, Pedido_Item.quantidade, Pedido_Item.preco_unitario, Pedido_Item.peso, Pedido_Item.nome_produto, Pedido_Item.sigla_moeda, Pedido_Item.valor_moeda, Pedidos.codigo_pedido, Pedidos.data_pedido_inicio, Pedidos.data_pedido, Pedidos.user_ID, Pedidos.sessionID, Pedidos.ip_cliente, Pedidos.razaosocial_cobranca, Pedidos.cnpj_cobranca, Pedidos.inscricaoestadual_cobranca, Pedidos.nome_cobranca, Pedidos.cpf_cobranca, Pedidos.rg_cobranca, Pedidos.data_nascimento_cobranca, Pedidos.logradouro_cobranca, Pedidos.numero_cobranca, Pedidos.complemento_cobranca, Pedidos.bairro_cobranca, Pedidos.cidade_cobranca, Pedidos.estado_cobranca, Pedidos.cep_cobranca, Pedidos.pais_cobranca, Pedidos.ddd_cobranca, Pedidos.telefone_cobranca, Pedidos.razaosocial_entrega, Pedidos.cnpj_entrega, Pedidos.inscricaoestadual_entrega, Pedidos.nome_entrega, Pedidos.cpf_entrega, Pedidos.rg_entrega, Pedidos.data_nascimento_entrega, Pedidos.logradouro_entrega, Pedidos.numero_entrega, Pedidos.complemento_entrega, Pedidos.bairro_entrega, Pedidos.cidade_entrega, Pedidos.estado_entrega, Pedidos.cep_entrega, Pedidos.pais_entrega, Pedidos.ddd_entrega, Pedidos.telefone_entrega, Pedidos.email_entrega, Pedidos.subtotal, Pedidos.taxa_envio, Pedidos.total, Pedidos.tipo_frete, Pedidos.codigo_frete, Pedidos.peso_total, Pedidos.forma_pagamento, Pedidos.cartao_encrypt, Pedidos.tipo_cartao, Pedidos.instrucoes, Pedidos.atendido, Pedidos.pago, Pedidos.falha, Pedidos.cancelado, Pedidos.devolvido, Pedidos.fraude, Pedidos.num_remessa, Pedidos.boleto_emitido, Pedidos.boleto_tipo, Pedidos.sigla_idioma, Pedidos.sigla_moeda, Pedidos.valor_moeda FROM Pedido_Item INNER JOIN Pedidos ON Pedido_Item.codigo_pedido = Pedidos.codigo_pedido WHERE Pedidos.USER_ID ='" & userid & "' "&imprimirBoleto&" ORDER BY Pedidos."&orderby&" DESC", Conexao
%>
| &codigo_pedido=<%=codigo%>"><%=Application("FcontusuTxtCod")%> |
&codigo_pedido=<%=codigo%>"><%=Application("FcontusuTxtDataCompra")%> |
&codigo_pedido=<%=codigo%>"><%=Application("FcontusuTxtValor")%> |
<%If FctAdicional <> "imprimirBoleto" And FctAdicional <> "adminCliente" Then%>
&codigo_pedido=<%=codigo%>"><%=Application("FcontusuTxtFormaPag")%> |
<%End If%>
&codigo_pedido=<%=codigo%>"><%=Application("FcontusuTxtPago")%> |
<%
Do Until FctRS_Pedidos.EOF
If FctRS_Pedidos.AbsolutePosition Mod 2 = 0 Then
strColor = "class='Linha2Tabela'"
Else
strColor = "class='Linha1Tabela'"
End If
If FctRS_Pedidos("codigo_pedido") <> norep Then
If FctRS_Pedidos("pago") = "0" then
Status_pago = Application("FcontusuTxtNao")
Elseif FctRS_Pedidos("pago") = "1" then
Status_pago = ""&Application("FcontusuTxtSim")&""
End if
If FctRS_Pedidos("atendido") = "0" then
Status_atendido = Application("FcontusuTxtNao")
Elseif FctRS_Pedidos("atendido") = "1" then
Status_atendido = ""&Application("FcontusuTxtSim")&""
End if
If page <> "conta_usuario_gerar_boleto" Then
If CDbl(codigo) = CDbl(FctRS_Pedidos("codigo_pedido")) Then
strColor = "class='Linha6Tabela'"
End If
End If
%>
onMouseOver="this.style.backgroundColor='#FFECEC'; this.style.cursor='hand';;this.style.color='blue'" onMouseOut="this.style.backgroundColor='';" title="<%=titleAlt%>" onclick="javascript: window.location='conta_usuario_mostra_pedido.asp?lang=<%=varLang%>&codigo_pedido=<%=FctRS_Pedidos("codigo_pedido")%>&orderby=<%=orderby%>&status=<%=request("status")%>#<%=FctRS_Pedidos("codigo_pedido")%>';"> ">
| <%=FctRS_Pedidos("codigo_pedido")%> |
<%=FctRS_Pedidos("data_pedido_inicio")%> |
<%=VarSimboloMoeda%> <%=FormatNumber(FctRS_Pedidos("total")*FatorCambio(varValor_Cambio))%> |
<%If FctAdicional <> "imprimirBoleto" And FctAdicional <> "adminCliente" Then%>
<%=pegaValorAtrib(Application("XMLMeiosPagamentos"),"configuracao/pagto[@nome_pagto='"&FctRS_Pedidos("forma_pagamento")&"']","nome_visualizacao")%> |
<%End If%>
<%If FctAdicional = "imprimirBoleto" Then%><% Call geraboleto(FctRS_Pedidos("codigo_pedido")) %><%Else%><%=Status_pago%><%End if%> |
<%
End if
norep = FctRS_Pedidos("codigo_pedido")
FctRS_Pedidos.MoveNext
Loop
FctRS_Pedidos.Close
Set FctRS_Pedidos = Nothing
%>
<%
End function
'########################################################################################################
'--> FIM FUNCTION lista_ItensPedidosContaUsuario
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB Cria_Combo_opcao_simnao
' - Cria um combo com as opções SIM/NÃO
' -
'##########################################################################################################
Sub Cria_Combo_opcao_simnao(opcao,valor)
%>
![](config/templates/"&varLang&"/default/gerarboleto.gif)