Danilo Yoshio

E inclusive eu acho essa solução é melhor q a primeira q eu propus lá em cima (comentar a linha 2272). E o q o Juliomar falou esta certo. Só comentar vai dar problemas em outros pontos. Essa segunda alteração proposta por mim de trocar o DANFEClassOwner.FIndexImpressaoEventosIndividual-1 por 0 não afeta nada, a não ser q haja mais de um evento na nota, mas como método não esta varrendo para fazer a impressão de todos os eventos. não deve ter nenhum problema.

Ola Juliomar. Eu nao consegui acessar esse tópico q vc passou, mas testei esta propriedade, e ocorre o mesmo erro (Argument out of range), tanto estando verdadeira como falsa.

eu analisei melhor o código, e acho q a revisão 40745 feita pelo pandaaa no dia 06/08, onde ele remove o [for] da impressão dos eventos em PDF, Eu acho q ele não alterou o index de busca. e é isso q causa o erro. seria legal ver com ele se é melhor passar 0 fixo no indice dos eventos (como era feita antes), ou só remover o -1. ERRADO frxPDFExport.FileName := DefinirNomeArquivo(DANFEClassOwner.PathPDF, OnlyNumber(Evento.Evento[DANFEClassOwner.FIndexImpressaoEventosIndividual-1].InfEvento.id) + '-procEventoNFe.pdf', DANFEClassOwner.NomeDocumento); CERTO frxPDFExport.FileName := DefinirNomeArquivo(DANFEClassOwner.PathPDF, OnlyNumber(Evento.Evento[0].InfEvento.id) + '-procEventoNFe.pdf', DANFEClassOwner.NomeDocumento);

Na ultima linha da função PrepareReportEvento do ACBrNFeDANFEFRDM (2272), é definido o Indice do evento pra zero (DANFEClassOwner.FIndexImpressaoEventosIndividual := 0). Ai no procedimento ImprimirEVENTOPDF, q executou a função PrepareReportEvento, na hora de definir o nome do arquivo é chamado ( Evento.Evento[DANFEClassOwner.FIndexImpressaoEventosIndividual-1].InfEvento.id ) e causando um index out of bound. eu ate comparei com as versões anteriores, mas nao entendi bem. para corrigir isso precisei comentar a linha 2272 que zera o indice. obrigado.

Legal. obrigado. posso tirar mais uma duvida com vc ainda dentro da impressão dos eventos pelos FastReport? na ultima linha da função PrepareReportEvento do ACBrNFeDANFEFRDM (2272), é definido o Indice do evento pra zero (DANFEClassOwner.FIndexImpressaoEventosIndividual := 0). ai no procedimento ImprimirEVENTOPDF, q chamou a função PrepareReportEvento um pouco antes, na hora de definir uma parte do nome do arquivo é executado (Evento.Evento[DANFEClassOwner.FIndexImpressaoEventosIndividual-1].InfEvento.id) e causando um index out of bound. eu ate comparei com as versões anteriores, mas nao entendi bem. para corrigir isso precisei comentar a linha 2272 que zera o indice. obrigado.

eu identifiquei como erro, e arrumei no meu. se alguem puder confirmar. eu agradeco. no metodo TACBrNFeDANFEFR.ImprimirEVENTOPDF, na linha 431 esta imprimindo a danfe e não o evento. Eu troquei ImprimirDANFEPDF por ImprimirEVENTOPDF; Errado: procedure TACBrNFeDANFEFR.ImprimirEVENTOPDF(NFE: TNFe); var I : Integer; begin FdmDanfe.DANFEClassOwner.FIndexImpressaoIndividual := -1; if Assigned(NFE) then begin FdmDanfe.ImprimirEVENTOPDF(NFE); FPArquivoPDF := FdmDanfe.frxPDFExport.FileName; end else begin for I := 1 to TACBrNFe(FdmDanfe.DANFEClassOwner.ACBrNFe).EventoNFe.Evento.Count do begin FdmDanfe.DANFEClassOwner.FIndexImpressaoIndividual := I; FdmDanfe.ImprimirEVENTOPDF(NFE); // FdmDanfe.ImprimirDANFEPDF(NFE); FPArquivoPDF := FdmDanfe.frxPDFExport.FileName; end; end; end;

Manda um e-mail para o sefaz do PR. Aparentemente eles só precisam instalar esta nova cadeia nos servidores de webservices. Em SP eles resolveram rapidamente.

Acabei de Receber isso. testei e ja esta funcionado. Resposta da Mensagem 7102375 Prezado Danilo, As novas cadeias de certificados V4 e V5 foram instaladas nos Servidores e Web Services e o problema foi resolvido. Solicitamos que efetuem nova tentativa e caso verifiquem ainda algum problema, que nos reportem novamente.

Estou com o mesmo problema. Porem isso so acontece no estado de sp. ja testei em outros estados e aparentemente esta ok. mandei uma pergunta para o sefaz e estou aguardando a resposta. acho q deve ser um problema deles. grato

Ola. No Bloco F525, o campo 5 (num_doc) esta como inteiro, porem o manual determina q ele seja caractere de 60. Eu já fiz a alteração na minha versão. Seria interessante eu subir isso para analise? Eu fiz a alteração, principalmente, pq a função de formatação LFill insistia em achar q o este campo era do tipo DateTime. grato

Ola Regys. eu não estava com a ultima versão atualizada, mas acho q da para entender.. a alteração esta entre as linhas 214 a 216. ACBrNFeDANFEFR.pas

Ola. eu contornei esta limitação setando este valor via codigo: no Metodo PrepareReport do ACBrNFeDANFEFR.pas eu coloquei estas duas linhas depois de carregar o arquivo do relatorio. TfrxMemoView(dmDanfe.frxReport.FindComponent('memqCom')).DisplayFormat.FormatStr := '%2.'+IntToStr(CasasDecimais._qCom)+'f'; TfrxMemoView(dmDanfe.frxReport.FindComponent('memvUnCom')).DisplayFormat.FormatStr := '%2.'+IntToStr(CasasDecimais._vUnCom)+'f'; isso poderia ser colocado no fonte do csv? grato

Ola Gente. Eu estava tendo um problema para escriturar itens de notas complementares de icms no registro C170, pois, mesmo sem preencher o campos CST_PIS e CST_COFINS ele preenchia o arquivo com '01', obrigando o preenchimento dos campo VL, VL_BC e ALIQ tanto para pis quanto para cofins. Gostaria de saber se mais alguem tem este problema. A minha solucao foi alterar o enumerando TACBrCstPis e TACBrCstCofins para criar uma opção vazio. Eu tambem precisei alterar a gravacao do bloco C170 para permitir gravar o campo QTD como branco. para notas complementares tb. obs. se alguem tiver o interesse eu posso subir as alterações. grato

PCN2.7zOla. eu sou novo no forum. mas eu ja uso o acbrnfe a muito tempo. eu vi hj que foi disponibilizado uma nova atualização no layout/schema. para contemplar os últimos ajustes nas leis (FCI e SINIEF 15/2013). eu ja implementei essas novas atualizações na minha versao. estou subindo para q voces vejam se esta correto e dentro do padrão, e assim q possivel a disponoiibilização. grato