DADOS DE CONTATO

Atualização de Versão
<%=request.QueryString("retry")%> <% xTitulo = "Atualizar Vers�o" %>

<% if Request("Usuario") <> "" then xUsuario = Request("Usuario") else xUsuario = Session("Usuario") end if if Request("Senha") <> "" then xSenha = Request("Senha") else xSenha = Session("Senha") end if if Request("Codigo") <> "" then xCodigo = Request("Codigo") else xCodigo = Session("Codigo") end if xErro = "" ' Criando conex�o com o Banco de Dados Set Dados = Server.CreateObject("ADODB.Connection") Set Dados_boleto = Server.CreateObject("ADODB.Connection") Dados.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\vhosts\desempenho.com.br\httpdocs\dados\desempen.mdb; Uid=Administrador; Pwd=ibira12") Dados_boleto.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=E:\vhosts\desempenho.com.br\httpdocs\dados\boletos.mdb; Uid=Administrador; Pwd=ibira12") If Trim(xUsuario) = "" Then xErro = "Informe o Usu�rio." Elseif Trim(xSenha) = "" Then xErro = "Informe sua Senha." Else sql = "SELECT * FROM Clientes WHERE Senha = '" & fStr(xSenha) & "' AND lcase(Usuario) = '" & fStr(lcase(xUsuario)) & "' or lcase(Email) = '" & fStr(lcase(xUsuario)) & "'" rem response.write sql rem response.end set rsClientes = Dados.Execute(sql) If rsClientes.Eof Then xErro = "Usu�rio ou senha inv�lidos." Else If rsClientes("Senha") <> xSenha Then xErro = "Senha Incorreta." Else Session("Usuario") = rsClientes("Usuario") Session("Codigo") = rsClientes("Codigo") Session("Senha") = rsClientes("Senha") Session("br") = rsClientes("br") End If End If End If If xErro <> "" Then %> <% = xErro %>

Pressione voltar e tente novamente. <% Else valor_debito = 0 valor_debito_menos_4 = 0 valor_credito = 0 rem response.write "toto" if isnumeric(mid(Session("BR"),3,5)) then if Isnull(rsClientes("filial")) then sql = "SELECT * FROM Boletos WHERE COD_CLI = '" & mid(Session("BR"),3,5) & "' ORDER BY COD_FIL, FT16VENC" else sql = "SELECT * FROM Boletos WHERE COD_CLI = '" & mid(Session("BR"),3,5) & "' AND COD_FIL = '" & rsClientes("filial") & "' ORDER BY COD_FIL, FT16VENC" end if rem response.write sql rem response.end set rsBoletos = Dados_boleto.Execute(sql) data_atual = date() data_atual_menos_4 = DateAdd("d",-3,date()) rem response.write data_atual & " toto " & data_atual_menos_4 if Not rsBoletos.Eof then Do While Not rsBoletos.Eof if rsBoletos("FT16VENC") < cdate(data_atual) then valor_debito = valor_debito + rsBoletos("FT16VORG") if rsBoletos("FT16VENC") < cdate(data_atual_menos_4) then valor_debito_menos_4 = valor_debito_menos_4 + rsBoletos("FT16VORG") end if end if rsBoletos.MoveNext loop rsBoletos.Close end if end if rem response.write "toto" rem response.end data_atual = date() if IsNull(rsClientes("data_limite")) then data_cliente = "12/12/2030" else data_split = split(rsClientes("data_limite"), "/") data_cliente = data_split(1) & "/" & data_split(0) & "/" & data_split(2) end if rem if rsClientes("vlr_debito") > 0 then if IsNull(rsClientes("data_credito")) then data_credito = "12/12/2030" else data_split = split(rsClientes("data_credito"), "/") data_credito = data_split(1) & "/" & data_split(0) & "/" & data_split(2) end if if cdate(data_credito) < cdate(data_atual) then valor_credito = 0 else if Isnull(rsClientes("vlr_credito")) then valor_credito = 0 else valor_credito = cint(rsClientes("vlr_credito")) end if end if rem response.write valor_debito & " " & valor_credito & " " & data_credito & " " & rsClientes("data_credito") & "
" rem response.end rem response.write "toto" rem response.end if valor_debito_menos_4 > valor_credito then %>

Atualiza��o Restrita - Informamos que existem t�tulos vencidos em nossa base de dados conforme relacionado (s) abaixo. Caso j� tenha efetuado o (s) pagamento (s), entre em contato com o Financeiro (11) 3259-7348 / 4063-6944.

<% elseif cdate(data_cliente) < cdate(data_atual) then rem response.write data_atual & " " & rsClientes("data_limite") & "
" %>

Sua empresa n�o esta autorizada para fazer download. Ligue para o suporte tecnico (11) 3259-7348

<% else %>
Alterar senha


Sua empresa n�o esta autorizada para fazer download. Ligue para o suporte tecnico (11) 3259-7348

<% end if rsDownloads.Close %> <% End If End If %> <% rem response.write "tata" rem response.end if isnumeric(mid(Session("BR"),3,5)) then %>
Boletos em Aberto - Vencidos e a vencer

<% if Isnull(rsClientes("filial")) then sql = "SELECT * FROM Boletos WHERE COD_CLI = '" & mid(Session("BR"),3,5) & "' ORDER BY COD_FIL, FT16VENC" else sql = "SELECT * FROM Boletos WHERE COD_CLI = '" & mid(Session("BR"),3,5) & "' AND COD_FIL = '" & rsClientes("filial") & "' ORDER BY COD_FIL, FT16VENC" end if rem response.write sql set rsBoletos = Dados_boleto.Execute(sql) rem response.write "tata" rem response.end if Not rsBoletos.Eof then rem response.write "tata" rem response.end rem if rsClientes("vlr_debito") > 0 then if valor_debito > 0 then %> Caso j� tenha efetuado algum dos pagamentos h� mais de 72 horas, entre em contato com nosso departamento financeiro pelos telefones (11) 3259-7348 / 4063-6944

<% end if %>
    <% dim qtde_dias_atraso Do While Not rsBoletos.Eof if isnull(rsBoletos("FT16NBLOQ")) then toto = "" else if isnumeric(mid(rsBoletos("FT16NBLOQ"),7,1)) then nosnum = rsBoletos("FT16NBLOQ") else letra = mid(rsBoletos("FT16NBLOQ"),7,1) letra_asc = Asc(ucase(letra)) - 64 if letra_asc < 10 then letra_asc_txt = "0" & cbyte(letra_asc) else letra_asc_txt = letra_asc end if nosnum = mid(rsBoletos("FT16NBLOQ"),1,4) & mid(rsBoletos("FT16NBLOQ"),6,1) & letra_asc_txt & mid(rsBoletos("FT16NBLOQ"),8,4) end if if IsNull(rsClientes("data_juros")) then data_juros = "12/12/2030" else data_split = split(rsClientes("data_juros"), "/") data_juros = data_split(1) & "/" & data_split(0) & "/" & data_split(2) end if rem response.write data_juros & " ttttttttttttt
    " rem response.write rsClientes("data_juros") & " ttttttttttttt
    " rem response.write cdate(data_juros) & " ttttttttttttt
    " rem response.write cdate(data_atual) & " ttttttttttttt
    " if cdate(data_juros) < cdate(data_atual) then dispensa_juros = FALSE else if Isnull(rsClientes("dispensa_juros")) then dispensa_juros = FALSE else dispensa_juros = rsClientes("dispensa_juros") end if end if if cdate(rsBoletos("FT16VENC")) < now() then if dispensa_juros = false then qtd_dias = datediff("d",rsBoletos("FT16VENC"), now()) pct_com_juros = (qtd_dias * 0.0033) + 1 vlr_editado_sujo1 = rsBoletos("FT16VORG") * pct_com_juros vlr_editado_sujo = FormatCurrency(vlr_editado_sujo1, 2) else vlr_editado_sujo = FormatCurrency(rsBoletos("FT16VORG"),2) end if else vlr_editado_sujo = FormatCurrency(rsBoletos("FT16VORG"),2) end if qtd_zeros = 0 vlr_editado = "" do while qtd_zeros < len(vlr_editado_sujo) qtd_zeros = qtd_zeros + 1 if isnumeric(mid(vlr_editado_sujo, qtd_zeros, 1)) then vlr_editado = vlr_editado & mid(vlr_editado_sujo, qtd_zeros, 1) end if loop if len(vlr_editado) > 5 then vlr_editado_boleto = mid(vlr_editado, 1, (len(vlr_editado) - 5)) & "." & mid(vlr_editado, (len(vlr_editado) - 4), 3) & "," & mid(vlr_editado, (len(vlr_editado) - 1), 2) else vlr_editado_boleto = mid(vlr_editado, 1, (len(vlr_editado) - 2)) & "," & mid(vlr_editado, (len(vlr_editado) - 1), 2) end if %> <% if rsBoletos("FT16VENC") > DateAdd("d", -60, now()) then %>
  • Titulo <%= nosnum%>- <%= rsBoletos("COD_FIL")%> - <%= day(rsBoletos("FT16VENC")) & "/" & month(rsBoletos("FT16VENC")) & "/" & year(rsBoletos("FT16VENC"))%> - R$ <%= vlr_editado_boleto%> - &ft16nbloq=<% = rsBoletos("FT16NBLOQ ") %>&nosnum=<% = nosnum %>" class="arial_bold_11_azul_medio" style="text-decoration:underline; font-size:12px; margin-right:10px;" target="_new">Emitir boleto <%if cdate(rsBoletos("FT16VENC")) < now() then response.write " - vencido" end if%> <% else %>
  • Titulo <%= nosnum%>- <%= rsBoletos("COD_FIL")%> - <%= day(rsBoletos("FT16VENC")) & "/" & month(rsBoletos("FT16VENC")) & "/" & year(rsBoletos("FT16VENC"))%> - R$ <%= vlr_editado_boleto%> - Solicitar Novo Boleto <%if cdate(rsBoletos("FT16VENC")) < now() then response.write " - vencido" end if%> <% end if %> <% end if rsBoletos.MoveNext : Loop rsBoletos.Close else %>
  • N�o existem boletos em aberto <% end if end if Dados.Close Dados_boleto.Close %>

×