jdazevedo

Olá Gabriel, Baixei as Units que vc postou, só que ao gerar o TXT, usando a function <NotasFiscais.SaveToTXT> a primeira linha está aparecendo duplicada. Veja como ficou: ... NOTA FISCAL|1 NOTA FISCAL|1 A|3.10|NFe42150301927520000298550010000040711000053780 B|42|00005378|VENDA|1|55|1|4071|2015-03-17T00:00:00-03:00|2015-03-17T00:00:00-03:00|1|1|4202404|1|1|0|1|1|0|0|3|2.2|| ... Em algumas versões antigas ocorria isto, mas foi resolvido. Ao fazer um DEBUG, percebi que logo após a geração do TXT, tem os seguintes procedimentos: ... if loSTR.Count > 0 then begin loSTR.Insert(0,'NOTA FISCAL|'+IntToStr(Self.Count)); J:=loSTR.Count; .. Comentei estas linhas e resolveu. Alguém já passou por isto?

Valeu Gabriel. Baixei. Vou testar e te dou feed-back.

Valeu Tiago, Grato.

Olá Carbox, Muito grato pela atenção. No arquivo zipado, contem 2 arquivos TXT, um como estava sendo gerado e outro como está gerando após minha alteração. Contém também a Unit pcnLayoutTXT com a alteração. Nfe_txts.zip

Boa Noite, Sei que este post está há muito tempo parado. Mas, estou enfrentando este problema. Atualizei tudo, mudei a versão para ve310 e ao gerar o Arquivo TXT, não aparece a a linha A|3.10|.... Fiz um DEBUG e percebi que não estava gerando a linha porque na function a seguir: function CarregarLayoutTXT(const versao: string): AnsiString; ... else if versao = '2.00' then begin LoadLayout('<B01> NOTA FISCAL|1'); LoadLayout('<B01> A|2.00|^id^'); //ok ... else if versao = '3.10' then begin LoadLayout('<B> NOTA FISCAL|1'); LoadLayout('<B01> A|versao¨|^id^'); ... Simplesmente substituí o campo <versao¨> por <3.10> e recompilei o pacote: PCN2 e funcionou. Ficou assim: ... else if versao = '3.10' then begin LoadLayout('<B> NOTA FISCAL|1'); LoadLayout('<B01> A|3.10|^id^'); ... Não sei se esta é a melhor solução. Também não pesquisei mais para ver porque o campo <versao¨> não estava sendo substituído. Se alguém que conhece melhor esta rotina puder dar uma olhada e me indicar uma melhor solução eu ficaria muito grato.

Para resolver isto fiz da seguinte maneira: procedure TF_BuscaCNPJ.LabAtualizarCaptchaClick(Sender: TObject); var Stream: TMemoryStream; Png: TPngImage; Bmp: TBitmap; MyFormat : Word; AData: Cardinal; APalette : HPalette; begin Stream:= TMemoryStream.Create; Png:= TPngImage.Create; Bmp:= TBitmap.Create; try if EhCNPJ then ACBrConsultaCNPJ1.Captcha(Stream) else ACBrConsultaCPF1.Captcha(Stream); Png.LoadFromStream(Stream); Png.CopyToBmp(bmp); bmp.SaveToClipboardFormat(MyFormat,AData,APalette); Image1.Picture.LoadFromClipboardFormat(MyFormat,AData,APalette); EditCaptcha.Clear; EditCaptcha.SetFocus; finally Stream.Free; Png.Free; Bmp.Free; end; end;

Olá Rafael, Ignore o meu post anterior. O erro estava na minha rotina. Funcionou perfeitamente. Parabéns. Abraço,

Oi Rafael, Peguei o ACBrConsultaCNPJ que vc postou e testei, só que agora apareceu o erro: JPEG error #53.

Olá Bilogyn, Seguindo a orientação do Leão. Complemento a seguir com a forma que estou usando com sucesso. smtp:= smtp.gmail.com; port:= 465; Username:= [email protected]; Password:= xxxxxxx; SetSSL:= true; SetTLS:= true; Nas configurações da conta: Status: IMAP está Ativado.

Ola Leão, Eu sempre usei um provedor para as minhas contas de email, Já há algum tempo venho dificuldade para enviar emails para alguns destinatários Segui sua sugestão criei uma conta no GMAIL e funcionou perfeitamente. Muito grato.

Muito grato Leão, Também acho que é algum detalhe que está impedindo o envio. A minha conta é antiga. E quando uso outros programas, consigo enviar para qualquer email. O fato de estar enviando Anexos: XML e PDF, implica em alguma configuração diferente?

Olá Amigos, Estou tentando usar o componente ACBrEmail, para enviar NFE e PDF de Boletos para clientes. Para alguns emails destinatários está funcionando normalmente. Mas, quanto tento enviar um email para qualquer Endereço @GMAIL.COM, sempre retorna o Erro: SMTP Error: Unable to send MailTo. A minha conta, faz login, com porta: 465 e SetSSL; Login: OK; Já tentei SetTLS := True; Alguém pode de dar alguma dica de como resolver?

Olá pessoal, Estou gerando a NFE em arquivo TXT, mas sempre aparece a primeira linha duplicada. NOTA FISCAL|1 NOTA FISCAL|1 A|2.00|NFe35150102481767000105550010000337871001160533 B|35|00116053|Venda de mercadoria adquirida ou recebida de terceiros|1|55|1|33787|2015-01-12|2015-01-12|15:03:18| Alguém pode me dá uma dica, de como resolver isto.

Olá Amigo, Eu tenho passado como "nosso número" o meu número interno do lançamento. E uso este mesmo número no retorno da cobrança. Por enquanto, não tive problema algum.

Olá Desenvolvedor2, Tive um problema parecido com este que vc está passando. No meu caso, ocorria que o antivirus, em modo silencioso, sempre identificava que o "ACBrDiversos.bpl" tinha um virus e movia para quarentena logo depois da compilação e apresentava os mesmos erros que apareceram no seu log. Desativei o antivirus e a instalação passou sem problemas. Outro problema que as passamos despercebido, sempre executo o <ACBrInstal.exe como Administrador>, principalmente no Windows 8.

Estou gerando o arquivo TXT da NFE, Mas, não geram as linhas A01, C02 nem E02. Todas as informações correspondentes a estas linhas foram informadas. A01 (Versão = ve310); C02 (CNPJ Emitente); E02 (CNPJ Destinatário).

Valeu amigos, Deu certo.

Boa Noite pessoal! Atualizei os pacotes ACBr, usando o ACBrInstall. Após isto, não consegui mais instalar o ACBr_Nfe2.bpl. Ocorre o erro de compilação: Too many actual parameters na Unit: ACBrNFeWebServices, Procedure TWebServicesBase.EnviarDados; . ReqResp.Execute(FEnvelopeSoap, Stream); // Dispara exceptions no caso de erro . Observei que esta function não tem parametros: function TACBrHTTPReqResp.Execute: {$IFDEF FPC} String {$ELSE} AnsiString {$ENDIF};

Oi Gr@c@, Desculpe-me pela demora na resposta. Estive viajando e estava off. no uses {$IFDEF Delphi7}QRPDFFilt,{$ENDIF}QRWebFilt; Trecho do código {$IFDEF Delphi7} FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); finally FiltroExportacao.Free; end; {$ENDIF}

Oi Carlos, Faz tempo que vc postou sua sugestão de mudança no ACBRBoleto e ninguém respondeu. Eu to com este mesmo problema, tentei pegar o seu arquivo mas, ele não está válido. Vc poderia anexá-lo novamente? Abraço,

Obrigado Solivan, Vou colocar uma diretiva.

Olá Amigos, Como não estava funcionando a geração do Boleto em PDF, efetuei as seguintes mudanças na unit ACBrBoletoFCQuickFr. Uso Delphi7 - Inclui em Uses QRPDFFilt. Tirei o comentário das linhas 548: FiltroExportacao: TQRPAbstractExportFilter; 569: FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); 571: TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; 572: RLLayout.ExportToFilter(FiltroExportacao); 574: FiltroExportacao.Free; Após esta mudança, fiz alguns testes e funcionou perfeitamente. Como estas linhas estavam comentadas, imagino que alguém teve algum problema, por isso as comentou.

Muito interessante. Consulta SPC, baixei, vou fazer alguns testes e contribuir no que for possível. Abraço,

Valeu Datilas, muito grato.

Valeu Regys. muito grato.