FabioMachado

O que vai ter que ocorrer então, é a geração e envio dos arquivos de remessa. Hoje por exemplo eu não faço isso mas, pelo visto vou ter que fazer. ai eu pergunto, existe uma maneira de enviar esses arquivos ao banco diretamente pelos nossos sistemas, sem ter que usar a ferramenta dos bancos, como fazer upload dos arquivos?

Ola, pessoal. Esses dias consegui assistir tv e fui pego de surpresa com uma informação sobre os boletos, que mudaria os tipos de validação dos boletos, que os dados do mesmo ficariam registrados em um banco de dados, acessível a todos os bancos, eu não entendi muito bem e por isso gostaria de abrir essa discussão.

Estou com o mesmo problema. Alguma solução? 962-eve.xml 0-ped-eve.xml

Boa noite! Galera estou com um cliente que usa NFCe, com impressora Epson T20 conectada na porta usb e compartilhada, apresentando um problema na impressão. A impressora não emite a NFCe enquando não desligar e ligar a mesmo ou reiniciar o computador, eu não faço nem idéia do que pode ser por que esse ambiente comum para o meu sistema, tipo, 100% dos clientes e só nesse esta apresentando o problema. Eu ja peguei esse computador, formatei ele, instalei tudo de novo. e o problema volta a acontecer. Pensei que a impressora poderia estar entrando em stand by, mas não achei nada nesse sentido nas configurações dela e, tão pouco a luz de indicação se altera. Alguém ja passou por um problema parecido.

Então, eu fiz o mesmo que a SaraHidalgo e ta funcionando.

Atualizei o componente a dois dias, removi tudo e reinstalei tudo.

Isso ocorre com o Itaú, no meu caso.

Bom dia, identifiquei hoje que a impressão do FastReport utilizando os arquivos BoletoFr.fr3 no campo de agencia/codigo do beneficiário ta saindo duplicado os dados da agencia. Fiz a atualização no svn dos arquivos fr3 mas não houve alteração. Procurei algum lugar no meu software que estivesse incluindo o agencia mais só há ai nessa função. Utilizo a seguinte função para configurar os dados: procedure TfrmContasReceber.configuracedente; var cSqlBancos:string; begin cSqlBancos:='SELECT * FROM banco WHERE ban_padrao = TRUE'; sqlBancos.Close; sqlBancos.SQL.Clear; sqlBancos.SQL.Add(cSqlBancos); sqlBancos.Open; if sqlBancos.recordcount>1 then begin showmessage('Verifique as configurações de banco pos existe mais de um banco marcado como padrão'); exit; end; if not ValidaCPF(Trim(sqlBancosBAN_CPF_CNPJ_CEDENTE.AsString)) then begin ACBrBoleto1.Cedente.TipoInscricao:=pJuridica; end else ACBrBoleto1.Cedente.TipoInscricao:=pFisica; if (sqlBancosBAN_LAYOUTIMPRESS.AsInteger=0) then begin ACBrBoletoFR1.LayOut:=lCarne; ACBrBoletoFR1.FastReportFile := ExtractFilePath(Application.ExeName)+'\..\Reports\BoletoCarne.fr3'; end; if (sqlBancosBAN_LAYOUTIMPRESS.AsInteger=1) then begin ACBrBoletoFR1.LayOut:=lFatura; ACBrBoletoFR1.FastReportFile := ExtractFilePath(Application.ExeName)+'\..\Reports\BoletoFatura.fr3'; end; if (sqlBancosBAN_LAYOUTIMPRESS.AsInteger=2) then begin ACBrBoletoFR1.LayOut:=lPadrao; ACBrBoletoFR1.FastReportFile := ExtractFilePath(Application.ExeName)+'\..\Reports\BoletoFr.fr3'; end; if (sqlBancosBAN_LAYOUTIMPRESS.AsInteger=3) then begin ACBrBoletoFR1.LayOut:=lPadraoEntrega; ACBrBoletoFR1.FastReportFile := ExtractFilePath(Application.ExeName)+'\..\Reports\BoletoFr.fr3'; end; if sqlBancosBAN_NR.AsInteger=341 then ACBrBoleto1.Banco.TipoCobranca:=cobItau; if sqlBancosBAN_NR.AsInteger=104 then ACBrBoleto1.Banco.TipoCobranca:=cobCaixaEconomica; if sqlBancosBAN_NR.AsInteger=237 then ACBrBoleto1.Banco.TipoCobranca:=cobBradesco; if sqlBancosBAN_NR.AsInteger=001 then ACBrBoleto1.Banco.TipoCobranca:=cobBancoDoBrasil; ACBrBoleto1.Cedente.Nome:=sqlBancosBAN_NOME_CEDENTE.AsString; ACBrBoleto1.Cedente.TipoCarteira:=tctSimples; ACBrBoleto1.Cedente.CodigoCedente:=sqlBancosBAN_CODIGO_CEDENTE.AsString; ACBrBoleto1.Cedente.Agencia:=sqlBancosBAN_AGENCIA.AsString; ACBrBoleto1.Cedente.AgenciaDigito:=sqlBancosBAN_AGENCIA_DIGITO.AsString; ACBrBoleto1.Cedente.Conta:=sqlBancosBAN_CONTA.AsString; ACBrBoleto1.Cedente.ContaDigito:=sqlBancosBAN_DIGITO_CONTA.AsString; ACBrBoleto1.Cedente.CNPJCPF:=Trim(sqlBancosBAN_CPF_CNPJ_CEDENTE.AsString); ACBrBoleto1.Cedente.Logradouro:= dm.sqlEmpresaEMP_ENDERECO.AsString; ACBrBoleto1.Cedente.NumeroRes:= dm.sqlEmpresaEMP_NUMERO.AsString; ACBrBoleto1.Cedente.Complemento:= dm.sqlEmpresaEMP_COMPLEMENTO.AsString; ACBrBoleto1.Cedente.Bairro:= dm.sqlEmpresaEMP_BAIRRO.AsString; ACBrBoleto1.Cedente.Cidade:= dm.sqlEmpresaEMP_CIDADE.AsString;

Tenho interesse no aporte. livreservicoseconsultoria@gmail.com

Seguinte o que disse o Régis, aqui funcionou opções da internet, aba avançadas, role até o fim, desmarque todos os checkboxes para TLS, deixe marcado ssl 2.0 e 3.0.

Na sequencia eu digo o seguinte: " e os boletos onde sai impresso a conta ou seja alterando o código do cedente para o número da conta, " A questão é: Como imprimir o número da conta no código do Beneficiário e gerar a remessa com o código do cedente?

Boa tarde, galera! Hoje me surgiu um problema com o banco Bradesco. Meu cliente passou a emitir boleto com o código do cedente fornecido pelo banco, e esses boletos estão retornando apesar do arquivo de remessa ter sido aceito normalmente, e os boletos onde sai impresso a conta ou seja alterando o código do cedente para o número da conta, o pagamento acontece normalmente e credita na conta, mas o arquivo remessa não funciona, da erro. O gerente do banco passou a seguinte informação para o meu cliente: No arquivo remessa tem que vir o código do cedente e no boleto impresso o número da conta no campo código do beneficiário. Isso é real ou esse gerente ta louco mesmo?

Agnaldo Prates, era isso mesmo, eu estava assinando o arquivo coma função: ACBrPAF1.AssinaArquivoComEAD(cNomeArquivo); só foi retirar ela que validou o arquivo., continuando com os testes por aqui. obrigado.

Boa tarde, estou começando a fazer o sped por aqui e ja implementei um bocado de coisas e agora estou tentando validar o arquivo gerado, porém o validador da receita está me tornando o erro "Estrutura da linha inválido", indicando a linha 83 do meu arquivo que é exatamente a baixo do registro |9990|34| que possui o seguinte conteudo: EAD4F59F1B85F8FE65686DDEDB4784E25F644169C497F130B4D6A818236E09EAFAA88A09D444E54524AA200AE63EB059812174D7019D98F0543B54D1F61776FF84E5CD710603654EFE1F9245F40685C2506BBCB56C9B723725A728840A05CDE126B1E19C438F779826099B5711DB8242F0E3C9AFC137A58EEF6CBE1BEC34C1C2F34

Boa noite pessoal, tava lendo aqui um bocado mas não encontrei sobre o download do xml da sefaz. Eu estou fazendo essa rotina abaixo pra buscar e fazer o download do arquivo só que agora começou a dar erro "URL não definida para: TNFEEvent" LerConfiguracaoNFe; InteliNFe.EventoNFe.Evento.Clear; with InteliNFe.EventoNFe.Evento.Add do begin infEvento.cOrgao := 91; infEvento.chNFe := edtChaveAcesso.Text; infEvento.CNPJ := dm.sqlEmpresaEMP_CNPJ.AsString; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestConfirmacao; end; InteliNFe.EnviarEvento(1); with InteliNFe.DownloadNFe do begin Download.CNPJ := dm.sqlEmpresaEMP_CNPJ.AsString; with Download.Chaves.Add do begin chNFe := edtChaveAcesso.Text; end; end; try InteliNFe.Download; except on e : Exception do begin MessageBox(Handle, PWideChar(e.Message), PWideChar('Atenção'), MB_OK + MB_ICONEXCLAMATION); Exit; end; end;

É Daniel eu também pensava assim mais olha o que ta na unit ACBrNFe: Result := WebServices.Envia(ALote, Sincrono); function TACBrNFe.Enviar(ALote: String; Imprimir: Boolean; Sincrono: Boolean): Boolean; var i: integer; begin if NotasFiscais.Count <= 0 then GerarException(ACBrStr('ERRO: Nenhuma NF-e adicionada ao Lote')); if NotasFiscais.Count > 50 then GerarException(ACBrStr('ERRO: Conjunto de NF-e transmitidas (máximo de 50 NF-e)' + ' excedido. Quantidade atual: ' + IntToStr(NotasFiscais.Count))); NotasFiscais.Assinar; NotasFiscais.Validar; Result := WebServices.Envia(ALote, Sincrono); if DANFE <> nil then begin for i := 0 to NotasFiscais.Count - 1 do begin if NotasFiscais.Items.Confirmada and Imprimir then begin NotasFiscais.Items.Imprimir; if (DANFE.ClassName = 'TACBrNFeDANFERaveCB') then Break; end; end; end; end;

Boa tarde, valeu mesmo pelas dicas, to fazendo os testes aqui e esbarrei no seguinte, ta dando: Rejeicao: Total do Valor Aproximado dos Tributos difere do somatorio dos itens. Anexei o XML pra ver o que pode ser, pq o que acontece é que é do Simples Nacional com CST 102, mas quando eu coloca o valor dos tributos da essa rejeição. E fica também a pergunta, empresas optantes pelo simples nacional são obrigadas a informar o valor Aproximado dos tributos? 14151007198515000197650010000006351000006353-nfe.xml

Um simples exemplo: var AliqFederal: Double; if ACBrIBPTax1.Procurar('61091000', ex, descricao, tabela, aliqFedNac, aliqFedImp, aliqEst, aliqMun, False) then AliqFederal := aliqFedNac/100; Entendi, então eu calculo isso de cada produto lançado e vou somando os valores de cada um dos impostos, e onde eu coloco o valor total desses impostos para poder gerar aquela mensagem da Lei "Impostos totais incidentes"? Isso mesmo... E depois de calcular isso ai tudo, onde é que eu preencho no componente para ele imprimir no danfe a informação dos impostos?

Um simples exemplo: var AliqFederal: Double; if ACBrIBPTax1.Procurar('61091000', ex, descricao, tabela, aliqFedNac, aliqFedImp, aliqEst, aliqMun, False) then AliqFederal := aliqFedNac/100; Entendi, então eu calculo isso de cada produto lançado e vou somando os valores de cada um dos impostos, e onde eu coloco o valor total desses impostos para poder gerar aquela mensagem da Lei "Impostos totais incidentes"?

Bom dia galera, fuçando o exemplos do acbr eu encontrei apenas como importar a tabela do ibpt como segue: try dm.tmpCadastro.Close; //ACBrIBPTax1.URLDownload := Trim('https://acbr.svn.sourceforge.net/svnroot/acbr/trunk/Exemplos/ACBrIBPTax/tabela/AcspDeOlhoNoImpostoIbptV.0.0.1.csv'); // if not ACBrIBPTax1.DownloadTabela then begin // se o path do arquivo não for passado, então o componente vai tentar baixar // a tabela no URL informado cdiretorio:= ExtractFilePath(Application.ExeName); ACBrIBPTax1.AbrirTabela('c:\Liberty\bin\IBPT.csv');//cdiretorio+'IBPT.csv'); // end; dm.tmpCadastro.Close; dm.tmpCadastro.CreateDataSet; dm.tmpCadastro.DisableControls; try for I := 0 to ACBrIBPTax1.Itens.Count - 1 do begin dm.tmpCadastro.Append; dm.tmpCadastroNCM.AsString := ACBrIBPTax1.Itens.NCM; dm.tmpCadastroEx.AsString := ACBrIBPTax1.Itens.Excecao; dm.tmpCadastroTabela.AsInteger := Integer(ACBrIBPTax1.Itens.Tabela); dm.tmpCadastroAliqNacional.AsFloat := ACBrIBPTax1.Itens.FederalNacional; dm.tmpCadastroAliqInternacional.AsFloat := ACBrIBPTax1.Itens.FederalImportado; dm.tmpCadastro.Post; end; finally dm.tmpCadastro.First; dm.tmpCadastro.EnableControls; Tá até ai tudo bem, o que não encontrei foi como utilizar isso dentro da NFe ou NFCe. Alguem tem um exemplo por ai?

Bom dia O Log mostra que é a sua aplicação que está enviando 2x... veja que existem duas chamadas ao método: -- 20/10 17:11:25:089 - Imprimir, Copias:1, DecodificarTags:SIM, TraduzirTags:SIM Tente debugar... Provavelmente é algo na sua aplicação... Faça testes com o SATTeste.exe, nesse ambienBom Bom dia Daniel, reparei o seguinte, eu só tenho uma chama em toda a minha aplicação para a impressão que é essa linha a baixo. ImprimeDanfe; que faz exatamente isso: procedure TFrmFinalizaCupom.ImprimeDanfe; {Var cNomeOld, cNomeNew : String;} begin if frmPrincipal.iModeleDanfe=0 then begin try try // frmPrincipal.inteliNFCe.DANFE.ViaConsumidor := True; frmPrincipal.inteliNFCe.DANFE.ImprimirItens := True;// := not chkDanfeResumido.Checked; frmPrincipal.inteliNFCe.NotasFiscais.Imprimir; finally end; except on e : exception do begin Application.MessageBox(pChar(E.Message), 'Erro', MB_ICONERROR + MB_OK); end; end; end; if frmPrincipal.iModeleDanfe=1 then begin try try // frmPrincipal.inteliNFCe.DANFE.ViaConsumidor := True; frmPrincipal.inteliNFCe.DANFE.ImprimirItens := True;// := not chkDanfeResumido.Checked; frmPrincipal.inteliNFCe.NotasFiscais.Imprimir; // frmPrincipal.inteliNFCe.NotasFiscais.ImprimirPDF; finally end; except on e : exception do begin Application.MessageBox(pChar(E.Message), 'Erro', MB_ICONERROR + MB_OK); end; end; end; end; ///////////////////////////// Só que ta gerando a impressão antes de chegar ai, eu acho que o componente ta imprimindo direto sem que eu chame a impressão.

Cara eu fiz o seguinte, tenho uma tabela de pagamentos onde defino o tipo la para o usuário aparece dinheiro e registra 0, cartão crédito registro 1 e por ai vai. ficou assim na hora de alimentar o componente. Derepente ajuda. while not dm.sqlPagamentosNFCe.Eof do begin with Pag.Add do begin case dm.sqlPagamentosNFCePMP_ID_FISCAL.AsInteger of 0: tPag := fpDinheiro; 1: tPag := fpCheque; 2: tPag := fpCartaoCredito; 3: tPag := fpCartaoDebito; 4: tPag := fpCreditoLoja; 5: tPag := fpValeAlimentacao; 6: tPag := fpValeRefeicao; 7: tPag := fpValePresente; 8: tPag := fpValeCombustivel; 9: tPag := fpOutro; end; //vPag := dm.sqlPagamentosNFCePMP_VALOR_PAGO.AsCurrency; //rTotalNota - rTotalDesconto; vPag := dm.sqlPagamentosNFCePMP_VALOR_RECEBIDO.AsCurrency; end; dm.sqlPagamentosNFCe.Next; end;

Daniel, ta enviando duas vias de acordo com o Log. LogImpNFCe

Cara, eu passei muitos dias com esse problema, até postei aqui o problema e o que eu percebi foi o seguinte, o usuário te ferra o quanto ele puder, rsrsrsrs. Quando envia uma nota, normalmente os dados são registrados blz mas quando na sequencia vc tem um erro na validação por exemplo, não existe dados no retorno e o clear parece que não funciona em alguns campos. Veja: objNFM_PROTOCOLO_RECEBIMENTO.Text := LibertyNFe.WebServices.Retorno.Recibo; objNFM_PROTOCOLO_PROCESSAMENTO.Text := LibertyNFe.WebServices.Retorno.Protocolo; objNFM_CHAVE_ACESSO.Text := LibertyNFe.WebServices.Retorno.ChaveNFe; Pra mim ficou assim e deu resultado: except {coloquei tudo dentro de um try except e não pego o retorno quando dá o erro, apenas aviso o usuário} on e : exception do begin MessageDlg('Erro ao enviar NFe: ' + e.message, mtWarning, [mbOK], 0); frmNotasFiscais.FormStyle := fsStayOnTop; end;

Boa Noite, ja li um monte de post mais eu ainda tenho um problema e não consegui descobrir. São dois ambientes 1º - o meu com windows 10 impressora Epson TM-T20 pela porta USB imprimindo uma via normalmente. 2º De um cliente, com windows 7 impressora Epson TM-T20 pela porta USB imprimindo duas vias. ja revisei a configuração do Arquivo .ini que uso guardar as configurações, ja exclui e re-configurei todo o arquivo. e a só imprime duas vias, e isso ta acontecendo em dois clientes com a mesma impressora que a minha de testes, e outros clientes com a mesma impressora funciona normal imprimindo apenas uma via e todos utilizando a mesma compilação. Mais alguém passando por algo assim?