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