<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb 
' Versão: 6.4
' Data: 12/09/06
' Arquivo: funcoes_usuario.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 14/11/07
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#

'##########################################################################################################
'FUNCTION IdentificaUsuario
' - Checa se usuario esta cadastrado no sistema
'##########################################################################################################
Function IdentificaUsuario(Conexao, usuario, senha)

    If (usuario <> "") Then
        ' Abre conexao com banco de dados
	
        Set RS_Usuarios = Server.CreateObject("ADODB.Recordset")
        Set RS_Usuarios.ActiveConnection = Conexao
        RS_Usuarios.CursorLocation = 3
        RS_Usuarios.CursorType = 0
        RS_Usuarios.LockType =  1


        RS_Usuarios.Open "SELECT user_id, chave, razaosocial_cobranca, cnpj_cobranca, inscricaoestadual_cobranca, nome_cobranca, cpf_cobranca, rg_cobranca, data_nascimento_cobranca, logradouro_cobranca, numero_cobranca, complemento_cobranca, bairro_cobranca, cidade_cobranca, estado_cobranca, cep_cobranca, pais_cobranca, ddd_cobranca, telefone_cobranca, razaosocial_entrega, cnpj_entrega, inscricaoestadual_entrega, nome_entrega, cpf_entrega, rg_entrega, data_nascimento_entrega, logradouro_entrega, numero_entrega, complemento_entrega, bairro_entrega, cidade_entrega, estado_entrega, cep_entrega, pais_entrega, ddd_entrega, telefone_entrega, email_entrega, cookieID, data_criacao FROM Usuarios WHERE user_id ='" & usuario & "'", Conexao

        ' Encontramos usuario ?
        If Not RS_Usuarios.Eof Then

            If (Trim(RS_Usuarios("chave")) = trim(senha) Or Session("logado")<>"") Then		
                Session("user_id")     = usuario
                Session("logado")      = usuario
                
                ' Dados de cobrança
                Session("razaosocial_cobranca")          = RS_Usuarios("razaosocial_cobranca")
                Session("cnpj_cobranca")                 = RS_Usuarios("cnpj_cobranca")
                Session("inscricaoestadual_cobranca")    = RS_Usuarios("inscricaoestadual_cobranca")
				Session("nome_cobranca")                 = RS_Usuarios("nome_cobranca")
                Session("cpf_cobranca")                  = RS_Usuarios("cpf_cobranca")
                Session("rg_cobranca")                   = RS_Usuarios("rg_cobranca")
                Session("data_nascimento_cobranca")      = RS_Usuarios("data_nascimento_cobranca")
                Session("logradouro_cobranca")           = RS_Usuarios("logradouro_cobranca")
                Session("numero_cobranca")               = RS_Usuarios("numero_cobranca")
                Session("complemento_cobranca")          = RS_Usuarios("complemento_cobranca")
                Session("bairro_cobranca")               = RS_Usuarios("bairro_cobranca")
                Session("cidade_cobranca")               = RS_Usuarios("cidade_cobranca")
                Session("estado_cobranca")               = RS_Usuarios("estado_cobranca")
                Session("cep_cobranca")                  = RS_Usuarios("cep_cobranca")
                Session("pais_cobranca")                 = RS_Usuarios("pais_cobranca")
                Session("ddd_cobranca")                  = RS_Usuarios("ddd_cobranca")
				Session("telefone_cobranca")             = RS_Usuarios("telefone_cobranca")
                
                'Dados de entrega
                Session("razaosocial_entrega")           = RS_Usuarios("razaosocial_entrega")
                Session("cnpj_entrega")                  = RS_Usuarios("cnpj_entrega")
                Session("inscricaoestadual_entrega")     = RS_Usuarios("inscricaoestadual_entrega")
                Session("nome_entrega")                  = RS_Usuarios("nome_entrega")
                Session("cpf_entrega")                   = RS_Usuarios("cpf_entrega")
                Session("rg_entrega")                    = RS_Usuarios("rg_entrega")
                Session("data_nascimento_entrega")       = RS_Usuarios("data_nascimento_entrega")
                Session("logradouro_entrega")            = RS_Usuarios("logradouro_entrega")
                Session("numero_entrega")                = RS_Usuarios("numero_entrega")
                Session("complemento_entrega")           = RS_Usuarios("complemento_entrega")
                Session("bairro_entrega")                = RS_Usuarios("bairro_entrega")
                Session("cidade_entrega")                = RS_Usuarios("cidade_entrega")
                Session("estado_entrega")                = RS_Usuarios("estado_entrega")
                Session("cep_entrega")                   = RS_Usuarios("cep_entrega")
                Session("pais_entrega")                  = RS_Usuarios("pais_entrega")
                Session("ddd_entrega")                   = RS_Usuarios("ddd_entrega")
                Session("telefone_entrega")              = RS_Usuarios("telefone_entrega")
                Session("email_entrega")                 = RS_Usuarios("email_entrega")
              

                IdentificaUsuario = 2
            Else
                ' usuario cadastrado e senha não confere
                IdentificaUsuario = 0
            End If
        Else
            ' usuario não está cadastrado
            IdentificaUsuario = 1
        End If

        RS_Usuarios.Close 
        Set RS_Usuarios = Nothing

    Else
        IdentificaUsuario = 1
    End If

End Function
'########################################################################################################
'--> FIM FUNCTION IdentificaUsuario
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION AnulaSessionUsuario
' - Anula as sessions criadas para as informações do usuário
'##########################################################################################################
Function AnulaSessionUsuario(cod_coluna)

    Session("razaosocial" & cod_coluna)        = ""
    Session("cnpj" & cod_coluna)               = ""
    Session("inscricaoestadual" & cod_coluna)  = ""
    Session("nome" & cod_coluna)               = ""
    Session("cpf" & cod_coluna)                = ""
    Session("rg" & cod_coluna)                 = ""
    Session("data_nascimento" & cod_coluna)    = ""
    Session("logradouro" & cod_coluna)         = ""
    Session("numero" & cod_coluna)             = ""
    Session("complemento" & cod_coluna)        = ""
    Session("bairro" & cod_coluna)             = ""
    Session("cidade" & cod_coluna)             = ""
    Session("estado" & cod_coluna)             = ""
    Session("cep" & cod_coluna)                = ""
    Session("pais" & cod_coluna)               = ""
    Session("ddd" & cod_coluna)                = ""
    Session("telefone" & cod_coluna)           = ""
    Session("email" & cod_coluna)              = ""

End Function
'########################################################################################################
'--> FIM FUNCTION AnulaSessionUsuario
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB Session_Usuario_Transacao
' - Anula as sessions criadas para as informações do usuário
'##########################################################################################################
Sub Session_Usuario_Transacao(Conexao,codigo_pedido)

Set RS_Usuarios = Server.CreateObject("ADODB.Recordset")
Set RS_Usuarios.ActiveConnection = Conexao
RS_Usuarios.CursorLocation = 3
RS_Usuarios.CursorType = 0
RS_Usuarios.LockType =  1
RS_Usuarios.Open "SELECT 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 Pedidos WHERE codigo_pedido =" & codigo_pedido & "", Conexao

' Dados do pedido
Session("id_transacao")                  = RS_Usuarios("sessionID")

' Dados de cobrança
Session("razaosocial_cobranca")          = RS_Usuarios("razaosocial_cobranca")
Session("cnpj_cobranca")                 = RS_Usuarios("cnpj_cobranca")
Session("inscricaoestadual_cobranca")    = RS_Usuarios("inscricaoestadual_cobranca")
Session("nome_cobranca")                 = RS_Usuarios("nome_cobranca")
Session("cpf_cobranca")                  = RS_Usuarios("cpf_cobranca")
Session("rg_cobranca")                   = RS_Usuarios("rg_cobranca")
Session("data_nascimento_cobranca")      = RS_Usuarios("data_nascimento_cobranca")
Session("logradouro_cobranca")           = RS_Usuarios("logradouro_cobranca")
Session("numero_cobranca")               = RS_Usuarios("numero_cobranca")
Session("complemento_cobranca")          = RS_Usuarios("complemento_cobranca")
Session("bairro_cobranca")               = RS_Usuarios("bairro_cobranca")
Session("cidade_cobranca")               = RS_Usuarios("cidade_cobranca")
Session("estado_cobranca")               = RS_Usuarios("estado_cobranca")
Session("cep_cobranca")                  = RS_Usuarios("cep_cobranca")
Session("pais_cobranca")                 = Cria_Combo_Paises(RS_Usuarios("pais_cobranca"),"codifica","")
Session("ddd_cobranca")                  = RS_Usuarios("ddd_cobranca")
Session("telefone_cobranca")             = RS_Usuarios("telefone_cobranca")

If Replace(RS_Usuarios("cep_entrega"),"-","") <> Replace(RS_Usuarios("cep_cobranca"),"-","") Then
	'Dados de entrega
	Session("razaosocial_entrega")           = RS_Usuarios("razaosocial_entrega")
	Session("cnpj_entrega")                  = RS_Usuarios("cnpj_entrega")
	Session("inscricaoestadual_entrega")     = RS_Usuarios("inscricaoestadual_entrega")
	Session("nome_entrega")                  = RS_Usuarios("nome_entrega")
	Session("cpf_entrega")                   = RS_Usuarios("cpf_entrega")
	Session("rg_entrega")                    = RS_Usuarios("rg_entrega")
	Session("data_nascimento_entrega")       = RS_Usuarios("data_nascimento_entrega")
	Session("logradouro_entrega")            = RS_Usuarios("logradouro_entrega")
	Session("numero_entrega")                = RS_Usuarios("numero_entrega")
	Session("complemento_entrega")           = RS_Usuarios("complemento_entrega")
	Session("bairro_entrega")                = RS_Usuarios("bairro_entrega")
	Session("cidade_entrega")                = RS_Usuarios("cidade_entrega")
	Session("estado_entrega")                = RS_Usuarios("estado_entrega")
	Session("cep_entrega")                   = RS_Usuarios("cep_entrega")
	Session("pais_entrega")                  = Cria_Combo_Paises(RS_Usuarios("pais_entrega"),"codifica","")
	Session("ddd_entrega")                   = RS_Usuarios("ddd_entrega")
	Session("telefone_entrega")              = RS_Usuarios("telefone_entrega")
	Session("email_entrega")                 = RS_Usuarios("email_entrega")
End If

RS_Usuarios.Close
Set RS_Usuarios = nothing

End Sub
'########################################################################################################
'--> FIM SUB Session_Usuario_Transacao
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION TrocaSenhaUsuario
' - Troca a senha do usuario cadastrado no sistema
'##########################################################################################################
Function TrocaSenhaUsuario(Conexao, usuario, senha, novasenha)

    If (usuario <> "") Then
        ' Abre conexao com banco de dados
	
        Set RS_Usuarios = Server.CreateObject("ADODB.Recordset")
        Set RS_Usuarios.ActiveConnection = Conexao
        RS_Usuarios.CursorLocation = 3
        RS_Usuarios.CursorType = 0
        RS_Usuarios.LockType = 3

        RS_Usuarios.Open "SELECT Usuarios.user_id, Usuarios.chave FROM Usuarios WHERE user_id ='" & usuario & "'", Conexao

        ' Encontramos usuario ?
        If Not RS_Usuarios.Eof Then

            If (Trim(RS_Usuarios("chave")) = trim(senha)) Then		
                RS_Usuarios("chave") = novasenha
                RS_Usuarios.Update
                
                TrocaSenhaUsuario = 2
            Else
                ' usuario cadastrado e senha não confere
                TrocaSenhaUsuario = 0
            End If
        Else
            ' usuario não está cadastrado
            TrocaSenhaUsuario = 1
        End If

        RS_Usuarios.Close 
        Set RS_Usuarios = Nothing

    Else
        TrocaSenhaUsuario = 1
    End If

End Function
'########################################################################################################
'--> FIM FUNCTION TrocaSenhaUsuario
'########################################################################################################
%>