Rodrigo Cardilo

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,

Bom dia, Migrei para o trunk2 e estou tendo duvidas nas pastas de salvamento dos xml. Anteriormente a pasta de Cancelamentos ficava em AAAAMM\Evento\Cancelamento (AAAA ano e MM mês). e a pasta de Eventos ficava em AAAAMM\Evento\Evento. Agora todos os xmls de evento estão ficando em AAAAMM\Evento\Evento. Tem como voltar ao modo anterior na configuração do componente? Grato

Entendi Ítalo, Grato pela atenção.

João Paulo, Acho que você não entendeu meu problema. O arquivo está sendo salvo porém na pasta evento ao invés da pasta cce. As propriedades estão todas como true. Só quero saber como fazer os arquivos da carta de correção voltar a ser salvos na pasta cce e não na pasta evento. Grato.

Oi João Paulo, Eu já utilizo essa propriedade conforme citei no meu código acima: DM1.ACBrNFe1.Configuracoes.Arquivos.AdicionarLiteral := True; Ainda sim não salva na pasta CCe e sim na pasta Evento.

Oi amigos, Sempre utilizei o ACBRNFe e aos arquivos xml das cartas de correções eram salvas nas pasta mensal/CCe. (Ex.: C:\Sistema\ArqNfe\201506\CCe) . Porém de uns dias pra cá o componente está salvando os mesmos arquivos na pasta de Eventos (Ex.: C:\Sistema\ArqNfe\201506\Evento) . As propriedades do componente estão conforme código abaixo: DM1.ACBrNFe1.Configuracoes.Arquivos.Salvar := True; DM1.ACBrNFe1.Configuracoes.Arquivos.EmissaoPathNFe := True; DM1.ACBrNFe1.Configuracoes.Arquivos.PastaMensal := True; DM1.ACBrNFe1.Configuracoes.Arquivos.AdicionarLiteral := True; DM1.ACBrNFe1.Configuracoes.Arquivos.PathNFe := IncludeTrailingPathDelimiter(DM1.TB99840PATHSALVAR.Value); DM1.ACBrNFe1.Configuracoes.Arquivos.PathCan := IncludeTrailingPathDelimiter(DM1.TB99840PATHSALVAR.Value); DM1.ACBrNFe1.Configuracoes.Arquivos.PathInu := IncludeTrailingPathDelimiter(DM1.TB99840PATHSALVAR.Value); DM1.ACBrNFe1.Configuracoes.Arquivos.PathDPEC := IncludeTrailingPathDelimiter(DM1.TB99840PATHSALVAR.Value); Como faço para fazer o componente voltar a salvar na pasta CCe? Grato desde já.

Oi Ivomar, Isso mesmo. Eu já tinha feito isso a muito tempo. Só que agora não consigo mais. Essa rotina sua funciona? Grato

Amigo. Acredito que não entendeu minha pergunta. Eu consigo gerar os boletos de qualquer forma. O que quero é gerar um único pdf com boletos de diferentes cedentes ao mesmo tempo. Hoje só consigo gerar o pdf de um mesmo cedente. Obrigado pela ajuda.

Boa tarde amigos, Estou com uma diculdade e não sei se e possível fazer com o ACBRBoleto. Gero vários boletos para um mesmo cliente porém com cedentes ou bancos diferentes. Exemplo. O usuário gera uma venda e parcela de 3 vezes porém a primeira parcela é gerada pelo Banco do Brasil e as demais pela Caixa. Eu gostaria de saber se existe a possibilidade de eu utilizar o ACBrBoleto1.Imprimir aparecendo os 3 boletos de uma vez só. Hoje eu tenho que filtrar por cedente e mandar imprimir. Daí não consigo enviar por e-mail ou gerar pdf um único arquivo. Será que existe essa forma que eu preciso. Grato pela atenção.

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

Boa tarde amigos, Meu cliente apagou acidentalmente todos os arquivos xml's gerados pelo meu programa. Até aí tudo bem pois consegui recuperar utiilizando a rotina: ACBrNFe1.WebServices.Consulta.NFeChave := ChaveNFE; ACBrNFe1.WebServices.Consulta.Executar; O problema agora é que eu precisaria dos arquivos dos eventos. Já descobri em outros posts que o arquivo com final *-sit.xml contém essas informações. Porém gostaria de saber se existe algum comando para salvá-los automaticamente na pasta (no meu caso a pasta mensal e dentro dela CCe e/ou Can). Eu tenho inclusive o protocolo desses eventos salvos no banco de dados. Grato pela atenção desde já.

Boa tarde, Tem praticamente tudo no portal.. http://www.fazenda.sp.gov.br/sat/ Atc,.

Boa dia, Acredito que o problema está aqui: <infNF> <CNPJ>00721388000110</CNPJ> <UF>MS</UF> <nNF>2632</nNF> <serie>1</serie> <dEmi>2014-09-02</dEmi> <vNF>729.38</vNF> </infNF> O que provavelmente acontece é que o emitente da nota fiscal 2632 não pode emitir nota fiscal e sim NOTA FISCAL ELETRÔNICA. O SEFAZ valida essa informação verificando a obrigatoriedade pelo CNPJ. Não sei se fui claro. Atc,

Boa tarde Ítalo, Segue anexo arquivo .PAS com as alterações sugeridas. Grato, ACBrCTeDACTEFRDM.pas

Oi Ítalo, Não vejo problema algum. A dificuldade encontrada pelo meu cliente era só em localizar o número da nota na chave. Ficaria show de bola. Agradeço pela atenção e se puder dar uma atenção na segunda alteração que eu sugeri, essa sim faz grande diferença. Grato,

Olá amigos, Estou começando a desenvolver com o ACBRTEFD e tive algumas dúvidas utilizando o gptefdial. Quando fiz os testes no TEFDemo deu tudo certo, tanto com o comando AutoFinalizarCupom como True ou False. No caso do AutoFinalizarCupom = False eu testei usando a seguinte sequencia: Abrir VendeItem Subtotaliza CRT (o Gerenciador aprovou) FinalizarCupom Imprimir Transações Pendentes Deu tudo certo. Cheguei a fazer até com 3 formas de pagamento e sem problema algum. Porém, quando vou jogar os comando para a minha aplicação não consegui identificar como eu sei que a transação TEF foi aprovada pela operadora. Não consegui localizar onde pego esse retorno. Grato desde já,

Oi Isaque. Claro que não tem problema. Taí a imagem circulada. Espero que achem importante. Atc,

Oi Regys, Eu apaguei a pasta, fiz o que o post recomendado sugeriu, baixei novamente e o erro persiste. As units que eu citei acima não encontram a procedure Writelog no ACBRUtils.pas. Eu resolvi a ACBrECFClass.pas voltando com o código anterior do WriteLog. Já o ACBrBALClass.pas eu tive que comentar pois não deu certo de maneira alguma. Será que tenho que fazer mais alguma coisa diferente para dar certo. Grato.

Segue a imagem com as observações e número da nota preenchidos. Já a unit eu já tinha postado antes compactada, mas segue novamente. Grato. ACBrCTeDACTEFRDM.rar