%
'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
cbx.ArquivoLicenca = "G:\inetpub\domains\e\edutecsp.com.br\www\nc_cobrebem\Licencas\10261682000140-341-109.conf"
'Monta dados da conta corrente
cbx.CodigoAgencia = "0756"
cbx.NumeroContaCorrente = "00753-0"
cbx.CodigoCedente = "0756007530"
cbx.InicioNossoNumero = "00001"
cbx.FimNossoNumero = "99999"
cbx.ProximoNossoNumero = "00015"
cbx.PadroesBoleto.PadroesBoletoEmail.URLImagensCodigoBarras = "http://www.edutecsp.com.br/nc_cobrebem/imagens/"
cbx.PadroesBoleto.PadroesBoletoEmail.URLLogotipo = "http://www.edutecsp.com.br/nc_cobrebem/imagens/BannerCBX.gif"
'Cria documento de cobrança
set boleto = cbx.DocumentosCobranca.Add
'Monta dados do sacado
Boleto.NomeSacado = "Fulano de Tal"
'Para PJ utilize CNPJSacado
Boleto.CPFSacado = "111.111.111-11"
Boleto.EnderecoSacado = "Rua do Sacado 123"
Boleto.BairroSacado = "Bairro do Sacado"
Boleto.CidadeSacado = "Cidade do Sacado"
Boleto.EstadoSacado = "SP"
Boleto.CepSacado = "01001-001"
'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 = Dia & "/" & Mes & "/" & Ano
'Monta dados do documento de cobrança
Boleto.NumeroDocumento = "12345"
Boleto.ValorDocumento = 123.45
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 = "
Não dispensar juros e multa após o vencimento"
'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
%>