Pesquisar na Comunidade

Boa tarde a todos. Precisei implementar o envio de "informações complementares" na NFS-e Padrão Nacional, porém ambas as propriedades "InformacoesComplementares" e "OutrasInformacoes" estão sendo ignoradas na hora da geração do DPS. Olhando o layout do padrão nacional vi que as tags acima não estão previstas, porém existe outra semelhante, a "xInfComp": Fiz um teste informando através da propriedade "Servico.infoCompl.xInfComp" e a informação foi gerada sem problemas, aparecendo no local desejado quando gero o PDF direto no sistema da NFSe Nacional: Fiz uma alteração no arquivo "ACBrNFSeXDANFSeRLRetrato.pas", adicionando as linhas abaixo na procedure "rbOutrasInformacoesBeforePrint" if fpNFSe.Servico.infoCompl.xInfComp <> '' then rlmDadosAdicionais.Lines.Add(StringReplace(fpNFSe.Servico.infoCompl.xInfComp, FQuebradeLinha, #13#10, [rfReplaceAll])); Segue o arquivo alterado, acredito que seja interessante incluir no SVN. ACBrNFSeXDANFSeRLRetrato.pas

Boa noite, Primeiramente desculpas por estar abrindo o post, não encontrei uma solução ao problema ou um post apropriado para tal. Realizei testes com o fastreport e com o fortesreport, o danfe utilizando o fastreport encontrei alguns problemas e resolvi corrigir em relação ao fortesreport. [FASTREPORT] DanfeRetrato.fr3 Quando a campo memo (memOBS) havia mais que 12 linhas, no evento Page1OnBeforePrint era tratado essa "overflow" manualmente, passando o excesso de informações para a o memo (memContInfAdicionais). Problemas : 1- se a informação na tag (infCpl) o ultimo carácter não fosse ; (ponto e virgula), o sistema deixava a ultima linha no campo memOBS (line 13) e jogava o restante no campo memContInfAdicionais. 2 - se a informação na tag (infCpl) na linha executa-se wordwrap, o sistema continuava contando como uma unica linha, mas imprimia 3 linhas, desta forma o count retornava 12 linhas, mas tinha 15 linhas sendo impressas, e não estavam sendo jogadas para o memo (memContInfAdicionais), ficando assim algumas linhas suprimidas. Solução Apresentada : 1 - remover do evento Page1OnBeforePrint a constante de controle de linhas (LINHAS_DADOS_ADICIONAIS). 2 - adicionar no memo (memOBS) o flowto para o memo (memContInfAdicionais). 3 - adicionar o evento memOBSOnAfterData para verificar se imprimi a pgContDadosAdicionais, que contem o memo (memContInfAdicionais). Segue em anexo o xml fictício utilizado para homologar a situação, e o danfe para apreciação dos moderadores da correção. Muito Obrigado NFe35170700000000000000550010000076561471731758.xml DANFeRetrato.pdf DANFeRetrato.fr3

Detectei um problema na impressão do DANFe em "Fortes Report" quando o campo "Informações Complementares" possui mais de 10 linhas, o modelo Retrato estava imprimindo o campo normalmente no fim da página (com 10 linhas) e outro campo "Continuação das Informações Complementares" era impresso também na 1ª página logo abaixo dos produtos. Eu abri o código fonte para verificar o problema, e percebi que este campo de continuação não quebrava a página antes da sua impressão. Realizei a inclusão de um evento "BeforePrint" no referido campo testando se estava na primeira página e promovendo a quebra e o problema foi resolvido. Abri os fontes do modelo Paisagem e vi que tinha o mesmo problema e fiz as correções. Adicionalmente eu percebi que se a propriedade "ExibeCampoFatura" do DANFe estiver como "false" o campo fatura é impresso sem as informações da fatura, porém continua ocupando um espaço desnecessário no DANFe. Para resolver acrescentei uma linha configurando a propriedade "visible" da banda de Fatura o valor do "ExibeCampoFatura", para não imprimir esta banda caso a propriedade "ExibeCampoFatura" estiver como "false" . Estou postando as classes alteradas e gostaria de solicitar a gentileza por parte dos mantenedores do código-fonte do ACBr que analisem minhas alterações e em caso de aprovação incorpore-as ao código oficial. Abaixo eu indico onde fiz as alterações e descrevo o que foi alterado. 1) ACBrNFeDANFeRLRetrato.pas Inclusão na linha nº 2031 do código "rlbFaturaReal.Visible := fExibeCampoFatura;" dentro do método "TfrlDANFeRLRetrato.AddFaturaReal" a fim de suprimir a impressão do campo Fatura sem os dados quando a propriedade ExibeCampoFatura for "false"; Inclusão na linha nº 2374 do código de um método "rlbContinuacaoInformacoesComplementaresBeforePrint()" a fim de promover a quebra de página antes da impressão do campo "Continuação das Informações Complementares" devido ao excesso de linhas a serem impressas. 2) ACBrNFeDANFeRLPaisagem.pas Inclusão na linha nº 2021 do código "rlbFaturaReal.Visible := fExibeCampoFatura;" dentro do método "TfrlDANFeRLPaisagem.AddFaturaReal" a fim de suprimir a impressão do campo Fatura sem os dados quando a propriedade ExibeCampoFatura for "false"; Inclusão na linha nº 2378 do código de um método "rlbContinuacaoInformacoesComplementaresBeforePrint()" a fim de promover a quebra de página antes da impressão do campo "Continuação das Informações Complementares" devido ao excesso de linhas a serem impressas. 3) ACBrNFeDANFeRL.pas Alteração na linha nº 772 do código "for i := 1 to (iTotalLinhas + 10) do" dentro do método "TfrlDANFeRL.InsereLinhas()" mudando o valor "+ 10" para "+ 20". Este código limitava a quantidade de linhas incluídas no campo para 10 linhas. Não sei os motivos deste limite de 10 linhas, mas o conteúdo do XML deste campo estava sendo cortado por este código, eu resolvi parcialmente este corte aumentando o limite para 20 linhas, mas se tiver mais de 20 linhas ainda ocorrerá o corte. Por favor analisar se faz sentido ter esse limite de linhas neste campo e qual deveria ser este número. Agradeço a atenção. Att, Mauro Gomes. ACBrNFeDANFeRL.dfm ACBrNFeDANFeRL.pas ACBrNFeDANFeRLRetrato.pas ACBrNFeDANFeRLRetrato.dfm ACBrNFeDANFeRLPaisagem.dfm ACBrNFeDANFeRLPaisagem.pas

Conforme solicitado por alguns membros do fórum e meus clientes, pois usavam o emissor gratuito e tinha essa opção, estou postando aqui a solução que encontrei para sair impresso na parte informações complementares do danfe, as informações de cupom e notas referenciados. espero que ajude quem estava precisando dessa opção, e se puderem adicionar na próxima atualização seria muito bom. 558af26d35e21_danfe_atulalizao.txt

Gente, eu não estou conseguindo imprimir as informações complementares em mais de uma página no QuickReport 5.05 e Delphi XE. No XML aparece tudo certinho com ; (ponto e vírgula) nos lugares das quebras de linhas, mas não imprime todo o conteúdo. 53140411390088000111550010001236871001236874-nfe.xml

Pessoal, boa noite ! Estou tendo dificuldade em gerar DANFE com informações Complementares. Estou usando a versao do AcbrNfeMonitor 2.0.7.7.1. O problema é o seguinte: Gero um arquivo EntNFE.txt e envio para a pasta do AcbrNfeMonitor que em seguida gera o XML e envia para a SEFAZ ( em ambiente de Homologação ) o XML. Ao receber a autorização de uso o DANFE retorna sem a informação complementar, sendo que no arquivo EntNFE.txt ela aparece. Quando comecei a adaptar meu sistema para o AcbrNefMonitor funcionava perfeitamente, agora não sei o que houve. Notei que no XML não esta aparecendo as TAG´s responsáveis por tal preenchimento que são: (<infAdic><infCpl></infCpl></infAdic>) Se eu colocar essas TAG´s manualmente editando o XML após a autorização pela SEFAZ ela aparece no DANFE normalmente. Alguém tem alguma ideia de como resolver esse impasse? Anexo estão os arquivos EntNFE.txt e o XML No aguardo, Marcos Martins EntNFE.Txt 35140709234551000194550010000000261736342060-nfe.xml EntNFE.Txt 35140709234551000194550010000000261736342060-nfe.xml