Joao Paulo Noronha

normalmente iria resoler o problema localmente, mas tenho um cliente a dizer que pode pagar multa por causa da página extra do DANFE, na NFe. Isso é verdade? Uma carta de correção não poderia servir para informar do erro e evitar a multa? mais alguém tem esta situação? só sucede nas notas com calculo de imposto aproximado. o xml em anexo que enviei mostra o problema em causa.

Desculpem, afinal não tem nada a ver com dados adicionais ou observações, é o calculo do valor de importo aproximado que gera o erro. ele insere uma linha a mais por item que vai provocar uma contagem do total de páginas errada.

alguém tem o mesmo problema com o fastreports quando os items tem dados adicionais por linha??

Boa tarde, Ao emitir a impressão DANFE da NFe, em fast reports (delphi, svn trunk atualizado a 01/07), está a ser informado o total de páginas com uma a mais. Pelo que pude averiguar o XML está correto e não tem motivos para indicar a informação errada. Junto estou a enviar o arquivo em anexo. Testei uma NFe com o mesmo numero de items, 68, e não tive problemas, contudo depois pude ver que na NFe original temos 2 linhas por item devido a informação adicional. No meu teste esta informação não existia. 29150734109702000120550010000079891000079891-nfe.xml

segue alterações para analise : Ao enviar o e-mail pelo componente acbrNFe não leva em consideração o campo Bcc para preencher. Situação surge, por exemplo, quando: to: cliente cc: transportadora, contador do cliente ou outros indicados bcc: contador da empresa por ser uma opção usada ocasionalmente fiz o overload das funções originais para não destabilizar código já existente. ACBrDFe.pas ACBrNFe.pas

A suite usada pelo Acbr para o blog não tem a funcionalidade de wiki (pelo que pude avaliar). Minha ideia era colocar na wikipedia, uma plataforma que já provou o seu valor e acredito servir para este proposito. Ainda não pude criar nada devido ao tempo e ao trabalho, mas espero em breve colocar lá o texto do manual para servir como base de trabalho. Depois é só ir acrescentando as propriedades e respetivos comentários assim como funções que faltem reportar. Claro que para funcionar realmente bem precisa de ser preenchida com nossos conhecimentos, visto ainda ser novato no acbr só posso começar por inserir o manual. Vou precisar um pouco da ajuda de cada um para completar restantes propriedades/funções

Cardilo, Pelo que percebi, pelo código, tens 3 possibilidades: usar a propriedade Arquivos.SalvarCCeCanEvento em conjunto com as propriedades Arquivos.PathCCe ou Arquivos.PathCan, mas deste modo perdes a vantagem das propriedades de separação por data, nome ou documento. usar modo padronizado, pela propriedade Arquivos.PathEvento, onde podes aplicar sobre ela a propriedades de separação. Editar o código e fazer as alterações de modo trabalhar como desejas (a grande vantagem de ser open source)

parece que algures estás a colocar essa propriedade a falso. Já tentaste uma pesquisa no projeto pela propriedade? Verifica também a propriedade Arquivos.Salvar. Se estiver a falso também não grava na pasta de eventos

utiliza a propriedade ACBR.Configuracoes.Arquivos.AdicionarLiteral := true;

boa tarde para analise: ACBrMail - Metodo reset não estava a limpar propriedade do assunto (subject) ACBrNFeConfiguracoes - criado overload da função GetPathEvento para usar a data ao obter o caminho ACBrNFeConfiguracoes.pas ACBrMail.pas

Gostaria de dar uma sugestão a todos. Trata-se de manuais e de todo o conhecimento acera do acbr e respetiva legislação que está espalhado por todos nós. Compreendo perfeitamente como é demorado atualizar e manter um manual acerca do acbr, quer pela quantidade de funcionalidades que já oferece quer pela complexidade das mesmas e das situações que pode abordar. Contudo algo é necessário e todos podemos contribuir um pouco. Minha sugestão é simples, a criação de uma entrada na Wikipedia, onde todos podemos contribuir com nosso conhecimento. Reparem que não estou a dizer para usar a wiki como blog para tirar duvidas ou reportar algo, mas sim usar como Knowledge Base, refletido o modo como o fórum é distribuído ou mesmo a distribuição natural das classes por assuntos. Este seria o ponto de partida natural para quem está a começar no Acbr, quando existirem novas funcionalidades ou se alterarem as existentes. Espero poder contribuir com o pouco de conhecimento que já tenho, Fica a ideia para os fundadores/administradores do blog

tem uma função no acbrutil. é truncfix dá uma olhada nela pode ser que te sirva

if dm_conexao.NFE.Configuracoes.Arquivos.EmissaoPathNFe then DataXML := dtEmissao else if not (dtRecebimento = 0) then DataXML := dtRecebimento; sFilePathXML :=PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathNFe( DataXML)) + OnlyNumber(chave_nfe) + '-nfe.xml'; uso esta função

Boa tarde, Sem querer parecer mal, alguem aqui do forum é early adopter da MSF? Se sim, tiveram acesso ao windows 10 para testar o acbr? Seria interessante saber se podem vir a surgir problemas pois essa versão deve sair em julho para o publico e, se a promoçao de update da MSF pegar, vai ter muita gente a fazer o update. Qualquer informação é sempre bom saber antecipadamente.

Posso estar errado, mas no caso de cliente estrangeiro não deverias colocar o pais como 'EX' ? Nesse caso ele não irá validar o cpf/cnpj, Até porque se o consumo é efetuado no navio não tem como confirmar se é em águas nacionais ou não. O gurus podem confirmar isso.

Bom dia, gostaria de sugerir a alteração no arquivo em anexo. senti necessidade pois já utilizamos a função semelhante, na vertente da NFe (GetPathNFe), para determinar a localização do arquivo gerado, conforme podem ver pelo exemplo abaixo. No caso da função alterada optei não mexer na ordem dos parâmetros, de modo a ficar igual a GetPathNFe, pois não tinha como determinar a extensão do uso da mesma fora do componente. ACBrNFeConfiguracoes.pas //NFe function loadXML(chave_nfe:string; ID_SITUACAO_NFE: integer; dtEmissao: tdatetime = 0; dtRecebimento: tdatetime = 0): boolean; var OpenDialog1: topendialog; sFilePathXML: string; bFileNotFoundXML, bCancelXML: boolean; DataXML : tdatetime; begin result := false; OpenDialog1 := topendialog.Create(nil); OpenDialog1.Title := 'Selecione a NFe'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFe (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := dm_conexao.NFe.Configuracoes.Geral.PathSalvar; try bFileNotFoundXML := true; if (ID_SITUACAO_NFE > 1) and (length(chave_nfe) > 0) then begin if dm_conexao.NFE.Configuracoes.Arquivos.EmissaoPathNFe then DataXML := dtEmissao else if not (dtRecebimento = 0) then DataXML := dtRecebimento; sFilePathXML :=PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathNFe( DataXML)) + OnlyNumber(chave_nfe) + '-nfe.xml'; bFileNotFoundXML := not fileexists(sFilePathXML); if (bFileNotFoundXML) and (dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal) then begin dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := false; sFilePathXML :=PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathNFe( DataXML)) + OnlyNumber(chave_nfe) + '-nfe.xml'; bFileNotFoundXML := not fileexists(sFilePathXML); dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := true; end; if not bFileNotFoundXML then try dm_conexao.NFe.NotasFiscais.Clear; dm_conexao.NFe.NotasFiscais.LoadFromFile(sFilePathXML, true); except bFileNotFoundXML := true; end; bCancelXML := false; while (bFileNotFoundXML) and (not bCancelXML) do begin bCancelXML := not OpenDialog1.Execute; if (not bCancelXML) then if isnullempty(OpenDialog1.FileName) then ShowMessage('Desculpe, mas tem de selecionar um arquivo para processar.') else try dm_conexao.NFe.NotasFiscais.Clear; dm_conexao.NFe.NotasFiscais.LoadFromFile(OpenDialog1.FileName, true); if OnlyNumber(dm_conexao.NFe.NotasFiscais.Items[inf].NFe.infNFe.id) = chave_nfe then bFileNotFoundXML := false else ShowMessage('Arquivo não corresponde a chave do registo'+#13+'Por favor certifique se é o arquivo correto!'); except ShowMessage('Arquivo inválido'+#13+'Por favor certifique se o arquivo tem o formato correto!'); end; end; end; if not bFileNotFoundXML then begin inc(inf); result := true; end; finally OpenDialog1.Free; end; end; //EVENTO NFe function loadEventoXML(chave_nfe:string; tipoEvento: TpcnTpEvento; dtEmissao: tdatetime = 0; iSeq: integer = 1): boolean; var OpenDialog1: topendialog; sFilePathXML: string; bFileNotFoundXML, bCancelXML: boolean; DataXML : tdatetime; begin result := false; OpenDialog1 := topendialog.Create(nil); OpenDialog1.Title := 'Selecione a NFe'; OpenDialog1.DefaultExt := '*-nfe.XML'; OpenDialog1.Filter := 'Arquivos NFe (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*'; OpenDialog1.InitialDir := dm_conexao.NFe.Configuracoes.Geral.PathSalvar; try bFileNotFoundXML := true; if (length(chave_nfe) > 0) then begin sFilePathXML := PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathEvento(tipoEvento,dtEmissao,'')) + TpEventoToStr(tipoEvento) + OnlyNumber(chave_nfe) +IntToStrZero(iSeq, 2) + '-procEventoNFe.xml'; bFileNotFoundXML := not fileexists(sFilePathXML); if (bFileNotFoundXML) and (dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal) then begin dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := false; sFilePathXML :=PathWithDelim(dm_conexao.NFE.Configuracoes.Arquivos.GetPathEvento(tipoEvento, DataXML,'')) + TpEventoToStr(tipoEvento) + OnlyNumber(chave_nfe) +IntToStrZero(iSeq, 2) + '-procEventoNFe.xml'; bFileNotFoundXML := not fileexists(sFilePathXML); dm_conexao.NFe.Configuracoes.Arquivos.PastaMensal := true; end; if not bFileNotFoundXML then try dm_conexao.NFe.EventoNFe.Evento.Clear; dm_conexao.NFe.EventoNFe.LerXML(sFilePathXML) ; except bFileNotFoundXML := true; //xml invalido end; bCancelXML := false; while (bFileNotFoundXML) and (not bCancelXML) do begin bCancelXML := not OpenDialog1.Execute; if (not bCancelXML) then if isnullempty(OpenDialog1.FileName) then ShowMessage('Desculpe, mas tem de selecionar um arquivo para processar.') else try dm_conexao.NFe.EventoNFe.Evento.Clear; dm_conexao.NFe.EventoNFe.LerXML(OpenDialog1.FileName) ; if OnlyNumber(dm_conexao.NFe.EventoNFe.Evento.Items[0].infEvento.chNFe) = chave_nfe then bFileNotFoundXML := false else ShowMessage('Arquivo não corresponde a chave do registo'+#13+'Por favor certifique se é o arquivo correto!'); except ShowMessage('Arquivo inválido'+#13+'Por favor certifique se o arquivo tem o formato correto!'); end; end; end; if not bFileNotFoundXML then begin inc(inf); result := true; end; finally OpenDialog1.Free; end; end; atentamente João Paulo ACBrNFeConfiguracoes.pas

Aparentemente o problema era mesmo com o fast reports. a reinstalação resolveu.

bom dia essa foi a primeira coisa que fiz. mas não resultou. Estão a conseguir efetuar impressões de evento? No meu caso eu estou, em ambiente de homologação, a tentar cancelar uma venda, após a emissão dela. o Preview da venda é apresentado mas quando tenta efetuar o do evento...estoira a aplicação com m daqueles erros que todos adoramos, sem pista de origem. Ok, depois de seguir as migalhas descobri que não tenho o arquivo frxClass.pas no meu sistema, tenho .dcu, tenho .res, mas não tenho .pas. A novela ficou mais intricada, pois se tenho o FastReports licenciado na maquina porque não tenho o culpado do crime?? Reinstalar o criminoso a ver se isso resolve atentamente, João Paulo Noronha

Boa tarde, Gostaria de saber se está a suceder o mesmo convosco pois, após atualizar as fontes, a impressão dos eventos da NFe (NFe.ImprimirEvento) não funciona mais. Ao seguir o fluxo cheguei ao erro de localização do arquivo frxClass.pas, no procedimento de preparação do mesmo para pre-visualizar. Agora o que me confunde é que imprime Nfe, mas não consegue no evento de cancelamento da mesma, gerando um erro de acesso de memória. Verifiquei o caminho no delphi e está correto, assim como tem todos os dcu presentes na pasta. atentamente João Paulo Noronha

Vamos fazer no nosso sistema. Sei que usam o fast reports e inclusive colocaram uma enquete acerca da questao dos diversos motores de report, a qual já respondi com a preferencia para o fast, claro.

Toda a razao nesse ponto. Tentei instalar com o componente da fortes pois os exemplos dão usam os mesmos. creio que nesse ponto não tem problema ignorar. Conforme disse trata-se de um projeto que peguei recentemente e ainda não tenho a noçao completa de todos os componentes usados do acbr na mesma, assim como sei que são usadas mais de um motor para reports, razão pela qual pequei pelo excesso. Depois de retirar os componentes do fortes a instalação decorreu sem problemas. agradeço a resposta rápida. futuramente vamos padronizar os reports todos para usar somente um motor, o fast reports. atentamente, João Paulo Noronha

Já coloquei o log. Estava a editar o post para isso quando respondeu. Entretanto acabei por ver que poderia colocar o post em outro mais indicado para este efeito. Infelizmente somente reparei nisso depois e não consegui apagar este para corrigir. Se puder dar uma sugestão para o forum,seria interessante a possibilidade de apagar o ultimo post (se ainda não foi respondido) pelo proprietário, ou mesmo de mover para outro local (sempre nas mesmas condições de não ter sido respondido e somente ser o proprietário ou administrador). atentamente, João Paulo Noronha

Bom dia, Primeiro que tudo quero dar os parabéns a toda a equipe e colaboradores pelo ACBr. Devido á minha inexperiencia com o ACBr pelo desde já desculpas pelos erros que possa cometer pois ainda estou no processo de aprendizagem. Peguei um projeto implementado com a versão 2.00 de NFe e estou a efetuar a migração para NFe 3.10 contudo ao atualizar as fontes do ACBr sugiram erros na compilação. Estou a usar Delphi 2006. Corri o apagarAcbr, como administrador, sem problemas. envio anexo do log gerado Desde já agradeço a atenção João Paulo Noronha log_Delphi_2006.txt

Boa tarde Gostaria de saber se houve alguma alteração no aplicativo ACBrInstall, para o Delphi 2006, pois quando tento executar está a reportar mensagens de erro. Nomeadamente que não encontra os pacotes selecionados (o erro desaparece consoante copio o arquivo .dpk correspondente para a pasta C:\ACBR\Pacotes\Delphi). desde já agradeço a atenção Joa Paulo RE: Já compreendi o meu erro estava a correr o aplicativo da pasta incorreta, a partir do download