Nilson Sérgio

Olá, posso conferir as mudanças que o anexo faz e atualizar os fontes. Até agora só iniciei os blocos A, B, C, H, 8 e 9 Cordialmente,

Olá, seguem novas atualizações dos arquivos do ACBrLFD. Arquivos_ACBrLFD.rar

Prezados, criei um esqueleto inicial dos blocos. Fiz algumas alterações de forma que eu pudesse compilar o codigo e testar. Os blocos não geram conteúdo nenhum (com exceção do bloco C, que já gera alguns registros). Seguem os arquivos que adicionei a pasta ACBrLFD. Arquivos_ACBrLFD.rar

Olá, segue em anexo os arquivos referentes ao bloco C. As classes estão criadas e os métodos declarados, contudo apenas implementei os registros referentes ao requisito VIII-B. O que acham da proposta que fiz de criarmos os esqueletos das classes e irmos implementando os registros aos poucos, mas de forma que tenhamos uma versão inicial funcionando? Se quiserem posso criar os arquivos dos blocos e envia-los para vocês. Cordialmente, ACBrLFDBlocoC.rar

Prezados, Iniciei o bloco_C, quando concluir envio os arquivos para vocês. Só uma coisa, percebi que já foi criado a classe TACBrLFD e o bloco_0, porém o componente faz referência aos demais blocos. Queria sugerir que criássemos o esqueleto de todos os demais blocos para que possamos compilar e testar. Depois os trabalho seria de enxertar o código em cada bloco. To dizendo isso por que Iniciei o bloco_c e percebi que só vou conseguir fazer algum teste quando concluir todos os demais blocos. Fazendo dessa forma o componente estaria "usável" antes de concluirmos todos os registros. Até por que muitos registro não são informados pelas software houses.

Olá, Atualizei meu fonte e vi que os novos arquivos já estão sendo adicionados. Gostaria de contribuir com o Bloco A, mais especificamente com os registros obrigatórios do requisito VIII-B do paf-ecf. Seria possível??

Juliana, como poderia ajudar neste projeto?? Os arquivos já estão disponíveis no svn??

Em tempo, quando eu digo Nome do Cedente quero dizer Nome do Sacado. Grato,

Olá, alguém poderia avaliar a alteração que sugeri para ver a possibilidade de adiciona-la ao svn. É uma alteração muito simples. Mudei apenas o componente txtNomeSacadoCarne: TRLLabel para mNomeSacadoCarne: TRLMemo para poder exibir o nome do cedente em duas linhas, nos casos em que o nome do cedente for extenso. Cordialmente, ACBrBoletoFCFortesFr.rar

Juliana, quando eu peguei esse arquivo percebi que ele estava no leiaute do SIGCB, contudo tive que mudar para SICOB porque o TACBrCaixaEconomica NÃO lê o nosso numero do boleto na posição indicada pelo leiaute. Veja abaixo: Linha 564 do arquivo ACBrCaixaEconomica: NossoNumero := Copy(Linha,40,11); ele sempre retorna '24000000000' o correto seria como no ACBrCaixaEconomicaSICOB que lê da posição: Linha 860 do arquivo ACBrCaixaEconomicaSICOB: NossoNumero := Copy(Copy(Linha,47,10), // sem o DV Length(Copy(Linha,47,10))-TamanhoMaximoNossoNum , TamanhoMaximoNossoNum);

segue arquivo de retorno. cordialmente, RET20121207104411473.rar

sendo assim, segue arquivo com a alteração. Cordialmente, ACBrBoletoFCFortesFr.rar

Olá, gostaria de sugerir uma alteração no modelo de boleto em carnê do Fortes Report. O campo txtNomeSacadoCarne poderia ser aumentado para caber até duas linhas de texto, o que seria util quando o nome do sacado fosse muito extenso. Para isso bastaria mudar o tipo do componente de TRLLabel para TRLMemo. Fiz aqui esta alteração e gostaria depropor como atualização para o projeto. O que acham??

Olá, estou com o seguinte problema na leitura do arquivo de retorno cnab 240 da caixa economica. Na linha 827 do arquivo ACBrCaixaEconomicaSICOB.pas existe o seguinte código: if (not LeCedenteRetorno) and ((rAgencia <> OnlyNumber(Cedente.Agencia)) or (rConta <> OnlyNumber(Cedente.Conta))) then raise Exception.Create(ACBrStr('Agencia\Conta do arquivo inválido'));[/code] acontece que a variavel rConta é lida na linha 791 da seguinte forma: [code] rConta := trim(Copy(ARetorno[0],59,12)); este campo no arquivo de retorno corresponde ao codigo do cedente não ao numero da conta. Alguém poderia me dizer se isso é um bug ou o meu arquivo de retorno está em outro leiaute? PS: segue arquivo de retorno testado.

Olá, mandei a alteração deste formulário no outro tópico que estava aberto. Grato

Olá, seguem compactados os 3 arquivos que eu alterei: 1) ACBrCaixaEconomica.pas: alterei a função FormataNossoNumero(const ACBrTitulo :TACBrTitulo): String para ela não truncar os últimos 2 dígitos do nosso número e alterei a leitura do arquivo retorno para ele ler os 4 digitos do ano do vencimento. 2) ACBrBoletoFCFortesFr.pas e ACBrBoletoFCFortesFr.dfm: alterei o tipo do componente txtNomeSacadoCarne: TRLLabel para mNomeSacadoCarne: TRLMemo para exibir quebra de linha quando os nomes forem extensos.ACBrBoleto_ArquivosAlterados.rar

Olá, desculpem ressuscitar este tópico, mas o problema na linha 559 do arquivo ACBrCaixaEconomica ainda persiste. A data de vencimento do arquivo retorno está formatada com 4 dígitos para o ano (yyddmmmm). O componentes está lendo apenas 2 dígitos para o ano. Alguém poderia corrigir e atualizar o repositório, por favor?

Caixa econômica. No arquivo de retorno leiaute 240 da caixa o nosso numero vem formatado com 17 digitos. O problema não é bem tamanho máximo do nosso número, pois este pode ser configurado. O problema é na função FormataNossoNumero, esta função só retorna 15 dígitos do nosso número.

Olá, estou com um problema na leitura do arquivo retorno leiaute 240 da classe TACBrCaixaEconomica. O TamanhoMaxNossoNumero padrão é 15, contudo o nosso numero no arquivo retorno utiliza 17 caracteres. Sendo assim, eu mudei o valor desse atributo para 17, pois estava dando erro na leitura do arquivo. Porém, com essa alteração surgiu outro problema no método FormatarNossoNumero, pois lá ele formata o tamanho nosso número com 15 caracteres truncando os últimos 2 caracteres do nosso número informado. Ex: tenho um titulo com o seguinte nosso numero 1121, quando eu seto o atributo TACBrTitulo.NossoNumero ele formata para 00000000000001121 (padrão 17 caracteres), porém a função FormatarNossoNumero retorna apenas 2400000000000011 (15 dígitos do nosso numero, somem os 2 últimos). Alguém poderia me dizer como resolver esse problema? Sds

Amigos, gostaria de compartilhar com vocês uma alteração que fiz no modelo de boleto carnê do fortes report. Eu alterei o tipo do componente txtNomeSacadoCarne: TRLLabel para mNomeSacadoCarne: TRLMemo, pois o componentes TRLLabel não possui o atributo WordBreak, não exibindo o nome de sacado muito extenso. Gostaria de saber se vocês poderiam incluir essa modificação no projeto principal? Sds

Olá, acabei de atualizar meu fonte e percebi que alteraram o trecho que formata a alíquota retornada pela RZ, no entanto o código fonte se encontra dessa forma: ACBrFiscNET.pas, linha 3276 if ( Aliquotas[ nAux2 ].Aliquota = nIcms ) then begin Result := Result + FormatFloat('00', nAux+1 ) + padL( Aliquotas[ nAux2 ].Indice, 2, '0' ) + Aliquotas[ nAux2 ].Tipo + IntToStrZero( Trunc( Aliquotas[ nAux2 ].Aliquota * 100 ), 4 ) + ' = '+ FloatToStr( nVal ) + sLineBreak ; VBruta := VBruta + nVal ; break ; end; No momento, não tenho impressora para testar, mas acredito que o resultado dessa formatação será algo como: 0101T1700. Estou certo?

Olá, removi o arquivo, atualizei e funcionou. Caso resolvido!!!

Olá amigos, encontrei um problema no método GetDadosUltimaReducaoZ da classe TACBrECFFiscNET. O formato da aliquota de ICMS está retornando 0 T1700, 1 T2500 (o correto seria 01T1700, 02T2500). Tenho duas opções: 1 - alterar esse método para ele formatar as alíquotas corretamente; ou 2 - fazer uso do método MontaDadosReducaoZ. Para isso precisaria preencher o objeto fpDadosReducaoZClass. Acho a segunda opção mais viável, pois dá mais uniformidade na geração do arquivo .ini contendo as informações da redução Z, uma vez que nas demais impressoras esse método é utilizado.

Conferido, atualizei meu ACBr e continua do mesmo jeito, acho q esta alteração só existe no seus fontes.

Minha unit não está dessa forma. Vou atualizar meu acbr pra ver.