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

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

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

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

Sim, já estão setadas no acbrmonitor.

Boa tarde, alterei o arquivo ini e mesmo assim, não imprimiu... Anexei como solicitado Titulos.ini

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.

Estou usando com troca de arquivos.

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 ?