<%
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
' Loja Exemplo Locaweb
' Versão: 6.4
' Data: 12/09/06
' Arquivo: funcoes_uteis.asp
' Versão do arquivo: 0.0
' Data da ultima atualização: 27/06/07
'
'-----------------------------------------------------------------------------
' Licença Código Livre: http://comercio.locaweb.com.br/gpl/gpl.txt
'-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#-#
'########################################################################################################
'FUNCTION Checa_Sessao_Pedido
' - Checa se pedido ainda é válido.
'########################################################################################################
Function Checa_Sessao_Pedido()
If Response.IsClientConnected = False Then
Response.End
End If
If Session("codigo_pedido") = "" and Session("User_id") = "" then%>
<%
Response.End
End If
End Function
'########################################################################################################
'--> FIM FUNCTION Checa_Sessao_Pedido
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB Lista_Estado
' - Função para exibição dos estados do Brasil.
'########################################################################################################
Sub Lista_Estado(estado_sel, cod_coluna)
Dim Estado(27), Sigla(27)
Estado(1)="Acre"
Estado(2)="Alagoas"
Estado(3)="Amapá"
Estado(4)="Amazonas"
Estado(5)="Bahia"
Estado(6)="Ceará"
Estado(7)="Distrito Federal"
Estado(8)="Espírito Santo"
Estado(9)="Goiás"
Estado(10)="Maranhão"
Estado(11)="Mato Grosso"
Estado(12)="Mato Grosso do Sul"
Estado(13)="Minas Gerais"
Estado(14)="Pará"
Estado(15)="Paraíba"
Estado(16)="Paraná"
Estado(17)="Pernambuco"
Estado(18)="Piauí"
Estado(19)="Rio de Janeiro"
Estado(20)="Rio Grande do Norte"
Estado(21)="Rio Grande do Sul"
Estado(22)="Rondônia"
Estado(23)="Roraima"
Estado(24)="Santa Catarina"
Estado(25)="São Paulo"
Estado(26)="Sergipe"
Estado(27)="Tocantins"
Sigla(1)="AC"
Sigla(2)="AL"
Sigla(3)="AP"
Sigla(4)="AM"
Sigla(5)="BA"
Sigla(6)="CE"
Sigla(7)="DF"
Sigla(8)="ES"
Sigla(9)="GO"
Sigla(10)="MA"
Sigla(11)="MT"
Sigla(12)="MS"
Sigla(13)="MG"
Sigla(14)="PA"
Sigla(15)="PB"
Sigla(16)="PR"
Sigla(17)="PE"
Sigla(18)="PI"
Sigla(19)="RJ"
Sigla(20)="RN"
Sigla(21)="RS"
Sigla(22)="RO"
Sigla(23)="RR"
Sigla(24)="SC"
Sigla(25)="SP"
Sigla(26)="SE"
Sigla(27)="TO"
%>
<%
End Sub
'########################################################################################################
'--> FIM SUB Lista_Estado
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION FormataValor
' - Funrção para formatação de valor retirando a virgula
'########################################################################################################
Function FormataValor(total_valor)
total_str = cstr(total_valor)
virgula_pos = Instr(total_str,",")
If virgula_pos <> 0 Then
zero_num = Len(total_str) - virgula_pos
If (zero_num < 2) Then
total_str = total_str & String(zero_num, "0")
End If
Else
total_str = total_str & ",00"
End If
'Tira virgula de quantidade
total = replace(total_str, ",", "")
FormataValor = total
End Function
'########################################################################################################
'--> FIM FUNCTION FormataValor
'########################################################################################################
'========================================================================================================
'########################################################################################################
'SUB CodPedBrasil
' -
' -
'##########################################################################################################
Function CodPedBrasil(codigo_pedido, BBCodCobranca)
'conta o numero de posicoes do codigo do pedido
cont_pedido = Len(codigo_pedido)
'conta quantos zeros à esquerda necessita para obter 10 posicoes
zero_pedido = "10" - cont_pedido
' loop para montar os zeros que faltam
cont = 0
While not cont = zero_pedido
zeros = zeros & "0"
cont = cont + 1
wend
'Verifica se o codigo BB é de 7 posicoes para o codigo do pedido final ser de 17 posicoes
If Len(BBCodCobranca) = "7" Then
codped = BBCodCobranca & zeros & codigo_pedido
Else
codped = BBCodCobranca & "0" & zeros & codigo_pedido
End If
CodPedBrasil = codped
End Function
'########################################################################################################
'--> FIM SUB CodPedBrasil
'########################################################################################################
'========================================================================================================
'########################################################################################################
'FUNCTION BB_TipPag
' - Trata o valor do sitPag (situação de pagamento do BB Office Banking)
'##########################################################################################################
Function BB_TipPag(TipPag)
If TipPag <> "" then
Select Case TipPag
Case "2" BB_TipPag = "Boleto Bancário"
Case "3" BB_TipPag = "Débito em conta corrente"
Case Else BB_TipPag = "Indeterminado"
End Select
Else
BB_TipPag = "Indeterminado"
End If
End Function
'########################################################################################################
'--> FIM FUNCTION BB_TipPag
'########################################################################################################
%>