fschunig

OK Italo, verei o que posso fazer por aqui. Grato pela atenção Fabio Schunig

Bom dia Italo! Sim, eu sei como resolver o erro e compilar o pacote. Mas minha intenção não era essa ao apresentar o problema. O problema é que o pacote ficou incompatível com a versão nativa do QuickReport. E acredito que esse não seja um dos objetivos do projeto ACBr, até porque (acho que) a maioria dos desenvolvedores não tenha o QuickReport em versões superiores, causando grande transtorno aos usuários do projeto. Além disso, ficar alterando partes do projeto apenas na minha cópia de trabalho acaba dificultando manter os fontes do ACBr atualizados. E, como foi uma alteração que mexeu em algo que estava funcionando, acredito que possa haver uma correção para isso via diretivas de compilação, ou até o retorno do código antigo para manter a compatibilidade. Grato pela sua ajuda. Fabio Schunig

Boa noite! Caros Francis e Isaque, depois da revisão 5785, os pacotes "ACBr_BoletoFC_Quick.dpk" e "ACBrCTeDacteQRpkg.dpk" não compilam mais. No Delphi 7, o QuickReport nativo é a versão 3, então não é possível utilizar a unit "QR5RunD7". Como podemos proceder nesse caso? Abraços Fabio Schunig

Utiliza a função que a Juliana te indicou no outro post. Exemplo: ACBrBoleto1.Banco.MontarCampoNossoNumero(Titulo); Abraços Fabio Schunig

Boa tarde! Consegui simular seu problema aqui. Pelo que pude notar, você configura o boleto depois de adicionar os dados. Tente trocar pelo seguinte: procedure imprimeboletos (Sender: Object); // impresão dos boletos begin for w := 1 to NrTitulos do begin // aqui configura o banco e cedente *antes* de incluir o título ConfiguraACBR; Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := sdsboletosVENCIMENTO.AsDateTime; DataDocumento := sdsboletosEMISSAO.AsDateTime; NumeroDocumento := sdsboletosNR_DUPLICATA.AsString; EspecieDoc := 'DM'; Aceite := atNao; DataProcessamento := now; NossoNumero := sdsboletosNR_BANCARIO.AsString; // valor do campo = 310 Carteira := '1'; end; sdsboletos.next; end; ACBrBoletoFCFR1.ACBrBoleto.Imprimir; // Imprime o boleto com nossonumero: 00000003.45 end; Não conheço seu programa, mas deduzi que a linha "ConfiguraACBR" faz a configuração. Ela deve ficar antes da inclusão dos títulos. Talvez até antes de começar o loop da variável "w", aí depende de você analisar. Favor testar e informar se deu certo. Abraços! Fabio Schunig

Boa tarde Tive esse mesmo problema, e cheguei a conclusão que era a versão do Quick Report "padrão", que vem com o Delphi 7. Como não tinha muito tempo para ver isso, acabei usando a impressão pelo Fast Reports, e ficou tudo OK. Então recomendo você utilizar pelo Fast, caso você possua o componente. Ou talvez pelo Fortes Reports, que é gratuito. Abraços! Fabio Schunig

Boa tarde Gerei um boleto em meu sistema com o "Nosso número" igual a 310. No boleto apareceu o valor "00000310.38". E no arquivo de remessa o valor "0000031038" nas posições 63-72 Me parece que já no boleto seu programa está fazendo errado. Você tentou debugar sua aplicação? Poderia postar para nós um techo do seu código para nós analisarmos? Abraços Fabio Schunig

Bom dia Eu consegui homologar o arquivo de remessa sem problemas. Inclusive fiz algumas modificações e inclui alguns campos. Qual dificuldade você está tendo? Abraços Fabio Schunig

Bom dia! OK Juliana. Já baixei a atualização no SVN e está tudo funcionando. Obrigado! Abraços, Fabio Schunig

Boa tarde! Obrigado pelas informações! Entrei em contato com eles no começo da tarde, e eles me passaram o link para os manuais: http://www.nfs-e.net/ No menu da esquerda tem a opção "manuais". E no menu de cima as opções "XML" e "Downloads". Ainda estou estudando o conteúdo, mas, como você comentou, realmente não parece ser muito complicado. Enfim, agradeço pela ajuda por enquanto. Qualquer problema retorno ao fórum Abraços! Fabio Schunig

Bom dia! Estou precisando desenvolver a NFSe para a cidade de Videira/SC. Pelo que pesquisei até agora, é preciso integrar com o software da empresa "IPM". Alguém já desenvolveu alguma coisa para eles? Estou começando a mexer agora com a NFSe. Qualquer dica é bem-vinda. Abraços Fabio Schunig

Olá Juliana e Jairo! Removi os anexos da minha última mensagem. Mesclei eles com as alterações do colega Jairo e adicionei no seguinte tópico: Att, Fabio Schunig

Boa tarde! Jairo, obrigado pelas alterações! Mesclei elas junto com as minhas e estou enviando em anexo. Juliana, as units que estou enviando tem as alterações que mencionei no outro tópico e as alterações do colega Jairo. Por favor, verifique e nos avise de qualquer problema Att, Fabio Schunig ACBrBancoBanrisul.pas ACBrBoleto.pas ACBrBancoBanrisul.pas ACBrBoleto.pas

Boa tarde Refiz algumas coisas na geração do boleto e do arquivo de remessa do Banrisul. Enviei os arquivos em anexo nesse tópico: Com esses arquivos passei na homologação do banco. Att, Fabio Schunig

Boa tarde Juliana Em anexo, estou enviando as modificações que passaram na homologação com o Banrisul. 1) Precisei adicionar o campo "CodigoMora" na unit ACBrBoleto, pois estava com texto fixo. Essas alterações identifiquei com meu nome na unit, caso seja necessário localizar. 2) Na unit ACBrBancoBanrisul: - modifiquei a montagem do campo livre, colocando a agência com 4 caracteres - revisei a indentação em algumas partes do código - arrumei o campo "Instrucao1" que estava fixo como "09" - adicionado o campo "CodigoMora" - adicionei a utilização dos campos "DataDesconto", "ValorDesconto", "ValorIOF", "ValorAbatimento" - arrumei o campo "CPF", que estava sendo usado como alfanumérico, e o correto é campo numérico com zeros à esquerda - arrumei o campo "Dias para protesto" que estava fixo como "04" - adicionei comentários que achei relevantes Por favor, analise as alterações e qualquer problema me avise _____ Removi os anexos. Explicação na minha próxima mensagem mais abaixo _____ Att, Fabio Schunig