nazarenoneto

Application.Initialize; RLConsts.SetVersion(3,71,'B'); Esse codigo tem que ser no final do FORMULÁRIO principal do sistema, aqui ta dando certo

Você ja instalou o opemssl? se não, instale e tente novamente.

Isso ja foi discutido no forum. da uma olhada no topico: viewtopic.php?f=11&t=730

O codigo do cedente / convenio no banco itau nao é preciso, ocodigo de barras é montado apenas com a agencia e a conta. da uma verificada nos fontes para tirar a duvida ou entao liguem para o 0800.

CDSRetorno.FieldByName('DescricaoMotivoRejeicaoComando').AsString := ACBrBoleto.ListadeBoletos.Objects.DescricaoMotivoRejeicaoComand.Text;

Vc tem que instalar ele e algum dos "visualizadores de boleto", pode ser qualquer uma das duas versões (fortes ou quick) ai sim vc pode rodar o demo

ACBrBoleto.dpk é o boleto em si, onde vc ira criar boletos, gerar arquivos de remessa dos boletos criados e tambem podera fazer a operação de receber aquivos (não sei quais bancos ja estão com essas funcionabilidades prontas) e podemos dizer que ACBrBoletoFC_Fortes.dpk é a visualização dos boletos inseridos no ACBrBoleto, no ACBrBoleto tem uma propriedade que relacina os dois, isso pq o ACBrBoleto permite que vc use tambem o quick reports para imprimir usando o ACBr_BoletoFC_Quick.dpk Eu tambem usava o gbBoleto, deixei o codigo do gbboleto queto e fiz uma nova rotina para usar o acbrboleto, tudo que vc precisa pra saber usar o mesmo esta no demo.

Você esta com fontes atualizados? Se sim, desinstale todo o ACBr, apague as bpl e depois instale novamente.

Na Carteira, esse informação você pega com o banco

Pessoal, gostaria de propor a alteração a seguir: Colocar os dados do sacado no recibo do sacado um pouco para direita. Motivo: não precisar imprimir etiqueta para cada boleto, colocado o boleto nos envelopes que tem um plastico na frente. Caso seja aceito a alteração segue em anexo os fontes. ACBrBoletoFCFortesFr.rar

Vlw Daniel, era isso mesmo, acabei de limpar a memória dela e ela voltou ao normal. Muito obrigado cara.

Pessoal, já descobri que não tem nada haver com o ACBr, mas gostaria saber se algum de vocês passou por isso: Quando mando imprimir qualquer coisa na impressora, seja pelo acbr ou pelo windows, o papel esta sendo puxado ao contrario, tipo, em vez de ele sair da impressora, ele esta rebobinando o filme e o papel. Tipo o bobina esta rolando ao contrario. Algum ai já passou por isso?

Os fontes estão sim, eu atualzo quase semanalmente. O Erro ocorreu justamente com o Demo, mas não testei com o emulador. O Erro ocorria assim, tenho uma rotina para emissão da redução Z onde gravo algumas informações antes de efetuar a mesma, e uma dessas informações é o DadosReducaoZ, quando executo é gerado o erro. Como ja sabia do erro em meu sistema, não executei o procedimento pelo meu sistema, abri o demo e executei o DadosReducaoZ, ai ela retornava o erro "Lista of Index Blouds(6)". Um Detalhe, depois de emitir a redução z eu executei um DadosUltimaReducaoZ, e ela foi gerado sem erro. Vo baixar o emulador e tentar executar para ver se vai da erro.

Pessoal quando uso o método dadosreducaoz do ACBrECF em uma Bematech MP 2100 TH FI esta retornando o erro "Lista of Index Blouds(6)". Nao tive como debugar e tentar corrigir o erro pois o erro ocorreu em um cliente. Alguem que tenha ai uma impressora dessas ai pode verificar o erro?

No visa vc pode usar qualquer numero que ele aceita. Não lembro se no RedeCard é tudo 1 ou tudo 8, não sei, da uma testada ai!

Pessoal, mesmo alterando essa linha ai em cima, esta avançando mais do que eu informo.

Pessoal, esta tentando implementar impressão no ACBrETQ, e percebi que quando mando imprimir, esta avançando muito de uma linha para outra. Ai fui olhar o codigo e tem um avanco padrao de 220 mesmo que o avanco seja 0 (Sero). procedure TACBrETQPpla.Imprimir(Copias: Integer = 1; AvancoEtq: Integer = 0); var Temp, NCop : String; begin Cmd := ''; if (Temperatura < 0) or (Temperatura > 20) then Raise Exception.Create(ACBrStr('Informe um valor entre 0 e 20 para Temperatura')); Temp := IntToStrZero(Temperatura,2); if (Copias < 0) or (Copias > 9999) then Raise Exception.Create(ACBrStr('Tamanho máximo para o Número de Cópias 4 caracteres')); NCop := IntToStrZero(Copias,4); Cmd := STX + 'L' + CRLF + STX + Unidade + CRLF + 'H' + Temp + CRLF + 'D11' + CRLF + 'Q' + NCop; {Inserindo comando iniciais na posicao Zero} ListaCmd.Insert(0, Cmd); Cmd := ''; if AvancoEtq = 0 then AvancoEtq := Avanco; if (AvancoEtq < 0) or (AvancoEtq > 779) then Raise Exception.Create(ACBrStr('O Valor máximo para o Avanço de Etiquetas é 779')); AvancoEtq := AvancoEtq + 220; //nesta Linha Cmd := 'E' + CRLF + STX + 'f' + IntToStr(AvancoEtq) + CRLF ; if LimparMemoria then Cmd := Cmd + STX + 'Q' ; ListaCmd.Add(Cmd); fpDevice.EnviaString(ListaCmd.Text); ListaCmd.Clear; end; Queria ver a possibilidade de alterar essa linha, para o avanço padrão ser 0 (zero). O que vcs me dizem?

Pessoal, baixei a versão do fortes do sourceforge, e quando estou emitindo um boleto esta dando a seguinte mensagem: "Sistema não esta de acordo com a versão do fortes report. Versão atual: 3.70b" Alguem tem alguma luz ai pra min dar? o engraçado é que o acbrboletofcfortes instalou sem nehum problema, mas sempre quando mando imprimir um boleto sai msg na tela.

Alguem poderia fazer apenas o teste para ver se é algum erro no meu código ou realmente no componente?

Pessoal, não sei se estou fazendo algo de errado, mas sempre quando adicionar um novo registro c114 é gerado um erro de list of index bounds(-1). Codigo: with RegistroC114New do begin COD_MOD := DM.IbCupomNota.FieldByName('MODELO').AsString; ECF_FAB := DM.IbCupomNota.FieldByName('MODELO').AsString; ECF_CX := DM.IbCupomNota.FieldByName('PDV').AsString; NUM_DOC := DM.IbCupomNota.FieldByName('CUPOM').AsString; DT_DOC := DM.IbCupomNota.FieldByName('DATA_EMISSAO').AsDateTime; end; Alguma Dica?

A propriedade retantar do ACBrECF esta false ou true? Provavelmente deva estar true, coloque ela para false e faço novos teste.

Acho estranho esse requerimento do Fortes, vc Deve apenas instalar o ACBrBoleto e Depois o ACBrBoletoFCQuick, não precisa instalar o ACBrBoeltoFCFortes não. Aqui uma certa vez instalei apenas o ACBrBoleto para testar a geração do arquivo de remessa.

Se vc tiver o quickreports instalado no seu delphi, vc pode usar o ACBrBoletoFcQuick, ele é a versão de impressão para quick reports do ACBrBoleto. Lembrando que a versão do fortes é mais completa, so testando para perceber as diferenças.

Pessoal, precisei fazer um alteração para os boletos da caixa serem homologados, no campo Código cedente na impressão estava sendo impresso a agencia e a conta do cedente, mas quando mandei estes boletos para homologação eles me retornaram que ali deveria ser impresso a agencia e o Código do cedente. Assim tive que alterar o ACBrBoletoFCFortes, na linha 552 que era assim: txtCodigoCedente2.Caption := Cedente.Agencia+'-'+Cedente.AgenciaDigito+'/'+ Cedente.Conta+'-'+Cedente.ContaDigito; passou a ser assim: if Banco.Numero = 104 then txtCodigoCedente2.Caption := CodCedente else txtCodigoCedente2.Caption := Cedente.Agencia+'-'+Cedente.AgenciaDigito+'/'+ Cedente.Conta+'-'+Cedente.ContaDigito; Queria ver se a possibilidade dessas alterações junto os fontes do projeto.

Falando em ACBrBoletoCEF, mandei uma bateria de teste para o pessoa da CEF e eles me retornaram que estava com erro no boleto, que no campo impresso codigo cedente estava saido a agencia / conta, isso eu ate ja tinha visto, algum sabe dizer se isso realmente procede ou eh cheminho dele? Se proceder vo tentar alterar os fontes e posto aqui.