<% 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%>