Rodrigo Cardilo

Bom dia amigos, Quando tento carregar o xml para importar para meu sistema, em alguns casos, está me retornando o seguinte erro: Não encontrei o atributo: versão Esse erro acontece quando utilizo da seguinte forma: ACBrNFe1.NotasFiscais.LoadFromFile Percebi que isso acontece em alguns xml's enviados por alguns fornecedores. Abri o arquivo enviado por esses fornecedores e notei a seguinte diferença no início do arquivo: <?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns='http://www.portalfiscal.inf.br/nfe' xmlns:ds='http://www.w3.org/2000/09/xmldsig#' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portalfiscal.inf.br/nfe procNFe_v3.10.xsd' versao='3.10'> <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> Esse é o início dos arquivos baixados pelo site do portal nfe. <?xml version="1.0" encoding="utf-8"?><nfeProc versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe"> Estou enviando o arquivo anexo com problema. Grato pela ajuda 31151107420928000255550010002934571152934576-nfe Autorizado.xml

Oi amigos, Estou passando pelo mesmo problema. O que eu descobri até agora é que o arquivo enviado ao meu cliente é diferente dos baixados pelo site do portal nfe. Esse é o início do arquivo xml enviado pela empresa. <?xml version="1.0" encoding="UTF-8"?><nfeProc xmlns='http://www.portalfiscal.inf.br/nfe' xmlns:ds='http://www.w3.org/2000/09/xmldsig#' xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xsi:schemaLocation='http://www.portalfiscal.inf.br/nfe procNFe_v3.10.xsd' versao='3.10'> <NFe xmlns="http://www.portalfiscal.inf.br/nfe"> Esse é o início dos arquivos baixados pelo site do portal nfe. <?xml version="1.0" encoding="utf-8"?><nfeProc versao="3.10" xmlns="http://www.portalfiscal.inf.br/nfe"><NFe xmlns="http://www.portalfiscal.inf.br/nfe">< Estou enviando o arquivo anexo com problema. O erro que apresenta quando tento carregar o arquivo é "Não encontrei o atributo: versão" Grato pela ajuda 31151107420928000255550010002934571152934576-nfe Autorizado.xml

Oi datilas, Não consegui fazer funcionar. Tenho 2 provaveis explicações. 1 - Meu servidor de hospedagem (kinghost) tem algum problema 2 - Eu utilizo o delphi 2010 e a versão do Indy pode ser diferente da sua De qualquer forma obrigado pela atenção.

Boa tarde Datilas, Tentei usar o exemplo que você me passou mas sempre recebo um retorno vazio, mesmo quando o arquivo não existe. Por exemplo: Tenho o arquivo http://www.cardilo.com/clientes/36.txt e da maneira que você me passou continuo recebendo mensagem de conteúdo vazio. Como você consegue pegar seus arquivos no servidor na internet? Grato.

Caro amigo, Eu preciso saber se o arquivo existe no endereço da web e não no meu computador.. Leia novamente minha dúvida inicial no post que vai entender do que se trata. Grato

Oi Isaque... Você tem alguma sugestão ou exemplo de como fazer isso? Grato

Bom dia amigos, Estou utilizando o ACBRDownload sem problemas. Mas gostaria de saber se existe um recurso que me ajudaria muito: As vezes tento fazer download de um arquivo txt que não está no meu servidor web. (ex: www.cardilo.com/clientes/70.txt) Queria saber se existe uma forma do ACBRDownload verificar se existe esse arquivo e só assim fazer o download. Hoje, quando tento fazer isso ele cria aquele arquivo 70.txt.part e não me retorna erro algum. Uma outra possibilidade seria ele me retornar que não conseguiu fazer o download e eu parar o mesmo. Grato, Rodrigo Cardilo

Italo bom dia voce poderia me informar si esse post foi resolvido? Eu queria setar alguma coisa que não grave o xml sem validade juridica. ex. quando emito uma nfe que da duplicidade por algum erro que usuario informou o mesmo numero da nfe ele esta gravando na pasta do xml, sem protocolo de autorização, e acaba substituindo a correta, e ai tenho que efetuar o download na sefa da verdadeira. obrigado paulinho Paulo, Eu atualizei os fontes e no meu caso o problema foi resolvido. Nem mesmo postei aqui pois já tinha outros tópicos sobre o assunto. Abraço

Oi amigos, Estou seguindo esse post e hoje atualizei os fontes pra ver como os arquivos estão sendo salvos. Eu não me importo em salvar arquivos com ou sem validade jurídica. O que me interessa é que na pasta mensal, já que sempre utilizei esse recurso, salve os arquivos com validade jurídica. Porém isso não está acontecendo. Eu tenho uma pasta chamada ArqCte onde as pastas mensais são criadas dentro dela. O arquivo com validade jurídica está sendo salvo na pasta ArqCte e na pasta mensal está sendo salvo um arquivo sem a informação de autorização do cte. Já fiz todas as tentativas e não salva. Segue abaixo o fonte. DM1.ACBrCTe1.Configuracoes.Arquivos.Salvar := True; DM1.ACBrCTe1.Configuracoes.Geral.Salvar := True; DM1.ACBrCTe1.Configuracoes.WebServices.Salvar := True; DM1.ACBrCTe1.Configuracoes.Arquivos.EmissaoPathCTe := True; DM1.ACBrCTe1.Configuracoes.Arquivos.SepararPorMes := True; DM1.ACBrCTe1.Configuracoes.Arquivos.AdicionarLiteral := True; DM1.ACBrCTe1.Configuracoes.Arquivos.PathSalvar := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathCTe := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathInu := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathEvento := IncludeTrailingPathDelimiter(DM1.TB99840PATHCTE.Value); DM1.ACBrCTe1.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + '\SchemasCte'; O que devo fazer mais do que isso?

Eu desisti. Utilizo somente os meus corrigidos. Toda vez que eu atualizo vem com problemas de acentuação. Não seria a versão do Fortes? Eu utilizo o CE para Delphi 2010, Grato

Olá amigos, Aqui em Minas Gerais estamos tendo muitos problemas com o servidor do SEFAZ o que nos força a utilizar constantemente o SVC-AN. O problema é que quando é emitida uma nota desse modo, não consigo emitir uma carta de correção para a mesma. Isso está acontecendo em outros estados ou realmente não é possível. Procurei algo nas notas técnicas mas não achei nada referente ao assunto. Grato.

Exemplo completo: procedure EnviarEmail(Para: string); var Assunto: string; CC, Memo: Tstrings; begin CC := TStringList.Create; Memo := TStringList.Create; Memo.Text := 'Texto da Mensagem'; // Corpo do Email Assunto := 'Envio de Boleto'; // assunto do email CC.Add('[email protected]'); // com copia 1 CC.Add('[email protected]'); // com copia 2 ACBrBoleto1.EnviarEmail(Para, Assunto, Memo , True //Enviar PDF junto , CC // Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings CC.Free; Memo.Free; end; Estude mais o código que fica mais fácil.

Boa tarde, Seria isso? CC := TStringList.Create;CC.add('[email protected]');

Oi Daniel, Debugando mais afundo descobri o problema. Era com a geração da variavel CC. Um erro interno, meu mesmo. O componente está enviando corretamente. Desculpe o transtorno e obrigado pela dica.

Daniel, As dlls estão lá. Curioso é que envia na segunda tentativa.. Primeiro dá o erro que mencionei. Depois eu tento novamente e daí envia. Não seria alguma variável que não é gerado da primeira vez? Andei comparando essa função com a função da Nota fiscal eletrônica e elas são distintas. Não teriam que ser iguais? Grato.

Oi amigos, Eu utilizo o Fortes Report para impressão do todos os documentos fiscais nos meus sistemas. Porém o DAMDFE veio com vários problemas de acentuação, etc. Não sei se aconteceu com todos mas estou mando a fonte corrigida para análise. Atc, ACBrMDFeDAMDFeRLRetrato.pas ACBrMDFeDAMDFeRLRetrato.dfm

Ótimo Ítalo, Fica bem mais fácil de manter um padrão na hora de procurar os arquivos para enviar um e-mail ou imprimir. As mudanças no trunk2 ficaram perfeitas. Parabéns a todos.

Bom dia, A mesma estrutura proposta aqui está sendo utilizada no ACBRCte? Grato,

Bom dia amigos, Depois que migrei para o trunk2 estou tenho problemas ao enviar email de eventos. Estrando é que só acontece na primeira vez. O erro é access violation......... Mais estranho ainda que não aparece a mensagem enviado email configurado no componente ACBRNFe Já li e reli o meu fonte e não achei. Antes não acontecia esse problema. Segue o meu código abaixo. if Para <> '' then begin try ConfiguraEmail; LerConfiguracao; Path := PastaMensalNota(DM1.TB08400DTEMISSAO.AsDateTime, 'NFe'); Chave := DM1.TB08400CHAVENFE.Value; DM1.ACBrNFe1.NotasFiscais.Clear; DM1.ACBrNFe1.NotasFiscais.LoadFromFile(Path + Chave + '-nfe.XML'); DM1.ACBrNFe1.DANFE.PathPDF := PastaMensalNota(DM1.TB08400DTEMISSAO.AsDateTime, 'PDF'); Assunto := 'Evento de NF-e - Cancelamento'; DM1.ACBrNFe1.EventoNFe.Evento.Clear; DM1.ACBrNFe1.EventoNFe.LerXML(Path); Evento := TStringList.Create; Evento.Clear; Evento.Add(Path); CC := TStringList.Create; Memo := TStringList.Create; CC := nil; Memo.Text := 'Esta mensagem refere-se ao ' + Assunto; DM1.ACBrNFe1.EnviarEmailEvento(Para, Assunto, Memo , CC //Lista com emails que serão enviado cópias - TStrings , Evento); // Lista de anexos - TStrings finally CC.Free; Memo.Free; Evento.Free; end; end; Verifiquei que o problema acontece nessa procedure da unit ACBRNFe.pas, mais especificamente em EnviarEmail(sPara, sAssunto, sMensagem, sCC, AnexosEmail, nil, ''); procedure TACBrNFe.EnviarEmailEvento(sPara, sAssunto: String; sMensagem, sCC, Anexos: TStrings); var NomeArq: String; AnexosEmail: TStrings; begin AnexosEmail := TStringList.Create; try AnexosEmail.Clear; if Anexos <> nil then AnexosEmail.Text := Anexos.Text; ImprimirEventoPDF; NomeArq := OnlyNumber(EventoNFe.Evento[0].InfEvento.Id); NomeArq := PathWithDelim(DANFE.PathPDF) + NomeArq + '-procEventoNFe.pdf'; AnexosEmail.Add(NomeArq); EnviarEmail(sPara, sAssunto, sMensagem, sCC, AnexosEmail, nil, ''); finally AnexosEmail.Free; end; end;

Boa noite Ítalo, Deixa eu ver se entendi. Agora dentro da pasta Evento serão criadas sub-pastas CCe, Cancelamento, etc separadamente? Grato

Oi Henrique, É no trunk2 sim.. fiz o que você sugeriu e resolveu.. Muito agradecido.

Ok Italo. Agora está ok.. Muito obrigado.

Os enumerados estão declarados em pcnConversaoNfe.pas Atualize o Acbr. Atentar para o erro Grave. postado acima. Oi Henrique. já atualizei o svn e inclusive baixei o arquivo que você postou no erro grave e não consigo compilar. Estranho pois está declarado tudo corretamente nas 2 units, pcnConversao e pcnCoversaoNFe. O que mais pode ser?

Oi ìtalo, Exatamento. O componente está gerando duas pastas Evento, uma dentro da outra e não está gerando mais a pasta Cancelamento de de Evento, como era feito anteriormente. Fiz o teste hoje e o caminho do xml de cancelamento passou a ser "Z:\Sistemas\Lalupe\ArqCte\201508\Evento\Evento" Antes era assim: "Z:\Sistemas\Lalupe\ArqCte\201505\Evento\Cancelamento" Por isso achei estranho.Todos os xmls estão sendo salvos nessa primeira pasta. Grato,

Boa tarde, Quando tento instalar o pacote ACBR_NFeDanfeRL aparece os seguints erros na unit ajustada pelo nosso amigo Henrique: [DCC Error] ACBrNFeDANFeRLRetrato.pas(1291): E2003 Undeclared identifier: 'modFreteToDesStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1444): E2003 Undeclared identifier: 'indProcToDescrStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1804): E2003 Undeclared identifier: 'VeiculosTipoOperStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1813): E2003 Undeclared identifier: 'VeiculosCombustivelStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1820): E2003 Undeclared identifier: 'VeiculosTipoStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1821): E2003 Undeclared identifier: 'VeiculosEspecieStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1822): E2003 Undeclared identifier: 'VeiculosVinStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1823): E2003 Undeclared identifier: 'VeiculosCondicaoStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1825): E2003 Undeclared identifier: 'VeiculosCorDENATRANSTr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1827): E2003 Undeclared identifier: 'VeiculosRestricaoStr' [DCC Error] ACBrNFeDANFeRLRetrato.pas(1865): E2003 Undeclared identifier: 'ArmaTipoStr' Esses estão declarados na unit pcnconversao.pas porém não compila. Alguma dica do que pode ser? Grato,