Daniel Simoes

Realmente essa propriedade não existe no Delphi.. deve ser exclusiva do lazarus/FPC... Inseri um IFDEF... por favor atualize e verifique se resolve...

A modificação é recente... estou verificando se no Delphi não existe essa propriedade (IsVisible)

podemos usar uma variável private... (na Daruma é usado isso pois em alguns casos não é possível detectar o estado de pagamento) Mas isso só funciona enquanto o Flag estiver na memória... ou seja, sair e carregar novamente o programa, o flag perderá o valor...

Estranho, pois não há modificação no tipo de código de Barras usado pelo Gerador em Quick por Banco... Ou seja, todos os Bancos usam o mesmo formato de código de barras.... e não temos reclamação semelhante de outros bancos Imprima um boleto com outro programa, com os mesmos dados, e verifique se realmente há diferença Tente tb em outra impressora...

Por favor tente mudar para: ANossoNumero := OnlyNumber(NossoNumero);

Em qual linha do código, e de qual Unit ocorre o erro ? Qual banco / carteira, etc ?? Não há uma homologação do componente... cada conta de cliente em que vc solicitar a impressão do Boleto precisará solicitar a homologação novamente diretamente com o banco...

Pode ser que ajude... O método abaixo calcula um Hash baseado em todos os campos de um DataSet, menos os campos informados na lista de Campos a ignorar Uses ACBrUtil ; ... function CalcHashDataSet(const ADataSet : TDataSet ; Chave : AnsiString = ''; IgnoreFields : TSetOfByte = [] ) : Word ; var NFields, I : Integer; Buffer : AnsiString ; begin Buffer := ''; Result := 0; NFields := ADataSet.FieldCount - 1 ; For I := 0 to NFields do begin if (not (I in IgnoreFields)) and (LowerCase( ADataSet.Fields[I].FieldName ) 'hash') then Buffer := Buffer + ADataSet.Fields[I].AsString; end ; if Chave '' then Buffer := StrCrypt( Buffer, Chave ); Result := StringCrc16( Buffer ) ; end; [/code] Exemplo: sqlDocumento.FieldByName('HASH').AsInteger := CalcHashDataSet(DataSet, 'SuaChave' );

Não... Atualmente o ACBr não faz comunicação com nenhum micro-terminal por TCP/IP

Veja na Unit ACBrBoleto.pas o seguinte método: procedure TACBrBanco.SetNumero(const AValue: Integer); begin if fNumeroBanco = AValue then exit; fBancoClass.Free; case AValue of 001 : fBancoClass := TACBrBancoBrasil.create(Self); 033,353,008 : fBancoClass := TACBrBancoSantander.create(Self); 041 : fBancoClass := TACBrBanrisul.create(Self); 104 : fBancoClass := TACBrCaixaEconomica.create(Self); 237 : fBancoClass := TACBrBancoBradesco.create(Self); 341 : fBancoClass := TACBrBancoItau.Create(self); 389 : fBancoClass := TACBrBancoMercantil.create(Self); 748 : fBancoClass := TACBrBancoSicredi.Create(self); 756 : fBancoClass := TACBrBancoob.create(self) else fBancoClass := TACBrBancoClass.create(Self); end; fNumeroBanco := AValue; end; [/code]

Veja as instruções de instalação do Fortes... Acredito que a página oficial seja: http://sourceforge.net/projects/fortesreport/

Cada banco tem suas próprias peculiaridades.... Por favor seja mais específico no problema... O componente não lê um arquivo de Retorno que é lido com sucesso por outro programa ?

Por favor seja mais específico... se possível escreva passos para reproduzirmos o erro usando o demo do ACBrBoleto

Provavelmente isso será realmente necessário... Vou estudar com a Juliana como podemos implementar... É um saco esse tal de "padrão" FEBRABAN... simplesmente não existe padrão

Já deste uma olhada no Manual do ACBrMonitor ?? http://acbr.sourceforge.net/ACBrMonitor ... dente.html

A unit sndkey32 sempre funcionou para mim... Veja esse post: viewtopic.php?f=16&t=116&p=592&hilit=sndkey32#p592

Por favor anexe as Units modificadas... trataremos suas modificações comparando as Units com um programa de Merge, como por exemplo o WinMerge

Qual numero de Banco vc está atribuindo... Observe os fontes em ACBrBoleto.pas com os Bancos implementados procedure TACBrBanco.SetNumero(const AValue: Integer); begin if fNumeroBanco = AValue then exit; fBancoClass.Free; case AValue of 001 : fBancoClass := TACBrBancoBrasil.create(Self); 033,353,008 : fBancoClass := TACBrBancoSantander.create(Self); 041 : fBancoClass := TACBrBanrisul.create(Self); 104 : fBancoClass := TACBrCaixaEconomica.create(Self); 237 : fBancoClass := TACBrBancoBradesco.create(Self); 341 : fBancoClass := TACBrBancoItau.Create(self); 389 : fBancoClass := TACBrBancoMercantil.create(Self); 748 : fBancoClass := TACBrBancoSicredi.Create(self); 756 : fBancoClass := TACBrBancoob.create(self) else fBancoClass := TACBrBancoClass.create(Self); end; fNumeroBanco := AValue; end;[/code]

flavio_de Não compreendi a sua sugestão de modificação.... Senhores se desejaram submeter modificações aos fontes originais do SVN, favor anexar aqui as Units modificadas, para analise...

seu_madruga, Quais são os exatos passos para a reprodução do problema, usando a aplicação Demo do ACBrBoleto ? Qual é a versão do seu Delphi e Quick Report ?

Juliana, Já verificou essa correção ? (parece que o SVN ainda não foi atualizado)

Tópico repetido, trancado... favor continuar em: viewtopic.php?f=11&t=1785

Existe algum manual oficial do Banco que possa provar o layout real ?

Já deu uma olhada no Demo (pasta Exemplos) ???

De mais detalhes... Qual é o seu compilador ou IDE ? Qual o S.O. ? Qual o componente de impressão do Boleto ? ( Qual gerador de relatório ele usa ? (existem vários) )?

Nem todo ECF consegue cancelar o cupom se já houve CDC... a homologação TEF não exige tais cancelamentos... apenas exige os cancelamentos das transações TEF (no G.P.), e que sua aplicação seja capaz de deixar o ECF livre para iniciar outra venda... Se vc usa ACBrECF, ele tentará cancelar o CDC e o Cupom, quando vc enviar o comando de cancelamento... ou seja, o próprio ACBr faz essa verificação