[Erro ao acessar componente acbrBoleto]

Danilo, eu consegui resolver, reinstalando o componente (ACBRInstall) e depois abrir o projeto e indo no form que tem o ACBRBoleto ai acusou a falta da propriedade, importante aceitar para remover a propriedade obsoleta e salvar o form (dfm), só da uma movida no no objeto e salvar, ai pode compilar/build e testar que deve funcionar.

[Problemas baixar fortes report]

Da uma olhada nestes post:  

 e https://www.projetoacbr.com.br/forum/topic/75503-fim-suporte-svn-no-github-em-24012024/

[Arquivo de Remessa com valor diferente do informado]

3 horas atrás, Juliomar Marchetti disse:

Por favor se tem a solução anexa o fonte para que possamos corrigir

@Juliomar Marchetti Eu até já fiz isso em outro post, mais para gerar o problema só acontece em determinados clientes e com certos usuários, acho que tem a ver com o windows/configuração da máquina, ou seja, acontece "muito raramente".

 

A nossa proposta é trocar o Round() pelo RoundABNT() em todas as units do Boleto, visto que no setValorDocumento  vocês mesmo usam o RoubdABNT() mais como o problema só acontece "muito raramente" o @José M. S. Junior analisou o outro post e acho que ficou meio com pé atrás aceitar a correção e afetar os demais usuários de alguma forma.

 

Se der para o @jdazevedo fazer a troca do tipo de campo conforme foi orientado e ver se resolve e postar aqui o resultado aqui, caso persista o problema, ai sim volto a insistir na troca da função, senão permaneço com a minha solução só nos meus fontes mesmo, devido a não conseguir nem mesmo demonstrar o problema devido ao "muito raramente".

[Arquivo de Remessa com valor diferente do informado]

Boa tarde, João!

 

Conosco este caso acontece raramente, mais para resolver experimente alterar a unit ACBrBancoBradesco e trocar o Round pelo RoundABNT. Mesmo que aparente não precise pois no setValorDocumento da unit ACBrBoleto já foi ajustado o arredondamento com RoundABNT, acredito que a unit Round bagunce o arredondamento depois de setado o valor.

 

Olavo

[BRADESCO Multipag com erro no trailer]

Boa noite, Carlos!

 

Os componentes de Boleto do ACBR, tratam somente a remessa/retorno de BOLETOS não tem o formato para PAGAMENTOS.

 

Somente como observação abra o seu arquivo com o NOTEPAD++ e ative no menu superior em VISUALIZAR / MOSTRAR SIMBOLO / EXIBIR TODOS OS CARACTERES vai notar que a última linha que é o trailer esta sem o carácter de final de linha, mais uma observação os meus tive problema semelhante e precisei também deixar uma linha em branco no final do arquivo (somente um palpite).

 

 

[Bradesco pequenos ajustes na impressão]

17 horas atrás, Daniel Simoes disse:

Provavelmente ainda há algo errado no LFM...

Apague a pasta do Demo e baixe novamente pelo SVN do ACBr

Bom dia, @Daniel Simoes!

 

Fiz como pediu (voltando a pasta pelo SVN) e ainda persistiu o mesmo erro, desinstalei o Lazarus, reinstalei os componentes e fazendo diversos testes consegui executar removendo os componentes (ACBrBoletoFCFortes1 e ACBrBoletoFCLazReport1), para isso removi os componentes visualmente e comentei as units e executou, como pode ver em anexo eu já instalei o FORTES e o LAZREPORT, o mais poderia estar faltando?

 

Olavo

 

[Bradesco pequenos ajustes na impressão]

Boa tarde, @Juliana Tamizouanexei o LFM conforme a dica que o @Daniel Simoespassou!

 

@Daniel Simoes mesmo que tenha resolvido como ajustar o LFM (estou perguntado neste tópico porque as imagens já estão anexadas acima), gostaria de saber o que tá errado com minha instalação do Lazarus , pode me dar uma dica sobre o erro na execução do demo do boleto que dá "External: SIGSEGV", o LazReport esta instalado conforme a @Juliana Tamizou pediu para verificar, o erro acontece na chamada do CreateForm e se coloco um BreakPoint no evento OnCreate nem chega nele.

ACBrBoletoFCFortesFr.lfm

[Bradesco pequenos ajustes na impressão]

Sim já estava instalado (por segurança abri e instalei novamente), anexei a imagem dos componentes instalados, estranho que se ainda fosse dependência de algum componente ele avisaria no build, né? (eu até consigo abrir o ACBrBoletoFCFortesFr e mexer para te mandar o lfm, mais queria testar, executando e gerando um PDF para ver se ficou OK a alteração)

 

[Bradesco pequenos ajustes na impressão]

Bom dia, @Juliana Tamizou

 

Estou tentando alterar o lfm, mais tô "apanhando" com o Lazarus (no Windows/x64) se alguém puder da uma força @Daniel Simoes que usa em produção mesmo, instalei os componentes "dependentes" do demo do boleto mais não vai, consegui abrir e executar o demo do TCP / ConsultaCNPJ tudo OK, mais o demo boleto não passa do CreateForm( fmDemo), o que poderia ser, segue a imagem debugando e o erro?

 

Olavo

 

[Bradesco pequenos ajustes na impressão]

Boa noite!

 

Fiz um teste com o próprio demo do boleto para o banco BRADESCO (layout padrão) e anexei o PDF gerado, anexei também uma imagem apontando alguns pequenos detalhes de altura de alguns componentes que faz o tracejado, em anexo segue a correção .DFM.

 

Olavo

 

 

 

boleto.pdf ACBrBoletoFCFortesFr.dfm

[ACBRLCDPR versão 1.2 contribuição]

26 minutos atrás, beduardo disse:

Bom dia. Onde encontro este validador ?

Bom dia!

 

Não esta disponível, consegui validar através de uma terceira pessoa que foi designada pela RFB como testador. Com as alterações que passei, passou pelo validar e já atendendo a versão 1.2 da documentação.

[ACBRLCDPR versão 1.2 contribuição]

Bom dia!

 

Adicionei a unit Unit2.pas da pasta "ACBR\Exemplos\ACBrTXT\ACBrLCDPR\Delphi" referente ao EXEMPLO já ajustado para a versão 1.2, procurei melhorar o exemplo colocando informação como se fosse de dois meses Janeiro e Fevereiro isso afeta diretamente nos registro Q200.

 

Olavo

Unit2.pas

[ACBRLCDPR versão 1.2 contribuição]

Elton, já para sua revisão, tive de mexer em mais código, consegui fazer testes em uma prévia de validador da própria RFB, segue conforme abaixo:

 

Na unit UACBrLCDPR, deu problema com o DELIMITADOR que na última coluna não pode ser gerado, ou seja o último caracter da linha não pode ser o piper conforme documentação, sendo assim, foi criado um parametro na função abaixo, seguindo outros componentes próprio ABCR que geram txt

 

    function AddCampo(const Value : String; AddDelimiter: Boolean = True ) : String;

 

    function TACBrLCDPR.AddCampo(const Value: String; AddDelimiter: Boolean): String;
    begin
      Result := Trim(Value);
      if AddDelimiter then
         Result := Result + Delimitador;
   end;

    Com isso ainda na unit UACBrLCDPR nas funções de WRITEBLOCOS na ultima chamada AddCampo() foi passado o parametro FALSE.

Na unit BlocoQ e RegistroQ200 foi removido o valor PAIS, não consta mais na documentação.

 

Olavo
 

UACBrLCDPR.pas BlocoQ.pas RegistroQ200.pas

[ACBRLCDPR versão 1.2 contribuição]

 

 

 

Boa tarde!

 

Fiz algumas adequações para atender a documentação da versão 1.2, segue abaixo as descrições das implementações:

 

Unit Registro0030 e UACBrLCDPR os comentários com a licença estava perdido no corpo do código, foi colocado logo no inicio.

 

Unit RegistroQ200 necessário criar o registro como uma LISTA

 

Unit BlocoQ o "FRegistroQ200: TRegistroQ200" tornou-se "FRegistrosQ200: TRegistroQ200List"

 

Unit LCDPRBlocos - Foi necessário adicionar alguns tipos a mais para atender a documentação 1.2 e também foi alterados as funções que devolvem o STR para os valores de acordo com a documentação 1.2
  TCodVer adicionado o valor Versao011 (o manual da receita é 1.2 mais no exemplo o valor estava com 011!)
  TTipoExploracao adicionado o valor teOutro
  TTipoContraparte adicionado o valor tpcOutro
  TTipoLanc, foi removido tlDespesaNaoDedutivel e tlAdiantamentos

  As funcões abaixo foi necessário, ajustar os valores para atender a documentação 1.2:
    function IndFormaApurToStr(IndFormaApur : TFormaApur) : String;
    function TipoExploracaoToStr(TipoExploracao : TTipoExploracao) : String;
    function TipoContraparteToStr(TipoContraparte : TTipoContraparte) : String;
    function TipoDocToStr(TipoDoc : TTipoDoc) : String;
    function TipoLancToStr(TipoLanc : TTipoLanc) : String;

 

   A constante "crFinal = 'CRLF'" foi atribuido o valor '', acredito que houve um equivoco porque no manual se refere aos caracteres "CR" (Carriage Return) e "LF" (Line Feed) correspondentes a "retorno do carro" e "salto de linha", respectivamente (CR e LF: caracteres 13 e 10, respectivamente, da Tabela ASCII) e criaram como uma STRING.
 
 Olavo.

 

LCDPRBlocos.pas UACBrLCDPR.pas BlocoQ.pas RegistroQ200.pas Registro0030.pas

[Fortes Report]

O Tortoise atual versão 11 esta com este problema, remove e instala versão 10 ou 9 e vai conseguir fazer o checkout ou a solução na versão 11 é baixar o zip e instalar mais ficará desatualizado.

[Cheque com canhoto]

Utilizando o ACBRCHQm com a configuração de modelo para "impressora comum" (no caso será um EPSON matricial), como se faz para tratar impressão de cheque com canhoto, no caso apareceu um formulário (continuo) do banco Caixa e olhando o código na classe ACBRCHQClass o default ficaria:            WriteString('Formato','104','56,13,01,04,18,48,53,72,01,04,07,10,12') ;

 

Com isso vai considerar o inicio desde a coluna 1 e no caso do canhoto teria de começar algumas colunas a mais direita, alguém já passou e por isso e conseguiu resolver?

 

[Layout do Boleto com 7 Linhas nas Instruções]

No componente tem a propriedade "ImprimirMensagemPadrao" passe para False e controle você mesmo as linhas de mensagens, colocando na propriedade Mensagem o conteúdo "que quiser" (leia o manual para considerar esse o "que quiser"), observe que depois terá de fazer o envio da REMESSA e cada banco tem a limitação de linhas e quantidade de bytes por linha e terá neste momento de enviar o que imprimiu.

[Ocorrencia 03]

Qual é banco em questão e qual o layout utilizado?

[Não estou conseguindo atualizar]

Isso mesmo, obrigado: 

 

[Não estou conseguindo atualizar]

Esta com algum problema no momento?

 

[SAC qual versão para download?]

Assinando o SAC, além do suporte é liberado a versão mais recente para download, minha dúvida é para quais plataformas são disponibilizados os executáveis, em especial para o Linux (x64)?

 

Para me orientar melhor no ambiente Linux (x32 e/ou x64), caso não instale o Lazarus para obter o binário compilado, obtendo da área de download do SAC, além de buscas pelo fórum, tem algum documento no projeto com as dependências necessárias para funcionamento, como a necessidade de instalação de pacotes e orientação de como instala-los, tipo: OpenSSL, ....?

[Boleto Fortes do tipo Carnê impressão do Beneficiário no Recibo do Pagador]

Bom dia, @Juliomar Marchetti!

 

Posteriormente em 17 de agosto de 2016 você fez um commit de um outro colaborador que contemplou a minha alteração, ou seja, pode desconsiderar esta minha implementação, obrigado!

[Ler arquivo de remessa]

Rodrigo,

Olhando o seu arquivo e comparando com a documentação ele não é um arquivo de RETORNO por isso a mensagem, observe na primeira linha na coluna 143 é esperado que o valor seja 2 conforme o manual e no seu caso é 1, coloquei abaixo o endereço com os manuais existentes aqui mesmo no forum: svn://svn.code.sf.net/p/acbr/code/trunk2

Espero ter ajudado, abraços

 

[Sacador/Avalista banco Bradesco]

Boa tarde, @evandrobk !

 

Caso utilize o FORTES já esta contemplado, se for o FAST testei agora e ainda não tem, necessário implementar.

[Migrar de delphi 2010 para XE7]

Antonio,

Experimenta, jogar os parametros de uma vez só , somente para teste, acho que uma vez aconteceu isso comigo:

 

   with QTotalFormas do
      begin
         close;
         sql.Clear;
         sql.Text:= 'SELECT SUM(I.VALOR) TOTAL, I.COD_FORMA, F.DESCRICAO, F.TIPO  ' +
                    'FROM VENDAS_FORMAS_PAGAMENTO I ' +
                    'INNER JOIN VENDAS V            ' +
                    'ON (I.COD_VENDA = V.COD_VEN)   ' +
                    'INNER JOIN FORMAS_PAGAMENTO F  ' +
                    'ON (I.COD_FORMA = F.CODIGO)';

         if not CheckHora.Checked then
            begin
               sql.Add(' WHERE V.DATA_VEN BETWEEN :DATAINI AND :DATAFIN ' +
                       ' AND V.CANCELADA_VEN = 0');
            end
         else
            begin
               sql.Add(' WHERE V.DATA_HORA_VEN BETWEEN :DATAINI AND :DATAFIN ' +
                       ' AND V.CANCELADA_VEN = 0');
            end;

         sql.Add(' AND V.COD_CAI = :CODCAI AND V.COD_EMP = :CODEMP AND V.COD_USU = :CODUSU ' +
                 ' GROUP BY I.COD_FORMA, F.DESCRICAO, F.TIPO ' +
                 ' ORDER BY F.DESCRICAO');

         if not CheckHora.Checked then
            begin
               Parambyname('dataini').AsDate := strtodate(edtdataini.Text);
               Parambyname('datafin').AsDate := strtodate(edtdatafin.Text);
            end
         else
            begin
               Parambyname('dataini').AsDateTime := strtodate(edtdataini.Text) + strtotime(edthoraini.Text);
               Parambyname('datafin').AsDateTime := strtodate(edtdatafin.Text) + strtotime(edthorafin.Text);
            end;
         parambyname('codcai').AsInteger:= iCaixa;
         parambyname('codemp').AsInteger:= iEmp;
         parambyname('codusu').AsInteger:= ICodUsu;

         open;
         first;