ACBRMonitor assume ok mas não imprime nada

[RamonHB]

Boa noite a todos.

Programo em Harbour, que é um clone do clipper, em 32 bits multiplataforma.

Estou desenvolvendo rotina para emissão de boletos através do acbrmonitor.

Já está aceitando os dados enviados, o monitor responde ok, mas não imprime nada....

Estou fazendo assim:

BOLETO.IncluirTitulos("c:\ACBrMonitor\titulos.ini")

BOLETO.IncluirTitulos("Titulo1]NumeroDocumento=000010NossoNumero=0000001Carteira=20ValorDocumento=100,50Sacado.NomeSacado=Juliana Rodrigues Prado TamizouSacado.CNPJCPF=360.542.308.67Sacado.Logradouro=Rua Jose Afonso TrictaSacado.Numero=600Sacado.Bairro=Vila EsperancaSacado.Complemento=Sacado.Cidade=TatuiSacado.UF=SPSacado.CEP=18277.500Mensagem=teste1|teste2ValorMoraJuros=0,50Vencimento=10/09/2010")

BOLETO.Imprimir

No monitor dá como ok, mas não imprime nada...

Onde está o erro ?

[Juliana Tamizou]

Bom dia Ramon.

Desculpe a demora na resposta...

Vc mandou os comandos exatamente como no post?

Por exemplo "("Titulo1] ", deveria ser ("[Titulo1]

NumeroDocumento= 00001

NossoNumero=000001 ...)

Como vc está utilizando o ACBrMonitor, por TCP ou por Troca de Arquivos?

Att .

[RamonHB]

Estou usando com troca de arquivos.

[Juliana Tamizou]

Boa tarde Ramon.

Vc está enviando o arquivo exatamente da forma como colocou no seu post do dia 03/12?

Att.

[RamonHB]

Hoje, testei enviando os comandos abaixo, usando Clipper:

? "BOLETO.IncluirTitulos('c:\ACBrMonitor\titulos.ini','I')"

? "BOLETO.IncluirTitulos('[Titulo1]NumeroDocumento=000010NossoNumero=0000001Carteira=20ValorDocumento=100,50Sacado.NomeSacado=Juliana Rodrigues Prado TamizouSacado.CNPJCPF=360.542.308.67Sacado.Logradouro=Rua Jose Afonso TrictaSacado.Numero=600Sacado.Bairro=Vila EsperancaSacado.Complemento=Sacado.Cidade=TatuiSacado.UF=SPSacado.CEP=18277.500Mensagem=teste1|teste2ValorMoraJuros=0,50Vencimento=10/09/2010')"

? 'BOLETO.Imprimir'

O AcbrMonitor Respondeu:

BOLETO.IncluirTitulos('c:\ACBrMonitor\titulos.ini','I')

BOLETO.IncluirTitulos('[Titulo1]NumeroDocumento=000010NossoNumero=0000001Carteira=20ValorDocumento=100,50Sacado.NomeSacado=Juliana Rodrigues Prado TamizouSacado.CNPJCPF=360.542.308.67Sacado.Logradouro=Rua Jose Afonso TrictaSacado.Numero=600Sacado.Bairro=Vila EsperancaSacado.Complemento=Sacado.Cidade=TatuiSacado.UF=SPSacado.CEP=18277.500Mensagem=teste1|teste2ValorMoraJuros=0,50Vencimento=10/09/2010')

BOLETO.Imprimir

OK:

Mas não imprime nada.

[Juliana Tamizou]

Boa tarde.

A forma correta de montar o ini de boletos é conforme o manual do ACBr, ou seja, com uma informação por linha. Exemplo:

[Titulo01]

NumeroDocumento=000010

NossoNumero=0000001

Carteira=20....

Anexe ao caso o arquivo ini que vc utilizou.

Att...

[RamonHB]

Boa tarde, alterei o arquivo ini e mesmo assim, não imprimiu...

Anexei como solicitado

Titulos.ini

[Juliana Tamizou]

Boa tarde.

As informações referentes a conta bancaria vc está deixando fixo no ACBrMonitor?

Att.

[RamonHB]

Sim, já estão setadas no acbrmonitor.

[RamonHB]

Juliana, vc poderia me passar exemplos destes arquivos ini, ai eu faço meu programa reproduzir exatamente a mesma estrutura...

Pode ser ?

Assim eu poderia fazer multibanco...

[Juliana Tamizou]

Boa tarde.

Vc possui o manual do ACBrMonitor? Nele estão detalhados os comandos disponíveis inclusive para o Boleto, para configurar os dados da conta utilize o comando ConfiguraDados().

Abaixo está um exemplo do ini com as informações do Banco/Conta/Cedente

[Cedente]

Nome=São João LTDA.

CNPJCPF= 99.999.999/9999-99

Logradouro=Rua Evaristo Mendes

Numero=200

Bairro=Centro

Cidade=Tatui

CEP=18.270-000

Complemento=Sala 10

UF=SP

RespEmis=0

TipoPessoa=1

CodigoCedente=123456

[Conta]

Conta=99999

DigitoConta=9

Agencia=9999

DigitoAgencia=9

[banco]

Numero=237

CNAB=1

IndiceACBr=5

[RamonHB]

Bom dia, Juliana

Fiz as modificações nos arquivos, como no exemplo

Arquivo cedente.ini

[Cedente]

Nome=Célio Sarmento - ME

CNPJCPF=88.999.555/0001-77

Logradouro=Rua Paulo Klodzinski

Numero=699

Bairro=Centro

Cidade=Itaiópolis

CEP=89.340-000

Complemento=

UF=SC

RespEmis=0

TipoPessoa=1

CodigoCedente=99999999

[Conta]

Conta=99999

DigitoConta=9

Agencia=9999

DigitoAgencia=9

[banco]

Numero=001

CNAB=1

IndiceACBr=1

Arquivo Titulos.ini

[Titulo1]

NumeroDocumento=000010

NossoNumero=0000001

Carteira=18

ValorDocumento=100,50

Sacado.NomeSacado=Juliana Rodrigues Prado Tamizou

Sacado.CNPJCPF=360.542.308.67

Sacado.Logradouro=Rua Jose Afonso Tricta

Sacado.Numero=600

Sacado.Bairro=Vila Esperanca

Sacado.Complemento=

Sacado.Cidade=Tatui

Sacado.UF=SP

Sacado.CEP=18.277-500

Mensagem=teste1|teste2

ValorMoraJuros=0,50

Vencimento=10/09/2010

o Acbrmonitor dá como ok, mas não sai nada.

Agradeço quanquer ajuda.

Cedente.ini

Titulos.ini

SAI.TXT

[RamonHB]

Ninguém tem uma idéia do que possa estar ocorrendo ?

[Juliana Tamizou]

Boa tarde Ramon.

Como vc está enviando os comandos ao ACBrMonitor?

Os comandos do ACBr devem ser enviados um a um, ou seja, primeiro você manda o ConfiguraCedente e depois o IncluirTitulos.

Att.

[RamonHB]

Aqui está o código usado:

Set Printer to C:\ACBrMonitor\ent.txt

? "BOLETO.LimparLista"

Set Printer to

Set Printer ON

Set Printer to c:\ACBrMonitor\Cedente.ini

? "[Cedente]"

? "Nome=Célio Sarmento - ME"

? "CNPJCPF=99.999.999/0001-78"

? "Logradouro=Rua Paulo Klodzinski"

? "Numero=699"

? "Bairro=Centro"

? "Cidade=Itaiópolis"

? "CEP=89.340-000"

? "Complemento="

? "UF=SC"

? "RespEmis=0"

? "TipoPessoa=1"

? "CodigoCedente=99999999"

? "[Conta]"

? "Conta=99999"

? "DigitoConta=9"

? "Agencia=9999"

? "DigitoAgencia=9"

? "[banco]"

? "Numero=001"

? "CNAB=1"

? "IndiceACBr=1"

Set Printer to

Set Printer to C:\ACBrMonitor\ent.txt

? 'BOLETO.ConfigurarDados("c:\ACBrMonitor\cedente.ini")'

Set Printer to

Receber->(DBGoto(Val(nDocto)))

Clientes->(OrdSetFocus("Codigo"))

Clientes->(DBSeek(nCodCli))

If ! Clientes->(Eof())

ws_Sacado := Clientes->Razao

ws_Endereco := (AllTRim(Clientes->Endereco)+", "+AllTRim(Clientes->Complement))

ws_Bairro := Clientes->Bairro

ws_Cidade := Clientes->Cidade

ws_Estado := Clientes->Uf

ws_Cep := Clientes->CEP

ws_Cnpj := AllTrim(Clientes->Cpf)

ws_cNumDoc := StrTran( Receber->DOCTO, "O", "" )

ws_cNumDoc := StrTran( ws_cNumDoc, "S", "" )

ws_cNumDoc := StrZero( Val(ws_cNumDoc), 7, 0)

ws_cNossoNumero := ws_cNumDoc

ws_nValor := Alltrim(Str(Receber->Valor+5.00,6,2))

ws_DtEmis := (Right(Dtoc(Date()),4)+Substr(DtoC(Date()),4,2)+Left(DtoC(Date()),2))

ws_DtVenc := (Right(Dtoc(Receber->Vencto),4)+Substr(DtoC(Receber->Vencto),4,2)+Left(DtoC(Receber->Vencto),2))

Set Printer on

Set Printer to c:\ACBrMonitor\Titulos.ini

? "[Titulo1]"

? "NumeroDocumento=000010"

? "NossoNumero=0000001"

? "Carteira=18"

? "ValorDocumento=100,50"

? "Sacado.NomeSacado=Juliana Rodrigues Prado Tamizou"

? "Sacado.CNPJCPF=360.542.308.67"

? "Sacado.Logradouro=Rua Jose Afonso Tricta"

? "Sacado.Numero=600"

? "Sacado.Bairro=Vila Esperanca"

? "Sacado.Complemento="

? "Sacado.Cidade=Tatui"

? "Sacado.UF=SP"

? "Sacado.CEP=18.277-500"

? "Mensagem=teste1|teste2"

? "ValorMoraJuros=0,50"

? "Vencimento=10/09/2010"

Set Printer to

Set Printer on

Set Printer to C:\ACBrMonitor\ent.txt

? "BOLETO.IncluirTitulos('c:\ACBrMonitor\titulos.ini','I')"

? 'BOLETO.Imprimir'

Set Printer to

Endif

Msginfo("Terminou a execução")

Return NIL

[Juliana Tamizou]

Bom dia Ramon.

Eu fiz testes aqui com seus arquivos e após corrigir o CNPJ do Cedente que estava inválido, os boletos foram impressos normalmente.

Você deixou configurado para mostrar a Pré-Visualização do boleto?

Corrija o CNPJ do cedente e baixe uma versão mais atualizada do ACBrMonitor.

Att.

[AdauriCamachoJr]

RamonHB, você achou a solução pra esse problema ?