FabioMachado

Bom dia, a uns dias atras eu tinha instalado o danfe nfce (ACBrDANFCeFortesFr) só que tive um problema no pc e tive formatar, agora não encontro mais as units para instalação , nem a do quickreport;

Consegui resolver essa pendencia mudando de "QR5RunDXE6" para " QR506RunDXE6" apenas inclui o 06 por causa da versão do quick 5.06

Deixa eu te perguntar, você conseguiu o envio o arquivo remessa e a leitura do arquivo retorno do banco itau?

Boa Noite! Estou tentando recepcionar os arquivos de retorno do banco Itaú mais me retorna o erro CNPJ\CPF do Arquivo Inválido. Ja olhei no arquivo e está correto. Estou fazendo algo errado? ACBrBoletoRetorno.Cedente.TipoInscricao:=pFisica; ACBrBoletoRetorno.Cedente.Nome:=sqlCadBAN_NOME_CEDENTE.AsString; ACBrBoletoRetorno.Cedente.CodigoCedente:=sqlCadBAN_CODIGO_CEDENTE.AsString; ACBrBoletoRetorno.Cedente.Agencia:=sqlCadBAN_AGENCIA.AsString; ACBrBoletoRetorno.Cedente.AgenciaDigito:=sqlCadBAN_AGENCIA_DIGITO.AsString; ACBrBoletoRetorno.Cedente.Conta:=sqlCadBAN_CONTA.AsString; ACBrBoletoRetorno.Cedente.ContaDigito:=sqlCadBAN_DIGITO_CONTA.AsString; ACBrBoletoRetorno.Cedente.CNPJCPF:=sqlCadBAN_CPF_CNPJ_CEDENTE.AsString; ACBrBoletoRetorno.Banco.Nome:=sqlCadBAN_NOME.AsString; ACBrBoletoRetorno.Banco.Numero:=sqlCadBAN_NR.AsInteger; dlgOpen1.FileName := ''; dlgOpen1.Title := 'Selecione o arquivo de retorno'; if dlgOpen1.Execute then begin ACBrBoletoRetorno.DirArqRetorno := ExtractFilePath(dlgOpen1.FileName); ACBrBoletoRetorno.NomeArqRetorno := ExtractFileName(dlgOpen1.FileName); end; ACBrBoletoRetorno.LerRetorno; CN03074A.txt

Não consigo fazer o cancelamento do CT-e segue código. procedure TfrmCTe.btnCancelaNFeClick(Sender: TObject); var vAux, MemoResp : String; begin if (Trim(objCTE_CHAVE_ACESSO.Text) = '') then begin MessageDlg('CTe não foi autorizada', mtInformation, [mbOK], 0); objCTE_CHAVE_ACESSO.SetFocus; Exit; end; if (objCTE_Numero_LOTE.EditValue = 0) then begin MessageDlg('Entre com o número do lote', mtInformation, [mbOK], 0); objCTE_Numero_LOTE.SetFocus; Exit; end; if (Trim(objCTE_MOTIVO_CANCELAMENTO.Text) = '') then begin MessageDlg('Entre com o motivo do cancelamento', mtInformation, [mbOK], 0); objCTE_MOTIVO_CANCELAMENTO.SetFocus; Exit; end; ACBrCTe1.Conhecimentos.Clear; OpenDialog1.Title := 'Selecione o CTe'; OpenDialog1.DefaultExt := '*'+objCTE_CHAVE_ACESSO.Text+'*-cte.xml'; OpenDialog1.Filter := 'Arquivos CTe ('+objCTE_CHAVE_ACESSO.Text+'-cte.xml)|'+ objCTE_CHAVE_ACESSO.Text+'-cte.xml|Arquivos XML (*' + '.xml)|'+objCTE_CHAVE_ACESSO.Text+'.xml'; OpenDialog1.InitialDir := ACBrCTe1.Configuracoes.Geral.PathSalvar; if OpenDialog1.Execute then begin ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName); ACBrCTe1.Cancelamento(objCTE_MOTIVO_CANCELAMENTO.Text); objCTE_PROTOCOLO_CANCELAMENTO.Text:= ACBrCTe1.WebServices.Cancelamento.Protocolo; ShowMessage(IntToStr(ACBrCTe1.WebServices.Cancelamento.cStat)); ShowMessage(ACBrCTe1.WebServices.Cancelamento.Protocolo); end; end;

Segue link do post:

Boa Noite, a uns 6 meses mais ou menos eu postei aqui no forum os fontes do boleto em quickreport com as alterações necessários para fazer a geração do PDF. Porém na ultima atualização o problema ainda permanecia. Há alguem responsavel pelos boletos em quickreport? Gostaria das implementações. Não to sabendo o que fazer .. pode ser que haja outras correções necessários que não tenham sido implementadas.

Boa Noite, estou tendo um problema com a transmissão da NFe. Ta dando rejeição em todas elas Rejeição 103 - Segue arquivo XML. 14140407198515000197550010000001031000001030-nfe.xml

O demo ta assim: if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then begin ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID; ACBrNFe1.WebServices.ConsultaDPEC.Executar; ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC); end; Igual acabei de atualizar inclusive e o Anti-virus pegou um virus vindo do SVN.

Quando vou imprimir o DANFE novamente não está saindo protocolo eu estou usando assim mais não da resultado sai em branco. ACBNFe.DANFE.ProtocoloNFe := ACBNFe.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBNFe.WebServices.ConsultaDPEC.dhRegDPEC);

Renato Lucas Pandolfo, eu ja espero esse layout a um bom tempo .. e até onde sei não há previsão... principalmente se for pra quickreport. você poderia fazer desenvolvimento utilizando os fontes ja existentes e assim que estivesse ok, postasse aqui pra ver se algum administrador incluia no svn.

Da uma olhada nesse post, no final dele tem o arquivo para atualização.

Boa Noite, estou tentando enviar os boletos pelo e-mail sem sucesso. Estou usando a função assim: ACBrBoleto.EnviarEmail(cEmailHost, cEmailPorta, cEmailUser, cEmailSenha, cEmailFrom, cEmailTo, cAssunto, cMensagem, bSSL, True, nil, nil, False, False, dm.sqlEmpresaEMP_NOME.AsString, False{bSSL}); e configurando assim: cEmailHost := 'smtp.gmail.com'; cEmailPorta := '465';; cEmailUser := '[email protected]'; cEmailSenha := 'minhasenha'; cAssunto := 'Boleto'; bSSL := True; cEmailFrom := 'meueamil'; cEmailTo := sqlClienteCLI_EMAIL_1.AsString; Pior que não ocorre nenhum erro nem debugando.

Puts acabei de ver que o problema continuo para o quickreport. segue anexo o arquivo com as alterações do cedente para beneficiário e a correção da geração do PDF ACBrBoletoFCQuickFr.pas

Gostaria que alguém atualizasse o svn do acbrbole .. pq o que ta la não funfa, mais como demonstrado no post do Ilsouza a correção ja havia sido feita. Peguei o arquivo .pas com o Ilsouza e ta funcionando normal agora, segue anexo o arquivo para atualização do SVN. ACBrBoletoFCQuickFr.pas

Testando aqui o componente descobri as seguintes linhas comentadas: begin // FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try // TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; // RLLayout.ExportToFilter(FiltroExportacao); finally // FiltroExportacao.Free; end; // MultiExport := TQRMultiExport.Create(self); // try // MultiExport.Report := RLLayout ; // MultiExport.ExportFormat := qrxPDF ; // MultiExport.FileName := NomeArquivo ; // MultiExport.ShowDialog := MostrarSetup ; // MultiExport.DPI := 300 ; // MultiExport.DoExport ; // finally // MultiExport.Free ; // end ; end ; Será esse o motivo pelo qual não gera o PDF do Boleto?

Pois e ja tinha verificado isso sim, mesmo pq a NFe tb uso o quickreport e exporta legal o PDF.

Não estou conseguindo gerar o PDF com o componente .. não dá nenhum erro simplesmente não faz nada. ACBrBoletoFCQuick1.NomeArquivo := 'C:\Livre\rel\BoletoPDF\'+'Boleto'+inttostr(I)+'.pdf'; ACBrBoleto.GerarPDF; Ja a opção de imprimir funciona;

Ops .. descobri. dentro de componentes install packages ele tava desmarcado. não entendi pq.

Esse é inédita ... eu não to conseguindo utilizar o componente. Quando abro o Demo dos boletos o componente ta la ABA legal .. funciona tudo .. compila .. executa, gera o boleto, gera o pdf e tal ... quando eu vou para os fontes do meu sistema o ACBrBoletoFCQuick simplesmente deixa de existir .. desaparece da aba. e eu não consigo coloca-lo. Ambiente: windows 8+XE4

É mais eu não resolvi ainda não .. o problema persiste e eu não entendi pq ele procurar o fs15.

É o 18 mesmo o fast ...e não tenho outro delphi instalado nessa maquina. Agora que vc falou que eu vi o frx15. vou desinstalar tudo e instalar novamente.

Boa Noite, estou tentando instalar o ACBrBoletoFC_FR e estou tendo problemas. Eu uso aqui o Delphi XE4 e o Fast Report quando mando compilar da a seguinte mensagem de erro: [dcc32 Fatal Error] frx15.dpk(139): F1026 File not found: 'E:\Desenvolvimento\Componentes\ACBr\Pacotes\Delphi\frxDCtrl.dcu'; ja tentei até o instalar do ACBr mais não funfa.

Daniel .. meus conhecimentos no sentido de transformar os fontes é bem limitada. Nem consegui passar eles para utilizar no XE4 Então assim .. se alguém puder fazer ficaríamos todos gratos.

Seguinte .. to postando o link dos fontes que estão funcionando em tudo . geração e transmissão. dois componentes e dll's utilizadas. Só quero que alguém transforme isso em um componente do ACBr. http://www.sejalivre.net.br/downloads/delphi%202010.rar