jdazevedo

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.

Olá amigos, Com a Nfc-E o TEF muda alguma coisa? Passei por todos os tópicos sobre a NFCe, também fiz algumas pesquisas no Google a única informação que encontrei é que com SAT o TEF funcionará sem alteração.

Alguém sabe como posso pegar automaticamente o índice mensal IGPM da Fundação Getúlio Vargas.

Oi Italo, Muito grato pela atenção. O erro aparece justamente ao clicar em ADD. Mas, como ainda estou testando o componentes NFE para inserir na minha aplicação, passei a usar o RAVE que passou sem problema.

Olá Amigos, Ao tentar instalar o ACBrNFeDanfeQRpkg no Delphi 7, está ocorrendo o erro: "vcljpg70.bpl cannot be added to the REQUIRES clause of this package.". Eu comentei na unit ACBrNFeDANFeQRRetrato: Uses {JPEG} e instalou normal. Há algum problema que não percebi?

Olá Fernando, Acrescentei no componente o campo "NatJuridica", para pegar o CÓDIGO E DESCRIÇÃO DA NATUREZA JURÍDICA. Alguns usuários tem reclamando que Form do Captcha não tem um botão para ser clicado e alguns ficam sem saber o que fazer. Outros me questionaram o que é este tal de "Captcha". Provisoriamente mudei os displays para "Caracteres Anti-Robo". Para esta questão do Captcha, acho que a melhor solução é adotar a sugestão do Regys.Silveira, para carregar o stream num form da própria aplicação. De qualquer maneira, muito grato pela sua iniciativa, o componente está sendo de uma utilidade sem igual. Se eu puder ajudar em algo, pode contar comigo.