%
sNosso = Request("Nosso")
'sSQL = "Select A.NOME,A.SERIE,A.TURMA,R.RESNOMPAI as PAI,R.RESNOMMAE as MAE,R.RESCPF,R.RESCPFPAI,"
'sSQL = sSQL & "R.RESDESEND,R.RESDESBAI,R.RESDESCID,R.RESDESUFE,R.RESNUMCEP,"
'sSQL = sSQL & "C.val_car,C.dt_vencto,C.num_doc,C.responsavel,A.RGM "
'sSQL = sSQL & "From ALUNOS as A,ADEDALU as AA,ADEDRES as R,CARNES as C "
'sSQL = sSQL & "where A.RGM=C.RGM and AA.ALUNUMMAT=A.RGM AND R.RESNUMCOD=AA.ALUNUMCOD and C.nosso_no = '" & sNosso & "'"
'tudo substituido pela view (consulta) armazenada no bd
sSQL = "Select * from v_dados where nosso_no = '" & sNosso & "'"
'Response.Write(sSQL) ': Response.End()
Set rs = Banco.Execute(sSQL)
sRGM = rs("RGM")
sNome = rs("NOME")
sSerie = rs("SERIE")
sTurma = rs("TURMA")
sPai = rs("PAI")
sMae = rs("MAE")
sCPF = rs("RESCPF")
Valor = CDbl(rs("Val_liq"))
Data = rs("dt_vencto")
NumDoc = rs("num_doc")
sEnd = rs("RESDESEND")
sBai = rs("RESDESBAI")
sCid = rs("RESDESCID")
sUF = rs("RESDESUFE")
sCEP = rs("RESNUMCEP")
if rs("responsavel") = "P" then
sResp = sPai
else
sResp = sMae
end if
Dim b1S9S : b1S9S = false
if Right(sSerie,1) = "S" then b1S9S = true
rs.Close : set rs = nothing
'http://www.edutecsp.com.br/nc_cobrebem/ExemploCBX.asp
'response.write server.mappath(".") : response.end
'Enumeradores
feeSMTPBoletoHTML = 0
feeSMTPMensagemBoletoHTMLAnexo = 1
feeSMTPMensagemBoletoPDFAnexo = 2
feeSMTPMensagemLinhaDigitavelURLCobreBemECommerce = 3
feeSMTPMensagemURLCobreBemECommerce = 4
feeSMTPMensagemLinhaDigitavel = 5
feeOutlookBoletoHTML = 6
feeOutlookMensagemBoletoHTMLAnexo = 7
feeOutlookMensagemBoletoPDFAnexo = 8
feeOutlookMensagemLinhaDigitavelURLCobreBemECommerce = 9
feeOutlookMensagemURLCobreBemECommerce = 10
feeOutlookMensagemLinhaDigitavel = 11
scpExecutar = 0
scpOK = 1
scpInvalido = 2
scpErro = 3
'Cria instância do objeto CobreBemX
set cbx = Server.CreateObject("CobreBemX.ContaCorrente")
'Monta arquivo de licença de teste para banco 001 carteira 18
if (b1S9S) then '1Sa9S
cbx.ArquivoLicenca = "G:\InetPub\Domains\w\webtecno.com.br\www\ativas\nc_cobrebem\Licencas\10261682000140-341-109.conf"
cbx.NumeroContaCorrente = "00753-0"
cbx.CodigoCedente = "0756007530"
else
cbx.ArquivoLicenca = "G:\InetPub\Domains\w\webtecno.com.br\www\ativas\nc_cobrebem\Licencas\14241444000123-341-109.conf"
'Monta dados da conta corrente
cbx.NumeroContaCorrente = "01383-5"
cbx.CodigoCedente = "0756013835"
end if
cbx.CodigoAgencia = "0756"
'cbx.InicioNossoNumero = "00001"
'cbx.FimNossoNumero = "99999"
'cbx.ProximoNossoNumero = "00015"
cbx.PadroesBoleto.PadroesBoletoEmail.URLImagensCodigoBarras = "http://www.webtecno.com.br/ativas/nc_cobrebem/imagens/"
cbx.PadroesBoleto.PadroesBoletoEmail.URLLogotipo = "http://www.webtecno.com.br/ativas/nc_cobrebem/imagens/BannerCBX.gif"
'Cria documento de cobrança
set boleto = cbx.DocumentosCobranca.Add
'Monta dados do sacado
Boleto.NomeSacado = sResp
'Para PJ utilize CNPJSacado
Boleto.CPFSacado = sCPF
Boleto.EnderecoSacado = sEnd
Boleto.BairroSacado = sBai
Boleto.CidadeSacado = sCid
Boleto.EstadoSacado = sUF
Boleto.CepSacado = sCEP
'Data do Documento e do Processamento igual a data do servidor
Ano = DatePart("yyyy", Date)
Mes = DatePart("m", Date)
if Len(Mes) < 2 then
Mes = "0" & Mes
end if
Dia = DatePart("d", Date)
if Len(Dia) < 2 then
Dia = "0" & Dia
end if
Boleto.DataDocumento = Dia & "/" & Mes & "/" & Ano
Boleto.DataProcessamento = Dia & "/" & Mes & "/" & Ano
'Data de Vencimento dois dias após a data do servidor
Ano = DatePart("yyyy", DateAdd("d", 2, date))
Mes = DatePart("m", DateAdd("d", 2, date))
if Len(Mes) < 2 then
Mes = "0" & Mes
end if
Dia = DatePart("d", DateAdd("d", 2, date))
if Len(Dia) < 2 then
Dia = "0" & Dia
end if
Boleto.DataVencimento = Data 'Dia & "/" & Mes & "/" & Ano
'Monta dados do documento de cobrança
Boleto.NossoNumero = sNosso
Boleto.NumeroDocumento = NumDoc
Boleto.CalculaDacNossoNumero = True
Boleto.ValorDocumento = valor
'Boleto.PercentualJurosDiaAtraso = 0.33
'Boleto.PercentualMultaAtraso = 2
Boleto.PercentualDesconto = 0
Boleto.ValorOutrosAcrescimos = 0
'Boleto.PadroesBoleto.Demonstrativo = "Referente a compras na WEB
O melhor site da Internet"
Boleto.PadroesBoleto.InstrucoesCaixa="Devolver boleto após 30 dias de vencido
Após vencimento multa contratual de 2% mais juros de 1% ao mês
" & sSerie & " - RGM:" & sRGM & " - Aluno:" & sNome
'Solicita a geração do boleto e retorna-o como o resultado
if cbx.ultimaMensagemErro <> "" then
response.Write(cbx.UltimaMensagemErro)
end if
Response.Write(cbx.GeraHTMLBoleto(0))
'Libera instãncia do objeto CobreBemX
set cbx = nothing
%>
<%'Dados.Close
'Set Dados = Nothing
Banco.Close
Set Banco = Nothing%>