Rodrigo Cardilo

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,

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