MICROSOFT VBSCRIPT RUNTIME ERROR 800A01A8
Galera estou com um problema local.
A mensagem acontece raramente e em uma mesma máquina
microsoft vbscript runtime error [ô]800a01a8
object required [ô]cdx.documentoscobranca[ô]
/exibetodosboletos.asp line 133
Uso um componente para criar um boleto de banco, segue abaixo o trecho até o erro
[ô]Cria instância do objeto CobreBemX
set cbx = Server.CreateObject([Ô]CobreBemX.ContaCorrente[Ô])
SQLString3 = [Ô]Select tx_agencia, tx_contaCorrente, tx_codCedente, tx_carteira, tx_convenio, vl_postagemoficio from tb_empresa where an_codempresa = 1[Ô]
Call AbreRs3(SQLString3)
agencia = rs3([Ô]tx_agencia[Ô])
contaCorrente = rs3([Ô]tx_contaCorrente[Ô])
codCedente = rs3([Ô]tx_codCedente[Ô])
carteira = rs3([Ô]tx_carteira[Ô])
convenio = rs3([Ô]tx_convenio[Ô])
valpostagemoficio = rs3([Ô]vl_postagemoficio[Ô])
Call FechaRs3
[ô]Monta dados da conta corrente
cbx.CodigoAgencia = agencia
cbx.NumeroContaCorrente = contaCorrente
cbx.CodigoCedente = codCedente
cbx.OutroDadoConfiguracao1 = carteira
[ô]Cria documento de cobrança
set Boleto = cbx.DocumentosCobranca.Add -> Linha 133
Ao reiniciar o navegador após fechar todos os aplicativos que usam memórias, tipo facebook, rádio online e etc, o boleto é exibido normalmente
Será que alguém pode me dar uma força, andei pesquisando sobre o assunto na net más nada consegui de concreto
A mensagem acontece raramente e em uma mesma máquina
microsoft vbscript runtime error [ô]800a01a8
object required [ô]cdx.documentoscobranca[ô]
/exibetodosboletos.asp line 133
Uso um componente para criar um boleto de banco, segue abaixo o trecho até o erro
[ô]Cria instância do objeto CobreBemX
set cbx = Server.CreateObject([Ô]CobreBemX.ContaCorrente[Ô])
SQLString3 = [Ô]Select tx_agencia, tx_contaCorrente, tx_codCedente, tx_carteira, tx_convenio, vl_postagemoficio from tb_empresa where an_codempresa = 1[Ô]
Call AbreRs3(SQLString3)
agencia = rs3([Ô]tx_agencia[Ô])
contaCorrente = rs3([Ô]tx_contaCorrente[Ô])
codCedente = rs3([Ô]tx_codCedente[Ô])
carteira = rs3([Ô]tx_carteira[Ô])
convenio = rs3([Ô]tx_convenio[Ô])
valpostagemoficio = rs3([Ô]vl_postagemoficio[Ô])
Call FechaRs3
[ô]Monta dados da conta corrente
cbx.CodigoAgencia = agencia
cbx.NumeroContaCorrente = contaCorrente
cbx.CodigoCedente = codCedente
cbx.OutroDadoConfiguracao1 = carteira
[ô]Cria documento de cobrança
set Boleto = cbx.DocumentosCobranca.Add -> Linha 133
Ao reiniciar o navegador após fechar todos os aplicativos que usam memórias, tipo facebook, rádio online e etc, o boleto é exibido normalmente
Será que alguém pode me dar uma força, andei pesquisando sobre o assunto na net más nada consegui de concreto
Repare que no seu código vc usa um objeto chamado cbx, e o erro fala de um cdx. Procure por esse cdx nos seus arquivos de projeto.
LLAIA obrigado pelo retorno
Verdade esse arquivo cbx é o componente que utilizo, más ele esta instanciado já e a opção documentoscobranca é uma das propriedades do objeto cbx, que inicia um novo boleto com os dados do recordset
Verdade esse arquivo cbx é o componente que utilizo, más ele esta instanciado já e a opção documentoscobranca é uma das propriedades do objeto cbx, que inicia um novo boleto com os dados do recordset
Olá, nunca mexi com esse Objeto, porém creio que falta algumas informações a serem adicionadas para geração do boleto
veja abaixo o exemplo do site:
Observe que a sua instância não referencia o arquivo de configuração!
Você não esta passando o nosso número nem imagens do código de barra!
veja se colocando essas informações você consegue gerar o boleto
Espero ter ajudado
veja abaixo o exemplo do site:
[ô]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 = [Ô]c:\CobreBemX\Exemplos\Licencas\001-18.conf[Ô]
[ô]Monta dados da conta corrente
cbx.CodigoAgencia = [Ô]1234-5[Ô]
cbx.NumeroContaCorrente = [Ô]00000123-X[Ô]
cbx.CodigoCedente = [Ô]123456[Ô]
cbx.InicioNossoNumero = [Ô]00001[Ô]
cbx.FimNossoNumero = [Ô]99999[Ô]
cbx.ProximoNossoNumero = [Ô]00015[Ô]
cbx.PadroesBoleto.PadroesBoletoEmail.URLImagensCodigoBarras = [Ô]http://localhost/imagens/[Ô]
cbx.PadroesBoleto.PadroesBoletoEmail.URLLogotipo = [Ô]http://localhost/imagens/BannerCBX.gif[Ô]
[ô]Cria documento de cobrança
set boleto = cbx.DocumentosCobranca.AddObserve que a sua instância não referencia o arquivo de configuração!
Você não esta passando o nosso número nem imagens do código de barra!
veja se colocando essas informações você consegue gerar o boleto
Espero ter ajudado
Filmam obrigado pelo retorno
Vc tem razão, realmente na parte que coloquei não constam esses dados, pq eles estão mais para baixo do comando, não coloquei todo o código, pq ele iria ficar meio que grande
Primeiro se instância o objeto , depois cria o boleto, pego todos os dados restantes da mensagem e preencho o boleto
Como comentei, esse é um problema que ocorre raramente, geralmente quando isso ocorre, a pessoa que esta na máquina esta com muita coisa aberto, como facebook, radio e/ou youtube
Em 95% basta fechar tudo e iniciar novamente o navegador que já funciona normalmente a emissão do boleto, os outros 5% entra o caso que o problema persiste e que exige que a máquina seja reiniciada
Vc tem razão, realmente na parte que coloquei não constam esses dados, pq eles estão mais para baixo do comando, não coloquei todo o código, pq ele iria ficar meio que grande
Primeiro se instância o objeto , depois cria o boleto, pego todos os dados restantes da mensagem e preencho o boleto
Como comentei, esse é um problema que ocorre raramente, geralmente quando isso ocorre, a pessoa que esta na máquina esta com muita coisa aberto, como facebook, radio e/ou youtube
Em 95% basta fechar tudo e iniciar novamente o navegador que já funciona normalmente a emissão do boleto, os outros 5% entra o caso que o problema persiste e que exige que a máquina seja reiniciada
Quantos boletos são gerados por dia na mesma maquina?
Filman esse não é um processo rotineiro, por vez são gerados 5 mensalidades ao mesmo tempo. Os associados vão no sindicato para retirar as mensalidades, quando não tiram diretamente pelo site.
Esse processo e feito umas 7 a 8 vezes mais ou menos
Esse processo e feito umas 7 a 8 vezes mais ou menos
Você esta destruindo os objetos instanciados ao concluir a emissão?
set Boleto = Nothing
set cbx = Nothing
E assim por diante
Tente também não sobrecarregar o CACHE coloque o código abaixo no inicio da sua página
Veja se tem essas configurações. O cache vai ajudar o navegador não ficar procurando por páginas semelhante forçando sempre gerar uma instância de página nova sem fazer comparações com as outras páginas já emitidas!
set Boleto = Nothing
set cbx = Nothing
E assim por diante
Tente também não sobrecarregar o CACHE coloque o código abaixo no inicio da sua página
<%
Respose.Buffer = True
Response.CacheControl = [Ô]no-cache[Ô]
[ô]Para HTTP/1.1
Response.AddHeader [Ô]cache-control[Ô],[Ô]no-cache[Ô]
[ô]Para HTTP/1.0
Response.AddHeader [Ô]Pragma[Ô], [Ô]no-cache[Ô]
%>Veja se tem essas configurações. O cache vai ajudar o navegador não ficar procurando por páginas semelhante forçando sempre gerar uma instância de página nova sem fazer comparações com as outras páginas já emitidas!
Filman valeu pelo toque, eu coloquei o arquivo para vc dar uma olhada, más realmente não tem o código que vc postou acima
Dê uma olhada, coloquei o código acima no inicio da página e no fim destruà o objeto Boleto!
Tente publicar a página e faça os testes para ver se vai funcionar ou não!
Tente publicar a página e faça os testes para ver se vai funcionar ou não!
Blz, vlw irei publicar sim
Darei uma olhada mesmo, pq em ASP estou engatinhando, apenas dou uma manutenção
Darei uma olhada mesmo, pq em ASP estou engatinhando, apenas dou uma manutenção
Tópico encerrado , respostas não são mais permitidas